[fixed] swiming at the lake in pavlovsk, pictures at the lake, using a Dildo during savegame, because 'd' is wrong it has to be 'D'

locations/gLakeNude.qsrc

@@ -162,19 +162,20 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 				gs 'cum_cleanup'
 				minut = minut + 30
 				pcs_mood += 5
-				pcs_willpwr = pcs_willpwr + 5
+				pcs_willpwr += 5
 				if $clothingworntype = 'swimwear':
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				elseif $clothingworntype = 'nude':
 					inhib_exp += rand(1,3)
 				end
+				if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
 				if pcs_stren < 30: stren_exp += 1
 				fat -= 1
 				if $clothingworntype = 'nude':
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swimnude.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swimnude.jpg"></center>'
 					inhib_exp += rand(1,2)
 				else
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swim.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swim.jpg"></center>'
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				end
 				'You play around and have fun in the lake, enjoying the feel of the warm water on your naked body. The clean lake water refreshes and invigorates you.'
@@ -196,10 +197,10 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 				if pcs_sweat < 35 : pcs_sweat += 5
 				pcs_mood += 5
 				if $clothingworntype = 'swimwear':
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbath.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbath.jpg"></center>'
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				else
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathnude.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbathnude.jpg"></center>'
 					inhib_exp += rand(1,3)
 				end
 				if krem = 0:

locations/glake.qsrc

@@ -220,7 +220,9 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 			act'Continue':gt'glake'
 		end
-	elseif $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
+	end
+	
+	if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 		act 'Go swim in the lake (30 minutes)':
 			*clr & cla
 			menu_off = 1
@@ -229,20 +231,22 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 			gs 'cum_cleanup'
 			minut += 30
 			pcs_mood += 5
-			pcs_willpwr = pcs_willpwr + 5
+			pcs_willpwr += 5
+			if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
 			if pcs_stren < 30: stren_exp += 1
 			fat -= 1
 			if $clothingworntype = 'nude':
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swimnude.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swimnude.jpg"></center>'
 				inhib_exp += rand(1,2)
 			else
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swim.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swim.jpg"></center>'
 				if pcs_inhib < 50:inhib_exp += rand(1,2)
 			end
 			'You swim and play in the lake, feeling refreshed and invigorated by the clean lake water.'
-			if $clothingworntype = 'nude':pcs_willpwr -= 5 & pcs_mood -= 5 & 'After a few minutes, you feel the piercing gaze of several nearby women on you. They''re making an effort of whispering to one another, yet loud enough so you can hear them: "Look at that <<$pcs_lastname>> slut! She has no decency whatsoever, shamelessly flaunting her naked body like that!" The men at the lake are much more appreciative, and openly stare at your attractive body. You can see bulges forming in the shorts of some of them.'
+			if $clothingworntype = 'nude' and rand(0,1):pcs_willpwr -= 5 & pcs_mood -= 5 & 'After a few minutes, you feel the piercing gaze of several nearby women on you. They''re making an effort of whispering to one another, yet loud enough so you can hear them: "Look at that <<$pcs_lastname>> slut! She has no decency whatsoever, shamelessly flaunting her naked body like that!" The men at the lake are much more appreciative, and openly stare at your attractive body. You can see bulges forming in the shorts of some of them.'
 			act 'Get out of the water':gt'glake'
 		end
+		
 		if sunWeather = 1:
 			act 'Go sunbathing (30 minutes)':
 				*clr & cla
@@ -251,10 +255,10 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 				pcs_mood += 5
 				gs'stat'
 				if $clothingworntype = 'swimwear':
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbath.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbath.jpg"></center>'
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 				else
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathnude.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbathnude.jpg"></center>'
 					inhib_exp += rand(1,3)
 				end
 

locations/selfplay.qsrc

@@ -40,7 +40,7 @@ if $ARGS[0] = 'start':
 	if maddildo = 1:'You have a humongous dildo, which is 40 cm long.'
 	}!
 	if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0:
-		gs 'selfplay', 'dildo_options', 'selfplay', 'start'
+		gs 'selfplay', 'dildo_options' 
 	end
 
 	if pcs_horny > 0:
@@ -333,7 +333,7 @@ if $ARGS[0] = 'start':
 		if dildo >= 1 or middildo = 1 or largedildo = 1 or bigdildo = 1 or extradildo = 1 or superdildo = 1 or maddildo = 1:
 
 			if dildonumber > 0:
-				gs 'boyStat', 'd<<dildonumber>>'
+				gs 'boyStat', 'D<<dildonumber>>'
 
 				if vgape <= 0:
 					act 'Use the dildo on your pussy':
@@ -409,31 +409,31 @@ if $ARGS[0] = 'start':
 				'You do not have a dildo in your hand.'
 
 				if dildo = 1:
-					act 'Take the 10cm long dildo':dildonumber = 1 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 10cm long dildo':dildonumber = 1 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 
 				if middildo = 1:
-					act 'Take the 15cm long dildo':dildonumber = 2 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 15cm long dildo':dildonumber = 2 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 
 				if largedildo = 1:
-					act 'Take the 20cm long dildo':dildonumber = 3 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 20cm long dildo':dildonumber = 3 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 
 				if bigdildo = 1:
-					act 'Take the 25cm long dildo':dildonumber = 4 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 25cm long dildo':dildonumber = 4 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 
 				if extradildo = 1:
-					act 'Take the 30cm long dildo':dildonumber = 5 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 30cm long dildo':dildonumber = 5 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 
 				if superdildo = 1:
-					act 'Take the 35cm long dildo':dildonumber = 6 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 35cm long dildo':dildonumber = 6 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 
 				if maddildo = 1:
-					act 'Take the 40cm long dildo':dildonumber = 7 & gs 'boyStat', 'd<<dildonumber>>' & gt 'selfplay', 'start'
+					act 'Take the 40cm long dildo':dildonumber = 7 & gs 'boyStat', 'D<<dildonumber>>' & gt 'selfplay', 'start'
 				end
 			}!
 			end
@@ -470,57 +470,57 @@ if $ARGS[0] = 'dildo_options':
 
 	if dildo = 1:
 		if dildonumber = 10:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 10cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 10cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 1 & gs ''boyStat'', ''d<<dildonumber>>'' & gt $ARGS[1], $ARGS[2]">Start</a> using the 10cm long dildo.'
+			*pl '<a href="exec:dildonumber = 1 & gs ''boyStat'', ''D<<dildonumber>>'' & gt ''selfplay'', ''start''">Start</a> using the 10cm long dildo.'
 		end
 	end
 
 	if middildo = 1:
 		if dildonumber = 15:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 15cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 15cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 2 & gs ''boyStat'', ''d<<dildonumber>>'' & gs ''boyStat'', ''d<<dildonumber>>'' &  gt $ARGS[1], $ARGS[2]">Start</a> using the 15cm long dildo.'
+			*pl '<a href="exec:dildonumber = 2 & gs ''boyStat'', ''D<<dildonumber>>'' & gs ''boyStat'', ''D<<dildonumber>>'' &  gt ''selfplay'', ''start''">Start</a> using the 15cm long dildo.'
 		end
 	end
 
 	if largedildo = 1:
 		if dildonumber = 20:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 20cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 20cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 3 & gs ''boyStat'', ''d<<dildonumber>>'' & gt $ARGS[1], $ARGS[2]">Start</a> using the 20cm long dildo.'
+			*pl '<a href="exec:dildonumber = 3 & gs ''boyStat'', ''D<<dildonumber>>'' & gt ''selfplay'', ''start''">Start</a> using the 20cm long dildo.'
 		end
 	end
 
 	if bigdildo = 1:
 		if dildonumber = 25:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 25cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 25cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 4 & gs ''boyStat'', ''d<<dildonumber>>'' & gt $ARGS[1], $ARGS[2]">Start</a> using the 25cm long dildo.'
+			*pl '<a href="exec:dildonumber = 4 & gs ''boyStat'', ''D<<dildonumber>>'' & gt ''selfplay'', ''start''">Start</a> using the 25cm long dildo.'
 		end
 	end
 
 	if extradildo = 1:
 		if dildonumber = 30:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 30cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 30cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 5 & gs ''boyStat'', ''d<<dildonumber>>'' & gt $ARGS[1], $ARGS[2]">Start</a> using the 30cm long dildo.'
+			*pl '<a href="exec:dildonumber = 5 & gs ''boyStat'', ''D<<dildonumber>>'' & gt ''selfplay'', ''start''">Start</a> using the 30cm long dildo.'
 		end
 	end
 
 	if superdildo = 1:
 		if dildonumber = 35:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 35cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 35cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 6 & gs ''boyStat'', ''d<<dildonumber>>'' & gt $ARGS[1], $ARGS[2]">Start</a> using the 35cm long dildo.'
+			*pl '<a href="exec:dildonumber = 6 & gs ''boyStat'', ''D<<dildonumber>>'' & gt ''selfplay'', ''start''">Start</a> using the 35cm long dildo.'
 		end
 	end
 
 	if maddildo = 1:
 		if dildonumber = 40:
-			*pl '<a href="exec:dildonumber = 0 & gt $ARGS[1], $ARGS[2]">Stop</a> using the 40cm long dildo.'
+			*pl '<a href="exec:dildonumber = 0 & gt ''selfplay'', ''start''">Stop</a> using the 40cm long dildo.'
 		else
-			*pl '<a href="exec:dildonumber = 7 & gs ''boyStat'', ''d<<dildonumber>>'' & gt $ARGS[1], $ARGS[2]">Start</a> using the 40cm long dildo.'
+			*pl '<a href="exec:dildonumber = 7 & gs ''boyStat'', ''D<<dildonumber>>'' & gt ''selfplay'', ''start''">Start</a> using the 40cm long dildo.'
 		end
 	end
 end