[added] Experimental trials have dropped! They're weird, wacky, and now come with a new and improved40% guarantee to not fuck up your life! Sign up now at the city residential clinic and help shape the future!

*the clinic is not liable for any permanent changes to your body

glife.qproj

@@ -955,6 +955,10 @@
 		<Location name="park_walkeventsrnd"/>
 		<Location name="park_walkevents"/>
 		<Location name="city_clinic"/>
+		<Location name="city_experimental_trials"/>
+		<Location name="city_experimental_trials_pharmacy"/>
+		<Location name="city_experimental_trials_list"/>
+		<Location name="city_experimental_trials_events"/>
 		<Location name="city_market"/>
 		<Location name="city_marketwork"/>
 		<Location name="city_sauna"/>

locations/city_clinic.qsrc

@@ -103,7 +103,15 @@ if $ARGS[0] = 'start':
 			act 'Return to the entrance': gt 'city_clinic', 'start'
 		end
 	end
-	
+
+	if experimentQW['discovered'] = 0:
+		*nl
+		'In the far corner you spot the entrance to a signup area for <a href="exec: experimentQW[''discovered''] = 1 & gt ''city_experimental_trials'', ''front_desk''">experimental trials</a>.'
+		*nl
+	else
+		act 'Go to the medical trials reception desk': gt 'city_experimental_trials', 'front_desk'
+	end
+
 	if preg = 2:
 		act 'Give birth':
 			*clr & cla

locations/city_experimental_trials.qsrc

@@ -0,0 +1,112 @@
+# city_experimental_trials
+
+!!2023/09/20
+!! Content reused from the medical experiment mod by pchs and julzor.
+!! Inspiration taken from Clean Slate: https://tfgames.site/index.php?module=viewgame&id=2247
+
+
+
+$loc = 'city_experimental_trials'
+$location_type = 'private'
+$locM = 'city_experimental_trials'
+
+$doc1 = 'Doctor Sokolnikov'
+$doc2 = 'Doctor Ivanov'
+
+
+
+if $ARGS[0] = 'front_desk' or $ARGS[0] = '':
+	menu_off = 0
+	$menu_loc = 'city_experimental_trials'
+	$menu_arg = 'front_desk'
+	$loc_arg = 'front_desk'
+	minut += 2
+	gs 'stat'
+
+	temp_rand = rand(0, 3)
+	if temp_rand <= 1 or experimentQW['signed'] = 0:
+		'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\desk.jpg"></center>'
+		*nl
+		'A young woman, dressed in office clothes and wearing glasses is sitting behind a desk.'
+
+	elseif temp_rand <= 2:
+		'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\nurse1.jpg"></center>'
+		*nl
+		'A young nurse is sitting behind a desk.'
+
+	else
+		'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\nurse2.jpg"></center>'
+		*nl
+		'An elderly nurse is sitting behind a desk.'
+	end
+
+	killvar 'temp_rand'
+
+	if experimentQW['signed'] ! 0:
+		'She looks up as you walk in and warmely welcomes you in, "Hello miss <<$pcs_lastname>>, how can I help you today?"'
+
+		if $experimentQW['trial_active'] = '':
+			act 'Ask to see which clinical trials are available': gt 'city_experimental_trials_list', 'see_trials'
+		else
+			*nl
+			'You are currently already taking part in a clinical trial.'
+		end
+
+		if experimentQW['times_participated_0'] >= 2 or experimentQW['times_participated_1'] ! 0 or experimentQW['times_participated_2'] ! 0 or experimentQW['times_participated_3'] ! 0:
+			*nl
+			'You also spot a small pharmaceutical stand to the side'
+			act 'Go to the experimental pharmacy': gt 'city_experimental_trials_pharmacy', 'counter'
+		end
+
+		act 'Leave': gt 'city_clinic', 'start'
+
+	else
+		'She looks up as you walk in and warmely welcomes you in, "Hello miss, how can I help you?"'
+		'"I read an advert that you are looking for people to test new treatments... And that you compensate the subjects for it." you reply.'
+		'"Yes, that is true. We are at the forefront of medical research, and you could help push the boundaries of modern medicine. Your contribution will help save countless lives.'
+		'If you want to apply, please read and fill in this form." As she hands over a clipboard.'
+		*nl
+
+		if intel < 10:
+			'The form is filled with legal jargon, but you''re pretty sure that you''ll be paid to be experimented on and those trials won''t harm your health.'
+		elseif intel < 50:
+			'The form is filled with a lot of legal jargon, but you manage to grasp the important parts.'
+			'The clinic will pay you to take an experimental treatment and any consequences are yours to bear.'
+			'They do guarantee your safety.'
+		elseif intel < 90
+			'The form explains that you''ll get paid to take part in testing experimental treatments.'
+			'The clinic is not liable for any of the consequences, but they will not jeopardize your general health.'
+			'Finally you are prohibited from disclosing the methods and results of the treatments to anybody not affiliated with the clinic.'
+		else
+			'The form is filled with complicated legal jargon intended to confuse the reader, but your sharp mind pierces the veil.'
+			'You will get paid when you take part in testing experimental treatments which can result in permanent changes to your body and mind.'
+			'You are solely responsible in dealing with those consequences and you may not reveal the contents nor results of the treatments, if you do reveal them you can be sued for an exorbitant amount of money.'
+			'Finally, reading between the lines you also manage to grasp that some of these experiments aren''t fully ethical.'
+		end
+		
+		*nl
+		
+		'At the bottom of the document you need to write down your full name, age, and add your signature.'
+		
+		act 'Sign the document':
+			experimentQW['signed'] = 1
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\desk.jpg"></center>'
+			*nl
+			'You hand the signed document back to the woman, who looks it over briefly.'
+			'"Thank you miss <<$pcs_lastname>>, we''ll add you to our database and from now on you can enter our various trials. The contract you signed is legally binding, you are not allowed to discuss your experiences with anybody outside of this clinic."'
+			'She must have noticed the look on your face as she follows this up with "It''s to protect our proprietary technology, so if you talk about what happens here you can leak our discoveries. Everything will be fine if you keep this to yourself."'
+
+			act 'Return to the front desk': gt 'city_experimental_trials', 'front_desk'
+		end
+		
+		act 'Put the contract down and leave': gt 'city_clinic', 'start'
+	end
+end
+
+
+
+killvar '$doc1'
+killvar '$doc2'
+
+--- city_experimental_trials ---------------------------------

locations/city_experimental_trials_events.qsrc

@@ -0,0 +1,651 @@
+# 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 ---------------------------------

locations/city_experimental_trials_list.qsrc

@@ -0,0 +1,523 @@
+# city_experimental_trials_list
+
+
+$loc = 'city_experimental_trials_list'
+$location_type = 'private'
+$locM = 'city_experimental_trials_list'
+
+$doc1 = 'Doctor Sokolnikov'
+$doc2 = 'Doctor Ivanov'
+
+
+$trial_names[0]     = 'Enhancement pill'
+ trial_pays[0]      = 500
+$trial_sections[0]  = 'enhancement_pill'
+ trial_maxs[0]      = -1
+!trial_durations[0] = Varies per pill.
+
+$trial_names[1]     = 'Breast Cream'
+ trial_pays[1]      = 5000
+$trial_sections[1]  = 'breast_cream'
+ trial_maxs[1]      = 1
+ trial_durations[1] = 4
+
+$trial_names[2]     = 'Hair Extension Shampoo'
+ trial_pays[2]      = 2500
+$trial_sections[2]  = 'hair_cream'
+ trial_maxs[2]      = 1
+ trial_durations[2] = 5
+
+$trial_names[3]     = 'Aphrodisiac pills'
+ trial_pays[3]      = 10000
+$trial_sections[3]  = 'aphrodisiac_pill'
+ trial_maxs[3]      = 1
+ trial_durations[3] = 5
+
+$trial_names[4]     = 'Butt Injection'
+ trial_pays[4]      = 10000
+$trial_sections[4]  = 'butt_injection'
+ trial_maxs[4]      = 1
+ trial_durations[4] = 5
+
+$trial_names[5]     = 'Fertility treatment'
+ trial_pays[5]      = 10000
+$trial_sections[5]  = 'fertility_shot'
+ trial_maxs[5]      = 1
+ trial_durations[5] = 3
+
+!{
+$trial_names[6]     = 'Growth Hormones'
+ trial_pays[6]      = 5000
+$trial_sections[6]  = 'growth_hormones'
+ trial_maxs[6]      = 1
+ trial_durations[6] = ?
+
+Drugs
+}
+
+if $ARGS[0] = 'see_trials':
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = 'see_trials'
+	menu_off = 0
+	$loc_arg = 'see_trials'
+	minut += 2
+	gs 'stat'
+
+	!!Image of the desk, or a experimental trials folder.
+	'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+	'You look through the long list of various available clinical trials and the following stick out:'
+	*nl
+	'<center><table align="center" width=80%>'
+	cetl_i = 0
+	:loop_start
+		$temp_bgcolor = iif(cetl_i mod 2 = 0, '#C0F1F1', '#E6F2FF')
+		$temp_text = ''
+		if trial_maxs[cetl_i] = -1 or experimentQW['times_participated_<<cetl_i>>'] < trial_maxs[cetl_i]:
+			$temp_text += '<tr><td bgcolor="<<$temp_bgcolor>>" align="center"><a href="exec: gt ''city_experimental_trials_list'', ''<<$trial_sections[cetl_i]>>''"><<$trial_names[cetl_i]>></a>'
+		else
+			$temp_text += '<tr><td bgcolor="<<$temp_bgcolor>>" align="center"><font color="black"><<$trial_names[cetl_i]>></font>'
+		end
+		$temp_text += '</td> <td bgcolor="<<$temp_bgcolor>>" align="right"><font color="black">₽<<trial_pays[cetl_i]>></font></td></tr>'
+		
+		'<<$temp_text>>'
+
+		cetl_i += 1
+	if cetl_i < arrsize('$trial_names'): jump 'loop_start'
+	'</table></center>'
+	killvar '$temp_bgcolor'
+	killvar 'loop_start'
+	killvar '$temp_text'
+	killvar 'cetl_i'
+
+	act 'Go back': gt 'city_experimental_trials', 'front_desk'
+end
+
+
+
+
+
+!! Enhancement pill
+if $ARGS[0] = $trial_sections[0]:
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = $trial_sections[0]
+	menu_off = 0
+	$loc_arg = $trial_sections[0]
+
+	minut += 2
+	
+	!!Image of the desk, or a experimental trials folder.
+	'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+
+	'We have developed a range of enhancement pills that are designed to improve body and mood. They''ve just been approved for human trials, so we''re still cataloguing the effects.'
+	'The following are expected: mood swings, aches, itches, rashes, and physical changes.'
+	
+	act 'Sign up':
+		$experimentQW['trial_active'] = $trial_names[0]
+
+		menu_off = 1
+		minut += 2
+		gs 'stat'
+
+		*clr & cla
+		temp_rand = rand(0, 1)
+		if temp_rand = 0:
+			$temp_doc = $doc1
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
+		else
+			$temp_doc = $doc2
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc2.jpg"></center>'
+		end
+
+		'You are approached by a doctor in a white lab coat, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
+		*nl
+		'You are guided through narrow hallways until you end up in <<$temp_doc>>''s private office, where you take a seat in one of the free chairs available.'
+
+		temp_rand = rand(0, 89)
+		!! Change tits
+		if temp_rand < 10:
+			$temp_pill_color = 'cyan'
+			$experimentQW['trial_active']     = 'pill_cyan'
+			$experimentQW['pill_cyan_taken'] += 1
+			 experimentQW['trial_duration']   = rand(1, 3)
+
+		!! Change stren, vital, or agil
+		elseif temp_rand < 20:
+			$temp_pill_color = 'red'
+			$experimentQW['trial_active']    = 'pill_red'
+			$experimentQW['pill_red_taken'] += 1
+			 experimentQW['trial_duration']  = rand(2, 4)
+
+		!! Change intel, cha, perception?
+		elseif temp_rand < 30:
+			$temp_pill_color = 'blue'
+			$experimentQW['trial_active']     = 'pill_blue'
+			$experimentQW['pill_blue_taken'] += 1
+			 experimentQW['trial_duration']   = rand(2, 4)
+
+		!! Change skin
+		elseif temp_rand < 40:
+			$temp_pill_color = 'yellow'
+			$experimentQW['trial_active']       = 'pill_yellow'
+			$experimentQW['pill_yellow_taken'] += 1
+			 experimentQW['trial_duration']     = rand(2, 5)
+
+		!! Change butt
+		elseif temp_rand < 50:
+			$temp_pill_color = 'orange'
+			$experimentQW['trial_active']       = 'pill_orange'
+			$experimentQW['pill_orange_taken'] += 1
+			 experimentQW['trial_duration']     = rand(2, 4)
+
+		!! Change inhib
+		elseif temp_rand < 60:
+			$temp_pill_color = 'violet'
+			$experimentQW['trial_active']       = 'pill_violet'
+			$experimentQW['pill_violet_taken'] += 1
+			 experimentQW['trial_duration']     = 1
+
+		!! Change min_arousal
+		elseif temp_rand < 65:
+			$temp_pill_color = 'brown'
+			$experimentQW['trial_active']      = 'pill_brown'
+			$experimentQW['pill_brown_taken'] += 1
+			 experimentQW['trial_duration']    = rand(2, 4)
+		
+		!! Change clit
+		elseif temp_rand < 70:
+			$temp_pill_color = 'purple'
+			$experimentQW['trial_active']     = 'pill_purple'
+			$experimentQW['pill_cyan_taken'] += 1
+			 experimentQW['trial_duration']   = rand(2, 4)
+
+		!! Change alko_status
+		elseif temp_rand < 80:
+			$temp_pill_color = 'green'
+			$experimentQW['trial_active']      = 'pill_green'
+			$experimentQW['pill_green_taken'] += 1
+			 experimentQW['trial_duration']    = 1
+
+		!! Give exhib level or change willwpower
+		elseif temp_rand < 85:
+			$temp_pill_color = 'gray'
+			$experimentQW['trial_active']     = 'pill_gray'
+			$experimentQW['pill_gray_taken'] += 1
+			 experimentQW['trial_duration']   = 1
+
+		!! Give bimbo lvl or change willpower?
+		elseif temp_rand < 90:
+			$temp_pill_color = 'pink'
+			$experimentQW['trial_active']     = 'pill_pink'
+			$experimentQW['pill_pink_taken'] += 1
+			 experimentQW['trial_duration']   = 1
+		end
+
+		experimentQW['times_participated_0'] += 1
+
+
+		'<<$temp_doc>> briefly searches through a drawer, pulls out a nondescript <font color=<<$temp_pill_color>>><<$temp_pill_color>> pill</font> and hands it to you. "Please swallow this, and you''ll get paid."'
+
+		killvar '$temp_doc'
+		killvar 'temp_rand'
+
+		act 'Swallow the <font color=<<$temp_pill_color>>><<$temp_pill_color>> pill</font>':
+			minut += 3
+			*clr & cla
+			!!Image of Sveta swallowing pills.
+			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'The doctor observes as you swallow the pill and then makes a note on a clipboard. "Thank you for your participation miss <<$pcs_lastname>>, we''ll speak again soon."'
+			act 'Return to the clinic': pcs_money += trial_pays[0] & gt 'city_clinic', 'start'
+		end
+
+
+	end
+	act 'Go back': gt 'city_experimental_trials_list', 'see_trials'
+
+
+
+!! Breast Cream
+elseif $ARGS[0] = $trial_sections[1]:
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = $trial_sections[1]
+	 menu_off = 0
+	$loc_arg = $trial_sections[1]
+
+	minut += 2
+	'We have developed a breast cream, based on natural hormones, which enhances the natural breast growth leading to fuller and natural looking breasts.'
+	'No side effects are listed for this clinical trial.'
+
+	act 'Sign up':
+		 experimentQW['times_participated_1'] += 1
+		$experimentQW['trial_active'] = $trial_sections[1]
+		 experimentQW['trial_duration'] = trial_durations[1]
+
+		menu_off = 1
+		minut += 2
+		gs 'stat'
+
+		*clr & cla
+		temp_rand = rand(0, 1)
+		if temp_rand = 0:
+			$temp_doc = $doc1
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
+		else
+			$temp_doc = $doc2
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc2.jpg"></center>'
+		end
+		killvar 'temp_rand'
+
+		'You are approached by a doctor in a white lab coat, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
+		*nl
+		'You are guided through narrow hallways until you end up in <<$temp_doc>>''s private office, where he gestures you lie on the exam table. "Please lie down and expose your chest."'
+
+		act 'Undress and lie down':
+			minut += 1
+			pcs_horny += 5
+			gs 'stat'
+			*clr & cla
+			!!Image of doctor putting cream on Sveta''s breasts.
+			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'<<$temp_doc>> puts on a pair of latex gloves, grabs a generic white tube, squeezes a large amount of white cream in his hands, and starts massaging it into your breasts.'
+			'The massage continues for about a minute, at which point <<$temp_doc>> steps away and takes of his gloves. "Thank you for your participation miss <<$pcs_lastname>>, you can get dressed now and we''ll speak again soon."'
+
+			act 'Dress and return to the clinic': pcs_money += trial_pays[1] & gt 'city_clinic', 'start'
+		end
+
+		killvar '$temp_doc'
+	end
+
+	act 'Go back': gt 'city_experimental_trials_list', 'see_trials'
+
+
+
+!! Hair extension shampoo
+elseif $ARGS[0] = $trial_section[2]:
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = $trial_section[2]
+	 menu_off = 0
+	$loc_arg = $trial_section[2]
+
+	minut += 2
+	'We have developed a hair extension shampoo, which enhances your natural hair growth leading to longer, fuller and glossier hair.'
+	'No side effects are listed for this clinical trial.'
+
+	act 'Sign up':
+		 experimentQW['times_participated_2'] += 1
+		$experimentQW['trial_active']          = $trial_sections[2]
+		 experimentQW['trial_duration']        =  trial_duration[2]
+
+		menu_off = 1
+		minut += 2
+		gs 'stat'
+
+		*clr & cla
+		temp_rand = rand(0, 1)
+		if temp_rand = 0:
+			$temp_doc = $doc1
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
+		else
+			$temp_doc = $doc2
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc2.jpg"></center>'
+		end
+		killvar 'temp_rand'
+
+		'You are approached by a doctor in a white lab coat, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
+		*nl
+		'You are guided through narrow hallways until you end up in <<$temp_doc>>''s private office, where he gestures you lie on the exam table. "Please lie down."'
+
+		act 'Lie down':
+			minut += 1
+			gs 'stat'
+			*clr & cla
+			!!Image of doctor putting shampoo in Sveta''s hair.
+			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'<<$temp_doc>> puts on a pair of latex gloves, grabs a generic chestnut brown tube, squeezes a large amount of beige cream in his hands, and starts massaging it into your hair and scalp.'
+			'The massage continues for about a minute, at which point <<$temp_doc>> steps away and takes of his gloves. "Thank you for your participation miss <<$pcs_lastname>>, you can get dressed now and we''ll speak again soon."'
+
+			act 'Dress and return to the clinic': pcs_money += trial_pays[2] & gt 'city_clinic', 'start'
+		end
+
+		killvar '$temp_doc'
+	end
+
+	act 'Go back': gt 'city_experimental_trials_list', 'see_trials'
+
+
+
+!! Aphrodisiac
+elseif $ARGS[0] = $trial_sections[3]:
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = $trial_sections[3]
+	 menu_off = 0
+	$loc_arg = $trial_sections[3]
+
+	minut += 2
+	'We have developed a general aphrodisiac to put you and your partner in the mood and ready to go for hours.'
+	'No side effects are listed for this clinical trial.'
+	*nl
+	'<sub><small>Warning! This is a strictly personal enhancer, the clinic is not liable for any criminal allegations if used on other subjects.</small></sub>'
+
+	act 'Sign up':
+		 experimentQW['times_participated_2'] += 1
+		$experimentQW['trial_active'] = $trial_sections[3]
+		 experimentQW['trial_duration'] = trial_durations[3]
+
+		menu_off = 1
+		minut += 2
+		gs 'stat'
+
+		*clr & cla
+		temp_rand = rand(0, 1)
+		if temp_rand = 0:
+			$temp_doc = $doc1
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
+		else
+			$temp_doc = $doc2
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc2.jpg"></center>'
+		end
+		killvar 'temp_rand'
+
+
+		'You are approached by a doctor in a white lab coat, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
+		*nl
+		'You are guided through narrow hallways until you end up in <<$temp_doc>>''s private office, where you take a seat in one of the free chairs available.'
+
+
+		'<<$temp_doc>> briefly searches through a drawer, pulls out a brightly coloured pink pill and hands it to you. "Please swallow this, and you''ll get paid."'
+
+		killvar '$temp_doc'
+
+		act 'Swallow the aphrodisiac</font>':
+			minut += 3
+			*clr & cla
+			!!Image of Sveta swallowing pills.
+			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'The doctor observes as you swallow the pill and then makes a note on a clipboard. "Thank you for your participation miss <<$pcs_lastname>>, we''ll speak again soon."'
+
+			act 'Return to the clinic': pcs_money += trial_pays[3] & gt 'city_clinic', 'start'
+		end
+	end
+
+	act 'Go back': gt 'city_experimental_trials_list', 'see_trials'
+
+
+
+!! Butt injection
+elseif $ARGS[0] = $trial_sections[4]:
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = $trial_sections[4]
+	 menu_off = 0
+	$loc_arg  = $trial_sections[4]
+
+	minut += 2
+	'Dissapointed by your genetic disposition to a flat behind, but afraid of invasive surgery? We at Kardashian Medics have heard you and developed our patented<sup>*</sup> KBI treatment, get a behind like ours.'
+	'No side effects are listed for this clinical trial.'
+	'<br><br><br><br><br><br><br><br><br><br>'
+	'<sub><small>*Patent following. The Kardashian Butt Injection is not affiliated with Kardashian family.</small></sub>'
+
+	act 'Sign up':
+		 experimentQW['times_participated_2'] += 1
+		$experimentQW['trial_active'] = $trial_sections[4]
+		 experimentQW['trial_duration'] = trial_durations[4]
+		
+		menu_off = 1
+		minut += 2
+		gs 'stat'
+
+		*clr & cla
+		temp_rand = rand(0, 1)
+		if temp_rand = 0:
+			$temp_doc = $doc1
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
+		else
+			$temp_doc = $doc2
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc2.jpg"></center>'
+		end
+		killvar 'temp_rand'
+
+
+		'You are approached by a doctor in a white lab coat, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
+		*nl
+		'You are guided through narrow hallways until you end up in <<$temp_doc>>''s private office, where he gestures you lie on the exam table. "Please expose your buttocks and lie face down on the exam table."'
+
+		act 'Undress and lie down':
+			minut += 3
+			*clr & cla
+			!!Image of butt injection.
+			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'<<$temp_doc>> briefly searches through a drawer, pulls out a syringe filled with a light brownish liquid. A mild sting and a small injection in each bottock, and you are done.'
+			'"Thank you for your participation miss <<$pcs_lastname>>, we''ll speak again soon."'
+
+			act 'Return to the clinic': pcs_money += trial_pays[4] & gt 'city_clinic', 'start'
+		end
+		killvar '$temp_doc'
+	end
+
+	act 'Go back': gt 'city_experimental_trials_list', 'see_trials'
+
+
+
+!! Fertility shot
+elseif $ARGS[0] = $trial_sections[5]:
+	$menu_loc = 'city_experimental_trials_list'
+	$menu_arg = $trial_sections[5]
+	 menu_off = 0
+	$loc_arg  = $trial_sections[5]
+
+	minut += 2
+	'Do you want a baby, but having problems getting pregnant? Fear not, for we have developed a new fertility treatment. One shot and your chances of bringing that sunshine into your life will quadrupple.'
+	'Side effects include: Hormonal imbalance, superovulation, and uncontroled arousal.'
+
+	act 'Sign up':
+		 experimentQW['times_participated_2'] += 1
+		$experimentQW['trial_active'] = $trial_sections[4]
+		 experimentQW['trial_duration'] = trial_durations[4]
+
+		menu_off = 1
+		minut += 2
+		gs 'stat'
+
+		*clr & cla
+		temp_rand = rand(0, 1)
+		if temp_rand = 0:
+			$temp_doc = $doc1
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
+		else
+			$temp_doc = $doc2
+			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc2.jpg"></center>'
+		end
+		killvar 'temp_rand'
+
+
+		'You are approached by a doctor in a white lab coat, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
+		*nl
+		'You are guided through narrow hallways until you end up in <<$temp_doc>>''s private office, where he gestures you lie on the exam table. "Please expose your stomach and lie face down on the exam table."'
+
+		act 'Lie down':
+			minut += 3
+			*clr & cla
+			!!Image of stomach/womb injection.
+			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'<<$temp_doc>> briefly searches through a drawer, pulls out a syringe filled with a bubbling red liquid. A sharp sting and an injection into your lower stomach, and you are done.'
+			'"Thank you for your participation miss <<$pcs_lastname>>, we''ll speak again soon."'
+
+			act 'Return to the clinic': pcs_money += trial_pays[5] & gt 'city_clinic', 'start'
+		end
+		killvar '$temp_doc'
+	end
+
+	act 'Go back': gt 'city_experimental_trials_list', 'see_trials'
+
+
+
+end
+
+
+killvar '$trial_names'
+killvar 'trial_pays'
+killvar 'trial_codes'
+killvar '$doc1'
+killvar '$doc2'
+
+
+
+--- city_experimental_trials_list ---------------------------------

locations/city_experimental_trials_pharmacy.qsrc

@@ -0,0 +1,19 @@
+# city_experimental_trials_pharmacy
+
+if $ARGS[0] = 'counter':
+		'<center><B><font color="maroon">Experimental Pharmacy</font></B></center>'
+		!!Image of a pharmacy lady?
+		'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+		*nl
+		'You approach the pharmacy front desk. The nurse behind the counter looks up at you an smiles. "How can I help you".'
+		*nl
+
+
+		'There is currently nothing of note being sold here (yet).'
+		'More content will be added here in later updates.'
+
+		act 'Go back to the front desk': gt 'city_experimental_trials', 'front_desk'
+end
+
+
+--- city_experimental_trials_pharmacy ---------------------------------

locations/wakeup_events.qsrc

@@ -26,6 +26,10 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			$sleep_events[] = 'gs ''wakeup_events'', ''mother_sextalk'' '
 		end
 
+		if $experimentQW['trial_active'] ! '':
+			$sleep_events_priority[] = 'gs ''wakeup_events'', ''experimental_trials'' '
+		end
+
 		if vomit['hangover'] = 1  or vomit['unlucky'] = 1 or vomit['morning_sick'] = 1:
 			$sleep_events[] = 'gs ''wakeup_events'', ''vomiting_check'' '
 		end
@@ -150,6 +154,10 @@ if $ARGS[0] = 'mother_sextalk':
 	gt 'mother_sextalk', 'dildo_wakeup1'
 end
 
+if $ARGS[0] = 'experimental_trials':
+	xgt 'city_experimental_trials_events'
+end
+
 
 if $ARGS[0] = 'vomiting_check':
 	!! if not one of these locations, event will not fire
@@ -167,6 +175,8 @@ if $ARGS[0] = 'vomiting_check':
 end
 
 
+
+
 if $ARGS[0] = 'marisha_ev_morning':
 	'<center><img src="images/characters/pavlovsk/resident/marisha/marisha.jpg"></center>'
 	'You wake up feeling relaxed then look over to see Marisha already up. She gives you a smile and says, "Thanks for everything <<$pcs_firstname>>. See you later." She then leaves as you continue getting up.'