glife/locations/city_experimental_trials_list.qsrc

# city_experimental_trials_list


$loc = 'city_experimental_trials_list'
$location_type = 'private'
$locM = 'city_experimental_trials_list'

$exp_docs[0] = 'Doctor Sokolnikov'
$exp_docs[1] = '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'

	'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\experiment_form.jpg"></center>'
	'You look through the long list of various available clinical trials and the following stick out:'
	*nl
	*nl
	*p '<center><table align="center" width=80%>'

	cetl_i = 0
	:loop_start
		$temp_bgcolor = func('themes', 'alt_color', $temp_bgcolor)
		$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="<<$fcolor>>"><<$trial_names[cetl_i]>></font>'
		end
		$temp_text += '</td> <td bgcolor="<<$temp_bgcolor>>" align="right"><font color="<<$fcolor>>">₽<<trial_pays[cetl_i]>></font></td></tr>'

		*p '<<$temp_text>>'

		cetl_i += 1
	if cetl_i < arrsize('$trial_names'): jump 'loop_start'
	*p '</table></center>'

	killvar '$temp_bgcolor'
	killvar 'loop_start'
	killvar '$temp_text'
	killvar 'cetl_i'

	act 'Go back': gs 'city_experimental_trials_list', 'killvars' & 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 an 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 both 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
		if rand(0,1) = 0:
			$temp_doc = $exp_docs[0]
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
		else
			$temp_doc = $exp_docs[1]
			'<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, <<$temp_doc>> neatly sown on the chest. "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_purple_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
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\pill<<rand(2, 4)>>.jpg"></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."'
			gs 'city_experimental_trials_list', 'act_return', trial_pays[0]
		end
	end
	gs 'city_experimental_trials_list', 'act_go_back'



!! 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 cream, based on natural hormones, which enhances the natural growth of breasts, leading to fuller and more 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
		if rand(0,1) = 0:
			$temp_doc = $exp_docs[0]
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
		else
			$temp_doc = $exp_docs[1]
			'<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, <<$temp_doc>> neatly sown on the chest. "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
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\bustcream1.jpg"></center>'
			'<<$temp_doc>> puts on a pair of latex gloves and grabs a generic white tube. Squeezing a large amount of white cream into his hands, he starts massaging it into your breasts.'
			'The massage continues for about a minute, at which point <<$temp_doc>> steps away and takes off his gloves. "Thank you for your participation, Miss <<$pcs_lastname>>. We''ll speak again soon."'

			gs 'city_experimental_trials_list', 'act_return', trial_pays[1]
		end
	end

	gs 'city_experimental_trials_list', 'act_go_back'



!! Hair extension shampoo
elseif $ARGS[0] = $trial_sections[2]:
	$menu_loc = 'city_experimental_trials_list'
	$menu_arg = $trial_sections[2]
	 menu_off = 0
	$loc_arg = $trial_sections[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_durations[2]

		menu_off = 1
		minut += 2
		gs 'stat'

		*clr & cla
		if rand(0,1) = 0:
			$temp_doc = $exp_docs[0]
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
		else
			$temp_doc = $exp_docs[1]
			'<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, <<$temp_doc>> neatly sown on the chest. "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
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\haircream1.jpg"></center>'
			'<<$temp_doc>> puts on a pair of latex gloves and grabs a generic chestnut brown tube. He squeezes a large amount of beige cream into 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 off his gloves. "Thank you for your participation, Miss <<$pcs_lastname>>. We''ll speak again soon."'

			gs 'city_experimental_trials_list', 'act_return', trial_pays[2]
		end
	end

	gs 'city_experimental_trials_list', 'act_go_back'



!! 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_3'] += 1
		$experimentQW['trial_active'] = $trial_sections[3]
		 experimentQW['trial_duration'] = trial_durations[3]

		menu_off = 1
		minut += 2
		gs 'stat'

		*clr & cla
		if rand(0,1) = 0:
			$temp_doc = $exp_docs[0]
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
		else
			$temp_doc = $exp_docs[1]
			'<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, <<$temp_doc>> neatly sown on the chest. "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
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\pill1.jpg"></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."'

			gs 'city_experimental_trials_list', 'act_return', trial_pays[3]
		end
	end

	gs 'city_experimental_trials_list', 'act_go_back'



!! 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 the Kardashian family.</small></sub>'

	act 'Sign up':
		 experimentQW['times_participated_4'] += 1
		$experimentQW['trial_active'] = $trial_sections[4]
		 experimentQW['trial_duration'] = trial_durations[4]
		
		menu_off = 1
		minut += 2
		gs 'stat'

		*clr & cla
		if rand(0,1) = 0:
			$temp_doc = $exp_docs[0]
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
		else
			$temp_doc = $exp_docs[1]
			'<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, <<$temp_doc>> neatly sown on the chest. "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
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\assinjection1.jpg"></center>'
			'<<$temp_doc>> briefly searches through a drawer and 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."'

			gs 'city_experimental_trials_list', 'act_return', trial_pays[4]
		end
	end

	gs 'city_experimental_trials_list', 'act_go_back'



!! 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 are having problems getting pregnant? Fear not, for we have developed the answer! Just one shot and your chances of bringing that little ray of sunshine into your life will quadruple!'
	'Side effects include: Hormonal imbalance, superovulation and uncontrolled arousal.'

	act 'Sign up':
		 experimentQW['times_participated_5'] += 1
		$experimentQW['trial_active'] = $trial_sections[5]
		 experimentQW['trial_duration'] = trial_durations[5]

		menu_off = 1
		minut += 2
		gs 'stat'

		*clr & cla
		if rand(0,1) = 0:
			$temp_doc = $exp_docs[0]
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\doc1.jpg"></center>'
		else
			$temp_doc = $exp_docs[1]
			'<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, <<$temp_doc>> neatly sown on the chest. "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
			'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\pregshot1.jpg"></center>'
			'<<$temp_doc>> briefly searches through a drawer and 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."'

			gs 'city_experimental_trials_list', 'act_return', trial_pays[5]
		end
	end

	gs 'city_experimental_trials_list', 'act_go_back'
end


if $ARGS[0] = 'act_go_back':
	act 'Go back':
		gt 'city_experimental_trials_list', 'see_trials'
	end
end

if $ARGS[0] = 'act_return':
	temp_pay = ARGS[1]
	act 'Return to the clinic':
		money += temp_pay
		killvar 'temp_pay'
		gs 'city_experimental_trials_list', 'killvars'
		gt 'city_clinic', 'start'
	end
end

if $ARGS[0] = 'killvars':
	killvar '$trial_names'
	killvar 'trial_pays'
	killvar 'trial_codes'
	killvar '$exp_docs'
	killvar '$temp_doc'
end



--- city_experimental_trials_list ---------------------------------