[changed] exit actions to the top of the menu in gpoli and therapist and minor grammar correction.

locations/gpoli.qsrc

@@ -13,7 +13,7 @@ if $ARGS[0] = '':
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Clinic</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
-		
+
 	if (lactation['active'] > 0 or thinkpreg = 1 or knowpreg = 1) and pcs_know_mward <= 0:	'<br><br>A sign catches your attention. It reads <a href="exec: minut += 5 & gt ''gpoli'', ''maternity_ward''">"Maternity ward"</a>.'
 
 	if pcs_ask_mward_help >= 1 and pcs_know_mward <= 0: '<br><br><a href="exec: minut += 5 & gt ''gpoli'', ''reception''">Ask</a> at the reception for help with your breasts.'
@@ -68,7 +68,7 @@ if $ARGS[0] = '':
 			act 'Leave':gt $curloc
 		end
 	end
-	
+
 	if hour >= 6 and hour <= 21:
 		if gpoliuborka = 0:
 			act 'Read the job listing':
@@ -178,7 +178,7 @@ if $ARGS[0] = '':
 				*clr & cla
 				menu_off = 1
 				minut += 15
-				money -= 750				
+				money -= 750
 				'<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.'
 				if preg = 0:
@@ -187,7 +187,7 @@ if $ARGS[0] = '':
 					'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..."'
 				else
 					'"I''m sorry, but we can''t give you the shot, because you''re pregnant."'
-					'After the initial shock subsides you pay the 750 <b>₽</b> for the test and leave.' 
+					'After the initial shock subsides you pay the 750 <b>₽</b> for the test and leave.'
 					thinkpreg = 1
 					knowpreg = 1
 				end
@@ -220,13 +220,13 @@ if $ARGS[0] = '':
 						'The doctor calls you back to his office after a while, and says with a slight frown: "I''m afraid I have some bad news."'
 						gs 'gpoli', 'std_check'
 					else
-						'The doctor is pleased to announce that you do not have a sexually transmitted disease.'	
+						'The doctor is pleased to announce that you do not have a sexually transmitted disease.'
 					end
-					
+
 					act 'Leave':gt 'gpoli'
 				end
 			end
-			
+
 			if GerpesNapr > 0 and money >= 450 and GerpesUkolDay ! daystart:
 				act 'Get herpes shot (450 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the treatment.':
 					*clr & cla
@@ -241,7 +241,7 @@ if $ARGS[0] = '':
 					act 'Leave':gt 'gpoli'
 				end
 			end
-				
+
 			if TriperNapr > 0 and money >= 750 and TriperUkolDay ! daystart:
 				act 'Get gonorrhea shot (750 <b>₽</b>). You need <<TriperNapr>> more injections to complete the treatment.':
 					*clr & cla
@@ -338,7 +338,7 @@ if $ARGS[0] = '':
 					$gyn2
 					'The gynaecologist smirks, but nods: "I understand. It''s not my place to judge, anyway. Let''s see how you''re doing. Undress for me, please."'
 				end
-				
+
 				act 'Take off your clothes':
 					*clr & cla
 					minut += 5
@@ -354,24 +354,24 @@ if $ARGS[0] = '':
 						'Once you''re nude, you have a seat in the gynaecologist''s chair and spread your legs in the stirrups.'
 						'For the next few minutes, the doctor gives you a thorough check-up. He spends a bit more time on your asshole than he probably should, but then again - maybe he''s just being thorough.'
 						$gpoli_sick = ''
-						
+
 						if cumcondslip > 0:
 							$gpoli_sick = 'are suffering from toxic shock from a spent condom in your body. I removed it as soon as I found it. If you were feeling sick, it should slowly subside.'
 							cumcondslip = 0
 							gs 'cum_cleanup', 'cleanloc', 17
 						end
-						
+
 						if preg > 0:
 							thinkpreg = 1
 							knowpreg = 1
 							$gpoli_sick = 'are pregnant'
 						end
-						
+
 						if venera > 0:
 							if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
-							if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'					
+							if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
 						end
-						
+
 						if $gpoli_sick = '':
 							'The doctor smiles when he gives you the good news: "You''re perfectly healthy."'
 							'You feel very relieved, and thank him profusely: "Thank you doctor, that is great news. Thanks again for the check-up."'
@@ -582,7 +582,7 @@ if $ARGS[0] = '':
 					'You notice that there is a certain sparkle in his eyes when he looks at your <<$titsize>> breasts with interest. You feel embarrassed at your nipples hardening even further, and try to think of bad things. You silently think to yourself: "My mother is watching! My mother is watching!"'
 					'To your relief, the tingle you started to feel in your pussy goes away.'
 					'The doctor tells you as he steps towards the door: "Please undress and sit down in that chair. I will be back momentarily." Then he leaves.'
-					
+
 					act 'Reluctantly take your clothes off':
 						*clr & cla
 						minut += 10
@@ -598,24 +598,24 @@ if $ARGS[0] = '':
 							'You quickly undress and climb into the chair. The leather-like surface feels strangely warm on your bottom, and it takes you a moment to realize that it is heated. You fidget nervously as you wait for the doctor to return.'
 							'After what seems like hours, the doctor comes back into the room. You notice his face seems redder than it was and his hair seems to be a little damp. He has also taken off the apron-like smock he had on before. He continues with his examination, taking your hands and arms and massaging the joints and flexing them. He does the same with your feet and legs. To your surprise, he also examines your ass and pussy, easing his gloved fingers into first your pussy and then your asshole. He even speads your lips apart and pushes the hood back to expose your clitoris which he gently massages for a moment before suddenly getting to his feet with a deep sigh, his eyes lingering on your exposed pussy for a moment too long before he seems to give himself a little shake. You''re glad he stopped when he did... if he had kept doing that, you would''ve gotten wet for sure!'
 							$gpoli_sick = ''
-							
+
 							if cumcondslip > 0:
 								$gpoli_sick = 'are suffering from toxic shock from a spent condom in your body. I removed it as soon as I found it. If you were feeling sick, it should slowly subside.'
 								cumspclnt = 8
 								gs 'cum_cleanup'
 							end
-							
+
 							if preg > 0:
 								thinkpreg = 1
 								knowpreg = 1
 								$gpoli_sick = 'are pregnant'
 							end
-							
+
 							if venera > 0:
 								if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
 								if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
 							end
-							
+
 							if $gpoli_sick = '':
 								'"Well, other than the fact that you are addicted to cocaine, you are completely healthy. Truth be told, you have a very mature body for a girl your age." At these words you see the corners of his mouth twitch, and you think his trousers look a little tighter in his crotch area than before. "But that''s not what you are here for. Now please get dressed again while I write a note for your mother. I''m not allowed to give you the cure to your addiction without her permission."'
 								'Your heart begins to race when you hear that, your mother can''t find out! She would kill you if she finds out what you have been up to!'
@@ -628,7 +628,7 @@ if $ARGS[0] = '':
 								'You quickly blurt: "Wait! Could you please just give me the cure without telling her? Please?"'
 								'He looks at you sternly and shakes his head: "I''m sorry <<$pcs_nickname>>, but you are not an adult. I need her permission to treat you. You''ve been a very bad girl, you know..."'
 							end
-							
+
 							act 'Offer him money':gt 'gpoli', 'spravka_money_pale'
 							act 'Try to negotiate':gt 'gpoli', 'spravka_arrange_pale'
 						end
@@ -665,7 +665,7 @@ if $ARGS[0] = 'referral':
 		if pcs_vag = 0 and stat['hidden_vaginal'] > 0:
 			'You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a moment to realize that it is heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.'
 			act 'Have the check-up': gt 'gpoli', 'referral2'
-		else	
+		else
 			'You''re a bit nervous as you enter the gynaecologist''s office. Your mother expects you to get a referral from him that states you''re still a virgin, except there''s one small problem... you''re not a virgin any more! Maybe you can work something out with him?'
 			if gpoliuborka = 2:
 				'"Hi <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich says with a smile.'
@@ -698,7 +698,7 @@ if $ARGS[0] = 'referral':
 					act 'Sit in the chair': gt 'gpoli', 'referral2'
 				end
 			end
-			
+
 			act 'Admit you''re no virgin':
 				*clr & cla
 				minut += 5
@@ -717,7 +717,7 @@ if $ARGS[0] = 'referral':
 					'You continue: "But... my <<$npc_nickname[''A29'']>> thinks I''m still a virgin, and I would really like to keep it that way. Could you please help me?"'
 					'He nods again and says: "I see what you''re getting at. I might be able to help you, but I''m running a big risk by doing that. What''s in it for me?"'
 				end
-				
+
 				act 'Offer him money':gt 'gpoli', 'spravka_money'
 				act 'Try to negotiate':gt 'gpoli', 'spravka_arrange'
 				act 'Just accept the referral as is':gt 'gpoli', 'badend'
@@ -739,12 +739,12 @@ if $ARGS[0] = 'referral2':
 		knowpreg = 1
 		$gpoli_sick = 'are pregnant'
 	end
-	
+
 	if venera > 0:
 		if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
 		if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
 	end
-	
+
 	if $gpoli_sick = '':
 		'"Well, you are completely healthy. However, you are also no longer a virgin." At these words you see the corners of his mouth twitch, and you think his trousers look a little tighter in his crotch area. "Please get dressed again while I write out the referral for your mother."'
 		if pcs_vag = 0 and stat['hidden_vaginal'] > 0:
@@ -1039,7 +1039,7 @@ if $ARGS[0] = 'spravka_arrange':
 		end
 	else
 		act 'You can''t do that (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end	
+	end
 end
 
 if $ARGS[0] = 'spravka_money':
@@ -1309,6 +1309,7 @@ if $ARGS[0] = 'maternity_ward':
 	if hour >= 6 and hour <= 20:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/mward.jpg"></center>'
 		'<center>You are at the maternity ward. There are alot of babies and nurses taking care of them.</center>'
+		act 'Leave':gt 'gpoli'
 		if lactation['active'] > 0 and pcs_gpolimilkdonation = 3:
 			act 'Talk to the nurse (0:05)':
 				gs 'stat'
@@ -1317,6 +1318,7 @@ if $ARGS[0] = 'maternity_ward':
 				minut += 5
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
 				'Nurse: Hello <<$pcs_firstname>>, how can I help you?'
+				act 'Leave': gt 'gpoli', 'maternity_ward'
 				act 'Donate your breast milk (0:15)':
 					*clr & cla
 					lact_ev['gpoli_milkedvolume'] = 0
@@ -1376,7 +1378,6 @@ if $ARGS[0] = 'maternity_ward':
 				!!act 'Mammography (1:00)':
 				!!
 				!!end
-				act 'Leave': gt 'gpoli', 'maternity_ward'
 			end
 		end
 		if lactation['active'] > 0 and lactation['breastmv'] > lactation['breastmm']/8 and pcs_gpolimilkdonation <= 2:
@@ -1477,7 +1478,7 @@ if $ARGS[0] = 'maternity_ward':
 							'Nurse: You know, we always need breast milk here. You should think about donating your milk. We will even compensate you for your efforts.'
 							'She nods and cleans her hands.'
 							'Nurse: But I think, you should leave for now, so you can get used to your new ability...'
-							'She opens the door to let you out of the room'						
+							'She opens the door to let you out of the room'
 							act 'Leave': gt 'gpoli'
 						end
 					else
@@ -1743,7 +1744,6 @@ if $ARGS[0] = 'maternity_ward':
 				act 'Leave':gt 'gpoli'
 			end
 		end
-		act 'Leave':gt 'gpoli'
 	else
 		'The clinic is closed. It''s open every day between 06:00 and 21:00.'
 		act 'Leave':minut += 5 & gt 'pavCommercial'
@@ -1782,7 +1782,7 @@ if $ARGS[0] = 'maternity_ward_donation':
 			'After 15 minutes, the nurse detaches the pumps from your breasts.'
 			if lact_ev['gpoli_milkedvolume'] => 50000:
 				lact_ev['gpoli_temp_var'] = (lact_ev['gpoli_milkedvolume']/50000)
-				pcs_gpoli_donationsessioncount += lact_ev['gpoli_temp_var'] 
+				pcs_gpoli_donationsessioncount += lact_ev['gpoli_temp_var']
 				pcs_gpoli_totalmilkdonation_count += 1
 				pcs_gpoli_totalmilkdonation += (lact_ev['gpoli_temp_var']*50)
 				if lact_ev['gpoli_temp_var'] >= 12:
@@ -1872,7 +1872,7 @@ end
 if $ARGS[0] = 'std_check':
 	if GerpesOnce = 1:
 		'He continues: "You have genital herpes. Unfortunately, the complete cure for this disease is very expensive and we can''t cure it here. On the upside, herpes is dormant most of the time and is quite manageable, if you take good care of your body. When it is dormant, taking vitamins regularly will make sure it won''t show itself."'
-				
+
 		if Gerpes >= 3:
 			if GerpesNapr = 0:
 				GerpesNapr = 3 & '"Your herpes is currently active. I''m going to put you on a course of herpes shots, in order to suppress it into its dormant state. You''ll need a total of 3 injections (no more than 1 a day), each injection will cost 450 <b>₽</b>."'
@@ -1904,7 +1904,7 @@ if $ARGS[0] = 'std_check':
 
 		if KandidNapr = 0:KandidNapr = 1 & '"The pills are available at the pharmacy, across the street."'
 		if Kandidoz < 30:'Your thrush is currently in remission. If you take vitamins daily, it will stay that way.'
-	end	
+	end
 end
 
 --- gpoli ---------------------------------

locations/therapist.qsrc

@@ -13,7 +13,9 @@ if $ARGS[0] = '':
 	'The room looks like a study room, appearing warm and inviting. There is desk with a chair at one end of the room, but it appears to be seldom used. On the desk there is an older <a href="exec: VIEW ''images/locations/pavlovsk/clinic/therapist/pavlovfamily.jpg''">photograph of Dr. Pavlov''s family</a>, in which he appears to be about two decades younger.'
 	'"Come in, Miss <<$pcs_lastname>>! Please, tell me what can I help you with today?"'
 	gs 'stat'
-	
+
+	act 'Change your mind and leave':gt $loc
+
 	if pcs_childtrauma > 0:
 		act 'Deal with losing the baby':
 			cla
@@ -28,7 +30,7 @@ if $ARGS[0] = '':
 				minut += 60
 				pcs_childtrauma -= 1
 				gs 'stat'
-				
+
 					'You talk about your traumatic issues, and Dr. Pavlov makes some suggestions, and asks some pointed questions. Although he makes you uncomfortable, it somehow makes you feel better about yourself.'
 				if pcs_childtrauma = 0:
 					'You were able to give the events a place in your life and you are finally ready to move on.'
@@ -124,7 +126,6 @@ if $ARGS[0] = '':
 		gs 'stat'
 		gt 'therapist', 'hypno'
 	end}
-	act 'You need no help right now':gt $loc
 end
 
 
@@ -164,7 +165,7 @@ if $ARGS[0] = 'hypno':
 		else
 			if hypnoStrength > 20:hypnoStrength = 20
 		end
-		
+
 		if $therapy = 'dominance':
 			willpowermax += rand(1,2)
 			$session = 'You like to do what you want to do. It pleases you if people do what you tell them to do, or act according to your wishes, and you like to cause them pleasure this way. You have to be in control constantly, but that means others around you can relax."<br>...<br>...<br>..."'
@@ -205,7 +206,7 @@ if $ARGS[0] = 'hypno':
 					act 'Wake up':gt 'therapist', 'hypnoEnd'
 				elseif hypnostrength <=15:
 					'Your brow wrinkles and you frown as you fight the doctor''s suggestion and he quickly tells you to forget that he asked. As the command fades from your memory, you relax once more.'
-					'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>." Dr. Pavlov mutters in mild frustration.' 
+					'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>." Dr. Pavlov mutters in mild frustration.'
 					act 'Wake up':gt 'therapist', 'hypnoEnd'
 				else
 					'You frown slightly as your hands start to move towards your waist to unfasten your clothes then return to your side before once again beginning to move. Your frown deepens and Dr. Pavlov tells you to forget the command before the conflict awakens you. You relax once more as the doctor sighs in frustration.'
@@ -235,7 +236,7 @@ if $ARGS[0] = 'hypno':
 						act 'Wake up':gt 'therapist', 'hypnoEnd'
 					elseif hypnostrength <=15:
 						'Your brow wrinkles and you frown as you fight the doctor''s suggestion and he quickly tells you to forget that he asked. As the command fades from your memory, you relax once more.'
-						'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>." Dr. Pavlov mutters in mild frustration.' 
+						'"It would appear that you are not yet ready to play, but it won''t be long now, <i>Cunt</i>." Dr. Pavlov mutters in mild frustration.'
 						act 'Wake up':gt 'therapist', 'hypnoEnd'
 					else
 						'You frown slightly as your hands start to move towards your waist to unfasten your clothes then return to your side before once again beginning to move. Your frown deepens and Dr. Pavlov tells you to forget the command before the conflict awakens you. You relax once more as the doctor sighs in frustration.'
@@ -245,8 +246,8 @@ if $ARGS[0] = 'hypno':
 				end
 			else
 				act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-			end	
-			act 'Taking off clothes':
+			end
+			act 'Take off your clothes':
 				if hypnosexing = 0: hypnosexing = 1 & hidden_guy += 1
 				minut += 5
 				cla
@@ -304,11 +305,11 @@ if $ARGS[0] = 'hypnoSuck':
 	'"Come on, <i>Cunt</i>, cum now!" he groans, still shooting spurt after spurt of warm cum down your throat.'
 	'His order is all you need - it pushes you over the edge and you scream around his cock as it is throbbing in your mouth.'
 	'He waits for you to lick him clean then starts to dress himself.'
-	
+
 	gs 'arousal', 'bj', 20, 'unaware'
 	swallow += 1
 	gs 'stat'
-	
+
 	if hypnoTime < 10:
 		'"Get dressed, <i>Cunt</i>. Do it erotically, as much as you can."'
 		'He watches you getting dressed with a small smile in his face.</font>'
@@ -363,14 +364,14 @@ if $ARGS[0] = 'hypnoFuck':
 	!! Change as long as virginity is still checked with pcs_vag = 0; if this is changed uncomment next line and delete the other one
 	!! if pcs_vag = 0:pain['vaginal'] +=5 & pcs_vag += 1 & 'You feel a sharp pain as your <i>Master</i> pushes through your maidenhead, taking it away. He doesn''t seem to care about it, he just pushes himself deeper in your unexplored depths, enjoying himself immensly.'
 	if pcs_vag = 0 and stat['hidden_vaginal'] = 0:
-		pain['vaginal'] +=5 
+		pain['vaginal'] +=5
 		'You feel a sharp pain as your <i>Master</i> pushes through your maidenhead, taking it away. He doesn''t seem to care about it, he just pushes himself deeper in your unexplored depths, enjoying himself immensly.'
 	end	$hypnofuck2
 	'"Oh yes, my little <i>Cunt</i>, I am so close! I will blow a huge wad of sperm in your beautiful pussy! And you won''t even know about it!"<br>He finally groans, jabbing his hips deep, jetting all of his sperm as deep in your pussy as he possibly can.<br>"Cum, little <i>Cunt</i>, suck all of my seed deep in your body!"'
-	
+
 	gs 'arousal', 'vaginal', 20, 'unaware'
 	gs 'stat'
-		
+
 	if randpos <= 1:
 		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/sex/creampie1.mp4"></video></center>'
 	elseif randpos = 2:
@@ -429,10 +430,10 @@ if $ARGS[0] = 'hypnoAnal':
 	'As soon as he is inside your ass, he starts to fuck you.'
 	$hypnofuck2
 	'"Oh yes, my little <i>Cunt</i>, I am so close! I will blow a huge wad of sperm in your beautiful ass! And you won''t even know about it!"<br>He finally groans, jabbing his hips deep, jetting all of his sperm as deep in your colon as he possibly can.<br>"Cum, little <i>Cunt</i>, suck all of my seed deep in your body!"'
-	
+
 	gs 'arousal', 'anal', 20, 'unaware'
 	gs 'stat'
-		
+
 	if randpos <= 2:
 		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/sex/creampiea1.mp4"></video></center>'
 	else