glife/locations/city_experimental_trials_list.qsrc

# 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 ---------------------------------