|
@@ -107,11 +107,11 @@ if $ARGS[0] = $trial_sections[0]:
|
|
|
|
|
|
minut += 2
|
|
|
|
|
|
- !!Image of the desk, or a experimental trials folder.
|
|
|
+ !!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 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.'
|
|
|
+ '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]
|
|
@@ -121,7 +121,7 @@ if $ARGS[0] = $trial_sections[0]:
|
|
|
gs 'stat'
|
|
|
|
|
|
*clr & cla
|
|
|
- if rand(0, 1) = 0:
|
|
|
+ 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
|
|
@@ -129,45 +129,45 @@ if $ARGS[0] = $trial_sections[0]:
|
|
|
'<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."'
|
|
|
+ '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)
|
|
|
+ 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)
|
|
|
+ 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)
|
|
|
+ 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)
|
|
|
+ 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)
|
|
|
+ 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)
|
|
|
+ experimentQW['trial_duration'] = rand(2,4)
|
|
|
|
|
|
!! Change inhib
|
|
|
elseif temp_rand < 60:
|
|
@@ -181,14 +181,14 @@ if $ARGS[0] = $trial_sections[0]:
|
|
|
$temp_pill_color = 'brown'
|
|
|
$experimentQW['trial_active'] = 'pill_brown'
|
|
|
$experimentQW['pill_brown_taken'] += 1
|
|
|
- experimentQW['trial_duration'] = rand(2, 4)
|
|
|
+ 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)
|
|
|
+ experimentQW['trial_duration'] = rand(2,4)
|
|
|
|
|
|
!! Change alko_status
|
|
|
elseif temp_rand < 80:
|
|
@@ -224,7 +224,7 @@ if $ARGS[0] = $trial_sections[0]:
|
|
|
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."'
|
|
|
+ '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
|
|
@@ -240,7 +240,7 @@ elseif $ARGS[0] = $trial_sections[1]:
|
|
|
$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.'
|
|
|
+ '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':
|
|
@@ -253,7 +253,7 @@ elseif $ARGS[0] = $trial_sections[1]:
|
|
|
gs 'stat'
|
|
|
|
|
|
*clr & cla
|
|
|
- if rand(0, 1) = 0:
|
|
|
+ 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
|
|
@@ -261,7 +261,7 @@ elseif $ARGS[0] = $trial_sections[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, his name neatly sown on the chest tells you it''s <<$temp_doc>>. "Miss <<$pcs_lastname>>? Please follow me."'
|
|
|
+ '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."'
|
|
|
|
|
@@ -271,8 +271,8 @@ elseif $ARGS[0] = $trial_sections[1]:
|
|
|
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, 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."'
|
|
|
+ '<<$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
|
|
@@ -290,7 +290,7 @@ elseif $ARGS[0] = $trial_sections[2]:
|
|
|
$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.'
|
|
|
+ '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':
|
|
@@ -303,7 +303,7 @@ elseif $ARGS[0] = $trial_sections[2]:
|
|
|
gs 'stat'
|
|
|
|
|
|
*clr & cla
|
|
|
- if rand(0, 1) = 0:
|
|
|
+ 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
|
|
@@ -311,7 +311,7 @@ elseif $ARGS[0] = $trial_sections[2]:
|
|
|
'<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."'
|
|
|
+ '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."'
|
|
|
|
|
@@ -320,8 +320,8 @@ elseif $ARGS[0] = $trial_sections[2]:
|
|
|
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, 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."'
|
|
|
+ '<<$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
|
|
@@ -342,7 +342,7 @@ elseif $ARGS[0] = $trial_sections[3]:
|
|
|
'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>'
|
|
|
+ '<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
|
|
@@ -354,7 +354,7 @@ elseif $ARGS[0] = $trial_sections[3]:
|
|
|
gs 'stat'
|
|
|
|
|
|
*clr & cla
|
|
|
- if rand(0, 1) = 0:
|
|
|
+ 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
|
|
@@ -363,7 +363,7 @@ elseif $ARGS[0] = $trial_sections[3]:
|
|
|
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."'
|
|
|
+ '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.'
|
|
|
|
|
@@ -376,7 +376,7 @@ elseif $ARGS[0] = $trial_sections[3]:
|
|
|
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."'
|
|
|
+ '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
|
|
@@ -394,10 +394,10 @@ elseif $ARGS[0] = $trial_sections[4]:
|
|
|
$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.'
|
|
|
+ '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>'
|
|
|
+ '<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
|
|
@@ -409,7 +409,7 @@ elseif $ARGS[0] = $trial_sections[4]:
|
|
|
gs 'stat'
|
|
|
|
|
|
*clr & cla
|
|
|
- if rand(0, 1) = 0:
|
|
|
+ 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
|
|
@@ -418,7 +418,7 @@ elseif $ARGS[0] = $trial_sections[4]:
|
|
|
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."'
|
|
|
+ '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."'
|
|
|
|
|
@@ -426,8 +426,8 @@ elseif $ARGS[0] = $trial_sections[4]:
|
|
|
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, 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."'
|
|
|
+ '<<$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
|
|
@@ -445,8 +445,8 @@ elseif $ARGS[0] = $trial_sections[5]:
|
|
|
$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.'
|
|
|
+ '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
|
|
@@ -458,7 +458,7 @@ elseif $ARGS[0] = $trial_sections[5]:
|
|
|
gs 'stat'
|
|
|
|
|
|
*clr & cla
|
|
|
- if rand(0, 1) = 0:
|
|
|
+ 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
|
|
@@ -467,7 +467,7 @@ elseif $ARGS[0] = $trial_sections[5]:
|
|
|
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."'
|
|
|
+ '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."'
|
|
|
|
|
@@ -475,8 +475,8 @@ elseif $ARGS[0] = $trial_sections[5]:
|
|
|
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, 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."'
|
|
|
+ '<<$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
|