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:
		bodyVars['bust_other'] -= 2
		'You notice that your breasts have shrunk! This must have been that experimental pill you took.'
	else
		bodyVars['bust_other'] += 2
		'You notice that your breasts 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 - stren_xpprv)
			stren_mem -= 2 * (stren_xpnxt - stren_xpprv)
		end

		'You seem to have lost a lot of mussle mass and feel weaker. This must have been that experimental pill you took.'

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

		'You seem to have gained a lot of mussle mass and feel stronger! This must have been that experimental pill you took.'

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

		'Your agility has deminished and you feel slower. This must have been that experimental pill you took.'

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

		'Your agility has increased and you feel faster! This must have been that experimental pill you took.'

	elseif experimentQW['random_option'] = 5:
		if vital_lvl > 11:
			vital_exp -= 2 * (vital_xpnxt - vital_xpprv)
			vital_mem -= 2 * (vital_xpnxt - vital_xpprv)
		end

		'Your endurance has decreased! This must have been that experimental pill you took.'

	else
		if vital_lvl < 99:
			vital_exp += 2 * (vital_xpnxt - vital_xpprv)
		end

		'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 - intel_xpprv)
			intel_mem -= 2 * (intel_xpnxt - intel_xpprv)
		end

		'Your intelligence has decreased and you feel dumber. This must have been that experimental pill you took.'

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

		'Your intelligence has increased and you feel smarter! This must have been that experimental pill you took.'

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

		'Your reaction time has deminished and you feel slower. This must have been that experimental pill you took.'

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

		'Your reaction time has quickened and you feel faster! This must have been that experimental pill you took.'

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

		'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 - chrsm_xpprv)
		end

		'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 - prcptn_xpprv)
			prcptn_mem -= 2 * (prcptn_xpnxt - prcptn_xpprv)
		end

		'You feel less perceptive. This must have been that experimental pill you took.'

	else
		if prcptn_lvl < 99:
			prcptn_exp += 2 * (prcptn_xpnxt - prcptn_xpprv)
		end

		'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 = 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

			'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 and your blemishes and tan have faded, increasing your looks. This must have been that experimental pill you took.'

		else
			*nl
			'Your skin pleasantly tingles and your 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, your 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, your 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', 'UpdateBaseAppearance'


!! 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 -= 2 * (butt_tr_xpnxt - butt_tr_xpprv)
		butt_tr_mem -= 2 * (butt_tr_xpnxt - butt_tr_xpprv)
		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 += 2 * (butt_tr_xpnxt - butt_tr_xpprv)

		*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 inhib_exp
		else
			experimentQW['random_option'] = 2
		end
	end

	if experimentQW['random_option'] = 1:
		!! correct amount??
		inhib_exp -= 2 * (inhib_xpnxt - inhib_xpprv)
		inhib_mem -= 2 * (inhib_xpnxt - inhib_xpprv)
		inhib_lvl -= 2
		inhib_flr -= 2
		inhib_lvlst -= 2
		*nl
		'Your inhibition has increased and you feel less outgoing and more ashamed. This must have been that experimental pill you took.'

	else
		!! correct amount??
		inhib_exp += 2 * (inhib_xpnxt - inhib_xpprv)
		*nl
		'Your inhibition has lowered and you feel more outgoing and less ashamed. 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

if mid($experimentQW['trial_active'],1, 4) = 'pill':
	gs 'stat_sklattrib'
	gs 'stat_sklattrib'
end


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


if $experimentQW['trial_active'] = 'breast_cream':
	bodyVars['bust_other'] += 2

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

	else
		if lactation['active'] <= 0:
			!! Permanent lactation
			gs 'lact_lib', 'lact_on'
			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
		if therapistQW['breast_cream'] = 2: therapistQW['breast_cream'] = 3
	end
end


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


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

	if experimentQW['trial_duration'] > 1:
		pcs_haircol = rand(0,22)
	else
		pcs_haircol = 11
	end
	*nl
	'You notice that your hair has lengthened and changed in color! This must have been that experimental hair extension shampoo.'
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_orgasms'] < 2: pcs_traits['easy_orgasms'] = 2

		*nl
		'You feel a heat spreading from your stomach and 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
	bodyVars['butt_other'] += 2

	if experimentQW['trial_duration'] >= 4:
		*nl
		'You feel a warmth pulsing in your ass and can feel it growing in size. 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 and heat radiates 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_horny < 20: pcs_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_horny < 40: pcs_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_horny < 50: pcs_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
experimentQW['event_day'] = daystart

if experimentQW['trial_duration'] <= 0:
	experimentQW['trial_duration'] = 0
	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 ---------------------------------