Merge branch 'master' into dev

glife.qproj

@@ -65,6 +65,8 @@
 		<Location name="body_shape"/>
 		<Location name="lact_lib"/>
 		<Location name="lact_bp"/>
+		<Location name="body_din"/>
+		<Location name="medical_din"/>
 	</Folder>
 	<Folder name="Stimulus">
 		<Location name="boyStat"/>

locations/Cum_Manage.qsrc

@@ -124,7 +124,7 @@ if $ARGS[0] = '':
 
 	if cumprecheck = 1:
 		cumarrkno[cumarrtemp] = -1
-		dynamic $venerasiak
+		gs 'dinSex', 'std_trigger'
 	elseif sexunaware > 0:
 		cumarrkno[cumarrtemp] = -2
 	elseif sexpartkno = 1:
@@ -350,7 +350,7 @@ if $ARGS[0] = '':
 	!! creampie vaginal statistics:
 			if spafinloc = 0:
 				!!STD checks
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				!! safe creampie (if cycle > 3 or on pill or succubus):
 				if cycle > 3 or pillcon2 > 1000 or succubusflag = 1:
 					if sexunaware = 1 or sexcontra = 6:
@@ -464,9 +464,9 @@ if $ARGS[0] = '':
 	end
 
 	!!STD from anal check
-	if spafinloc = 3: dynamic $venerasiak
+	if spafinloc = 3: gs 'dinSex', 'std_trigger'
 	!!STD from oral check
-	if spafinloc = 12: dynamic $venerasiakOral
+	if spafinloc = 12: gs 'dinSex', 'std_trigger_oral'
 
 	cumprecheck = 0
 	spafinloc = 0

locations/Gnpc2.qsrc

@@ -456,7 +456,7 @@ $din_gboy_go_to_disco = {
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker.jpg"></center>'
 								'You squatted in front of him and bring your face to his cock.'
-								dynamic $dinrandbj
+								gs 'dinSex', 'bj_random'
 								'Soon <<$boydesc>> groaned "<<$pcs_nickname>>, I''m going to come."'
 
 								act 'suck on':
@@ -468,7 +468,7 @@ $din_gboy_go_to_disco = {
 									swallow += 1
 									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum49.jpg"></center>'
-									gs 'dinsex','dinrandswallow'
+									gs 'dinsex','bj_swallow_random'
 
 									act 'Further':
 										cls
@@ -578,7 +578,7 @@ $din_gboy_go_to_disco = {
 											gs 'stat'
 											'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker.jpg"></center>'
 											'You squat in front of your guy and bring your face to his cock.'
-											dynamic $dinrandbj
+											gs 'dinSex', 'bj_random'
 											'Soon <<$boydesc>> groaned "<<$pcs_nickname>>, I''m going to come."'
 
 											act 'suck on':
@@ -590,7 +590,7 @@ $din_gboy_go_to_disco = {
 												swallow += 1
 												gs 'stat'
 												'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum49.jpg"></center>'
-												gs 'dinsex','dinrandswallow'
+												gs 'dinsex','bj_swallow_random'
 
 												act 'Further':
 													cls
@@ -808,7 +808,7 @@ $din_gboy_tits = {
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker.jpg"></center>'
 					'You squat in front of your guy and bring your face to his cock.'
-					dynamic $dinrandbj
+					gs 'dinSex', 'bj_random'
 					'Soon <<$boydesc>> groaned "<<$pcs_nickname>>, I''m going to come."'
 
 					act 'Suck on':
@@ -820,7 +820,7 @@ $din_gboy_tits = {
 						swallow += 1
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum49.jpg"></center>'
-						gs 'dinsex','dinrandswallow'
+						gs 'dinsex','bj_swallow_random'
 						act 'Go home':gt 'pavResidential'
 					end
 

locations/IgorHunter.qsrc

@@ -1,42 +1,131 @@
 # Igorhunter
 
-$menu_loc = 'Igorhunter'
-$menu_arg = ''
-menu_off = 0
-gs 'boyStat', 'A173'
-$boybody = 'high'
-$boybod = 'athletic'
-$boyface = 'brunette'
-lover_picture_number = 31
-finance = 1
-vneshBoy = 8
-$boyClo = 'dressed in jeans and a sweater.'
-figurBoy = 1
-titBoy = 1
-hairBoy = 3
-harakBoy = 1
-izvrat = 0
-boyage = year - ((npc_dob['A173'] - (npc_dob['A173'] mod 10000)) / 10000)
-boy_birth_date = 9
-boy_birth_month = 6
-gs 'stat'
-
-'<center><b><font color = maroon>Igor Anisimov</font></b></center>'
-'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
-'Igor is a hunter along with the Sergei and Andrei and is here visiting Andrei. He''s <<boyage>> years old. He is not married and lives in the City Center..'
-
-act 'Chat':
-    *clr & cla
-    minut += 60
-	menu_off = 1
+if $ARGS[0] = '':
+    $menu_loc = 'Igorhunter'
+    $menu_arg = ''
+    menu_off = 0
+    gs 'boyStat', 'A173'
+    $boybody = 'high'
+    $boybod = 'athletic'
+    $boyface = 'brunette'
+    lover_picture_number = 31
+    finance = 1
+    vneshBoy = 8
+    $boyClo = 'dressed in jeans and a sweater.'
+    figurBoy = 1
+    titBoy = 1
+    hairBoy = 3
+    harakBoy = 1
+    izvrat = 0
+    boyage = year - ((npc_dob['A173'] - (npc_dob['A173'] mod 10000)) / 10000)
+    boy_birth_date = 9
+    boy_birth_month = 6
+    gs 'stat'
     
-    igor_base_opinion += 1
-
-    act 'Continue': gt $loc
+    '<center><b><font color = maroon>Igor Anisimov</font></b></center>'
+    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/igorhanter.jpg"></center>'
+    'Igor is a hunter along with the Sergei and Andrei and is here visiting Andrei. He''s <<boyage>> years old. He is not married and lives in the City Center..'
+    
+    act 'Chat':
+        *clr & cla
+        minut += 60
+        menu_off = 1
+        
+        igor_base_opinion += 1
+    
+        act 'Continue': gt $loc
+    end
 end
 
 if $ARGS[0] = 'check_opinion':
     huntersIgorQw = igor_base_opinion + hunter_collective_opinion / 2 - hunter_sexual_comfort / 4
+
+    if huntersIgorQw > hunter_collective_opinion: huntersIgorQw = hunter_collective_opinion - hunter_sexual_comfort / 4
+
+end
+
+if $ARGS[0] = 'schedule':
+end
+
+!Sex scenes
+if $ARGS[0] = 'creekside':
+    if $ARGS[1] = '':
+        cla
+        act 'See who is behind you':
+            '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/2.jpg"></center>'
+            act 'Cover your chest with your arms':
+                '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/1.jpg"></center>'
+                act 'You are not feeling it':
+                    cla
+                end
+                act 'Kiss him back':
+                    '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/3.jpg"></center>'
+                    act 'Further': gt 'IgorHunter', 'creekside', 'bj'
+                end
+            end
+        
+            act 'Give him a hug':
+                '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/4.jpg"></center>'
+                act 'Lay back and spread your legs':
+                '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/5.jpg"></center>'
+                act 'Further': gt 'IgorHunter', 'creekside', 'piv'
+                end
+            end
+        end
+    end
+
+    if $ARGS[1] = 'bj':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/7.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/8.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/9.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/10.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/11.jpg"></center>'
+    
+    end
+ 
+
+    if $ARGS[1] = 'piv':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_1.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_2.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_3.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_4.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_5.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_6.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/creekside/f_7.jpg"></center>'
+    end
+end
+
+if $ARGS[0] = 'yard':
+    if $ARGS[0] = '':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/1.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/2.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/3.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/4.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/5.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/6.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/7.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/8.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/9.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/10.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/11.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/12.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/13.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/yard/14.jpg"></center>'
+    end
+end
+
+if $ARGS[0] = 'cabin':
+    if $ARGS[0] = '':
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/1.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/2.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/3.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/4.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/5.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/6.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/7.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/8.jpg"></center>'
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/igor_hunter/cabin/9.jpg"></center>'
+    end
 end
 
 --- Igorhunter ---------------------------------

locations/LCwork.qsrc

@@ -4,8 +4,8 @@ if $ARGS[0] = 'start1':
 	*clr
 	horand = rand(1, 100)+ 40
 	facial += 1
-	dynamic $venerasiakOral
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger_oral'
+	gs 'dinSex', 'std_trigger'
 	randLCpay = 1000
 	guy += randguycafe
 
@@ -67,7 +67,7 @@ if $ARGS[0] = 'start2':
 	if pcs_vag < 18:pcs_vag += 1
 
 	guy += 1
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/2a.jpg"></center>'
 	'You walk up to the older man and give him a friendly smile as you say: "Good evening, sir. I will be your waitress tonight."'
 	'The older man gives you a dirty grin, and ogles your body for a few seconds before he says: "Very good, you will do. Follow me."'
@@ -110,7 +110,7 @@ if $ARGS[0] = 'start3':
 
 	if pcs_vag < 18:pcs_vag += 2
 
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/3a.jpg"></center>'
 	'You walk up to the two men in the corner and give them a friendly smile as you say: "Good evening, sirs. I will be your waitress tonight."'
 	'One of the men laughs when the other begins to place another order, and says: "She''s not here for drinks, Dmitri."'
@@ -154,8 +154,8 @@ if $ARGS[0] = 'start4':
 
 	if pcs_ass < 18:pcs_ass += 1
 
-	dynamic $venerasiak
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger'
+	gs 'dinSex', 'std_trigger_oral'
 	
 	if lcwork_counter = 0:
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/4a.jpg"></center>'
@@ -244,7 +244,7 @@ if $ARGS[0] = 'start5':
 	horand = rand(1, 100)
 	randLCpay = 500
 	girl += 1
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/5.jpg"></center>'
 	'The girl looks fairly shy, and seems a bit taken aback when you walk up to her and say: "Hello, miss. I will be your waitress tonight."'
 	'She''s a bit hesitant, afraid to ask if that means what she thinks it means, but relaxes when you take her by the hand and purr: "So where are you taking me tonight, sweetie?"'
@@ -278,8 +278,8 @@ if $ARGS[0] = 'start6':
 
 	if pcs_vag < 18:pcs_vag += 1
 
-	dynamic $venerasiak
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger'
+	gs 'dinSex', 'std_trigger_oral'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/6a.jpg"></center>'
 	'You walk up to the older man and give him a friendly smile as you say: "Good evening, sir. I will be your waitress tonight."'
 	'"My waitress, huh?" he laughs. "That''s adorable!"'

locations/LariskaStart.qsrc

@@ -482,7 +482,7 @@ if $ARGS[0] = 'IvanHelp_down':
 			if laris_rand1>=30:'<center><video autoplay loop src="images/locations/pavlovsk/park/sex/publ0,0.mp4"></video></center>'
 			'You sit down on his haunches and begin to suck Ivan.'
 
-			dynamic $dinrandswallow
+			gs 'dinSex', 'bj_swallow_random'
 
 			act 'Go home':gt'korrPar'
 		end
@@ -505,9 +505,9 @@ if $ARGS[0] = 'IvanHelp_sex':
 	if laris_rand1>=5 and laris_rand1<30:'<center><video autoplay loop src="images/shared/sex/public/publ1,'+rand(0,2)+'.mp4"></video></center>'
 	if laris_rand1>=30:'<center><img <<$set_imgh>> src="images/shared/sex/public/publ1,'+rand(0,6)+'.jpg"></center>'
 	'You bend down and have him fuck you from behind.'
-	dynamic $sexstart
-	dynamic $sexstart2
-	dynamic $sexcum
+	gs 'dinSex', 'wear_condom'
+	gs 'dinSex', 'vaginal_sex'
+	gs 'dinSex', 'sexcum'
 
 	act 'Go home':gt'korrPar'
 end

locations/Prostitute.qsrc

@@ -388,7 +388,7 @@ if $ARGS[0] = 'work2':
 					money += ProsMoney * 100
 					'You proceed to give him a blowjob, licking and sucking his condom-clad penis. The taste of the rubber is a bit unpleasant, but you do a good job regardless. In no time the guy groans loudly.'
 					'When you feel his cock finally soften between your lips, you pull your head back. The man ties a knot in the condom and tosses it out of the window carelessly, then he gives you the money he owes you.'
-					dynamic $venerasiakOral
+					gs 'dinSex', 'std_trigger_oral'
 					gs 'arousal', 'bj', 5, 'prostitution', 'unknown'
 					gs 'arousal', 'end'
 					gs 'stat'
@@ -424,7 +424,7 @@ if $ARGS[0] = 'work2':
 						
 						'After a few minutes of fucking you, the man groans and you feel his hips spasming against yours. He pulls out of you and takes the filled condom off his slowly shrinking cock.'
 						'He ties a knot in the condom and tosses it out of the window carelessly, and gives you the money he owes you.'
-						dynamic $venerasiak
+						gs 'dinSex', 'std_trigger'
 						gs 'arousal', 'end'
 						gs 'stat'
 						protect = 0
@@ -467,7 +467,7 @@ if $ARGS[0] = 'work2':
 
 						'After a few minutes of fucking your ass, the man groans and you feel his hips spasming against yours. He pulls out of you and takes the filled condom off his slowly shrinking cock.'
 						'The man ties a knot in the condom and tosses it out of the window carelessly, and gives you the money he owes you.'
-						dynamic $venerasiak
+						gs 'dinSex', 'std_trigger'
 						protect = 0
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -480,7 +480,7 @@ if $ARGS[0] = 'work2':
 				cla
 				clr
 				*clr
-				dynamic $venerasiakOral
+				gs 'dinSex', 'std_trigger_oral'
 				gs 'stat'
 				picrand = rand(8, 13)
 				'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjp<<picrand>>.jpg"></center>'
@@ -575,7 +575,7 @@ if $ARGS[0] = 'work2':
 							money += ProsMoney * 100
 							gs 'stat'
 							prostRand = rand(1, 100)
-							dynamic $venerasiak
+							gs 'dinSex', 'std_trigger'
 
 							
 							if prostRand <= 50:
@@ -641,7 +641,7 @@ if $ARGS[0] = 'work2':
 								'Your anus has no difficulty adjusting to the size of his member, and it actually feels fairly pleasant when he shoves his length in. Your anus clasps around the base of his cock from time to time, and the man begins to thrust his hips against yours enthusiastically when he notices you can take it.'
 								gs 'arousal', 'anal', 10, 'prostitution', 'unknown'
 								gs 'stat'
-								dynamic $venerasiak
+								gs 'dinSex', 'std_trigger'
 							end
 
 							if klismaday ! daystart:
@@ -669,7 +669,7 @@ if $ARGS[0] = 'work2':
 										spafinloc = 12
 										gs 'cum_manage'
 										pcs_breath = 0
-										dynamic $venerasiakOral
+										gs 'dinSex', 'std_trigger_oral'
 										gs 'stat'
 										'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjr.jpg"></center>'
 										'"Hey, I did what you wanted! You owe m-" you begin, but he doesn''t let you finish. The man angrily punches you in the stomach, making you double over in pain.'
@@ -690,7 +690,7 @@ if $ARGS[0] = 'work2':
 											cla
 											*clr
 											pcs_throat += 1
-											dynamic $venerasiakOral
+											gs 'dinSex', 'std_trigger_oral'
 											gs 'stat'
 											'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjr1.jpg"></center>'
 											'You understand perfectly why he''s upset... that wasn''t very smart of you. You''ll have to think of a solution fast!'
@@ -706,7 +706,7 @@ if $ARGS[0] = 'work2':
 												pcs_vag += 1
 												money += ProsMoney * 110
 												protect = 1
-												dynamic $venerasiak
+												gs 'dinSex', 'std_trigger'
 												protect = 0
 												gs 'stat'
 												'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/sexcar20.jpg"></center>'

locations/_body_image.qsrc

@@ -110,9 +110,9 @@ if $ARGS[0] = 'panties':
 			if pubestyle = 8: $RESULT = $pubeimage
 			if pubestyle ! 8: $RESULT = 'images/pc/body/pussy/spussy.jpg'
 		elseif pcs_pubes > 20 and pcs_pubes <= 25:
-			$RESULT = 'images/pc/body/pussy/hpussy.jpg'
-		elseif pcs_pubes > 25 and pcs_pubes <= 30:
 			$RESULT = 'images/pc/body/pussy/shave/s_bush1.jpg'
+		elseif pcs_pubes > 25 and pcs_pubes <= 30:
+			$RESULT = 'images/pc/body/pussy/hpussy.jpg'
 		elseif pcs_pubes >= 31:
 			$RESULT = 'images/pc/body/pussy/hrypussy.jpg'
 		end

locations/abduction.qsrc

@@ -230,16 +230,7 @@ if $ARGS[0] = 'abdExam2':
 	'"Now there, our little slave, we will make sure you are healthy and ready to be trained."'
 	'He injects all the solutions into you.'
 	'The examination is at an end. The doctor leaves, you are untied, blindfolded again and led back down into the basement.'
-	venera = 0
-	GerpesOnce = 0
-	Gerpes = 0
-	SifacOnce = 0
-	Sifilis = 0
-	TriperOnce = 0
-	Triper = 0
-	TriperOral = 0
-	KandidozOnce = 0
-	Kandidoz = 0
+	gs 'medical_din','healSTDs'
 
 	examed = 1
 	act 'Continue':gt 'abduction', 'abdRoom'

locations/alexgang.qsrc

@@ -48,7 +48,7 @@ act 'Get on your knees and give head':
 		picrand = rand(16, 25)
 		'<center><img <<$set_imgh>> src="images/shared/sex/group/gang<<picrand>>.jpg"></center>'
 		'Standing on all fours, you start sucking Sasha''s limp cock. As you lick, suck and roll your tongue around his dick, you can feel it slowly stiffening in your mouth.'
-		dynamic $sexstart
+		gs 'dinSex', 'wear_condom'
 		'The position you''re in doesn''t make it easy for you to move your head the right way. However, with some determination you manage to keep Sasha''s cock in your mouth.'
 		gs 'dinsex','vaginal_sex',10
 		'After a while, you feel Sasha''s hard cock begin to throb in your mouth. With a low grunt, he thrusts his hips forward and you feel his sperm coat the insides of your mouth.'

locations/artemEv.qsrc

@@ -23,9 +23,9 @@ if $ARGS[0] = 'bj':
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/artem/sex/artombj.jpg"></center>'
 	npc_sex[$boy] += 1
-	gs 'dinSex','dinrandbj'
+	gs 'dinSex','bj_random'
 	gs 'arousal','bj',5,'sub'
-	gs 'dinSex','dinrandswallow'
+	gs 'dinSex','bj_swallow_random'
 	gs 'cum_call','mouth',$boy,1
 	artemBJQW += 1
 	swallow += 1

locations/backwater.qsrc

@@ -11,187 +11,194 @@ cls
 gs'stat'
 clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
 
-act 'Go back to the hut':minut += 5 & gt'swamp_yard'
+if $ARGS[0] = '':
+	act 'Go back to the hut':minut += 5 & gt'swamp_yard'
 
-'<center><B>Backwater</B></center>'
-
-if month >= 4 and month <= 10:
-	if hour >= 6 and hour < 22:
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater.jpg"></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
-	end
-else
-	if hour >= 8 and hour < 18:
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter_night.jpg"></center>'
-	end
-end
-*nl
-
-'A small creek with relatively clean water. If the weather is warm you can clean yourself up. Also, if your clothes are dirty you can wash them here.'
-*nl
-if clothesAtLocation = 1:'Your clothes lie on the shore.'
-
-if $clothingworntype = 'nude':
-	act 'Wash self':
-		cla
-		*clr
-		menu_off = 1
-		dynamic $showerdin
-		face_write = 0
-		body_write = 0
-		minut += 30
-		pcs_mood += 10
-		pcs_willpwr += 5
-		inhib_exp += rand(1,3)
-		if huntersRape = 1: huntersRape = 2
-
-		if $pantyworntype = 'none':
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'
+	'<center><B>Backwater</B></center>'
+	
+	if month >= 4 and month <= 10:
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater.jpg"></center>'
 		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_night.jpg"></center>'
 		end
-			*nl
-		'You washed yourself in the creek.'
-
-		act 'Finish':gt 'backwater'
-	end
-end
-if cumloc[11] = 1 or cumloc[12] = 1:
-	act 'Clean the sperm from your face (0:10)':
-		cla
-		*clr
-		menu_off = 1
-		pcs_makeup = 1
-		cumspclnt = 9
-		gs 'cum_cleanup'
-		cumspclnt = 13
-		gs 'cum_cleanup'
-		if pcs_sweat > 19 : pcs_sweat -= 5
-		minut += 10
-		if huntersRape = 1: huntersRape = 2
-		gs 'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
-		*nl
-		'You carefully wash off the sperm in the creek.'
-		act 'Finish':gt 'backwater'
-	end
-end
-if body_write > 0 or face_write > 0:
-	act 'Wash the writings off your body (0:10)':
-		cla
-		*clr
-		menu_off = 1
-		body_write = 0
-		face_write = 0
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
-		*nl
-		'You wash off the indecent inscriptions on your body.'
-
-		act 'Finish':menu_off = 0 & gt $loc, $metka
-	end
-end
-if cumloc[6] = 1 or cumloc[7] = 1:
-	act 'Wipe the cum off your clothes (0:10)':
-		cla
-		*clr
-		menu_off = 1
-		cumspclnt = 6
-		gs 'cum_cleanup'
-		minut += 10
-		if huntersRape = 1: huntersRape = 2
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/cumwash.jpg"></center>'
-		*nl
-		'You clean the cum stains off your clothes.'
-
-		act 'Finish':gt 'backwater'
-	end
-end
-
-if spdirty > 0:
-	act 'Quick wash (0:15)':
-		cla
-		*clr
-		menu_off = 1
-		cumspclnt = 4
-		gs 'cum_cleanup'
-		if pcs_sweat < 30:
-			pcs_sweat = 15 + rand(0,4)
+	else
+		if hour >= 8 and hour < 18:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter.jpg"></center>'
 		else
-			pcs_sweat -= 10 + rand(0,4)
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwater_winter_night.jpg"></center>'
 		end
-		minut += 15
-		if huntersRape = 1: huntersRape = 2
-		gs'stat'
-		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
-		*nl
-		'You carefully wash your face, removing any impurities.'
-		act 'Finish':gt 'backwater'
 	end
-end
-
-if clothesAtLocation = 0:
-	if $clothingworntype ! 'nude' and temper >= 15:
-		act'Get undressed':
+	*nl
+	
+	'A small creek with relatively clean water. If the weather is warm you can clean yourself up. Also, if your clothes are dirty you can wash them here.'
+	*nl
+	if clothesAtLocation = 1:'Your clothes lie on the shore.'
+	
+	if $clothingworntype = 'nude':
+		act 'Wash self':
+			cla
+			*clr
 			menu_off = 1
-			if huntersKnowSlut > 0 or hunters = 0 or hour < 8 or hour >= 20 or pcs_inhib > 35:
-				cla
-				*clr
-				minut+=5
-				gs 'underwear', 'remove'
-				if huntersRape = 1: huntersRape = 2
-
-				if CloSkirtShortness > 0:
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'
-				end
-				gs 'clothing', 'strip', 'backwater'
-				'You do not hesitate getting undressed, not caring if anyone is watching.'
-				act'Back':gt'backwater'
+			dynamic $showerdin
+			face_write = 0
+			body_write = 0
+			minut += 30
+			pcs_mood += 10
+			pcs_willpwr += 5
+			inhib_exp += rand(1,3)
+			if huntersRape = 1: huntersRape = 2
+	
+			if $pantyworntype = 'none':
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim2.jpg"></center>'
 			else
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
-				'You hesitate getting undressed, what if someone suddenly sees you?'
-				act'Back':gt'backwater'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
 			end
+				*nl
+			'You washed yourself in the creek.'
+	
+			act 'Finish':gt 'backwater'
 		end
-	else
-	'It''s too cold to undress. Maybe you should bathe inside the hut'
 	end
-else
-	if $clothingworntype ! 'nude':
-		act 'Pick up your clothes':
+	if cumloc[11] = 1 or cumloc[12] = 1:
+		act 'Clean the sperm from your face (0:10)':
 			cla
 			*clr
 			menu_off = 1
-			gs 'clothing', 'recover_lost_clothes', 'backwater'
-			'You pick up your clothes laying on the ground.'
-			gt $loc, $metka
+			pcs_makeup = 1
+			cumspclnt = 9
+			gs 'cum_cleanup'
+			cumspclnt = 13
+			gs 'cum_cleanup'
+			if pcs_sweat > 19 : pcs_sweat -= 5
+			minut += 10
+			if huntersRape = 1: huntersRape = 2
+			gs 'stat'
+	
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterswim1.jpg"></center>'
+			*nl
+			'You carefully wash off the sperm in the creek.'
+			act 'Finish':gt 'backwater'
 		end
-	elseif forced_naked_day < daystart:
-		act 'Get dressed':
+	end
+	if body_write > 0 or face_write > 0:
+		act 'Wash the writings off your body (0:10)':
 			cla
 			*clr
 			menu_off = 1
-			gs 'clothing', 'recover_lost_clothes', 'backwater', 1
-			gs 'underwear', 'wear'
-			'You pick up your clothes laying on the ground and get dressed.'
-			gt $loc, $metka
+			body_write = 0
+			face_write = 0
+			minut += 10
+			gs'stat'
+	
+			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
+			*nl
+			'You wash off the indecent inscriptions on your body.'
+	
+			act 'Finish':menu_off = 0 & gt $loc, $metka
+		end
+	end
+	if cumloc[6] = 1 or cumloc[7] = 1:
+		act 'Wipe the cum off your clothes (0:10)':
+			cla
+			*clr
+			menu_off = 1
+			cumspclnt = 6
+			gs 'cum_cleanup'
+			minut += 10
+			if huntersRape = 1: huntersRape = 2
+			gs'stat'
+	
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/cumwash.jpg"></center>'
+			*nl
+			'You clean the cum stains off your clothes.'
+	
+			act 'Finish':gt 'backwater'
+		end
+	end
+	
+	if spdirty > 0:
+		act 'Quick wash (0:15)':
+			cla
+			*clr
+			menu_off = 1
+			cumspclnt = 4
+			gs 'cum_cleanup'
+			if pcs_sweat < 30:
+				pcs_sweat = 15 + rand(0,4)
+			else
+				pcs_sweat -= 10 + rand(0,4)
+			end
+			minut += 15
+			if huntersRape = 1: huntersRape = 2
+			gs'stat'
+			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
+			*nl
+			'You carefully wash your face, removing any impurities.'
+			act 'Finish':gt 'backwater'
+		end
+	end
+	
+	if clothesAtLocation = 0:
+		if $clothingworntype ! 'nude' and temper >= 15:
+			act'Get undressed':
+				menu_off = 1
+				if huntersKnowSlut > 0 or hunters = 0 or hour < 8 or hour >= 20 or pcs_inhib > 35:
+					cla
+					*clr
+					minut+=5
+					gs 'underwear', 'remove'
+					if huntersRape = 1: huntersRape = 2
+	
+					if CloSkirtShortness > 0:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress_ski.jpg"></center>'
+					else
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/backwaterundress.jpg"></center>'
+					end
+					gs 'clothing', 'strip', 'backwater'
+					'You do not hesitate getting undressed, not caring if anyone is watching.'
+					act'Back':gt'backwater'
+				else
+					cla
+					*clr
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
+					'You hesitate getting undressed, what if someone suddenly sees you?'
+					act'Back':gt'backwater'
+				end
+			end
+		else
+		'It''s too cold to undress. Maybe you should bathe inside the hut'
+		end
+	else
+		if $clothingworntype ! 'nude':
+			act 'Pick up your clothes':
+				cla
+				*clr
+				menu_off = 1
+				gs 'clothing', 'recover_lost_clothes', 'backwater'
+				'You pick up your clothes laying on the ground.'
+				gt $loc, $metka
+			end
+		elseif forced_naked_day < daystart:
+			act 'Get dressed':
+				cla
+				*clr
+				menu_off = 1
+				gs 'clothing', 'recover_lost_clothes', 'backwater', 1
+				gs 'underwear', 'wear'
+				'You pick up your clothes laying on the ground and get dressed.'
+				gt $loc, $metka
+			end
 		end
 	end
+	
+end
+
+if $ARGS[0] = 'creekside_relax':
+
 end
 
-if $clothingworntype = 'nude' and huntersKnowSlut = 0 and hunters = 1 and hour > 8 and hour < 20 and hunterknowday < day:
+if $clothingworntype = 'nude' and igor_away = 'no' and rand(1,10) = 1:
 	cla
 	*clr
 	menu_off = 1

locations/blowPR.qsrc

@@ -12,7 +12,7 @@ if $ARGS[0] = 'start':
 	pcs_throat += 1
 	prosta += 1
 	!pcs_sleep = pcs_sleep - 1
-	if RAND(0,100) >= 70:dynamic $venerasiak
+	if RAND(0,100) >= 70:gs 'dinSex', 'std_trigger'
 	gs'stat'
 
 	'<center><img <<$set_imgh>> src="images/locations/shared/sex/car/bj.jpg"></center>'
@@ -27,7 +27,7 @@ if $ARGS[0] = '1':
 	$loc = $CURLOC
     $location_type = 'event'
 	protect = 1
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	protect = 0
 	*clr & cla
 	minut = minut + 5
@@ -69,7 +69,7 @@ if $ARGS[0] = '2':
     $location_type = 'event'
 	*clr & cla
 	menu_off = 1
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	minut = minut + 5
 	gs'stat'
 

locations/bobka.qsrc

@@ -21,7 +21,7 @@ if ARGS[0] = 0:
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
 	
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	dynamic $bobkabj
 	
 	gs 'arousal', 'end'
@@ -35,7 +35,7 @@ if ARGS[0] = 1:
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
 	
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	dynamic $bobkabj
 	gs 'stat'
 
@@ -46,7 +46,7 @@ if ARGS[0] = 1:
 		sexpartkno = 1
 		dick = npc_dick['A49']
 		silavag = npc_sexskill['A49']
-		dynamic $venerasiak
+		gs 'dinSex', 'std_trigger'
 		'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/doggy.jpg"></center>'
 		
 		gs 'arousal', 'vaginal', 5, 'sub'
@@ -70,14 +70,14 @@ if ARGS[0] = 2:
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
 	
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger'
 	dynamic $bobkabj
 	gs 'stat'
 
 	act 'Drop down into a doggystyle position for Bobka':
 		cls
 		gs 'boyStat', 'A49'
-		dynamic $venerasiak
+		gs 'dinSex', 'std_trigger'
 		$boydesc = $npc_usedname['A49']
 		sexpartkno = 1
 		dick = npc_dick['A49']

locations/body.qsrc

@@ -2335,7 +2335,7 @@ elseif pcs_apprnc < 60:
 elseif pcs_apprnc < 120:
 	$pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
 elseif pcs_apprnc < 160:
-	$pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring by you and their girlfriends.'
+	$pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring at you by their girlfriends.'
 elseif pcs_apprnc < 200:
 	$pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
 else

locations/body_din.qsrc

@@ -0,0 +1,40 @@
+# body_din
+!! Medical procedures, such as abortions, are located at medical_din
+
+
+!! Determines whether a NPC sees that another character is pregnant.
+!! If ARGS 1-3 are not set the observed character is the player character (Sveta)
+!! Usage: visible = FUNC('body_din','pregnancyVisibility')
+!! Return values:
+!!				0: Has no reason to believe Sveta is pregnant
+!!				1: Believes Sveta is pregnant
+!! Parameters:
+!!				ARGS[1]; The current pregnancy state (default: pregchem)
+!!				$ARGS[2]: The worn clothing type (default $clothingworntype)
+!!				ARGS[3]: The worn clothing numer  (default: clothingwornnumber)
+
+if $ARGS[0] = 'pregnancyVisibility':
+	RESULT = 0
+	pregchemTemp = iif(ARGS[1] = 0,pregchem,ARGS[1])
+	$clothingworntypeTemp = iif(ARGS[2] = '',$clothingworntype,ARGS[2])
+	clothingwornnumberTemp = iif(ARGS[3] = 0,clothingwornnumber,ARGS[3])
+	
+	gs 'clothing_attributes',$clothingworntypeTemp,clothingwornnumberTemp
+	if (CloThinness >= 5 or $clothingworntypeTemp = 'nude') and pregchemTemp > 2000: 
+		RESULT = 1
+	elseif CloThinness = 4 and pregchemTemp > 3460: 
+		RESULT = 1
+	elseif CloThinness = 3 and pregchemTemp > 3990: 
+		RESULT = 1	
+	elseif CloThinness = 2 and pregchemTemp > 4200: 
+		RESULT = 1	
+	elseif pregchemTemp > 5200: 
+		RESULT = 1	
+	end
+
+	killvar 'pregchemTemp'
+	killvar '$clothingworntypeTemp'
+	killvar 'clothingwornnumberTemp'
+end
+
+--- body_din ---------------------------------

locations/bordel.qsrc

@@ -129,7 +129,7 @@ if $ARGS[0] = 'var':
 			minut += 10
 			zpprand = rand(0, 100)
 
-			if zpprand >= 70:dynamic $venerasiak
+			if zpprand >= 70:gs 'dinSex', 'std_trigger'
 
 			picrand = rand(0,40)
 			gt 'sex', 'start'
@@ -147,7 +147,7 @@ if $ARGS[0] = 'var':
 			minut += 10
 			zpprand = rand(0, 100)
 
-			if zpprand >= 70:dynamic $venerasiak
+			if zpprand >= 70:gs 'dinSex', 'std_trigger'
 
 			gt 'podrsex', 'start'
 		end
@@ -164,7 +164,7 @@ if $ARGS[0] = 'var':
 			minut += 10
 			zpprand = rand(0, 100)
 
-			if zpprand >= 70:dynamic $venerasiak
+			if zpprand >= 70:gs 'dinSex', 'std_trigger'
 
 			gt 'sexdvoe', 'start'
 		end
@@ -181,7 +181,7 @@ if $ARGS[0] = 'var':
 			minut += 10
 			zpprand = rand(0, 100)
 
-			if zpprand >= 70:dynamic $venerasiak
+			if zpprand >= 70:gs 'dinSex', 'std_trigger'
 
 			gt 'sexdvanadva', 'start'
 		end
@@ -198,7 +198,7 @@ if $ARGS[0] = 'var':
 			minut += 10
 			zpprand = rand(0, 100)
 
-			if zpprand >= 70:dynamic $venerasiak
+			if zpprand >= 70:gs 'dinSex', 'std_trigger'
 
 			guy += 3
 			killvar '$boy'

locations/brosh.qsrc

@@ -126,7 +126,7 @@ elseif evgentipe = 2:
 				if brosh_rand1 >= 5 and brosh_rand1 < 30:'<center><video autoplay loop src="images/shared/sex/public/publ1,<<rand(0,2)>>.mp4"></video></center>'
 				if brosh_rand1 >= 30:'<center><img <<$set_imgh>> src="images/shared/sex/public/publ1,<<rand(0,6)>>.jpg"></center>'
 				'You bend over and let your brother take you from behind.'
-				dynamic $sexstart
+				gs 'dinSex', 'wear_condom'
 				gs 'dinsex','vaginal_sex',10
 				gs 'dinsex','sexcum'
 

locations/brother.qsrc

@@ -741,7 +741,7 @@ if $ARGS[0] = 'brotherSexStart':
 
 			gs 'arousal', 'bj', 5, 'incest'
 			gs 'stat'
-			gs 'dinsex','dinrandbj'
+			gs 'dinsex','bj_random'
 
 			'It isn''t long before you hear your brother moan, "I''m gonna cum, <<$pcs_nickname>>!"'
 
@@ -757,7 +757,7 @@ if $ARGS[0] = 'brotherSexStart':
 				gs 'arousal', 'bj', 5, 'incest'
 				gs 'stat'
 
-				gs 'dinsex','dinrandswallow'
+				gs 'dinsex','bj_swallow_random'
 
 				gs 'brother', 'brotherSexEnd'
 			end
@@ -1460,22 +1460,22 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 end
 
 if $ARGS[0] = 'pregreact':
-	if knowpreg = 1 and kid = 0:
-		if $clothingworntype = 'nude' and pregchem > 2000 and brotherSex < 7 and kid = 0:
+	if knowpreg = 1 and kid = 0 and FUNC('body_din','pregnancyVisibility') = 1:
+		if $clothingworntype = 'nude' and brotherSex < 7:
 			'Surprised, your brother looks at your stomach. "<<$pcs_nickname>>, are you pregnant? <<$npc_nickname[''A29'']>> and dad are going to be pissed!" After a moments pause he adds, "You do still look good, though."'
 			npc_pregtalk['A34'] = 1
 
 			act 'Continue' :gt 'sitrPar'
 		exit
 
-		elseif $clothingworntype ! 'nude' and pregchem > 3460 and brotherSex < 7 and kid = 0:
+		elseif $clothingworntype ! 'nude' and brotherSex < 7:
 			'Surprised, your brother looks at your stomach, "<<$pcs_nickname>>, why didn''t you tell me I''m going to be an uncle?"'
 			npc_pregtalk['A34'] = 1
 
 			act 'Continue' :gt 'sitrPar'
 			exit
-
-		elseif brotherSex >= 7 and kid = 0 and npc_pregtalk['A29'] = 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
+		
+		elseif brotherSex >= 7 and npc_pregtalk['A29'] = 0:
 			cla
 			'Surprised, your brother looks at your stomach, "Are you really pregnant? It... it''s not mine, is it?"'
 			*nl
@@ -1490,7 +1490,7 @@ if $ARGS[0] = 'pregreact':
 			end
 			exit
 		end
-	elseif brotherSex < 7 and kid > 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem > 3460)):
+	elseif brotherSex < 7 and kid > 0 and FUNC('body_din','pregnancyVisibility') = 1:
 		'"You''re already pregnant again? This is starting to look like a new hobby," he laughs.'
 		'"You know what? Maybe it is," you joke back. "Some girls play sports, I get serially impregnated."'
 		'Kolka pokes his tongue out at you, "Well, congratulations on taking home the gold in getting knocked up."'
@@ -1500,7 +1500,7 @@ if $ARGS[0] = 'pregreact':
 		'You leave your brother to what he was doing before, glad that the two of you have the relationship that you do.'
 
 		act 'Continue' :npc_pregtalk['A34'] = 1 & gt 'sitrPar'
-	elseif brotherSex >= 7 and kid > 0 and npc_pregtalk['A29'] = 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460)):
+	elseif brotherSex >= 7 and kid > 0 and npc_pregtalk['A29'] = 0 and FUNC('body_din','pregnancyVisibility') = 1:
 		cla
 		'Kolka looks at your stomach for moment before asking, "Wow, you''re pregnant again? Is it mine?"'
 		*nl

locations/cafe3.qsrc

@@ -46,7 +46,7 @@ if $ARGS[0] = 'house':
 					'You bend, bringing your face to his groin and your lips wrap around his cock and you start sucking him.'
 					gs 'arousal', 'bj', 15, 'sub'
 					gs 'stat'
-					dynamic $venerasiakOral
+					gs 'dinSex', 'std_trigger_oral'
 					'Finally, the guy fills your mouth with his hot sperm you have nowhere to go so you swallow it. The taxi stopped and <<$boydesc>> you puts you out on the street.'
 					swallow += 1
 					sexpartkno = 1
@@ -264,7 +264,7 @@ if $ARGS[0] = 'toilet':
 	act 'Suck it':
 		cla
 		guy += 1
-		dynamic $venerasiakOral
+		gs 'dinSex', 'std_trigger_oral'
 		picrand = rand(13, 22)
 		'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
 		'<<$boydesc>> pulls out his dick'
@@ -331,8 +331,8 @@ end
 
 if $ARGS[0] = 'kompashka':
 	cla
-	dynamic $venerasiak
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger'
+	gs 'dinSex', 'std_trigger_oral'
 	picrand = rand(1, 15)
 	'<center><img <<$set_imgh>> src="images/shared/sex/group/gang<<picrand>>.jpg"></center>'
 	'You are driving somewhere with the guys in a car. You''re drunk and you sit on the back seat with two guys finally, the machine stops and you get out of the car.'
@@ -380,7 +380,7 @@ end
 
 if $ARGS[0] = 'coffee':
 	cla
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger'
 	guy += 1
 	gs 'stat'
 	gs 'dinsexFX'

locations/cikl.qsrc

@@ -1355,16 +1355,16 @@ if storyline = 1:
         end
 	end
 	!!Brother''s dick growth as he gets older
-	
-	if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26: 
-		kolka_dick_day = daystart
-		npc_dick['A34'] += 1
-	end
-	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
-		$npc_thdick['A34'] = 'well proportioned'
-	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
-		$npc_thdick['A34'] = 'thick'
-	end
+	!Commented out till some future time
+	!if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26: 
+	!	kolka_dick_day = daystart
+	!	npc_dick['A34'] += 1
+	!end
+	!if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
+	!	$npc_thdick['A34'] = 'well proportioned'
+	!elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:
+	!	$npc_thdick['A34'] = 'thick'
+	!end
 end
 
 killvar 'natholi'

locations/club.qsrc

@@ -737,7 +737,7 @@ end
 if $ARGS[0] = 'sex':
 	*clr & cla
 	menu_off = 1
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	gs 'npcgeneratec', 0, 'stranger from the club', rand(18,26)
 	gs 'boyStat', $npclastgenerated
 	dick = rand(10, 18)
@@ -755,7 +755,7 @@ if $ARGS[0] = 'sex':
 		guy += 1
 		pcs_horny += 5
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/clubbj.jpg"></center>'
-		dynamic $venerasiakOral
+		gs 'dinSex', 'std_trigger_oral'
 		gs 'arousal', 'bj', 5, 'sub'
 		gs 'stat'
 
@@ -991,7 +991,7 @@ if $ARGS[0] = 'bar2':
 	cla
 	*clr
 	menu_off = 1
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	guy += 1
 	'<center><b><font color="maroon">Bar</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/barminet.jpg"></center>'
@@ -1088,7 +1088,7 @@ if $ARGS[0] = 'rape':
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/barcum.jpg"></center>'
 				'A few minutes later he is finally done and pushes your head against his crotch, forcing you to swallow his cum. You can''t help but to enjoy the tase of his semen in your mouth.'
 
-				dynamic $venerasiakOral
+				gs 'dinSex', 'std_trigger_oral'
 				gs 'arousal', 'end'
 				gs 'stat'
 
@@ -1104,7 +1104,7 @@ if $ARGS[0] = 'rape':
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/barsex.jpg"></center>'
 				'The bloke takes his cock out of your mouth, tells you position yourself in the stool and then he begins to fuck you roughly. As you''re drunk you barely register anything, but you catch yourself moaning heavy. Not even ten minutes laters he takes his cock out of your pussy and cums on your ass.'
 
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				gs 'arousal', 'vaginal', 10, 'sub', 'rough'
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -1117,7 +1117,7 @@ if $ARGS[0] = 'rape':
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/barsex.jpg"></center>'
 		'You are trying to send it, but your tongue drunk guy is braided and seeing that you are not able to resist, pulls out his cock turns you on a stool and saliva-moistened member enters your vagina, it tears you to force shoving his dick as deep as possible, and finally finishing the leaves.'
 
-		dynamic $venerasiak
+		gs 'dinSex', 'std_trigger'
 		gs 'arousal', 'vaginal', 10, 'sub', 'rough'
 		gs 'arousal', 'end'
 		gs 'stat'
@@ -1148,7 +1148,7 @@ if $ARGS[0] = 'lezbsort1':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/sortukuni.jpg"></center>'
 	'You remove her pants and sit down on the toilet. She happily does as you told her. She spreads her legs and you begin to lick her cunt furiously. She moans heavily and plays with her erect nipples. Some time later you make cum.'
 
-	dynamic $venerasiak
+	gs 'dinSex', 'std_trigger'
 	gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
 	gs 'stat'
 
@@ -1169,7 +1169,7 @@ if $ARGS[0] = 'lezbsort2':
 	'You sit donw on the toilet and move your feet up. "Lick it", you tell her. She seductively bites her lips and happily follows your orders. The woman parts your pussy lips and begins to lick your cunt. Every so often she switches between licking your pink flesh and your flower. She doesn''t stop until you cry out in pleasure and cum.'
 
 	$orgasm_or = 'yes'
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	gs 'arousal', 'cuni', 10, 'sub', 'lesbian'
 	gs 'stat'
 

locations/fbDormD.qsrc

@@ -100,7 +100,7 @@ $d_fbd_blowhim = {
 		ppbj += 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/fbdbj.jpg"></center>'
-		dynamic $dinrandbj
+		gs 'dinSex', 'bj_random'
 		tiprand = rand(0, 1)
 		
 		gs 'arousal', 'bj', 5

locations/fbHouse.qsrc

@@ -55,7 +55,7 @@ act 'Kiss him':
 			if tiprand = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/fbhdog.jpg"></center>'
 			if tiprand = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/fbhmiss.jpg"></center>'
 
-			dynamic $sexstart
+			gs 'dinSex', 'wear_condom'
 			gs 'dinsex','vaginal_sex',10
 			gs 'dinsex','sexcum'
 			

locations/furisex.qsrc

@@ -86,7 +86,7 @@ elseif furisex = 101:
 	furibj += 1
 	furiswallow += 1
 
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 
 	spafinloc = 12
 	gs 'cum_manage'

locations/garfather.qsrc

@@ -323,7 +323,7 @@ if pcs_horny > 50 and npc_sex['A28']!0:
 				gs 'arousal', 'vaginal', 10, 'sub', 'incest'
 				gs 'stat'
 
-				dynamic $sexstart
+				gs 'dinSex', 'wear_condom'
 				gs 'dinsex','vaginal_sex',10
 				act 'Continue':
 					cla

locations/gdksex.qsrc

@@ -112,7 +112,7 @@ if $ARGS[0] = 'outside':
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
 								'The guy undresses you quite roughly, too horny and drunk to care about how you feel about it. Before you know it, you''re naked on the ground before him, while he stands over you with his <<$dick_girth>> cock dangling out of his pants.'
-								dynamic $sexstart
+								gs 'dinSex', 'wear_condom'
 								gs 'dinsex','vaginal_sex',10
 								gs 'dinsex','sexcum'
 
@@ -157,7 +157,7 @@ if $ARGS[0] = 'outside':
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
 					'The guy undresses you quite roughly, too horny and drunk to care about how you feel about it Before you know it, you''re naked on the ground before him, while he stands over you with his <<$dick_girth>> cock dangling out of his pants.'
-					dynamic $sexstart
+					gs 'dinSex', 'wear_condom'
 					gs 'dinsex','vaginal_sex',10
 					gs 'dinsex','sexcum'
 
@@ -526,7 +526,7 @@ if $ARGS[0] = 'blowjob':
 
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj2.jpg"></center>'
-		gs 'dinsex','dinrandbj'
+		gs 'dinsex','bj_random'
 
 		act 'Continue':
 			*clr & cla
@@ -541,7 +541,7 @@ if $ARGS[0] = 'blowjob':
 			gs 'cum_manage'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj3.jpg"></center>'
-			gs 'dinsex','dinrandswallow'
+			gs 'dinsex','bj_swallow_random'
 
 			act 'Leave':gt 'gdk'
 		end
@@ -569,7 +569,7 @@ if $ARGS[0] = 'blowjob':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/public/boysex.jpg"></center>'
 		'You turn around, bend over, pull down your panties, and lean your hands against a wall for support. <<$boydesc>> immediately gets behind you.'
-		dynamic $sexstart
+		gs 'dinSex', 'wear_condom'
 		gs 'dinsex','vaginal_sex',10
 		gs 'dinsex','sexcum'
 
@@ -942,7 +942,7 @@ if $ARGS[0] = 'heating_up':
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/event/hotel/money.jpg"></center>'
 							'You wordlessly nod and extend your hand, and <<$boydesc>> readily gives you the money.'
 							gs 'arousal', 'bj', 5, 'prostitution'
-							dynamic $venerasiakOral
+							gs 'dinSex', 'std_trigger_oral'
 							gs 'stat'
 							act 'Continue': gt 'gdksex', 'hotelsex', 'paid'
 						end
@@ -1010,7 +1010,7 @@ if $ARGS[0] = 'heating_up':
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/event/hotel/money.jpg"></center>'
 				'You wordlessly extend your hand, and <<$boydesc>> readily gives you the money.'
 				gs 'arousal', 'bj', 5, 'prostitution'
-				dynamic $venerasiakOral
+				gs 'dinSex', 'std_trigger_oral'
 				gs 'stat'
 				act'Continue': gt 'gdksex', 'hotelsex', 'paid'
 			end
@@ -1052,7 +1052,7 @@ if $ARGS[0] = 'hotelsex':
 		'You stroke your hand along his shaft in rhythm with your head bobbing up and down on his cock and as he becomes more aroused, he starts moaning and thrusting more and more into your mouth, going deeper all the while.'
 		if $ARGS[1] = 'paid': gs 'arousal', 'bj', 5, 'prostitution'
 		if $ARGS[1] = 'unpaid': gs 'arousal', 'bj', 5
-		dynamic $venerasiakOral
+		gs 'dinSex', 'std_trigger_oral'
 		gs 'stat'
 		
 		if lose_virginity_event = 0 and hotel_sex = 0:
@@ -1121,7 +1121,7 @@ if $ARGS[0] = 'hotelsex':
 				'You pull yourself away from his cock, your lips making a lewd pop as it leaves your mouth. You quickly jump up on the bed, lay yourself down on your back and lift your knees all the way up to your breasts, reaching down with one hand to pull one of your butt cheeks aside. Not one to pass up such a great opportunity, <<$boydesc>> takes the hint and starts pushing the head of his dick against your asshole. Pushing slowly but insistently, the head of his dick pops into your ass - he pauses just a moment to let you adjust - before he slowly starts moving in and out, fucking you carefully and stretching your hole. He slowly but steadily works his dick deeper into your ass, all the while picking up more and more speed.'
 				if $ARGS[1] = 'paid': gs 'arousal', 'anal', 10, 'prostitution'
 				if $ARGS[1] = 'unpaid':  gs 'arousal', 'anal', 10
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				gs 'stat'
 				
 				act 'Finish him off':
@@ -1169,7 +1169,7 @@ if $ARGS[0] = 'hotelsex':
 						'He seems to be really getting into it, his movements are almost frenzied in their pace.'
 						if $ARGS[1] = 'paid': gs 'arousal', 'vaginal', 10, 'prostitution'
 						if $ARGS[1] = 'unpaid': gs 'arousal', 'vaginal', 10
-						dynamic $venerasiak
+						gs 'dinSex', 'std_trigger'
 						gs 'stat'
 						
 						act 'Suck him off':
@@ -1184,7 +1184,7 @@ if $ARGS[0] = 'hotelsex':
 								gs 'arousal', 'bj', 10
 								gs 'arousal', 'mast', 10
 							end
-							dynamic $venerasiakOral
+							gs 'dinSex', 'std_trigger_oral'
 							minut -= 10
 							gs 'stat'
 							
@@ -1238,7 +1238,7 @@ if $ARGS[0] = 'hotelsex':
 			'After sucking his dick for a bit, you stop and stand up, just long enough to lay down on the bed on your back and spread you legs. <<$boydesc>> watches you like a hawk the whole time, taking off his clothes while he doing so. You barely have your legs spread before he''s between them, already rubbing his slick cock along your pussylips. He pushes forward gently, slipping his dick inside of your soaking pussy - he goes slowly at first, but he picks up the pace quickly, speeding up and pounding his meat balls deep inside you, leaving you with a very full feeling.'
 			if $ARGS[1] = 'paid': gs 'arousal', 'vaginal', 10, 'prostitution'
 			if $ARGS[1] = 'unpaid': gs 'arousal', 'vaginal', 10
-			dynamic $venerasiak
+			gs 'dinSex', 'std_trigger'
 			gs 'stat'
 			if lose_virginity_event = 0:
 				act 'Suck him off':
@@ -1252,7 +1252,7 @@ if $ARGS[0] = 'hotelsex':
 						gs 'arousal', 'bj', 10
 						gs 'arousal', 'mast', 10
 					end
-					dynamic $venerasiakOral
+					gs 'dinSex', 'std_trigger_oral'
 					minut -= 10
 					gs 'stat'
 					
@@ -1303,7 +1303,7 @@ if $ARGS[0] = 'hotelsex':
 				'He seems to be really getting into it, his movements are almost frenzied in their pace, as he leans forward towards you and says. "I want to fuck your ass."'
 				if $ARGS[1] = 'paid': gs 'arousal', 'vaginal', 10, 'prostitution'
 				if $ARGS[1] = 'unpaid': gs 'arousal', 'vaginal', 10
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				gs 'stat'
 				
 				act 'Suck him off':
@@ -1318,7 +1318,7 @@ if $ARGS[0] = 'hotelsex':
 						gs 'arousal', 'bj', 10
 						gs 'arousal', 'mast', 10
 					end
-					dynamic $venerasiakOral
+					gs 'dinSex', 'std_trigger_oral'
 					minut -= 10
 					gs 'stat'
 					
@@ -1368,7 +1368,7 @@ if $ARGS[0] = 'hotelsex':
 						'You nod your head to him and roll back over on your back, then you pull your knees up to your breasts and reach down with one hand to pull one of your butt cheeks aside. He takes the hint and push the head of his dick against your asshole. After just a few pushes it pops into your ass, he pauses just a moment to let you adjust, before he starts slowly fucking you. He slowly but steadily works his dick deeper in your ass, all the while picking up speed as he does.'
 						if $ARGS[1] = 'paid': gs 'arousal', 'anal', 10, 'prostitution'
 						if $ARGS[1] = 'unpaid': gs 'arousal', 'anal', 10
-						dynamic $venerasiak
+						gs 'dinSex', 'std_trigger'
 						gs 'stat'
 						
 						act 'Finish him off':
@@ -1505,7 +1505,7 @@ if $ARGS[0] = 'drugs':
 						'Even as buzzed and horny as you are, you''re a bit hesitant at the suggestion but he quickly re-assures you that having anal sex while you''re high is a much better feeling than just having regular sex.'
 						'You nod as you fill your mouth with saliva and take his cock back in your mouth, taking it deep and lubing it up as much as you can for what''s coming.'
 						gs 'arousal', 'bj', 5
-						dynamic $venerasiakOral
+						gs 'dinSex', 'std_trigger_oral'
 						gs 'stat'
 						
 						act 'Doggy':
@@ -1517,7 +1517,7 @@ if $ARGS[0] = 'drugs':
 							'<<$boydesc>> speeds up his movements as you''re moaning like a whore, shaking and shivering as your orgasm hits, spraying girlcum all over the cover of the bed, panting hard.'
 							$orgasm_or = 'yes'
 							gs 'arousal', 'anal', 5
-							dynamic $venerasiak
+							gs 'dinSex', 'std_trigger'
 							gs 'stat'
 							
 							act 'Finish':

locations/gopskver.qsrc

@@ -1068,9 +1068,9 @@ if $ARGS[0] = 'triple_blow':
 		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjgop.jpg"></center>'
-		dynamic $dinrandbj
+		gs 'dinSex', 'bj_random'
 		'Dan groans: "Go on, slut. You better not miss a drop."'
-		gs 'dinsex','dinrandswallow'
+		gs 'dinsex','bj_swallow_random'
 
 		act 'Suck Vasily''s cock':
 			*clr & cla
@@ -1085,7 +1085,7 @@ if $ARGS[0] = 'triple_blow':
 			minut += 5
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjgop2.jpg"></center>'
-			dynamic $dinrandbj
+			gs 'dinSex', 'bj_random'
 			'Right before he reaches his orgasm, Vasily takes his dick out of your mouth and aims it at your face like a fire hose. After a few short jerks you feel jets of his hot sperm land on you, and you do your best to keep your eyes closed so nothing gets in.'
 
 			act 'Suck Vitek''s cock':
@@ -1101,7 +1101,7 @@ if $ARGS[0] = 'triple_blow':
 				minut += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjgop3.jpg"></center>'
-				dynamic $dinrandbj
+				gs 'dinSex', 'bj_random'
 				'Just like Vasily, Vitek takes his cock out of your mouth when he''s about to cum, and shoots his load over your face. He grins and laughs as he slaps his still erect cock against your cheeks, which are mostly covered in sperm by now.'
 
 				act 'Continue':

locations/gpoli.qsrc

@@ -156,45 +156,7 @@ if $ARGS[0] = '':
 				cla
 				menu_off = 1
 				minut += 60
-				if pain['head'] > 0:pain['head'] -= rand(7,13)
-				if pain['hair'] > 0:pain['hair'] -= rand(7,13)
-				if pain['ears'] > 0:pain['ears'] -= rand(7,13)
-				if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
-				if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
-				if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
-				if pain['nose'] > 0:pain['nose'] -= rand(7,13)
-				if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
-				if pain['lips'] > 0:pain['lips'] -= rand(7,13)
-				if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
-				if pain['throat'] > 0:pain['throat'] -= rand(7,13)
-				if pain['neck'] > 0:pain['neck'] -= rand(7,13)
-				if pain['back'] > 0:pain['back'] -= rand(7,13)
-				if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
-				if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
-				if pain['hips'] > 0:pain['hips'] -= rand(7,13)
-				if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
-				if pain['legL'] > 0:pain['legL'] -= rand(7,13)
-				if pain['legR'] > 0:pain['legR'] -= rand(7,13)
-				if pain['feet'] > 0:pain['feet'] -= rand(7,13)
-				if pain['toes'] > 0:pain['toes'] -= rand(7,13)
-				if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
-				if pain['armL'] > 0:pain['armL'] -= rand(7,13)
-				if pain['armR'] > 0:pain['armR'] -= rand(7,13)
-				if pain['hands'] > 0:pain['hands'] -= rand(7,13)
-				if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
-				if pain['chest'] > 0:pain['chest'] -= rand(7,13)
-				if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
-				if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
-				if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
-				if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
-				if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
-				if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
-				if pain['labia'] > 0:pain['labia'] -= rand(7,13)
-				if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
-				if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
-				if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
-				pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
-				if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
+				gs 'medical_din','healthTreatment'
 				gs 'stat'
 				'After a quick discussion about your health, the doctor gives you an injection with a strange pink fluid, a combined painkiller, steroid and vitamin shot which not only helps the pain but speeds your recovery too, permanently reducing your current pain and increasing your health. You immediately feel much better, and should recover health faster over the coming days.'
 
@@ -219,11 +181,7 @@ if $ARGS[0] = '':
 				'<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:
-					tabletkishot = rand(84,91)
-					shotdays = 84
-					tabletkicheck = 2
-					pillcon = 40000
-					pillcon2 = 40000
+					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..."'
 				else
@@ -685,7 +643,7 @@ end
 
 if $ARGS[0] = 'referral':
 	menu_off = 1
-	if pcs_vag = 0:
+	if pcs_vag = 0 and count['hidden_vaginal'] = 0:
 		*clr & cla
 		minut = minut + 15
 		gs 'stat'
@@ -697,107 +655,120 @@ if $ARGS[0] = 'referral':
 
 		'He confirms that you are still a virgin, and tells you to get dressed again while he prepares your referral. While you put your clothes back on, he fills out the form at his desk and stamps it before handing it to you. This should keep your mother happy for another month...'
 		act 'Leave':gt $curloc
-	end
-	
-	if pcs_vag > 0:
+	else
 		*clr & cla
 		minut += 5
 		gs 'stat'
 
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
-		'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.'
-			'"Hello, doctor. It''s time for my monthly check-up again. My mother needs a referral from you to make sure I''m still a virgin," you reply.'
-			'"Ah, yes. For... school, right? Let''s take a look," the doctor replies with a chuckle as you are already on your way to stand by the examination table, like last time.'
-		else
-			'"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" the doctor asks as he comes into the examination room.'
-			'"Hello sir. I''m here for my monthly referral. My mother needs one from you to establish I''m still a virgin. It''s for school," you explain.'
-			'"For... school?" he asks, a tad confused. Then he snaps out of it and replies: "Anyway... let''s take a look, shall we?" as he gestures for you to stand next to the examination table.'
-		end
+		if count['hidden_vaginal'] = 1 and pcs_vag = 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	
+			'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.'
+				'"Hello, doctor. It''s time for my monthly check-up again. My mother needs a referral from you to make sure I''m still a virgin," you reply.'
+				'"Ah, yes. For... school, right? Let''s take a look," the doctor replies with a chuckle as you are already on your way to stand by the examination table, like last time.'
+			else
+				'"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" the doctor asks as he comes into the examination room.'
+				'"Hello sir. I''m here for my monthly referral. My mother needs one from you to establish I''m still a virgin. It''s for school," you explain.'
+				'"For... school?" he asks, a tad confused. Then he snaps out of it and replies: "Anyway... let''s take a look, shall we?" as he gestures for you to stand next to the examination table.'
+			end
 
-		act 'Have the check-up':
-			*clr & cla
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
-			'The doctor breathes on his stethoscope to warm it up and says: "Lift your shirt, please."'
-			'Lift your shirt? What does that have to do with your virginity?'
-			'He sees your hesitation, and reassures you: "I''m just doing some basic check-ups while you''re here anyway. Now... your shirt, please?"'
-			'That makes sense. You expose your <<$titsize>> breasts to him when you lift your shirt up, and he examines you. You''re no medical professional, but you''re fairly sure he''s not supposed to put the stethoscope on your boob like that! Nevertheless... you need him to give you that referral, and calling him out on it will definitely not help your cause.'
-			'You decide to humour him and just let him play with your boobs for several minutes, after which he nods happily and says: "Everything seems to be in order."'
-			'There is an eager sparkle in his eyes when he looks at your bare breasts. The pervert!'
-			'He continues: "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."'
-			act 'Undress':
+			act 'Have the check-up':
 				*clr & cla
 				minut += 5
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
-				'You reluctantly take your clothes off, trying to put off the moment as long as you can. You know he will find out about your secret in a moment. Nevertheless, you don''t have any other option. Maybe you''ll get lucky and he won''t notice?'
-				act 'Sit in the chair':
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
+				'The doctor breathes on his stethoscope to warm it up and says: "Lift your shirt, please."'
+				'Lift your shirt? What does that have to do with your virginity?'
+				'He sees your hesitation, and reassures you: "I''m just doing some basic check-ups while you''re here anyway. Now... your shirt, please?"'
+				'That makes sense. You expose your <<$titsize>> breasts to him when you lift your shirt up, and he examines you. You''re no medical professional, but you''re fairly sure he''s not supposed to put the stethoscope on your boob like that! Nevertheless... you need him to give you that referral, and calling him out on it will definitely not help your cause.'
+				'You decide to humour him and just let him play with your boobs for several minutes, after which he nods happily and says: "Everything seems to be in order."'
+				'There is an eager sparkle in his eyes when he looks at your bare breasts. The pervert!'
+				'He continues: "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."'
+				act 'Undress':
 					*clr & cla
 					minut += 5
 					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
-					'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 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, 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."'
-						'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!'
-						'You quickly blurt: "Wait! Could you please just write down that I''m still a virgin, so I don''t get in trouble? Please?"'
-						'He looks at you sternly and shakes his head: "I''m sorry <<$pcs_nickname>>, I can''t do that, that''s fraud! Do you have any idea how much trouble I could get into?"'
-					else
-						'The doctor frowns when he gives you the results: "I''m afraid I have some bad news, <<$pcs_nickname>>. You <<$gpoli_sick>>.'
-						if venera > 0: gs 'gpoli', 'std_check'
-						'You''re also not a virgin any more, obviously."'
-						'Your heart begins to race when you hear that, that''s terrible! Your mother would kill you if she finds out what you have been up to!'
-						'You quickly blurt: "Wait! Could you please just write down that I''m still a virgin, so I don''t get in trouble? 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. And I can''t lie on a referral... that''s fraud! Do you have any idea how much trouble I could get into?"'
-					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'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
+					'You reluctantly take your clothes off, trying to put off the moment as long as you can. You know he will find out about your secret in a moment. Nevertheless, you don''t have any other option. Maybe you''ll get lucky and he won''t notice?'
+					act 'Sit in the chair': gt 'gpoli', 'referral2'
 				end
 			end
-		end
-		
-		act 'Admit you''re no virgin':
-			*clr & cla
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
-			if gpoliuborka = 2:
-				'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
-				'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
-				'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
-				'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 looks puzzled for a second, and his eyes widen when he realizes what you''re asking of him: "You mean... fake your referral? That''s fraud! Do you have any idea how much trouble I could end up in if I do that?"'
-			else
-				'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
-				'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
-				'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
-				'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'
+			act 'Admit you''re no virgin':
+				*clr & cla
+				minut += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
+				if gpoliuborka = 2:
+					'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
+					'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
+					'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
+					'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 looks puzzled for a second, and his eyes widen when he realizes what you''re asking of him: "You mean... fake your referral? That''s fraud! Do you have any idea how much trouble I could end up in if I do that?"'
+				else
+					'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
+					'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
+					'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
+					'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'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'referral2':
+	*clr & cla
+	minut += 5
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
+	if count['hidden_vaginal'] = 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 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, 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 count['hidden_vaginal'] = 1 and pcs_vag = 0:
+			'Your heart begins to race when you hear that, your mother can''t find out! How could this have happened you''ve never even had sex!'
+		else
+			'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!'
+		end
+		'You quickly blurt: "Wait! Could you please just write down that I''m still a virgin, so I don''t get in trouble? Please?"'
+		'He looks at you sternly and shakes his head: "I''m sorry <<$pcs_nickname>>, I can''t do that, that''s fraud! Do you have any idea how much trouble I could get into?"'
+	else
+		'The doctor frowns when he gives you the results: "I''m afraid I have some bad news, <<$pcs_nickname>>. You <<$gpoli_sick>>.'
+		if venera > 0: gs 'gpoli', 'std_check'
+		'You''re also not a virgin any more, obviously."'
+		if count['hidden_vaginal'] = 1 and pcs_vag = 0:
+			'Your heart begins to race when you hear that, your mother can''t find out! How could this have happened you''ve never even had sex!'
+		else
+			'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!'
 		end
+		'You quickly blurt: "Wait! Could you please just write down that I''m still a virgin, so I don''t get in trouble? 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. And I can''t lie on a referral... that''s fraud! Do you have any idea how much trouble I could get into?"'
 	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'
 end
 
 if $ARGS[0] = 'gynoblow':

locations/gschool_sex.qsrc

@@ -499,7 +499,7 @@ if $ARGS[0] = 'rand_bj':
 					*clr & cla
 					gs 'underwear', 'remove'
 					'You don''t want your panties to get in the way, and quickly slide them down your legs and stuff them in your pocket.'
-					dynamic $sexstart
+					gs 'dinSex', 'wear_condom'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/sex/boysex_tualet4.jpg"></center>'
 					'<<$boydesc>> does not need any more encouragement and rubs his cock against your sopping fuckhole, slamming it in all the way on the first thrust. He then begins to fuck you in short, furious strokes, and soon the room is filled with the sound of his balls slapping against your clit and the sopping of your pussy around his dick.'
 					gs 'arousal', 'vaginal', 10, 'unknown'
@@ -515,7 +515,7 @@ if $ARGS[0] = 'rand_bj':
 					end
 				end
 			else
-				dynamic $sexstart
+				gs 'dinSex', 'wear_condom'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/sex/boysex_tualet4.jpg"></center>'
 				'<<$boydesc>> does not need any more encouragement and rubs his cock against your sopping fuckhole, slamming it in all the way on the first thrust. He then begins to fuck you in short, furious strokes, and soon the room is filled with the sound of his balls slapping against you and the sopping of your pussy around his dick.'
 				gs 'arousal', 'vaginal', 10, 'unknown'

locations/hotel_resep.qsrc

@@ -560,7 +560,7 @@ if $ARGS[0] = 'pavgenprosmf':
 	'Then you both get undressed and you start doing your job.'
 	picrand = rand(0, 14)
 	'<center><video autoplay loop src="images/shared/sex/blowjob/bj<<picrand>>.mp4"></video></center>'
-	gs 'dinsex','dinrandbj'
+	gs 'dinsex','bj_random'
 
 	!! The lower values for customerrand will mean that he wants to use a condom and can be persuaded otherwise if Sveta is dominant enough.
 	!! Higher values mean the customer will want sex without a condom.
@@ -578,7 +578,7 @@ if $ARGS[0] = 'pavgenprosmf':
 			'"I don''t have any." You tell him. "Besides, it feels a lot better without."'
 			if pcs_dom >= 25:
 				'He eyes you critically for a moment before giving in. "Fine, if that''s what you want."'
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				act 'Continue': gt 'hotel_resep', 'vaginalmf'
 			else
 				'"The safer the better if feels. You''re lucky I brought some." He tells you as he grabs a condom from his pocket.'
@@ -598,7 +598,7 @@ if $ARGS[0] = 'pavgenprosmf':
 			'"I don''t have any." You tell him. "Besides, it feels a lot better without."'
 			if pcs_dom >= 25:
 				'He eyes you critically for a moment before giving in. "Fine, if that''s what you want."'
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				act 'Continue': gt 'hotel_resep', 'vaginalmf'
 			else
 				'"Well, I don''t fuck without one, good thing I brought some." He tells you as he grabs a condom from his pocket.'
@@ -615,7 +615,7 @@ if $ARGS[0] = 'pavgenprosmf':
 					cla
 					'"Fine." You say, holding out your hand.'
 					'He grabs his wallet and hands you 300 <b>₽</b> "There, now let''s try that pussy of yours.'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 					act 'Continue': gt 'hotel_resep', 'vaginalmf'
 				end
 			else
@@ -625,7 +625,7 @@ if $ARGS[0] = 'pavgenprosmf':
 					'He grabs his wallet and hands you 300 <b>₽</b> "There, now let''s try that pussy of yours.'
 					money += 300
 					gs 'stat'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 					act 'Continue': gt 'hotel_resep', 'vaginalmf'
 				end
 				act 'Refuse':
@@ -638,7 +638,7 @@ if $ARGS[0] = 'pavgenprosmf':
 			end
 		else
 			'You move his dick out of your mouth and tell him to fuck you.'
-			dynamic $venerasiak
+			gs 'dinSex', 'std_trigger'
 			act 'Continue': gt 'hotel_resep', 'vaginalmf'
 		end
 	elseif customerrand < 9:
@@ -650,7 +650,7 @@ if $ARGS[0] = 'pavgenprosmf':
 					cla
 					'"Uhm. Ok then." You say, not quite sure how you should deal with this.'
 					'"There, now let''s try that pussy of yours.'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 					act 'Continue': gt 'hotel_resep', 'vaginalmf'
 				end
 			else
@@ -660,7 +660,7 @@ if $ARGS[0] = 'pavgenprosmf':
 					'"Fine." He grabs his wallet and hands you 300 <b>₽</b> "There, now let''s try that pussy of yours.'
 					money += 300
 					gs 'stat'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 					act 'Continue': gt 'hotel_resep', 'vaginalmf'
 				end
 				act 'Refuse':
@@ -673,7 +673,7 @@ if $ARGS[0] = 'pavgenprosmf':
 			end
 		else
 			'You move his dick out of your mouth and tell him to fuck you.'
-			dynamic $venerasiak
+			gs 'dinSex', 'std_trigger'
 			act 'Continue': gt 'hotel_resep', 'vaginalmf'
 		end
 	else
@@ -686,7 +686,7 @@ if $ARGS[0] = 'pavgenprosmf':
 					'You are afraid he''s going to hurt you if you don''t let him fuck you without a condom.'
 					'"Uhm. Ok then." You say, not quite sure how you should deal with this.'
 					'"That''s better, now let''s try that pussy of yours.'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 					act 'Continue': gt 'hotel_resep', 'vaginalmf'
 				end
 			else
@@ -708,7 +708,7 @@ if $ARGS[0] = 'pavgenprosmf':
 							else
 								'You try to shove him away from you but you may as well have tried to push against a brick wall.'
 								'"You''re going to regret that." He says as he shoves you on the bed roughly.'
-								dynamic $venerasiak
+								gs 'dinSex', 'std_trigger'
 								act 'Continue': gt 'hotel_resep', 'vaginalmf'
 							end
 						end
@@ -717,7 +717,7 @@ if $ARGS[0] = 'pavgenprosmf':
 							cla
 							'"N-No... I-I''ll be good." You whimper.'
 							'"That''s more like it, whore." He tells you coldly as he shoves you on the bed.'
-							dynamic $venerasiak
+							gs 'dinSex', 'std_trigger'
 							act 'Continue': gt 'hotel_resep', 'vaginalmf'
 						end
 					end
@@ -738,7 +738,7 @@ if $ARGS[0] = 'pavgenprosmf':
 			end
 		else
 			'You move his dick out of your mouth and tell him to fuck you.'
-			dynamic $venerasiak
+			gs 'dinSex', 'std_trigger'
 			act 'Continue': gt 'hotel_resep', 'vaginalmf'
 		end
 	end
@@ -749,7 +749,7 @@ if $ARGS[0] = 'vaginalmf':
 	picrand = rand(1, 5)
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vagmis<<picrand>>.jpg"></center>'
 	gs 'arousal', 'bj', 30, 'prostitution'
-	dynamic $venerasiakOral
+	gs 'dinSex', 'std_trigger_oral'
 	gs 'arousal', 'vaginal', 30
 	gs 'arousal', 'end'
 	gs 'stat'
@@ -884,14 +884,14 @@ if $ARGS[0] = 'pavgenprosmmf':
 				mmfextrapay = 1
 				mmfcond = 0
 				'"I don''t normally let my customers fuck my ass and without condoms at that. Hmm, maybe I''ll make an exception for you guys for an extra thousand." You tell them coyly. <<$boydesc[0]>> immediately takes out his wallet and throws the money on the bed.'
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				act 'Continue': gt 'hotel_resep', 'sexmmf'
 			end
 			act 'Allow it':
 				cla
 				mmfcond = 0
 				'"I don''t normally let my customers fuck my ass and without condoms at that. Hmm, but I''ll make an exception for you guys." You tell them coyly.'
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				act 'Continue': gt 'hotel_resep', 'sexmmf'
 			end
 		end
@@ -900,7 +900,7 @@ if $ARGS[0] = 'pavgenprosmmf':
 			cla
 			mmfcond = 0
 			'"I don''t normally let my customers fuck my ass and without condoms at that. Hmm, but I''ll make an exception for you guys." You tell them coyly.'
-			dynamic $venerasiak
+			gs 'dinSex', 'std_trigger'
 			act 'Continue': gt 'hotel_resep', 'sexmmf'
 		end
 	end

locations/hunter_favors.qsrc

@@ -511,11 +511,11 @@ if $ARGS[0] = 'yard_bondage':
 				'You decide to make it some more fun for for him. You start bobbing your head in rhythm with his pumping.'
 				'Whenever he is all the way down your throat, you swallow to massage his cock.'
 
-				gs 'dinsex', 'dinrandbj'
+				gs 'dinsex', 'bj_random'
 				*nl 
 				'Your efforts start paying off pretty quickly as he grabs your head and starts pumping even more quickly before he buries his cock all the way in'
 
-				gs 'dinsex', 'dinrandswallow'
+				gs 'dinsex', 'bj_swallow_random'
 				'He gives you a pat on the head and says "Now that''s a good girl" before tying you upright and walking off, satisfied and drained.'
 
 				act 'Further': gt 'hunter_favors', 'yard_bondage'
@@ -535,7 +535,7 @@ if $ARGS[0] = 'yard_bondage':
 				'You decide if you relax your throat and face it will be easier not to puke all over his dick.'
 				'He strokes your hair as he keeps furiously ramming his cock up and down your throat, fucking your face like as if it was a sex toy.' 
 
-				gs 'dinsex', 'dinrandbj'
+				gs 'dinsex', 'bj_random'
 				*nl 
 				'After a few minutes he pulls out of your mouth and jerks off to your face, splattering your face and chest with his spunk.'
 				'As you blink the cum off your eyes, he zips up and ties you back upright before walking away without saying anything else.'

locations/hunter_interactions.qsrc

@@ -1045,7 +1045,7 @@ end
 if $ARGS[0] = 'meet_hunters':
     cla & *clr
     
-    hunter_collective_opinion = 30
+    hunter_collective_opinion = rand(20,30)
 	hunter_sexual_comfort = 10 + pcs_apprnc / 4
     hunters_violent = 0
     
@@ -1083,7 +1083,7 @@ if $ARGS[0] = 'meet_hunters_after_rescue':
 	huntersKnow = 1
 
 	!TODO: More behavior variables w/ explanation
-	hunter_collective_opinion = 30
+	hunter_collective_opinion = rand(20,30)
 	hunter_sexual_comfort = 10 + pcs_apprnc / 4
 	hunters_violent = 0
 
@@ -2002,7 +2002,7 @@ if $ARGS[0] = 'creekside_gangbang':
         
             swallow += 1
             gs 'cum_call', 'mouth', $boy, 1
-            gs 'dinsex', 'dinrandswallow'
+            gs 'dinsex', 'bj_swallow_random'
             
             gs 'boyStat', 'A173'
             gs 'dinsex','vaginal_sex',5

locations/hunters.qsrc

@@ -37,10 +37,14 @@ if $ARGS[0] = 'check_opinion':
 		if $clothingworntype ! 'nude':
 			'Andrei then looks at you and says "What is it with all the clothing? Let it all air out!"'
 		else
-			'"Damn, <<$pcs_nickname>>, you look really good without the clothes. The things I would want to do to you..." said a somewhat aroused Andrei.'	
+			'"Damn, <<$pcs_nickname>>, you look really good without the clothes. In case you didn''t know" said a somewhat aroused Andrei.'	
 		end
 	elseif hunter_sexual_comfort > 25:
-		'Andrei then looks at you and throws you an air kiss.'
+		if $clothingworntype ! 'nude':
+			'Andrei then looks at you and throws you an air kiss.'
+		else
+			'Seeing you strutting your stuff naked, Andrei blows a wolf whistle.'	
+		end
 	else
 		'The other hunters completely ignore you, pretending you are not even there.'
 	end

locations/kafe.qsrc

@@ -455,7 +455,7 @@ if $ARGS[0] = 'workPred':
 									*clr & cla
 									guy += 1
 									'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_bj.jpg"></center>'
-									gs 'dinsex','dinrandbj'
+									gs 'dinsex','bj_random'
 									gs 'arousal', 'bj', 5, 'sub', 'prostitution'
 									gs 'stat'
 									act 'Take the sperm in your mouth':
@@ -463,7 +463,7 @@ if $ARGS[0] = 'workPred':
 										'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/waitress_work_bj2.jpg"></center>'
 										swallow += 1
 										gs 'cum_call','mouth',$boy,1
-										gs 'dinsex','dinrandswallow'
+										gs 'dinsex','bj_swallow_random'
 										gs 'arousal', 'end'
 										money += 700
 										gs 'stat'

locations/katalkinSex.qsrc

@@ -49,7 +49,7 @@ if $ARGS[0] = 'sexgo':
 			*clr & cla
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/bj.jpg"></center>'
-			gs 'dinsex','dinrandbj'
+			gs 'dinsex','bj_random'
 			gs 'arousal', 'bj', 10, 'sub'
 			gs 'stat'
 
@@ -60,7 +60,7 @@ if $ARGS[0] = 'sexgo':
 					KatalkinSwallow += 1
 					gs 'cum_call','mouth',$boy,1
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/katalkin/sex/swallow.jpg"></center>'
-					gs 'dinsex','dinrandswallow'
+					gs 'dinsex','bj_swallow_random'
 					gs 'arousal', 'end'
 					gs 'stat'
 

locations/lake.qsrc

@@ -879,7 +879,7 @@ if $ARGS[0] = 'stasValera4':
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/sex<<rand(1,6)>>.jpg"></center>'
 			'While you fuck Stasik, Valera slumps to your face and brings his erect cock to your lips.'
 			gs 'boyStat', 'A48'
-			dynamic $dinrandbj
+			gs 'dinSex', 'bj_random'
 			gs 'boyStat', 'A47'
 			pose = 1
 			gs 'dinsex','sexcum'
@@ -890,7 +890,7 @@ if $ARGS[0] = 'stasValera4':
 				gs 'boyStat', 'A48'
 				gs 'cum_call', 'mouth', 'A48', 1
 				gs 'arousal', 'bj', 5
-				gs 'dinsex','dinrandswallow'
+				gs 'dinsex','bj_swallow_random'
 
 				act 'Further':
 					cla & *clr

locations/medical_din.qsrc

@@ -0,0 +1,120 @@
+# medical_din
+
+if $ARGS[0] = 'abortion':
+	!! Aborts pregnency. Usage: gs 'medical_din','abortion'
+	vidage += 1
+	abort += 1
+	abortionbirthdate = daystart
+	pregtime = 0
+	pregtalk = 0
+	pcs_pregtalk = 0
+	npc_pregtalk['A16'] = 0
+	npc_pregtalk['A34'] = 0
+	preg = 0
+	thinkpreg = 0
+	knowpreg = 0
+	cycle = 4
+	!! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks
+	RecovH = rand(375,575) 
+	pregchem = 0
+	knowpregloss = 2
+	abortrand = rand(0, 10)
+
+	if age > 18:
+		if abortrand < 10:sterilewb += 1
+		if abortrand = 10:sterilewb += 10
+	else
+		if abortrand < 7:sterilewb += 2
+		if abortrand >= 7:sterilewb += 10
+	end
+
+	pcs_hydra += 20
+	!! I am not sure, why is it here this cycle, but I leave it so (rachels)
+	nextbaby = arrsize('yearkid')
+	if broodcurse > 0: over = 13 & gt'gameover'
+	:poliabortloop
+	!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
+	if yearkid[nextbaby-1] = 0:
+		KILLVAR 'polkid',nextbaby-1
+		KILLVAR '$kidname',nextbaby-1
+		KILLVAR 'kidage',nextbaby-1
+		KILLVAR 'daykid',nextbaby-1
+		KILLVAR 'monthkid',nextbaby-1
+		KILLVAR 'yearkid',nextbaby-1
+		KILLVAR 'Babyptype',nextbaby-1
+		KILLVAR '$ChildFath',nextbaby-1
+		KILLVAR '$ChildThFath',nextbaby-1
+		KILLVAR 'hairkid',nextbaby-1
+		KILLVAR 'eyeskid',nextbaby-1
+		KILLVAR 'cumarrcon',nextbaby-1
+		KILLVAR '$wombpotfath'
+		BabyEmbryo -= 1
+	end
+	nextbaby -= 1
+	if nextbaby > 0:
+		jump 'poliabortloop'
+	end
+elseif $ARGS[0] = 'birthControlShot':
+	!! Gives Sveta the effects of a birth control shot. Usage: gs 'medical_din','birthControlShot'
+	!! Note: You have to make sure that she is not pregnant beforehead.
+	tabletkishot = rand(84,91)
+	shotdays = 84
+	tabletkicheck = 2
+	pillcon = 40000
+	pillcon2 = 40000
+elseif $ARGS[0] = 'healthTreatment':
+	!! Gives Sveta an health treatment (like the doctors in the clinic do). Usage: gs 'medical_din','healthTreatment'
+	if pain['head'] > 0:pain['head'] -= rand(7,13)
+	if pain['hair'] > 0:pain['hair'] -= rand(7,13)
+	if pain['ears'] > 0:pain['ears'] -= rand(7,13)
+	if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
+	if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
+	if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
+	if pain['nose'] > 0:pain['nose'] -= rand(7,13)
+	if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
+	if pain['lips'] > 0:pain['lips'] -= rand(7,13)
+	if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
+	if pain['throat'] > 0:pain['throat'] -= rand(7,13)
+	if pain['neck'] > 0:pain['neck'] -= rand(7,13)
+	if pain['back'] > 0:pain['back'] -= rand(7,13)
+	if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
+	if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
+	if pain['hips'] > 0:pain['hips'] -= rand(7,13)
+	if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
+	if pain['legL'] > 0:pain['legL'] -= rand(7,13)
+	if pain['legR'] > 0:pain['legR'] -= rand(7,13)
+	if pain['feet'] > 0:pain['feet'] -= rand(7,13)
+	if pain['toes'] > 0:pain['toes'] -= rand(7,13)
+	if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
+	if pain['armL'] > 0:pain['armL'] -= rand(7,13)
+	if pain['armR'] > 0:pain['armR'] -= rand(7,13)
+	if pain['hands'] > 0:pain['hands'] -= rand(7,13)
+	if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
+	if pain['chest'] > 0:pain['chest'] -= rand(7,13)
+	if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
+	if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
+	if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
+	if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
+	if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
+	if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
+	if pain['labia'] > 0:pain['labia'] -= rand(7,13)
+	if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
+	if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
+	if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
+	pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
+	if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
+elseif $ARGS[0] = 'healSTDs':
+	!! Heals all STDs. Usage: gs 'medical_din','healSTDs'
+	venera = 0
+	GerpesOnce = 0
+	Gerpes = 0
+	SifacOnce = 0
+	Sifilis = 0
+	TriperOnce = 0
+	Triper = 0
+	TriperOral = 0
+	KandidozOnce = 0
+	Kandidoz = 0
+end
+
+--- medical_din ---------------------------------

locations/mitkasex.qsrc

@@ -199,7 +199,7 @@ if $ARGS[0] = 'gadOralCum2_1':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagadsexoralcum2_1.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase tempo, actively working his cock with your lips and tongue...'
 
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	''
 	'<<$textsexhunter6>>'
 	if temp_ms = 1:gs 'boyStat', 'A61'
@@ -228,7 +228,7 @@ if $ARGS[0] = 'gadOralCum2_2':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagadsexoralcum2_2.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase tempo, actively working his cock with your lips and tongue...'
 
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	*pl
 	'<<$textsexhunter6>>'
 	if temp_ms = 1:gs 'boyStat', 'A63'
@@ -334,7 +334,7 @@ if $ARGS[0] = 'gadDogCum2_1':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagadsexdogcum2_1.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase tempo, actively working his cock with your lips and tongue...'
 
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	*pl
 	'<<$textsexhunter6>>'
 	if temp_ms = 1:gs 'boyStat', 'A61'
@@ -440,7 +440,7 @@ if $ARGS[0] = 'gadCowCum2_1':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagadsexcowcum2_1.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase tempo, actively working his cock with your lips and tongue...'
 
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	*pl
 	'<<$textsexhunter6>>'
 	if temp_ms = 1:gs 'boyStat', 'A61'
@@ -544,7 +544,7 @@ if $ARGS[0] = 'gadStanCum2_1':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagadsexstancum2_1.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase tempo, actively working his cock with your lips and tongue...'
 
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	*pl
 	'<<$textsexhunter6>>'
 	if temp_ms = 1:gs 'boyStat', 'A61'
@@ -629,7 +629,7 @@ if $ARGS[0] = 'gadOralCum1':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagadsexoralcuml1.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase your pace...'
 	if klismaday ! daystart and dirty_dickA > 0:'<<$textsexhunter>>' & pcs_mood -= 5 & pcs_horny -= 20
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	*pl
 	'<<$textsexhunter3>>'
 	gs 'arousal', 'end'
@@ -959,7 +959,7 @@ if $ARGS[0] = 'forestOralCum1_1':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaforestsexoralcuml1_1.jpg"></center>'
 	'Realizing that <<$boydesc>> will soon tire out, you increase your pace. Mira stands by your side, not interfering with the process.'
 	gs 'oral','start'
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	*pl
 	'<<$textsexhunter10>>'
 	gs 'arousal', 'end'
@@ -1158,7 +1158,7 @@ if $ARGS[0] = 'forestCowOral1_1':
 	if horny_boyA >= 100:
 		gs 'cum_call', 'mouth', $boy, 1
 		swallow += 1
-		gs 'dinsex', 'dinrandswallow'
+		gs 'dinsex', 'bj_swallow_random'
 	end
 	*pl
 	if horny_boyA < 100:'<<$textsexhunter4>>'
@@ -1442,7 +1442,7 @@ if $ARGS[0] = 'forestOralCum2_1':
 
 	gs 'oral','start'
 	!'<<$textsexhunter8>>'
-	gs 'dinsex', 'dinrandswallow'
+	gs 'dinsex', 'bj_swallow_random'
 	'<<$textsexhunter3>>'
 	*pl
 	if horny_boyB < 100 and boyB_cum = 0:
@@ -2181,17 +2181,17 @@ if $ARGS[0] = 'forestCum3_1':
 		gs 'boyStat', 'A63'
 		gs 'oral','start'
 		!'<<$textsexhunter8>>'
-		gs 'dinsex', 'dinrandswallow'
+		gs 'dinsex', 'bj_swallow_random'
 	elseif temp_ms = 2:
 		gs 'boyStat', 'A61'
 		gs 'oral','start'
 		!'<<$textsexhunter8>>'
-		gs 'dinsex', 'dinrandswallow'
+		gs 'dinsex', 'bj_swallow_random'
 	elseif temp_ms = 3:
 		gs 'boyStat', 'A62'
 		gs 'oral','start'
 		!'<<$textsexhunter8>>'
-		gs 'dinsex', 'dinrandswallow'
+		gs 'dinsex', 'bj_swallow_random'
 	end
 	'<<$textsexhunter3>>'
 	gs 'arousal', 'end'

locations/narkopriton.qsrc

@@ -340,7 +340,7 @@ if $ARGS[0] = 'drugslut':
 					NarkShmaraTimes += 1
 					spafinloc = 12
 					gs 'cum_manage'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 					'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/bj.jpg"></center>'
 					'You need the drugs so badly, you drop to your knees automatically and quickly pull his pants down without even thinking of rejecting him. His cock is still flaccid but you close your lips around it anyway, doing the best you can to arouse him. You slowly feel his cock grow inside your mouth and suck him off obediently, until you feel several warm jets of sperm land on the back of your throat.'
 					'The guy moans exhaustedly: "Could be better..."'

locations/nichApartment.qsrc

@@ -241,7 +241,6 @@ elseif $ARGS[0] = 'jobInterview':
 		end
 	end
 elseif $ARGS[0] = 'hiring':
-	*clr & cla
 	$location_type = 'event'
 	menu_off = 1
 	
@@ -261,6 +260,17 @@ elseif $ARGS[0] = 'hiring':
 		'"This is <<$pcs_nickname>>, the girl I told you about." Tanya says before sitting down next to her mother. You have the feeling that you are expected to keep standing.'
 	end
 	
+	if FUNC('body_din','pregnancyVisibility',0,'nude') = 1:
+		'Nicholas only takes a short look at you.'
+		'"I am sorry, but I can''t have a pregnant woman be my maid. You might apply again once you have given birth. If the position is still open then."'
+		if thinkpreg = 0 and knowpreg = 0:
+			'Pregnant? He can''t be serious! You are not pregnant!'
+		end
+		'You are escorted out of the apartment building.'
+		act 'Leave': gt 'down'
+		exit
+	end
+	
 	if CloInhibit > 20:
 		nichGalaOpinion = 1
 		if nichHireMode = 1:
@@ -287,7 +297,10 @@ elseif $ARGS[0] = 'hiring':
 		*nl
 		'Whether it''s a whiff of the smell or something he spotted - the cum on you cannot escape his senses; he wrinkles his nose and you can see is expression harden.'
 		'"I cannot believe you have the audacity to come before me like a prostitute after a busy night. Is that how you intend to leave a good impression with me?" He doesn''t give you time to respond, dismissively waving his hand: "I won''t hire anybody who can''t even clean herself up. Get out!"'
-		!!TODO: end event chain
+		'You are escorted out of the apartment building.'
+		!! TODO: prevent Sveta from applying again
+		act 'Leave': gt 'down'
+		exit
 	end
 	nichImperfections = 0
 	if ShoHeels < 4:
@@ -452,7 +465,8 @@ elseif $ARGS[0] = 'visitTanya':
 			'Not giving you a chance to say a word, she leads you to her room and pushes you on her bed.'
 			act 'Have sex with Tanya': gt 'nichTanya', 'sexL'
 		end
-	elseif nichTanyaFuckCounter > rand(3,5) and nichJobRefused < 1 and nichWork = 0:
+	elseif nichTanyaFuckCounter > rand(3,5) and nichJobRefused < 1 and nichWork = 0 and FUNC('body_din','pregnancyVisibility',0,'nude') = 0:
+		!! Tanya will only offer the job while she believes that Sveta is not pregnant. Note that it is assumed that Tanya knows how Sveta looks naked and bases her decision on that!
 		'<center><img <<$set_imgh>> src="images/characters/city/tanya/door_01.jpg"></center>'
 		'Tanya opens the door for you. As you look into her eyes, they seem to be sparkling with excitement, and her entire face lights up as she smiles at you.'
 		'"<<$pcs_nickname>>, it''s so good you are here. I have the best idea ever! Our maid left us recently, and my stepfather is looking for a replacement. I could suggest <b>you</b> to him! He pays really well, and all you gotta do is tidy up a bit, but you would be able to live right here with us!"'

locations/nichBedroomServant.qsrc

@@ -149,6 +149,11 @@ if $ARGS[0] = '' or $ARGS[0] = 'start' or $ARGS[0] = 'return':
 		'You should start preparing breakfast before 7:15 during the week and before 8:15 on weekends.'
 	end
 	
+	if (thinkpreg > 0 or knowpreg > 0) and nichPregnancy = 0:
+		''
+		'<b>You are pregnant but Nicholas didn''t realize it yet. He wouldn''t allow you to continue working for him once he figures it out, that''s for sure. Maybe you should wear baggy clothes to hide your condition?</b>'
+	end
+	
 	if nichWork = 2:
 	
 		gs 'nichChore','inspect','servant'

locations/nichLivingroom.qsrc

@@ -224,7 +224,14 @@ elseif $ARGS[0] = 'breakfast':
 	
 	nichRand = rand(1,100)
 	
-	if nichTanyaUni = 0 and (nichRand <= 20 or nichDebug = 1):
+	if preg > 0 and nichPregnancy = 0 and FUNC('body_din','pregnancyVisibility') = 1:
+		*nl
+		'Nicholas directs his attention at you.'
+		'"<<$pcs_nickname>>, there is something important we need to talk about after breakfast."'
+		'"Of course, Master Nicholas." You reply as is expected of you.'
+		nichPregnancy = 1
+		nichAfterBFEvent = 90
+	elseif nichTanyaUni = 0 and (nichRand <= 20 or nichDebug = 1):
 		*nl
 		'Nicholas starts to read the newspaper. After a while he puts it aside and looks at Tanya.'
 		'"Tanya, I talked to one of my friends yesterday: Dimitrij Aslanov. I think you might know him."'
@@ -240,7 +247,7 @@ elseif $ARGS[0] = 'breakfast':
 		'"Of course, Master Nicholas." You reply as is expected of you.'
 		nichTanyaUni = 1
 		nichAfterBFEvent = 1
-	elseif nichGalaKnowsPT = 1 and (nichRand <= 20 or nichDebug = 1):
+	elseif nichGalaKnowsPT = 1 and (nichRand <= 75 or nichDebug = 1):
 		*nl
 		'The family members are chatting with each other about topics of little interest to you.'
 		'One of your duties is to refill empty glasses.'
@@ -389,6 +396,38 @@ elseif $ARGS[0] = 'breakfast':
 					end 
 				end
 			end
+		elseif nichAfterBFEvent = 90:
+			'Nicholas figured out that Sveta is pregnant'
+			killvar 'nichAfterBFEvent'
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/characters/city/nicholas/01.jpg"></center>'
+			'After you are done cleaning up the table you go to Nicholas as requested.'
+			'"<<$pcs_nickname>>, I noticed something about you lately. Something about you changed. Then I realized it. You are obviously pregnant."'
+			if thinkpreg > 0 or knowpreg > 0:
+				'You are shocked. He figured out your little secret.'
+			else
+				'You are shocked. He can''t be serious! There is no way you are pregnant.'
+			end
+			'"Of course I can''t allow you to stay my maid. A kid is an huge responsibility and it is not compatible with living here."'
+			'He waits a second before he continues.'
+			if nichPerformance <= 40:
+				'"Even though you were a less than mediocre maid I will make sure you won''t end up without shelter. I transferred your next payment and a little extra to your bank account."'
+				nichTemp = nichSalaryNext + 5000
+			elseif nichPerformance >= 80:
+				'"You were an exceptional maid and I hate to have to do this. But I see no other option. Of course I will make sure you won''t end up without shelter. I transferred your next payment and a little bit extra to your bank account."'
+				nichTemp = nichSalaryNext + 20000
+			else
+				'"You were a decent maid and I hate to have to do this. But I see no other option. Of course I will make sure you won''t end up without shelter. I transferred your next payment and a little bit extra to your bank account."'
+				nichTemp = nichSalaryNext + 10000			
+			end
+			'Nicholas leads you to the entrace. Your stuff has already been packed by one of Nicholas'' employees.'
+			'"Good luck in your future."'
+			''
+			'You got <b><<nichTemp>></b> transferred to your bank account.'
+			
+			act 'Get fired':
+				gt 'nichUtil', 'fired'
+			end
 		elseif nichAfterBFEvent = 100:
 			!! Gala has hidden her necklace in the drawer of PC
 			killvar 'nichAfterBFEvent'

locations/nichTanya.qsrc

@@ -409,8 +409,9 @@ elseif $ARGS[0] = 'bathroom':
 				end
 			end
 		end
-		act 'Leave': gt 'nichBathMaster','return'
+		
 	end
+	act 'Leave': gt 'nichBathMaster','return'
 elseif $ARGS[0] = 'bathroomMolestSuccess':
 	'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower1.jpg"></center>'
 	'Just as the both of you are about to get more intimate you hear Tanyas name being called from outside the bathroom. She is clearly afraid of being spotted in the shower with you and quickly gets out of it and starts dressing.'
@@ -789,8 +790,8 @@ elseif $ARGS[0] = 'desc':
 
 elseif $ARGS[0] = 'sexL':
 	!! lesbian sex between Tanya and PC
-	
-	minut += 1
+	nichTempArousal = 5
+	minut += nichTempArousal
 	
 	if $ARGS[1] = '' or $ARGS[1] = 'start':
 		!! the encounter starts here
@@ -819,41 +820,43 @@ elseif $ARGS[0] = 'sexL':
 		$nichTempPic = func('nichUtil','tanyaPic','sexL','aeatout')
 		'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 		'You begin by kissing her breasts, moving gradually down her body, lower and lower until you are facing her pussy. You start by gently caressing her swollen lips with up and down tongue lapping, up and down the swollen mound and moist slit, and getting ready to focus the tip of your tongue directly on her clitoris.  You part her outer lips with your fingers, spreading her pouty inner lips giving you full access to her puffy pink clitoris.'
-		gs 'arousal', 'cuni_give', -1, 'lesbian'
-		gs 'arousal', 'vaginal_finger_give', -1, 'lesbian'
+		gs 'arousal', 'cuni_give', -nichTempArousal, 'lesbian'
+		gs 'arousal', 'vaginal_finger_give', -nichTempArousal, 'lesbian'
 	elseif $ARGS[1] = 'peatout':
 		nichTanyaFuckPositions += 1
 		$nichTempPic = func('nichUtil','tanyaPic','sexL','peatout')
 		'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 		'Tanya begins by dragging her tongue up your thighs to your crotch and plants light kisses from the top of your slit down to the opening of your vagina.  Her tongue pushes into your slickened hole a few times, then slides back up your cunny to caress your tingling clitoris again.'
-		gs 'arousal', 'cuni', -1, 'lesbian'
+		gs 'arousal', 'cuni', -nichTempArousal, 'lesbian'
 	elseif $ARGS[1] = 'arimjob':
 		nichTanyaFuckPositions += 1
 		$nichTempPic = func('nichUtil','tanyaPic','sexL','arimjob')
 		'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 		'You kiss her buttocks in ever decreasing circles, eventually getting to the center where her puckered anus is waiting.  Reaching your goal, you lick all around the tender star to get it plenty moist, then firmly push your tongue forward, penetrating her ass with just the tip.  You retract it, again licking all around her anus, and repeating your tongue invasion into that most private entrance.'
-		gs 'arousal', 'rimming_give', -1, 'lesbian'
+		gs 'arousal', 'rimming_give', -nichTempArousal, 'lesbian'
 	elseif $ARGS[1] = 'primjob':
 		nichTanyaFuckPositions += 1
 		$nichTempPic = func('nichUtil','tanyaPic','sexL','primjob')
 		'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 		'Tanya kisses your buttocks in ever decreasing circles, eventually getting to the center where your puckered anus is waiting.  Reaching her goal, she licks all around the tender star to get it plenty moist, then firmly pushes her tongue forward, penetrating your ass with just the tip.  She retracts it, again licking all around your anus, and repeats her tongue invasion into that most private entrance.'
-		gs 'arousal', 'rimming', -1, 'lesbian'
+		gs 'arousal', 'rimming', -nichTempArousal, 'lesbian'
 	elseif $ARGS[1] = 'psovaginal':
 		nichTanyaFuckPositions += 1
 		$nichTempPic = func('nichUtil','tanyaPic','sexL','psovaginal')
 		'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 		'You watch as Tanya puts on the strap-on, adjusting it to her hips and centering the fake cock, and then she moves to you and inserts it slowly into your pussy.  You moan and grind back at her while she fucks you with it.'
 		dick = nichTanyaStrapon
-		gs 'arousal', 'vaginal_strap', -1, 'lesbian', 'sub'
+		gs 'arousal', 'vaginal_strap', -nichTempArousal, 'lesbian', 'sub'
 	elseif $ARGS[1] = 'asovaginal':
 		nichTanyaFuckPositions += 1
 		$nichTempPic = func('nichUtil','tanyaPic','sexL','astrapon')
 		'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 		'You put on the strap-on, adjusting it to your hips and centering it. You let Tanya suck on it to moisten it up, then you insert it slowly into her pussy.  She moans and grinds back at you while you fuck her with it.'
-		gs 'arousal', 'vaginal_strap_give', -1, 'lesbian', 'dom'
+		gs 'arousal', 'vaginal_strap_give', -nichTempArousal, 'lesbian', 'dom'
 	end
 	
+	killvar 'nichTempArousal'
+	
 	nichTanyaChanceDom = 20
 	nichTanyaChanceSub = 20
 		

locations/nichUtil.qsrc

@@ -15,7 +15,8 @@
 !! nichSalaryNext
 !! nichSalaryOutstanding
 
-
+!! nichPregnancy:	0: Nicholas has not noticed that you are pregnant
+!!					1: Nicholas has noticed you being pregnant
 
 
 
@@ -360,6 +361,7 @@ if $ARGS[0] = 'hired':
 end
 
 if $ARGS[0] = 'onLoad':
+	gs 'nichUtil','updateVars'
 	if $loc = 'tanapartment' or $loc = 'tanhouse' or $loc = 'tanhousezal' or $loc = 'tanhozspal' or $loc = 'tankitchen' or $loc = 'tanNicholas' or $loc = 'tanroom' or $loc = 'tanspalnya' or $loc = 'tanvanr':
 		$loc = 'nichApartment'
 		$metka = ''
@@ -425,7 +427,7 @@ if $ARGS[0] = 'updateNotice':
 	
 	act 'Stay hired':
 		gs 'nichUtil', 'hired'
-		nichPerformance = tan_work_rep * 5
+		nichPerformance = max(tan_work_rep * 5,10)
 		nichTanyaRelationship = 1
 		nichTanyaRelationshipState = 10
 		nichTanyaRelationshipBreakup = 0
@@ -443,6 +445,7 @@ if $ARGS[0] = 'checkOutfit':
 end
 
 !! Creates the actions for cleaning rooms
+!! DEPRECATED
 if $ARGS[0] = 'cleanOptions':
 	$nichTempPic = func('nichUtil','cleanPic',$nichChoreType,$nichChoreLoc)
 	
@@ -463,7 +466,6 @@ if $ARGS[0] = 'cleanOptions':
 		
 		act '(<<nichTimeNormal>> minutes) Clean normally':
 			*clr & cla
-			'DEBUG: '+$nichTempPic
 			'<center><img <<$set_imgh>> src="<<$nichTempPic>>"></center>'
 			minut += nichTimeNormal
 			nichChoreState[nichChoreID] = 0
@@ -560,7 +562,7 @@ if $ARGS[0] = 'cleanPic':
 	else
 		$RESULT = 'images/pc/activities/maidCleaning/'+$nichTempPic[rand(0,ARRSIZE('$nichTempPic')-1)]
 	end
-	'Debug: Picture '+$RESULT
+	if nichDebug = 1: 'Debug: Picture '+$RESULT
 	!!killvar 'nichTemp'
 	killvar '$nichTempPic'
 end

locations/npcstatic5.qsrc

@@ -735,7 +735,8 @@ npc_dom['A<<npctemp>>'] = 50
 
 npctemp = 218
 gs 'npcstaticdefaults', 'defaults'
-$npc_dna['A<<npctemp>>'] = '7845565703 9732666365 5079835231 4099096300 1653287931 7271394997 0865417545'	
+$npc_dna['A<<npctemp>>'] = '5202110092 7845565703 6464348916 9732666365 5079835231 5694584637 6691107840'	
+!! Her dads DNA: 6464348916 5694584637 6691107840 5573828639 2708900987 2978548641 1067638646
 $npc_firstname['A<<npctemp>>'] = 'Tanya'
 $npc_nickname['A<<npctemp>>'] = 'Tanya'
 $npc_lastname['A<<npctemp>>'] = 'Polyakov'
@@ -1214,6 +1215,69 @@ discoenable['A<<npctemp>>'] = 0
 $npcGo['A<<npctemp>>'] = '<a href="exec:numnpc = 231 & gt ''Snpc''"><<$npc_firstname[''A231'']>> <<$npc_lastname[''A231'']>></a>'
 $school_static_num['A<<npctemp>>'] = 'A231'
 
+npctemp = 232
+gs 'npcstaticdefaults', 'defaults'
+$npc_dna['A<<npctemp>>'] = '7845565703 9732666365 5079835231 4099096300 1653287931 7271394997 0865417545'
+$npc_firstname['A<<npctemp>>'] = 'Gala'
+$npc_nickname['A<<npctemp>>'] = 'Gala'
+$npc_lastname['A<<npctemp>>'] = 'Polyakov'
+$npc_usedname['A<<npctemp>>'] = 'Gala'
+$npc_notes['A<<npctemp>>'] = 'Wife of Nicholas and mother of Tanya'
+npc_dob['A<<npctemp>>'] = 19810225
+npc_cyc['A<<npctemp>>'] = rand(0,29)
+npc_fert['A<<npctemp>>'] = -1
+$npc_firstpart['A<<npctemp>>'] = 'U'
+$npc_lastpart['A<<npctemp>>'] = 'U'
+$npc_kidpater['A<<npctemp>>'] = 'N'
+npc_gender['A<<npctemp>>'] = 1
+$npc_thdick['A<<npctemp>>'] = 'clitoris'
+npc_dick['A<<npctemp>>'] = -1
+npc_sexskill['A<<npctemp>>'] = 2
+npc_spermpot['A<<npctemp>>'] = -1
+npc_vag['A<<npctemp>>'] = 30
+npc_ass['A<<npctemp>>'] = 10
+npc_apprnc['A<<npctemp>>'] = 100
+npc_lipbalm['A<<npctemp>>'] = 1
+npc_makeup['A<<npctemp>>'] = 1
+npc_skin['A<<npctemp>>'] = 100
+npc_hgt['A<<npctemp>>'] = 165
+npc_bust['A<<npctemp>>'] = 90
+npc_nips['A<<npctemp>>'] = 4
+npc_hairlng['A<<npctemp>>'] = 100
+npc_haircol['A<<npctemp>>'] = 2
+npc_lip['A<<npctemp>>'] = 2
+npc_lashes['A<<npctemp>>'] = 2
+npc_eyesize['A<<npctemp>>'] = 2
+npc_eyecol['A<<npctemp>>'] = 3
+npc_run['A<<npctemp>>'] = 30
+npc_vball['A<<npctemp>>'] = 30
+npc_chess['A<<npctemp>>'] = 30
+npc_dance['A<<npctemp>>'] = 30
+npc_danceero['A<<npctemp>>'] = 10
+npc_jab['A<<npctemp>>'] = 20
+npc_punch['A<<npctemp>>'] = 20
+npc_kick['A<<npctemp>>'] = 20
+npc_def['A<<npctemp>>'] = 30
+
+npctemp = 233
+gs 'npcstaticdefaults', 'defaults'
+$npc_dna['A<<npctemp>>'] = '9159003581 0954981945 0686651022 2271837550 3220855447 8045833245 0831070730'
+$npc_firstname['A<<npctemp>>'] = 'Taras'
+$npc_lastname['A<<npctemp>>'] = 'Polyakov'
+$npc_usedname['A<<npctemp>>'] = 'Taras'
+$npc_notes['A<<npctemp>>'] = 'Bodyguard of Gala Polyakov'
+npc_cyc['A<<npctemp>>'] = -1
+npc_fert['A<<npctemp>>'] = -1
+$npc_firstpart['A<<npctemp>>'] = 'U'
+$npc_lastpart['A<<npctemp>>'] = 'U'
+$npc_kidpater['A<<npctemp>>'] = 'N'
+npc_gender['A<<npctemp>>'] = 0
+$npc_thdick['A<<npctemp>>'] = 'thick'
+npc_dick['A<<npctemp>>'] = 16
+npc_spermpot['A<<npctemp>>'] = 10000
+npc_vag['A<<npctemp>>'] = -1
+npc_hymen['A<<npctemp>>'] = -1
+npc_nips['A<<npctemp>>'] = 1
 
 !! {Keep this at the end of file of the npcstatics.}
 aarraynumber = npctemp

locations/park.qsrc

@@ -646,7 +646,7 @@ if $ARGS[0] = 'prost':
 					spafinloc = 12
 					gs 'cum_manage'
 					'Client started cumming in your mouth, you continued to suck and swallow his hot, tart sperm.'
-					dynamic $venerasiakOral
+					gs 'dinSex', 'std_trigger_oral'
 				elseif prezik > 0:
 					dynamic $prezik
 					'Client finished in a condom.'

locations/poli.qsrc

@@ -51,45 +51,7 @@ if $ARGS[0] = 'start':
 			cla
 			menu_off = 1
 			minut += 60
-			if pain['head'] > 0:pain['head'] -= rand(7,13)
-			if pain['hair'] > 0:pain['hair'] -= rand(7,13)
-			if pain['ears'] > 0:pain['ears'] -= rand(7,13)
-			if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
-			if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
-			if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
-			if pain['nose'] > 0:pain['nose'] -= rand(7,13)
-			if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
-			if pain['lips'] > 0:pain['lips'] -= rand(7,13)
-			if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
-			if pain['throat'] > 0:pain['throat'] -= rand(7,13)
-			if pain['neck'] > 0:pain['neck'] -= rand(7,13)
-			if pain['back'] > 0:pain['back'] -= rand(7,13)
-			if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
-			if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
-			if pain['hips'] > 0:pain['hips'] -= rand(7,13)
-			if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
-			if pain['legL'] > 0:pain['legL'] -= rand(7,13)
-			if pain['legR'] > 0:pain['legR'] -= rand(7,13)
-			if pain['feet'] > 0:pain['feet'] -= rand(7,13)
-			if pain['toes'] > 0:pain['toes'] -= rand(7,13)
-			if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
-			if pain['armL'] > 0:pain['armL'] -= rand(7,13)
-			if pain['armR'] > 0:pain['armR'] -= rand(7,13)
-			if pain['hands'] > 0:pain['hands'] -= rand(7,13)
-			if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
-			if pain['chest'] > 0:pain['chest'] -= rand(7,13)
-			if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
-			if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
-			if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
-			if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
-			if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
-			if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
-			if pain['labia'] > 0:pain['labia'] -= rand(7,13)
-			if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
-			if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
-			if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
-			pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
-			if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
+			gs 'medical_din','healthTreatment'
 			gs 'stat'
 
 			if hosprand = 0:gt 'poli', '0'
@@ -129,11 +91,7 @@ if $ARGS[0] = 'start':
 			'<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:
-				tabletkishot = rand(84,91)
-				shotdays = 84
-				tabletkicheck = 2
-				pillcon = 40000
-				pillcon2 = 40000
+				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..."'
 			else
@@ -153,62 +111,15 @@ if $ARGS[0] = 'start':
 	if money >= 15000 and preg = 1 and pregchem < 1863 and knowpreg = 1:
 		act 'Get an abortion (15,000 <b>₽</b>)':
 			cla
-			menu_off = 1
-			vidage += 1
-			abort += 1
-			abortionbirthdate = daystart
 			money -= 15000
-			pregtime = 0
-			pregtalk = 0
-			pcs_pregtalk = 0
-			npc_pregtalk['A16'] = 0
-			npc_pregtalk['A34'] = 0
-			preg = 0
-			thinkpreg = 0
-			knowpreg = 0
-			cycle = 4
-			!! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks
-			RecovH = rand(375,575) 
-			pregchem = 0
-			knowpregloss = 2
-			abortrand = rand(0, 10)
-
-			if age > 18:
-				if abortrand < 10:sterilewb += 1
-				if abortrand = 10:sterilewb += 10
-			else
-				if abortrand < 7:sterilewb += 2
-				if abortrand >= 7:sterilewb += 10
-			end
 
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/abort.jpg"></center>'
 			'You spread out on a gynecological chair, from which angle you are fortunate not to be able to see what is going on. You feel nauseous and violated. A nurse hands you a single aspirin and a glass of muddy-looking water to down it with.'
-			pcs_hydra += 20
-			!! I am not sure, why is it here this cycle, but I leave it so (rachels)
-			nextbaby = arrsize('yearkid')
-			if broodcurse > 0: over = 13 & gt'gameover'
-			:poliabortloop
-			!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
-			if yearkid[nextbaby-1] = 0:
-				KILLVAR 'polkid',nextbaby-1
-				KILLVAR '$kidname',nextbaby-1
-				KILLVAR 'kidage',nextbaby-1
-				KILLVAR 'daykid',nextbaby-1
-				KILLVAR 'monthkid',nextbaby-1
-				KILLVAR 'yearkid',nextbaby-1
-				KILLVAR 'Babyptype',nextbaby-1
-				KILLVAR '$ChildFath',nextbaby-1
-				KILLVAR '$ChildThFath',nextbaby-1
-				KILLVAR 'hairkid',nextbaby-1
-				KILLVAR 'eyeskid',nextbaby-1
-				KILLVAR 'cumarrcon',nextbaby-1
-				KILLVAR '$wombpotfath'
-				BabyEmbryo -= 1
-			end
-			nextbaby -= 1
-			if nextbaby > 0:
-				jump 'poliabortloop'
-			end
+			
+			gs 'medical_din','abortion'
+			
+			minut += 60
+			gs 'stat'
 
 			act 'Return to the entrance':gt 'poli', 'start'
 		end

locations/saunawhore.qsrc

@@ -593,7 +593,7 @@ if $ARGS[0] = 'cumVaginal':
 		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumvaginal'+rand(1, 5)+'.mp4"></video></center>'
 		'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your pussy.'
 		gs 'cum_call', '', 'sauna client', 0, 0, 0, cumVolMl
-		if rand(1,100) >= 70:dynamic $venerasiak
+		if rand(1,100) >= 70:gs 'dinSex', 'std_trigger'
 	end
 	gs 'stat'
 	act 'Continue':gt 'saunawhore', 'clientLeave'
@@ -620,7 +620,7 @@ if $ARGS[0] = 'cumAnal':
 	else
 		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumanal'+rand(1, 5)+'.mp4"></video></center>'
 		'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your gut.'
-		if rand(1,100) >= 70:dynamic $venerasiak
+		if rand(1,100) >= 70:gs 'dinSex', 'std_trigger'
 		gs 'cum_call', 'anus', 'sauna client', 0, 0, 0, cumVolMl
 	end
 	gs 'stat'
@@ -648,7 +648,7 @@ if $ARGS[0] = 'cumMouth':
 		swallow += 1
 		'The client stuffs his dick back inside your mouth, and as you suck it, he shoots <<$cumType>> cum inside your mouth.'
 	end
-	if rand(1,100) >= 70:dynamic $venerasiakOral
+	if rand(1,100) >= 70:gs 'dinSex', 'std_trigger_oral'
 	gs 'cum_call', 'mouth', 0, 0, 0, cumVolMl
 	gs 'stat'
 	act 'Continue':gt 'saunawhore', 'clientLeave'

locations/saveupdater.qsrc

@@ -481,8 +481,8 @@ if mannareset ! 0:
 end
 
 !!Update School NPCs for the disco
-if npc_updater = 0:
-	npc_updater = 1
+if npc_updater < 2:
+	npc_updater = 2
 	
 	gs 'npcstatic1'
 	gs 'npcstatic2'

locations/sbReksHome.qsrc

@@ -16,7 +16,6 @@ end
 
 if $ARGS[0] = 'party':
 	CLOSE ALL
-	sisboyparty = 3
 	$location_type = 'event'
 	gs'dinParty'
 

locations/seeporn.qsrc

@@ -92,7 +92,7 @@ act 'Watch it':
 						if see_rand1 >= 5 and see_rand1 < 30:'<center><video autoplay loop src="images/shared/sex/public/publ1,<<rand(0,2)>>.mp4"></video></center>'
 						if see_rand1 >= 30:'<center><img <<$set_imgh>> src="images/shared/sex/public/publ1,<<rand(0,6)>>.jpg"></center>'
 						'You let your brother fuck you from behind.'
-						dynamic $sexstart
+						gs 'dinSex', 'wear_condom'
 						gs 'dinsex','vaginal_sex',10
 						gs 'dinsex','sexcum'
 

locations/sexshop.qsrc

@@ -922,7 +922,7 @@ if $ARGS[0] = 'pip':
 						swallow += 1
 						spafinloc = 12
 						gs 'cum_manage'
-						dynamic $venerasiakOral
+						gs 'dinSex', 'std_trigger_oral'
 						ghprand = rand(1, 38)
 						'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/gloryhole<<ghprand>>.jpg"></center>'
 						'You take the cock in your mouth and start to suck it, blowing him enthusiastically.'

locations/sisterQW.qsrc

@@ -697,7 +697,7 @@ end
 
 !! party stuff is all under sisboyQW_party as arg 0
 if $ARGS[0] = 'sisboyQW_party':
-	sisboyparty = 3
+	sisboyparty = 1
 	if sisboypartyQW = 1:sisboypartyQW = 2
 
 	*clr & cla

locations/skverdin.qsrc

@@ -125,7 +125,7 @@ $d_pp_sex = {
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/ppsex.jpg"></center>'
 		'You bared her butt and bending framed his boyfriend'
-		dynamic $sexstart
+		gs 'dinSex', 'wear_condom'
 		gs 'dinsex','vaginal_sex',10
 		
 		gs 'arousal', 'vaginal', 10, 'sub'

locations/sny.qsrc

@@ -333,7 +333,7 @@ if $ARGS[0] = 'kiss':
 
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/newyear/sex/fuck.jpg"></center>'
-			dynamic $sexstart
+			gs 'dinSex', 'wear_condom'
 			gs 'dinsex','vaginal_sex',10
 			!gs 'dinsex','sexcum'
 			'Suddenly, Dimka''s friend Gosha comes into the room and sits down next to you on the couch, he pulls out his dick and starts jerking off while he is watching Dimka fuck you.'

locations/swamp_yard.qsrc

@@ -63,12 +63,13 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 
 	if hunterhelp = 1: gs 'swamp_yard', 'rescued_from_swamp'	
 
-	if hunterhelp = 2 and huntersKnow = 0:
-		gs 'hunter_interactions', 'meet_hunters_after_rescue'
-	elseif huntersKnow = 0:
-		act 'Approach the men': gt 'hunter_interactions', 'meet_hunters'
+	if huntersKnow = 0:
+		if hunterhelp = 2:
+			 gs 'hunter_interactions', 'meet_hunters_after_rescue'
+		else
+			act 'Approach the men': gt 'hunter_interactions', 'meet_hunters'
+		end
 	end
-
 	gs 'hunter_ambient', 'schedule'
 
 	if hour >= 8 and hour < 20: gs 'swamp_yard', 'daytime_flavor_events'

locations/train.qsrc

@@ -738,7 +738,7 @@ if $ARGS[0] = 'private':
 			*nl
 			'"Good girl", he whispers, "I knew you could suck cock as soon as I saw you." His praise causes you to smile a little around his cock and you take him a little deeper in response.'
 			gs 'arousal', 'bj', 10, 'prostitution', 'sub', 'unknown'
-			dynamic $venerasiakOral
+			gs 'dinSex', 'std_trigger_oral'
 
 			act 'First stop':
 				*clr & cla
@@ -759,7 +759,7 @@ if $ARGS[0] = 'private':
 					*nl
 					'Honestly, it makes relaxing difficult because your muscles are twitching around him in excitement and you can barely contain your moans. He goes a little deeper and a little faster, but your ass is too much for him and he can''t last much longer. You feel the first spurt of sperm deposited in your ass a second later and, as he continues to cum, he pulls out of you.'
 					gs 'arousal', 'anal', 5, 'prostitution', 'sub', 'unknown'
-					dynamic $venerasiak
+					gs 'dinSex', 'std_trigger'
 
 					act 'Finished':
 						*clr & cla

locations/trainBimbo.qsrc

@@ -120,7 +120,7 @@ if $ARGS[0] = 'pos22':
 		pcs_horny += 20
 		if bimbo_rand1 < 30:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/sex/bimbo.boy1,'+rand(0,5)+'.jpg"></center>'
 		if bimbo_rand1 >= 30:'<center><video autoplay loop src="images/locations/pavlovsk/trainstation/sex/bimbo.boy1,'+rand(0,8)+'.mp4"></video></center>'
-		dynamic $sexstart
+		gs 'dinSex', 'wear_condom'
 		gs 'dinsex','vaginal_sex',10
 		gs 'dinsex','sexcum'
 		horand = RAND(1,100)

locations/vipclub.qsrc

@@ -32,7 +32,7 @@ if $ARGS[0] = 'start':
 				picrand = rand(13, 17)
 				girl += 1
 				lesbian += 1
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				xgt 'lezbsex', 'var'
 			end
 		end
@@ -43,7 +43,7 @@ if $ARGS[0] = 'start':
 				menu_off = 1
 				picrand = 38
 				guy += 1
-				dynamic $venerasiak
+				gs 'dinSex', 'std_trigger'
 				xgt 'sex', 'var'
 			end
 		end
@@ -55,7 +55,7 @@ if $ARGS[0] = 'start':
 				girl += 1
 				lesbian += 1
 				money -= 5000
-				dynamic $venerasiakOral
+				gs 'dinSex', 'std_trigger_oral'
 
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/vip1.jpg"></center>'
 				'You have a wonderful idea and a couple of minutes later find yourself in a room with two staff members, one man and one woman. You have them start on the couch, with the man stting while she knelt beside of him and gave him a blowjob. You raptly watched the two professional lovers, getting more and more excited by the display.'

locations/youry.qsrc

@@ -126,7 +126,7 @@ if $ARGS[0] = 'quest':
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/city/yuri/sex/sex.jpg"></center>'
 							'As soon as you enter the bedroom, Yuri quickly helps you undress and puts you on all fours, spreading your legs as he prepares to enter you.'
-							dynamic $sexstart
+							gs 'dinSex', 'wear_condom'
 							'He steps behind you, grabbing your hip with his one hand while he teases your wet clit with his errect cock...'
 							'As your wetness acts as lubricant, Yuri thrusts his cock inside of you. After a while he picks up his pace and by the end he''s fucking you so hard you that you''re barely able to hold on by the pleasure.'
 							

locations/zsoft_gopskverGorSlut.qsrc

@@ -259,7 +259,7 @@ if $ARGS[0] = '2':
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/oral/1/o'+rand(1,25)+'.jpg"></center>'
 
-			dynamic $dinrandbj
+			gs 'dinSex', 'bj_random'
 			'<<$oral_den_text>>'
 			gs 'zsoft_gopskverGorSlut', 'cumface'
 			gs 'zsoft_gopskverGorSlut', 'cummouth'
@@ -282,7 +282,7 @@ if $ARGS[0] = '2':
 
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/oral/2/o'+rand(1,28)+'.jpg"></center>'
 
-			dynamic $dinrandbj
+			gs 'dinSex', 'bj_random'
 			'<<$oral_den_text>>'
 			gs 'zsoft_gopskverGorSlut', 'gopcumface'
 			gs 'zsoft_gopskverGorSlut', 'gopcummouth'
@@ -305,7 +305,7 @@ if $ARGS[0] = '2':
 
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/oral/3/o'+rand(1,28)+'.jpg"></center>'
 
-			dynamic $dinrandbj
+			gs 'dinSex', 'bj_random'
 			'<<$oral_den_text>>'
 			gs 'zsoft_gopskverGorSlut', 'gopcumface'
 			gs 'zsoft_gopskverGorSlut', 'gopcummouth'
@@ -472,7 +472,7 @@ if $ARGS[0] = 'piss':
 				'You sigh and drop to your knees, rubbing your hands over the groins of their police uniforms. They obviously want you, the bulges in their pants are impossible to ignore.'
 				'One of the policemen makes a token effort to object, but quickly quiets down when you pull out his hard rod and eagerly close your lips around it. You realize you have to show some effort if you want this fine to go away, and dutifully suck the guy off, massaging the other policeman''s cock with your hand after he pulls it out for you.'
 				'After a while, the second policeman gets impatient and wants you to take his cock in your mouth too. You take turns on their cocks, sucking them off one by one while you massage the other with your hand after you make it nice and slick with your saliva.'
-				gs 'dinsex','dinrandswallow'
+				gs 'dinsex','bj_swallow_random'
 				'The policemen drop their loads on your face, slightly adjusting his aim when they cum so they spread their cum absolutely everywhere. With a satisfied nod, they tuck their cocks back into their pants.'
 				'The first policeman says: "Everything seems to be in order here after all, miss. Thank you for your cooperation."'
 				'You hear them laugh as they walk away, while you wipe the cum from your eyes. They might have humiliated you a little, but at least no one else will know!'