Browse Source

Text for Pav and city clinics updated

Vengeance_11 1 year ago
parent
commit
23562dcb8e
5 changed files with 469 additions and 519 deletions
  1. 30 33
      locations/WorkHosp.qsrc
  2. 194 217
      locations/city_clinic.qsrc
  3. 3 3
      locations/city_redlight.qsrc
  4. 24 25
      locations/medical_din.qsrc
  5. 218 241
      locations/pav_clinic.qsrc

+ 30 - 33
locations/WorkHosp.qsrc

@@ -19,11 +19,11 @@ if $ARGS[0] = 'start':
 		minut += 60
 		gs 'exp_gain', 'medcn', rand (0,2) 
 
-		if jobhosprand = 0:gt 'WorkHosp', '2'
+		if jobhosprand = 0: gt 'WorkHosp', '2'
 
 		'You work as part of the operating team, helping the doctors with whatever tasks they request of you.'
 
-		act 'Move away':gt 'WorkHosp', 'start'
+		act 'Move away': gt 'WorkHosp', 'start'
 	end
 
 	act 'Help the doctors in the emergency room (1:00)':
@@ -31,11 +31,11 @@ if $ARGS[0] = 'start':
 		minut += 60
 		gs 'exp_gain', 'medcn', rand (0,2)
 
-		if jobhosprand = 0:gt 'WorkHosp', '3'
+		if jobhosprand = 0: gt 'WorkHosp', '3'
 
 		'You spend a frenzied hour helping patients that come into the emergency room.'
 
-		act 'Move away':gt 'WorkHosp', 'start'
+		act 'Move away': gt 'WorkHosp', 'start'
 	end
 
 	act 'Relax in the nurse station':
@@ -46,7 +46,7 @@ if $ARGS[0] = 'start':
 
 		if pcs_inhib > 20:
 			act 'Masturbate (0:15)':
-				mastrrand = rand(0, 2)
+				mastrrand = rand(0,2)
 
 				if mastrrand = 0:
 					gt 'WorkHosp', '1'
@@ -54,55 +54,52 @@ if $ARGS[0] = 'start':
 					*clr & cla
 					picrand = 11
 					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/mastr11.jpg"></center>'
-					'You begin to secretly masturbate whenever nobody is watching.'
+					'You secretly masturbate whenever nobody is watching.'
 					$orgasm_or = 'yes'
-					$orgasm_txt = 'Gradually a pleasant warmth and sensation radiates from your needy sex, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'
+					$orgasm_txt = 'Gradually, a pleasant warmth and sensation radiates from your needy pussy, culminating in a powerful orgasm that sends waves of pleasure through your entire body.'
 					gs 'arousal', 'clit_finger', 15, 'masturbate'
 					gs 'stat'
 				end
 
-				act 'Leave':gt 'WorkHosp', 'start'
+				act 'Leave': gt 'WorkHosp', 'start'
 			end
 		end
 
-		act 'Move away':gt 'WorkHosp', 'start'
+		act 'Move away': gt 'WorkHosp', 'start'
 	end
 
-	act 'Eat in the cafeteria (0:30)':gs 'food', 'm_meal'
+	act 'Eat in the cafeteria (0:30)': gs 'food', 'm_meal'
 
 	act 'Chat with Kat':
 		cla
 		minut += 30
 		kat += 1
-
-		if npc_rel['A219'] > 60 and military = 0:gt 'WorkHosp', 'milit'
-
+		if npc_rel['A219'] > 60 and military = 0: gt 'WorkHosp', 'milit'
 		'You spend some time chatting with Kat.'
-
-
 		if npc_rel['A219'] > 50:
-			act 'Suggest going to an empty room together':gt 'WorkHosp', '0'
+			act 'Suggest going to an empty room together': gt 'WorkHosp', '0'
 		end
 
-		act 'Move away':gt 'WorkHosp', 'start'
+		act 'Move away': gt 'WorkHosp', 'start'
 	end
 
 	if hour >= 16:
-		cls
+		*clr & cla
 		'<center><b><font color="maroon">Clinic</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
 		'Your shift has ended.'
 
-		act 'Go home':gt 'city_residential'
+		act 'Go home': gt 'city_residential'
 	end
 end
 
 if $ARGS[0] = 'milit':
 	cla
 	military = 1
-	'"Listen, I am scheduled to work this weekend, but I have plans. Here''s the deal: war games are often held not far from the city and, well, according to the rules, they need doctors on site before they can begin. Don''t worry, you will have a doctor with you, so the most you''ll need to do is apply some bandages. If you feel up to it, on Saturday you can catch a bus at the clinic between 6 and 9. Oh yeah, I almost forgot! The pay for two days is 5000 <b>₽</b>. So what do you say?" asks Kat.'
+	'Kat turns to you. "Listen, I''m scheduled to work this weekend, but I have plans. Here''s the deal: war games are often held not far from the city and, well, according to the rules, they need doctors on site before they can begin.' 
+	'She notices your reaction. "Don''t worry, you''ll have a doctor with you, so the most you''ll need to do is apply some bandages. If you feel up to it, you can catch a bus at the clinic on Saturday between 06:00 and 09:00. Oh yeah, I almost forgot! The pay for two days is 5000 <b>₽</b>. So what do you say?"'
 
-	act 'Move away':gt 'WorkHosp', 'start'
+	act 'Move away': gt 'WorkHosp', 'start'
 end
 
 if $ARGS[0] = '0':
@@ -116,10 +113,11 @@ if $ARGS[0] = '0':
 		xgt 'lezbsex', 'var'
 	elseif katprorand = 1:
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex7.jpg"></center>'
-		'You and Kat have just begun to fondle each other when a patient enters the room. You back away from her, trying to pretend that nothing was happening. In contrast, Kat does not hesitate and lies down on the couch with her legs spread wide, proudly showing off her wet pussy. She guides you back down to her pussy, leaving no doubt what she expects your tongue to be doing, while looking hungrily at the guy and inviting him to join in the fun.'
+		'You and Kat have just begun to fondle each other when a patient enters the room. You back away from her, trying to pretend that nothing was happening. In contrast, Kat doesn''t hesitate and lies down on the couch with her legs spread wide, proudly showing off her wet pussy.' 
+		'She guides you back down to her pussy, leaving no doubt what she expects your tongue to be doing while looking hungrily at the guy and inviting him to join in the fun.'
 		gs 'arousal', 'cuni_give', 10, 'lesbian'
 		gs 'stat'
-		act 'Leave':gt 'WorkHosp', 'start'
+		act 'Leave': gt 'WorkHosp', 'start'
 
 		act 'Sounds like fun':
 			girl += 1
@@ -137,7 +135,7 @@ if $ARGS[0] = '0':
 		end
 	elseif katprorand = 2:
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex8.jpg"></center>'
-		'While Kat and you are in full swing, two doctors enter the room. You are both so engrossed with each other that you don''t even notice them until they started to caress you. You both spread your legs wider, inviting them to join the fun.'
+		'While you and Kat are in full swing, two doctors enter the room. You are both so engrossed with each other that you don''t even notice them until they start caressing you. You both spread your legs wider, inviting them to join the fun.'
 
 		act 'Entertain them':
 			gang += 1
@@ -163,11 +161,11 @@ end
 
 if $ARGS[0] = '1':
 	cla & *clr
-	mastrrand = rand(0, 1)
+	mastrrand = rand(0,1)
 
 	if mastrrand = 0:
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex9.jpg"></center>'
-		'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room, but you are so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.'
+		'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room, but you''re so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.'
 		gs 'arousal', 'clit_finger', 10, 'masturbate'
 		gs 'stat'
 		
@@ -186,17 +184,16 @@ if $ARGS[0] = '1':
 			guy += 1
 			picrand = 12
 			gs 'WorkHosp', 'randdoc'
-			if docfuck[randdoc] = 1:guy += 1
-				
+			if docfuck[randdoc] = 1: guy += 1
 			gt 'sex', 'minet'
 		end
 	else
 		picrand = rand(12, 13)
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex10.jpg"></center>'
-		'As you lose yourself in pleasure, two doctors come into the room. You are so distracted that you only notice them when they start to openly masturbate in front of you.'
+		'As you lose yourself in pleasure, two doctors come into the room. You''re so distracted that you only notice them when they start to openly masturbate in front of you.'
 		gs 'arousal', 'clit_finger', 10, 'masturbate'
 		gs 'stat'
-					
+	
 		act 'Leave':
 			gs 'arousal', 'end'
 			gt 'WorkHosp', 'start'
@@ -232,7 +229,7 @@ if $ARGS[0] = '2':
 	*clr & cla
 	picrand = rand(13, 15)
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex11.jpg"></center>'
-	'A patient comes through the door and takes off his pants to show you his flaccid penis. He asks you to help him, as he can''t seem to get an erection and it''s causing him depression. You realize that it''s all just a silly game and that he hopes to fuck you, but you still feel sorry for him. You wonder what caused him to come up with this plan and decide it might just be that he has no luck with girls, and if today is not his lucky day, he may jump out of the window.'
+	'A patient comes through the door and takes off his pants to show you his flaccid penis. He asks you to help him as he can''t seem to get an erection and it''s causing him depression. You realize that it''s all just a silly game and that he hopes to fuck you, but you still feel sorry for him. You wonder what caused him to come up with this plan and decide it might just be that he has no luck with girls, and if today is not his lucky day, he may jump out of the window.'
 	
 	act 'Oust him':
 		gs 'exp_gain', 'medcn', rand (0,1) 
@@ -254,9 +251,9 @@ end
 if $ARGS[0] = '3':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex12.jpg"></center>'
-	'A pretty patient comes into the room, and the doctor tries to examine her. Then she touches his trousers near his poorly hidden erection. The doctor glances at you with a question in his eyes.'
+	'A pretty patient comes into the room and the doctor tries to examine her. She touches him near his poorly hidden erection and the doctor glances at you with a question in his eyes.'
 	
-	act 'Ask if she actually needs treatment':gs 'exp_gain', 'medcn', rand (0,1) & gt 'WorkHosp', 'start'
+	act 'Ask if she actually needs treatment': gs 'exp_gain', 'medcn', rand (0,1) & gt 'WorkHosp', 'start'
     
 	gs 'willpower', 'sex', 'self'
 	if will_cost <= pcs_willpwr: 

File diff suppressed because it is too large
+ 194 - 217
locations/city_clinic.qsrc


+ 3 - 3
locations/city_redlight.qsrc

@@ -25,7 +25,7 @@ if $ARGS[0] = 'start':
 	'<center><b>Red Light District</b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/redlight.jpg"></center>'
 	
-	'This small area inside the Industrial District is home to a number of strip clubs and sex shops. The porn studio also operates out of this district.'
+	'This small area inside the Industrial District is home to a number of strip clubs and sex shops.'
 	if hour >= 18 or hour < 3:
 		'The bright lights and booming music of the <a href="exec:gt ''stripclub'', ''start''">Fuzzy Dice</a> strip club attract men from all over the city.'
 	else
@@ -41,7 +41,7 @@ if $ARGS[0] = 'start':
 	else
 		'A seedy looking shop that sells sex toys and other erotic merchandise. It is currently closed and will reopen at 11:00.'
 	end
-	if bordel > 0 and func('bordel', 'is_open'):'Inside the courtyard is the entrance to the <a href="exec:gt ''bordel''">brothel</a>.'
+	if bordel > 0 and func('bordel', 'is_open'): 'Inside the courtyard is the entrance to the <a href="exec:gt ''bordel''">brothel</a>.'
 	if hour >= 10: 
 		'You see a small <a href="exec:gt ''city_redlight'',''city_copy_shop''">printing shop</a> tucked away between two larger buildings.'
 	else
@@ -55,7 +55,7 @@ if $ARGS[0] = 'start':
 	
 	act 'Walk to the Industrial Region (0:05)': minut += 5 & gt 'city_industrial'
 
-	act 'Wait':gs 'obj_din', 'wait'
+	act 'Wait': gs 'obj_din', 'wait'
 	
 	gs 'taxi'
 

+ 24 - 25
locations/medical_din.qsrc

@@ -10,16 +10,16 @@ if $ARGS[0] = 'birth_control':
 					menu_off = 1
 					minut += 15
 					'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-					'You are escorted into an examination room, where you are told that say have to do a small test before giving you the shot. You wait for fifteen minutes before the nurse comes back in.'
+					'You''re escorted into an examination room, where you''re told that they must do a small test before giving you the shot. You wait for fifteen minutes before the nurse comes back in.'
 					if preg = 0:
 						money -= 2750
 						gs 'medical_din','birthControlShot'
-						'"Everything looks great." She says and gives you a reassuring smile as she sticks a needle in your arm, and depresses the plunger. Seconds later she explains: "All done! You should be good to go for three months, give or take. It depends a bit from person to person: Body type, hormone levels, and so on. If you want to be perfectly safe, we recommend you come back for another treatment one week before the three months are over. Have a nice day, miss!"'
-						'You thank her and wish her the same, while you gather your things. You silently mutter to yourself: "If it is that simple, why did they make me wait 15 minutes..."'
+						'"Everything looks great," she says and gives you a reassuring smile as she sticks a needle in your arm and depresses the plunger. "All done! You should be good for three months, give or take. It depends on body type, hormone levels and so on. If you want to be perfectly safe, we recommend you come back for another treatment one week before the three months are over. Have a nice day, Miss <$pcs_lastname>>!"'
+						'You thank her and wish her the same while you gather your things.'
 					else
 						money -= 650
-						'"I''m sorry, but we can''t give you the shot, because you''re pregnant."'
-						'After the initial shock subsides you pay the 650 <b>₽</b> for the test and leave.'
+						'"I''m sorry, but we can''t give you the shot because you''re pregnant."'
+						'After the initial shock subsides, you pay the 650 <b>₽</b> for the test and leave.'
 						thinkpreg = 1
 						knowpreg = 1
 					end
@@ -27,7 +27,7 @@ if $ARGS[0] = 'birth_control':
 					act 'Leave': gt $loc, $loc_arg
 				end
 			else
-				act 'Get a birth control shot for <font color="red">3,900 <b>₽</b></font> (0:15)': '<br><font color="red">You don''t have enough money to get a birth control shot.</font>'
+				act 'Get a birth control shot for 2,750 <b>₽</b> (0:15)': '<br><font color="red">You don''t have enough money to get a birth control shot.</font>'
 			end
 		end
 		if birth_control['implant_status'] = 0:
@@ -37,7 +37,7 @@ if $ARGS[0] = 'birth_control':
 					menu_off = 1
 					minut += 15
 					'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-					'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
+					'You''re escorted into an examination room, where you''re told that they must do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
 					if preg = 0:
 						minut += 20
 						money -= 19650
@@ -45,13 +45,13 @@ if $ARGS[0] = 'birth_control':
 						birth_control['implant_timer'] = 1095
 						pillcon += ((pillcon + 15000) / 25) + 4000
 						pillcon2 += ((pillcon2 + 15000) / 25) + 4000
-						'"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
-						'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision and pushes a small tube inside your arm. It isn''t bigger than a matchstick.'
+						'"Everything looks great," she says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
+						'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect before she makes a tiny incision and pushes a small tube inside your arm. It''s no bigger than a matchstick.'
 						'"All done! You should be good to go for three years."'
 					else
 						money -= 650
-						'"I''m sorry, but we can''t give you the implant, because you''re pregnant."'
-						'After the initial shock subsides you pay the 650 <b>₽</b> for the test and leave.'
+						'"I''m sorry, but we can''t give you the implant because you''re pregnant."'
+						'After the initial shock subsides, you pay the 650 <b>₽</b> for the test and leave.'
 						thinkpreg = 1
 						knowpreg = 1
 					end
@@ -59,7 +59,7 @@ if $ARGS[0] = 'birth_control':
 					act 'Leave': gt $loc, $loc_arg
 				end
 			else
-				act 'Get a birth control implant for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
+				act 'Get a birth control implant for 19,650 <b>₽</b>(0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
 			end
 		elseif birth_control['implant_status'] = 1 or birth_control['implant_status'] = 2:
 			if money >= 19650:
@@ -68,7 +68,7 @@ if $ARGS[0] = 'birth_control':
 					menu_off = 1
 					minut += 15
 					'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-					'You are escorted into an examination room, where you are told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
+					'You''re escorted into an examination room, where you''re told that say have to do a small test before inserting the implant into your left arm. You wait for fifteen minutes before the nurse comes back in.'
 					if preg = 0:
 						minut += 20
 						money -= 19650
@@ -76,15 +76,15 @@ if $ARGS[0] = 'birth_control':
 						birth_control['implant_timer'] = 1095
 						pillcon += ((pillcon + 15000) / 25) + 4000
 						pillcon2 += ((pillcon2 + 15000) / 25) + 4000
-						'"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
-						'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision, takes out your old implant and pushes in a new one.'
-						'"All done! You should be good to go for three years."'
+						'"Everything looks great," she says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
+						'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect before she makes a tiny incision, takes out your old implant and pushes in a new one.'
+						'"All done! You should be good to go for another three years."'
 					else
 						birth_control['implant_status'] = 0
 						birth_control['implant_timer'] = 0
 						money -= 1650
-						'"I''m sorry, but we can''t give you the implant again, because you''re pregnant."'
-						'After the initial shock subsides you pay the 1650 <b>₽</b> for the test and the removal of your old implant leave.'
+						'"I''m sorry, but we can''t renew your implant because you''re pregnant."'
+						'After the initial shock subsides, you pay the 1650 <b>₽</b> for the test and the removal of your old implant leave.'
 						thinkpreg = 1
 						knowpreg = 1
 					end
@@ -105,12 +105,11 @@ if $ARGS[0] = 'birth_control':
 				money -= 1000
 				birth_control['implant_status'] = 0
 				birth_control['implant_timer'] = 0
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-				'"Everything looks great." She says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
-				'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect, before she makes a tiny incision and takes out your old implant. "All done!"'
-					
+				'"Everything looks great," she says and gives you a reassuring smile. "Please lie down, the procedure won''t take long."'
+				'She numbs part of your upper arm with a local anesthetic. You have to wait for a few minutes for it to take a effect before she makes a tiny incision and removes your implant. "All done!"'
 				
-				gs 'stat'
 				act 'Leave': gt $loc, $loc_arg		
 			end
 		else
@@ -268,14 +267,14 @@ if $ARGS[0] = 'morning_after_pill':
 	if $locclass = 'kitr':
 		'<center><img <<$set_imgh>> src="images/pc/items/accessories/birthcontrol/pill_take2.jpg"></center>'
 		if LudaQW['free_condoms'] = 1 and stat['morning_after_pill'] = 0:
-			'<i>I suppose this is why Aunt Luda gave me this,</i> you think guiltily as you take out the morning after pill.'
+			'<i>I suppose this is why Aunt Luda gave me this,</i> you think as you take out the morning after pill.'
 			*nl
 		end
-		'You fill up a small glass of water and pop the pill out of the packaging. Putting it in your mouth, you gulp, washing it down with sips from the glass after.'
+		'You fill up a small glass of water and pop the pill out of the packaging. Putting it in your mouth, you gulp and wash it down with sips of water from the glass.'
 	else
 		'<center><img <<$set_imgh>> src="images/pc/items/accessories/birthcontrol/pill_take1.jpg"></center>'
 		if LudaQW['free_condoms'] = 1 and stat['morning_after_pill'] = 0:
-			'<i>I suppose this is why Aunt Luda gave me this,</i> you think guiltily as you take out the morning after pill.'
+			'<i>I suppose this is why Aunt Luda gave me this,</i> you think as you take out the morning after pill.'
 			*nl
 		end
 		'Removing the pill from the packaging, you pop it in your mouth and gulp it down dry, wincing in discomfort as you feel it stick slightly on the way down.'

File diff suppressed because it is too large
+ 218 - 241
locations/pav_clinic.qsrc


Some files were not shown because too many files changed in this diff