[changed] strapon dildo selection in stol + [fixed] incorrect 'boystat', 'D' calls & some general cleanup

locations/anushkaev1.qsrc

@@ -68,7 +68,6 @@ if $ARGS[0] = 'strapon1':
 									gs 'stat'
 									act 'Get fucked':
 										*clr & cla
-										gs 'boyStat', 'D3' 
 										'<center><img src="images/characters/pavlovsk/school/girl/anushka/bedroom/sex/strapon/strapme7.jpg"></center>'
 										'Once she gets bored of watching you suck the dildo she flips you back on your back, spreading your legs she kneels between them. She rubs the tip of her dildo against your wet pussy lips till it is nice and wet as well, then slowly slides the <<dick>>cm <<$dick_girth>> dildo inside of you, causing you to moan with pleasure. She slowly and gently fucks you, as you get wetter and wetter.'
 										gs 'arousal', 'vaginal_strap', 5, 'lesbian'
@@ -102,7 +101,6 @@ if $ARGS[0] = 'strapon1':
 											end
 											act 'Let her':
 												*clr & cla
-												gs 'boyStat', 'D3' 
 												'<center><img src="images/characters/pavlovsk/school/girl/anushka/bedroom/sex/strapon/strapme9.jpg"></center>'
 												if analplugin = 1:
 													analplugin = 0

locations/gschool_boys_bathroom.qsrc

@@ -1673,7 +1673,7 @@ if $ARGS[0] = 'boy7':
 				act 'Make him take it (<<will_cost>> Willpower)':
 					*clr & cla
 					gs 'willpower', 'pay', 'force'
-					gs 'boyStat', 'd<<dildonumber>>'
+					gs 'boyStat', 'D<<strapnumber>>'
 					gs 'stat'
 					'<center><b><font color="maroon">Boy''s bathroom</font></b></center>'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/school/boysroom3.jpg"></center>'

locations/gschool_break.qsrc

@@ -348,7 +348,6 @@ if $ARGS[0] = 'girls_restroom_events':
 								act 'Continue':
 									*clr & cla
 									gs 'pain', 2, 'vaginal', 'stretch'
-									gs 'boyStat', 'D2' 
 									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/sex/girls/gbully3.jpg"></center>'
 									'Lera gets frustated at the position, sitting she can''t really pound you. She pulls out and stands up. "Get the slut up so I can pile drive this bitch." The other girls lift your hips in the air, pulling your legs forward so your knees are almost against your shoulders, as they hold your arms and legs in place. Now with a much better vantage point, Lera slides the <<dick>>cm <<$dick_girth>> dildo back inside of your pussy and starts fucking you hard, making comments about how loose you are, while the other girls laugh.'
 									gs 'arousal', 'vaginal_strap', 3, 'humiliation', 'maso', 'gangbang', 'lesbian'
@@ -364,7 +363,6 @@ if $ARGS[0] = 'girls_restroom_events':
 											*clr & cla
 											gs 'pain', 3, 'asshole', 'stretch'
 											gs 'pain', 2, 'asscheeks', 'spank'
-											gs 'boyStat', 'D3'
 											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/sex/girls/gbully5.jpg"></center>'
 											'Lera pulls out. After a brief discussion, another girl, one of the younger ones, puts on the harness and lays down. "Come on slut mount me." Not giving a choice the other girls pull you over on top of you and force you down on the <<dick>>cm <<$dick_girth>> dildo, as it slides all the way up in you. A couple of the other girls slap your ass hard, to encourage you to to do the work.'
 											'Lena kneels down behind you, moments later you feel her spit against your asshole, then the pressure of the head of a dildo in her hand. With only that bit of spit for lubrication she shoves the <<dick>>cm <<$dick_girth>> dildo in your ass. A couple of the other girls add their spit to the shaft of the dildo so it slides a little easier.'
@@ -374,7 +372,6 @@ if $ARGS[0] = 'girls_restroom_events':
 											gs 'stat'
 											act 'Continue':
 												*clr & cla
-												gs 'boyStat', 'D3'
 												'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/sex/girls/gbully6.jpg"></center>'
 												'Paulina puts on the other harness and then takes takes the dildo from Lera, making her pull it out of your ass to your relief. "Give me that, if we are going to do this, then we should at least fuck the slut right." Mounting the dildo to the harness, she kneels down behind you and shoves it back up your ass, it feels like the <<dick>>cm <<$dick_girth>> dildo is ripping your ass, as both dildo''s are hammered into both your holes.'
 												gs 'arousal', 'vaginal_strap', 3, 'humiliation', 'maso', 'gangbang', 'lesbian'
@@ -383,7 +380,6 @@ if $ARGS[0] = 'girls_restroom_events':
 												gs 'stat'
 												act 'Continue':
 													*clr & cla
-													gs 'boyStat', 'D3'
 													'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/sex/girls/gbully7.jpg"></center>'
 													'The girl on the bottom finally has had enough and pushes you up enough, until the dildo slips out of your pussy. Paulina keeps fucking your ass for a bit, while the other one slides out from under you. Soon the other girls demand a turn, it seems none of them feel like sliding back under you or using your pussy anymore. Instead several more of them, maybe all of them, you can''t tell, take turns wearing a strapon and fucking your ass.'
 													gs 'arousal', 'anal_strap', 10, 'humiliation', 'maso', 'gangbang', 'lesbian'

locations/gschool_chats1.qsrc

@@ -298,7 +298,7 @@ if $ARGS[0] = 'igor_peg':
 				gs 'stat'
 				act 'Bend over bitch boy':
 					*clr & cla
-					gs 'boyStat', 'D2' 
+					gs 'boyStat', 'D<<strapnumber>>' 
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/school/break5.jpg"></center>'
 					'Once he has the strapon nice and wet with his saliva you tell him. "Get up and bend over for me my little slut."'
 					'He stands up and bends over one of the desks, you step up behind him and rub the tip of your strapon against his little puckered asshole. You bend over a bit and spit in the crack of his ass to add a little more lubrication. Then you press the head of the strapon against his asshole into it pops in, he moans in a mixture of pain and pleasure as it does.'

locations/katjaEvDin.qsrc

@@ -179,13 +179,13 @@ if $ARGS[0] = 'dildo':
 	*clr & cla
 	menu_off = 1
 	gs'stat'
-	if katjahorny >= 100:katjahorny = 80
+	if katjahorny >= 100: katjahorny = 80
 	'You get your handbag and pull out the toy.'
-	act'Strap it on':
+	act 'Strap it on':
 		*clr & cla
-		minut+=3
+		minut += 3
 		lesbian += 1
-		gs 'boystat', 'D1', 'b'
+		gs 'boystat', 'D<<strapnumber>>', 'b'
 		gs'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon.jpg"></center>'
 		'You put the strap-on harness on and buckle it in place, Katja bites her lip watching your actions.'

locations/soniadisco.qsrc

@@ -1588,8 +1588,7 @@ if $ARGS[0] = 'homesex':
 						if strapon = 1 and soniasex = 1:
 							act 'Show her your strapon':
 								*clr & cla
-								! Since strapnumber currently doesn''t work, I''ll set the size to 15. If strapon size ever gets revamped, change this!
-								gs 'boyStat', 'D15'
+								gs 'boyStat', 'D<<strapnumber>>'
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/sonia/sex/home/livingroom/strapon/strapon2.jpg"></center>'
 								'As she tries to lead you to her room, you grab her hand and pull her back. She looks at you with questioning eyes, obviously wondering if you have changed you mind. Then her eyes get huge when you pull your strap-on with attached dildo out of your purse and show it to her. "Oh my god." She utters with her hands over her mouth and then sits down on couch.'

locations/stol.qsrc

@@ -28,7 +28,14 @@ if $ARGS[0] = 'start':
 	
 	act 'Check birth control': gt 'stol', 'bc'
 	
-	gs 'stol', 'strapon'
+	killvar '$stol_loc_temp'
+	if strapon = 1:
+		if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0:
+			act 'Check out your strapon harness': $stol_loc_temp = 'start' & gt 'stol', 'strapon'
+		else
+			act 'Check out your strapon harness': '<br>You don''t have any dildos to attach to your strapon harness'
+		end
+	end
 	
 	if siga > 0:
         act 'Hide some cigarettes in your drawer':
@@ -152,7 +159,14 @@ if $ARGS[0] = 'stolPar':
 		act 'Finish all of your homework (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 
-	gs 'stol', 'strapon'
+	killvar '$stol_loc_temp'
+	if strapon = 1:
+		if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0:
+			act 'Check out your strapon harness': $stol_loc_temp = 'stolPar' & gt 'stol', 'strapon'
+		else
+			act 'Check out your strapon harness': '<br>You don''t have any dildos to attach to your strapon harness'
+		end
+	end
 	
 	if siga > 0:
         act 'Hide some cigarettes in your drawer':
@@ -221,44 +235,21 @@ if $ARGS[0] = 'stolPar':
 end
 
 if $ARGS[0] = 'strapon':
-!! use gs 'boyStat', 'D<<strapnumber>>' to recall which dildo is attached?
-	if strapon = 1:
-		if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0:
-			act 'Check out your strapon harness':
-				*clr
-				'<center><h1>Desk</h1></center>'
-				'<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
-				*nl
-				if strapnumber = 0:
-					'Your strapon harness doesn''t have a dildo attached to it.'
-				elseif strapnumber = 1:
-					'Your 10cm dildo is attached to your strapon harness.'
-				elseif strapnumber = 2:
-					'Your 15cm dildo is attached to your strapon harness.'
-				elseif strapnumber = 3:
-					'Your 20cm dildo is attached to your strapon harness.'
-				elseif strapnumber = 4:
-					'Your 25cm dildo is attached to your strapon harness.'
-				elseif strapnumber = 5:
-					'Your 30cm dildo is attached to your strapon harness.'
-				elseif strapnumber = 6:
-					'Your 35cm dildo is attached to your strapon harness.'
-				elseif strapnumber = 7:
-					'Your 40cm dildo is attached to your strapon harness.'
-				end
-				*nl
-				if dildo = 1: '<a href="exec:strapnumber = 1 & gt ''stol'', ''stolPar''">Attach</a> your 10cm long dildo.'
-				if middildo = 1: '<a href="exec:strapnumber = 2 & gt ''stol'', ''stolPar''">Attach</a> your 15cm long dildo.'
-				if largedildo = 1: '<a href="exec:strapnumber = 3 & gt ''stol'', ''stolPar''">Attach</a> your 20cm long dildo.'
-				if bigdildo = 1: '<a href="exec:strapnumber = 4 & gt ''stol'', ''stolPar''">Attach</a> your 25cm long dildo.'
-				if extradildo = 1: '<a href="exec:strapnumber = 5 & gt ''stol'', ''stolPar''">Attach</a> your 30cm long dildo.'
-				if superdildo = 1: '<a href="exec:strapnumber = 6 & gt ''stol'', ''stolPar''">Attach</a> your 35cm long dildo.'
-				if maddildo = 1: '<a href="exec:strapnumber = 7 & gt ''stol'', ''stolPar''">Attach</a> your 40cm long dildo.'
-			end
-		else
-			act 'Check out your strapon harness': '<br>You don''t have any dildos to attach to your strapon harness'
-		end
-	end
+!! use gs 'boyStat', 'D<<strapnumber>>' to recall which dildo is attached
+	*clr
+	'<center><h1>Desk</h1></center>'
+	'<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
+	*nl
+	if strapnumber = 0: 'Your strapon harness doesn''t have a dildo attached to it.'
+	*nl
+	if dildo = 1: iif(strapnumber = 1, 'Your 10cm dildo is attached to your strapon harness.', '<a href="exec:strapnumber = 1 & gt ''stol'', ''strapon''">Attach</a> your 10cm long dildo.')
+	if middildo = 1: iif(strapnumber = 2, 'Your 15cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 2 & gt ''stol'', ''strapon''">Attach</a> your 15cm long dildo.')
+	if largedildo = 1: iif(strapnumber = 3, 'Your 20cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 3 & gt ''stol'', ''strapon''">Attach</a> your 20cm long dildo.')
+	if bigdildo = 1: iif(strapnumber = 4, 'Your 25cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 4 & gt ''stol'', ''strapon''">Attach</a> your 25cm long dildo.')
+	if extradildo = 1: iif(strapnumber = 5, 'Your 30cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 5 & gt ''stol'', ''strapon''">Attach</a> your 30cm long dildo.')
+	if superdildo = 1: iif(strapnumber = 6, 'Your 35cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 6 & gt ''stol'', ''strapon''">Attach</a> your 35cm long dildo.')
+	if maddildo = 1: iif(strapnumber = 7, 'Your 40cm dildo is attached to your strapon harness.','<a href="exec:strapnumber = 7 & gt ''stol'', ''strapon''">Attach</a> your 40cm long dildo.')
+	act 'Back': gt 'stol', $stol_loc_temp
 end
 
 if $ARGS[0] = 'bc':