[fixed][added] fixed money not being properly rewarded. Added correct image paths and the option to report after the experimental trial has ended.

locations/city_experimental_trials.qsrc

@@ -25,7 +25,7 @@ if $ARGS[0] = 'front_desk' or $ARGS[0] = '':
 
 	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>'
+		'<center><img <<$set_imgh>> src="images\locations\city\residential\clinic\experiments\desk1.jpg"></center>'
 		*nl
 		'A young woman, dressed in office clothes and wearing glasses is sitting behind a desk.'
 
@@ -48,8 +48,31 @@ if $ARGS[0] = 'front_desk' or $ARGS[0] = '':
 		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.'
+			if experimentQW['trial_duration'] > 0:
+				*nl
+				'You are currently already taking part in a clinical trial.'
+			else
+				act 'Report your findings':
+					cla
+					*nl
+					if pcs_intel < 50:
+						'You report your experience in as much detail as you can.'
+						'"Thank you for your participation, it is invaluable to our research."'
+					else
+						'You report your experience in great detail, noting the various side effects that you''ve noticed.'
+						'"That you so much for your help, you''ve helped us advance our research greatly!"'
+						if rand(0, 2) = 0:
+							temp_tip = 10 * (pcs_intel  * rand(1, 3) / 10)
+							'She adds, "I think your dedication should be rewarded", as she hands you various notes adding up to ₽<<temp_tip>>.'
+							money += temp_tip
+							killvar 'temp_tip'
+						end
+					end
+
+					$experimentQW['trial_active'] = ''
+					act 'Continue': gt 'city_experimental_trials', 'front_desk'
+				end
+			end
 		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:
@@ -83,9 +106,9 @@ if $ARGS[0] = 'front_desk' or $ARGS[0] = '':
 			'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':

locations/city_experimental_trials_events.qsrc

@@ -615,7 +615,6 @@ 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

locations/city_experimental_trials_list.qsrc

@@ -223,8 +223,7 @@ if $ARGS[0] = $trial_sections[0]:
 		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>'
+			'<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
@@ -271,8 +270,7 @@ elseif $ARGS[0] = $trial_sections[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>'
+			'<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."'
 
@@ -321,8 +319,7 @@ elseif $ARGS[0] = $trial_section[2]:
 			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>'
+			'<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."'
 
@@ -378,8 +375,7 @@ elseif $ARGS[0] = $trial_sections[3]:
 		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>'
+			'<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]
@@ -429,8 +425,7 @@ elseif $ARGS[0] = $trial_sections[4]:
 		act 'Undress and lie down':
 			minut += 3
 			*clr & cla
-			!!Image of butt injection.
-			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'<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."'
 
@@ -479,8 +474,7 @@ elseif $ARGS[0] = $trial_sections[5]:
 		act 'Lie down':
 			minut += 3
 			*clr & cla
-			!!Image of stomach/womb injection.
-			'<center><img <<$set_imgh>> src="images\system\image_needed.png"></center>'
+			'<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."'
 
@@ -500,7 +494,7 @@ end
 
 if $ARGS[0] = 'act_return':
 	act 'Return to the clinic':
-		pcs_money += ARGS[1]
+		money += ARGS[1]
 		gs 'city_experimental_trials_list', 'killvars'
 		gt 'city_clinic', 'start'
 	end