glife/locations/city_experimental_trials_events.qsrc

# city_experimental_trials_events


expadj = func('_difficulty','getexpadj')

	!!=========================!!
	!!                         !!
	!!       Random Pills      !!
	!!                         !!
	!!=========================!!


!! Change tits
if $experimentQW['trial_active'] = 'pill_cyan':
	if experimentQW['random_option'] = 0:
		if rand(0, 9) < 4:
			experimentQW['random_option'] = 1
		else
			experimentQW['random_option'] = 2
		end
	end


	if experimentQW['random_option'] = 1:
		nbsize -= 2
		if nbsize < 2: nbsize = 2

		genbsize -= 2
		if genbsize < 2: genbsize = 2

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You notice that your breast have shrunk! This must have been that experimental pill you took.'

	else
		nbsize += 2
		if nbsize > 57: nbsize = 57

		genbsize += 2
		if genbsize > 57: genbsize = 57

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You notice that your breast have grown! This must have been that experimental pill you took.'
	end


!! Change stren, vital, or agil
elseif $experimentQW['trial_active'] = 'pill_red':
	if experimentQW['random_option'] = 0:

		temp_rand = rand(0, 29)
		if temp_rand < 4:
			experimentQW['random_option'] = 1

		elseif temp_rand < 10:
			experimentQW['random_option'] = 2

		elseif temp_rand < 14:
			experimentQW['random_option'] = 3

		elseif temp_rand < 20:
			experimentQW['random_option'] = 4

		elseif temp_rand < 24:
			experimentQW['random_option'] = 5

		else
			experimentQW['random_option'] = 6
		end
		killvar 'temp_rand'
	end

	if experimentQW['random_option'] = 1:
		if stren_lvl > 11:
			stren_exp -= 2 * stren_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel weaker, you''ve lost a lot of mussle mass! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 2:
		if stren_lvl < 99:
			stren_exp += 2 * stren_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel stronger, you''ve gained a lot of mussle mass! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 3:
		if agil_lvl > 11:
			agil_exp -= 2 * agil_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel slower, your agility has deminished! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 4:
		if agil_lvl < 99:
			agil_exp += 2 * agil_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel faster, your agility have increased! This must have been that experimental pill you took.'
	
	elseif experimentQW['random_option'] = 5:
		if vital_lvl > 11:
			vital_exp -= 2 * vital_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel winded, your endurance has decreased! This must have been that experimental pill you took.'
	
	else
		if vital_lvl < 99:
			vital_exp += 2 * vital_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel calm, your endurance has increased! This must have been that experimental pill you took.'
	end


!! Change intel, cha, perception?
elseif $experimentQW['trial_active'] = 'pill_blue':
	if experimentQW['random_option'] = 0:
		temp_rand = rand(0, 39)
		if temp_rand < 4:
			experimentQW['random_option'] = 1

		elseif temp_rand < 10:
			experimentQW['random_option'] = 2

		elseif temp_rand < 14:
			experimentQW['random_option'] = 3

		elseif temp_rand < 20:
			experimentQW['random_option'] = 4

		elseif temp_rand < 24:
			experimentQW['random_option'] = 5

		elseif temp_rand < 30:
			experimentQW['random_option'] = 6

		elseif temp_rand < 34:
			experimentQW['random_option'] = 7

		else
			experimentQW['random_option'] = 8
		end
		killvar 'temp_rand'
	end

	if experimentQW['random_option'] = 1:
		if intel_lvl > 11:
			intel_exp -= 2 * intel_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel dumber, your intelligence has decreased! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 2:
		if intel_lvl < 99:
			intel_exp += 2 * intel_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel smarter, your intelligence has increased! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 3:
		if react_lvl > 11:
			react_exp -= 2 * react_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel slower, your reactions have deminished! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 4:
		if react_lvl < 99:
			react_exp += 2 * react_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel faster, your reactions have quickened! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 5:
		if chrsm_lvl > 11:
			chrsm_exp -= 2 * chrsm_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel less charismatic! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 6:
		if chrsm_lvl < 99:
			chrsm_exp += 2 * chrsm_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel more charismatic! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 7:
		if prcptn_lvl > 11:
			prcptn_exp -= 2 * prcptn_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel less perceptive! This must have been that experimental pill you took.'

	else
		if prcptn_lvl < 99:
			prcptn_exp += 2 * prcptn_xpnxt
		end

		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
		'You feel more perceptive! This must have been that experimental pill you took.'
	end


!! Change skin
elseif $experimentQW['trial_active'] = 'pill_yellow':
	if experimentQW['random_option'] = 0:
		temp_rand = (0, 9)
		if temp_rand < 3:
			experimentQW['random_option'] = 1

		elseif temp_rand < 4:
			experimentQW['random_option'] = 2

		elseif temp_rand < 6:
			experimentQW['random_option'] = 3

		else
			experimentQW['random_option'] = 4
		end
		killvar 'temp_rand'
	end

	if experimentQW['random_option'] = 1:
		pcs_skin -= 50
		if pcs_skin < 200: pcs_skin = 200

		if pcs_tan > 0:
			pcs_tan -= 2
			if pcs_tan < 0: pcs_tan = 0

			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
			'You skin tingles and itches. You are covered with a bright red rash and your tan has faded, damaging it and worsening your looks. This must have been that experimental pill you took.'

		else
			*nl
			'You skin tingles and itches. You are covered with a bright red rash, damaging it and worsening your looks. This must have been that experimental pill you took.'
		end

	elseif experimentQW['random_option'] = 2:
		pcs_skin -= 50
		if pcs_skin < 200: pcs_skin = 200

		if pcs_tan > 0:
			*nl
			'You skin tingles and itches. You are covered with a bright red rash and your tan has deepened, damaging it and worsening your looks. This must have been that experimental pill you took.'
		else
			*nl
			'You skin tingles and itches. You are covered with a bright red rash and your skin has become tanned, damaging it and worsening your looks. This must have been that experimental pill you took.'
		end

		pcs_tan += 2

	elseif experimentQW['random_option'] = 3:
		pcs_skin += 50
		if pcs_skin > 900: pcs_skin = 900

		if pcs_tan > 0:
			pcs_tan -= 2
			if pcs_tan < 0: pcs_tan = 0

			*nl
			'Your skin pleasantly tingles, blemishes and your tan have faded, increasing your looks. This must have been that experimental pill you took.'

		else
			*nl
			'Your skin pleasantly tingles, blemishes have faded, increasing your looks. This must have been that experimental pill you took.'
		end

	else
		pcs_skin += 50
		if pcs_skin > 900: pcs_skin = 900

		if pcs_tan > 0:
			*nl
			'Your skin pleasantly tingles, blemishes have faded and your tanned deepened, increasing your looks. This must have been that experimental pill you took.'

		else
			*nl
			'Your skin pleasantly tingles, blemishes have faded and your skin has become tanned, increasing your looks. This must have been that experimental pill you took.'
		end

		pcs_tan += 2
	end

	gs 'body', 'UpdateBaseAppearnce'


!! Change butt
elseif $experimentQW['trial_active'] = 'pill_orange':
	if experimentQW['random_option'] = 0:
		if rand(0, 9) < 5:
			experimentQW['random_option'] = 1
		else
			experimentQW['random_option'] = 2
		end
	end

	if experimentQW['random_option'] = 1:
		butt_tr_exp -= 10 * butt_tr_xpnxt
		if butt_tr_exp < 0: butt_tr_exp = 0

		*nl
		'You notice that your ass has shrunk! This must have been that experimental pill you took.'

	else
		butt_tr_exp += butt_tr_xpnxt * 10

		*nl
		'You notice that your ass has grown! This must have been that experimental pill you took.'
	end


!! Change inhib
elseif $experimentQW['trial_active'] = 'pill_violet':
	if experimentQW['random_option'] = 0:
		!! 40% chance of decreasing your inhib_exp
		if rand(0, 9) < 4:
			experimentQW['random_option'] = 1

		!! 60% chance of increasing your tits
		else
			experimentQW['random_option'] = 2
		end
	end

	if experimentQW['random_option'] = 1:
		!! correct amount??
		inhib_exp -= 50
		*nl
		'You feel less outgoing and more ashamed, your inhibition has lowered. This must have been that experimental pill you took.'

	else
		!! correct amount??
		inhib_exp += 50
		*nl
		'You feel more outgoing and less ashamed, your inhibition has increased. This must have been that experimental pill you took.'
	end


!! Change min_arousal
elseif $experimentQW['trial_active'] = 'pill_brown':
	if experimentQW['random_option'] = 0:
		if rand(0, 9) < 4 and min_arousal > 0:
			experimentQW['random_option'] = 1

		else
			experimentQW['random_option'] = 2
		end
	end

	if experimentQW['random_option'] = 1:
		min_arousal -= 2
		if min_arousal < 0: min_arousal = 0

		*nl
		'You feel a calm wash over you that you haven''t felt in a while. It seems that your arousal has reduced. This must have been that experimental pill you took.'

	else
		min_arousal += 5
		if min_arousal > 100: min_arousal = 100

		*nl
		'You feel your pussy moisten as a wave of arousal washes over you. This must have been that experimental pill you took.'
	end


!! Change clit
elseif $experimentQW['trial_active'] = 'pill_purple':
	if experimentQW['random_option'] = 0:
		!! 55% chance.
		if rand(0, 19) < 11 or clit_size = 0:
			experimentQW['random_option'] = 1
		else
			experimentQW['random_option'] = 2
		end
	end

	if experimentQW['random_option'] = 1:
		if rand(0, 1) = 0:
			*nl
			'You feel a tingle in your clit that quickly vanishes. This must have been that experimental pill you took.'

		else
			clit_size += 1
			*nl
			'You feel a tingle in your clit that lingers as it becomes engorged and permanently becomes larger. This must have been that experimental pill you took.'
		end

	else
		if rand(0, 1) = 0:
			*nl
			'You feel a tingle in your clit that quickly vanishes. This must have been that experimental pill you took.'

		else
			clit_size -= 1
			*nl
			'You feel a tingle in your clit that lingers as it shrinks and permanently becomes smaller. This must have been that experimental pill you took.'
		end
	end


!! Change alko_status
elseif $experimentQW['trial_active'] = 'pill_green':
	if pcs_traits['alko_status'] ! 1:
		pcs_traits['alko_status'] = -1
		*nl
		'You feel a sharp pain in your liver as the experimental treatment takes hold. It passes moments later, though you have no doubt that this will impede your ability to hold your liquor.'

	else
		pcs_traits['alko_status'] = -1
		*nl
		'You feel a soothing warmth in your liver as the experimental treatment takes hold. It lingers a while and you suspect that you can hold your liquor much better now.'
	end


!! Give exhib level or change willwpower
elseif $experimentQW['trial_active'] = 'pill_gray':
	if pcs_traits['commando_lvl'] < 3:
		pcs_traits['commando_lvl'] = 3

		*nl
		'Your skin feels extremely sensitive. This must have been that experimental pill you took.'
		msg 'You have gained the 3rd level of the Commando trait! From now on any kind of underwear over your hips just feels <i>wrong</i>. You suffer mood penalties while wearing panties.'

	else
		*nl
		temp_will_loss = rand(2, 5)
		willpowermax -= temp_will_loss
		pcs_willpwr -= temp_will_loss
		will_counter = 0
		killvar 'temp_will_loss'

		*nl
		'You feel your mental energy drain, and you permanently lose some willpower.'
	end


!! Give bimbo lvl or change willpower?
elseif $experimentQW['trial_active'] = 'pill_pink':
	if bimbolevel < 3:
		bimbo += 10
		bimbolevel += 1

		*nl
		'A pink mist fills your mind and clouds your thoughts, you want to giggle and be bubbly. This must have been that experimental pill you took.'

	else
		temp_will_loss = rand(2, 5)
		willpowermax -= temp_will_loss
		pcs_willpwr -= temp_will_loss
		will_counter = 0
		killvar 'temp_will_loss'
		*nl
		'You feel your mental energy drain, and you permanently lose some willpower.'
	end
end


	!!=========================!!
	!!                         !!
	!!       Breast Cream      !!
	!!                         !!
	!!=========================!!


if $experimentQW['trial_active'] = 'breast_cream':
	nbsize += 2
	if nbsize > 57: nbsize = 57

	genbsize += 2
	if genbsize > 57: genbsize = 57


	if experimentQW['trial_duration'] > 1:
		*nl
		'You notice that your breast have grown! This must have been that experimental breast cream.'

	else
		if lactation['active'] <= 0:
			!! Permanent lactation
			func('lact_lib', 'lact_switch')
			lactation['milkprod_type'] = 0
			*nl
			'Your breasts have grown and have a fullness to them. This must have been that experimental breast cream.'
		else
			*nl
			'Your breasts have grown and have become fuller. This must have been that experimental breast cream.'
		end
	end
end


	!!=========================!!
	!!                         !!
	!!        Hair Cream       !!
	!!                         !!
	!!=========================!!


if $experimentQW['trial_active'] = 'hair_cream':
	pcs_hairlng += rand(20, 50)
	defcurly = rand(0, 1)

	if experimentQW['trial_duration'] > 1:
		pcs_haircol = rand(0, 22)
		*nl
		'You notice that your hair has lengthened and changed in color! This must have been that experimental hair extension shampoo.'

	else
		pcs_haircol = 23
		*nl
		'You notice that your hair has lengthened and changed in color! This must have been that experimental hair extension shampoo.'
	end
end


	!!=========================!!
	!!                         !!
	!!       Aphrodesiac       !!
	!!                         !!
	!!=========================!!


if $experimentQW['trial_active'] = 'aphrodisiac_pill':
	min_arousal += 10
	pcs_horny += 10

	if experimentQW['trial_duration'] > 1:
		pcs_mood = 100
		*nl
		'You feel a warmth spreading from stomach moving towards your pussy, where it lingers for a few moments! This must have been that experimental aphrodisiac.'

	else
		min_arousal += 20
		pcs_horny = 100
		orgasm += 1
		pcs_mood = 100
		if pcs_traits['easy_orgams'] < 2: pcs_traits['easy_orgams'] = 2
		
		*nl
		'You feel a heat spreading from stomach moving towards your pussy. The heat pulses and you find yourself in the grips of an intense orgasm! You feel like it''ll be easier to orgasm from now on. This must have been that experimental aphrodisiac.'
	end
end


	!!=========================!!
	!!                         !!
	!!      Butt Injection     !!
	!!                         !!
	!!=========================!!


if $experimentQW['trial_active'] = 'butt_injection':
	pcs_horny += 10
	butt_tr_exp += butt_tr_xpnxt * 2

	if experimentQW['trial_duration'] >= 4:
		*nl
		'You feel a warmth pulsing in your ass and you can feel your bottom expanding. This must have been that experimental butt injection.'
	else
		min_arousal += 10
		pcs_horny += 10

		pcs_ass += rand(5, 10) + (3 - experimentQW['trial_duration'])
		if pcs_ass > 30: pcs_ass = 30

		ashrink -= rand(2, 4)
		if ashrink < 0: ashrink = 0

		ashrinkdays += rand(2, 4)
		if ashrinkdays > 10: ashrinkdays = 10

		agape[4] += rand(5, 10) + (3 - experimentQW['trial_duration'])
		if agape[4] > 60: agape[4] = 60

		*nl
		'You feel a warmth pulsing in your ass, heat radiation from your puckered hole. You can feel your ass expanding and you crave anal. This must have been that experimental butt injection.'
	end
end


	!!=========================!!
	!!                         !!
	!!      Fertility Shot     !!
	!!                         !!
	!!=========================!!


if $experimentQW['trial_active'] = 'fertility_shot':
	if experimentQW['trial_duration'] = 3:
		if min_arousal < 20: min_arousal = 20
		if pcs_horney < 20: pss_horny = 20
		
		*nl
		'You feel a heat radiate from your womb, awakening your arousal. This must have been that experimental fertility shot.'
	elseif experimentQW['trial_duration'] = 2:
		if min_arousal < 40: min_arousal = 40
		if pcs_horney < 40: pss_horny = 40
		*nl
		'You feel a heat radiate from your womb, awakening your arousal. This must have been that experimental fertility shot.'
	else
		if min_arousal < 50: min_arousal = 50
		if pcs_horney < 50: pss_horny = 50
		pcs_traits['hyper_fertile'] = 1
		*nl
		'You feel a heat radiate from your womb, awakening your arousal. This must have been that experimental fertility shot.'
	end
end


	!!-------------------------!!
	!!                         !!
	!!    General Management   !!
	!!                         !!
	!!-------------------------!!


experimentQW['trial_duration'] -= 1

if experimentQW['trial_duration'] <= 0:
	experimentQW['trial_duration'] = 0
	$experimentQW['trial_active'] = ''
	experimentQW['random_option'] = 0
	msg 'You should visit the clinical trial desk at the city clinic and report your experiences.'
end

killvar 'exppadj'

gs 'stat'

act 'Continue':
	*nl
	gs 'wakeup_events', 'event_end'
end

--- city_experimental_trials_events ---------------------------------