[Added] Added gloryhole to women's bathroom at the night club

locations/city_nightclubToilet.qsrc

@@ -69,6 +69,7 @@ if $ARGS[0] = 'clubtoilet_women':
 	'You walk in to the women''s restroom. You see some sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>. You notice the last stall has its door wide open.'
 
 	act 'Leave': gt 'city_nightclubToilet', 'start'
+	act 'Go to the last stall': gt 'gloryhole', 'start'
 	
 	dynamic $tampon
 	dynamic $quickwash

locations/gloryhole.qsrc

@@ -18,7 +18,10 @@ if $ARGS[0] = 'start':
 	act 'Get Up':
 		cla
 		'You decide not to look in the hole and leave.'
-		act 'Leave': gt 'gdktoilet_womens', 'womens'
+		act 'Leave': 
+			if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+			if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+		end
 	end
 	if pcs_horny >=40:
 		gs 'willpower', 'mast', 'self'
@@ -38,7 +41,7 @@ if $ARGS[0] = 'start':
 					$orgasm_or = 'no'
 					gs 'arousal', 'clit_finger', 4, 'masturbate'
 					gs 'stat'
-					act 'Continue': gs 'gdktoilet_womens', 'contmast'
+					act 'Continue': gs 'gloryhole', 'contmast'
 				else
 					*clr & cla
 					gs 'stat'
@@ -47,14 +50,14 @@ if $ARGS[0] = 'start':
 					$orgasm_or = 'no'
 					gs 'arousal', 'clit_finger', 4, 'masturbate'
 					gs 'stat'
-					act 'Continue': gs 'gdktoilet_womens', 'contmast'
+					act 'Continue': gs 'gloryhole', 'contmast'
 				end
 			end
 		else
 			act 'Caress Yourself (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
-	act 'Look at the Hole': gt 'gdktoilet_womens', 'hole'
+	act 'Look at the Hole': gt 'gloryhole', 'hole'
 end
 
 if $ARGS[0] = 'contmast':
@@ -84,7 +87,10 @@ if $ARGS[0] = 'contmast':
 			gs 'arousal', 'end'
 			gs 'stat'
 			'You decide that you shouldn''t continue and stop yourself from finishing.'
-			act 'Leave Stall':gt 'gdktoilet_womens', 'womens'
+			act 'Leave': 
+				if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+				if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+			end
 		end
 	else
 		act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -100,10 +106,13 @@ if $ARGS[0] = 'contmast':
 			gs 'arousal', 'clit_finger', 2, 'masturbate'
 			gs 'arousal', 'end'
 			gs 'stat'
-			act 'Leave Stall':gt 'gdktoilet_womens', 'womens'
+			act 'Leave': 
+				if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+				if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+			end
 		end
 	else
-		act 'Continue': gt 'gdktoilet_womens', 'contmast'
+		act 'Continue': gt 'gloryhole', 'contmast'
 	end
 end
 
@@ -130,7 +139,10 @@ if $ARGS[0] = 'hole':
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
 				'You shudder in disgust at the thought that some stranger''s dick was just practically in your mouth, you get up and quickly leave.'
-				act'Leave': gt 'gdktoilet_womens', 'womens'
+				act 'Leave': 
+					if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+					if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+				end
 			end
 
 			gs 'willpower', 'bj', 'self'
@@ -138,7 +150,7 @@ if $ARGS[0] = 'hole':
 				act 'Suck it (<<will_cost>> Willpower)': 
 					gs 'willpower', 'bj', 'self'
 					gs 'willpower', 'pay', 'self'
-					gt 'gdktoilet_womens', 'blowjob'
+					gt 'gloryhole', 'blowjob'
 				end
 			else
 				act 'Suck it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -148,7 +160,7 @@ if $ARGS[0] = 'hole':
 				act 'Touch the shaft (<<will_cost>> Willpower)':
 					gs 'willpower', 'hj', 'self'
 					gs 'willpower', 'pay', 'self'
-					gt 'gdktoilet_womens', 'virgin'
+					gt 'gloryhole', 'virgin'
 				end
 			elseif pcs_throat = 0 and will_cost > pcs_willpwr:
 				act 'Touch the shaft (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -162,7 +174,10 @@ if $ARGS[0] = 'hole':
 		act 'Don''t do it':
 			cla
 			'You move away from the hole reconsidering what you were about to do and quickly leave the stall.'
-			act 'Leave':gt 'gdktoilet_womens', 'womens'
+			act 'Leave': 
+				if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+				if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+			end
 		end
 		gs 'willpower', 'bj', 'self'
 		if will_cost <= pcs_willpwr:
@@ -177,13 +192,13 @@ if $ARGS[0] = 'hole':
 					'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger'+rand(1,5)+'.jpg"></center>'
 					'You put your finger in the hole hoping to entice a man to come over...'
 					'The man slips 100 <b>₽</b> into the hole, and then puts his erect cock through the hole.'
-					act 'Blow Him': gt 'gdktoilet_womens', 'blowjob'
 				elseif gloryhole > 0:
 					'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ready.jpg"></center>'
 					'You poke your finger in the hole showing that you are ready to serve a man. Then you put your face close to the hole and open your mouth.'
 					'The stranger slips 100 <b>₽</b> into the hole, and then his erect cock pokes out of the hole.'
-					act 'Blow Him': gt 'gdktoilet_womens', 'blowjob'
 				end
+				act 'Suck it': gt 'gloryhole', 'blowjob'
+				
 				gs 'willpower', 'bj', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Stop (<<will_cost>> Willpower)':
@@ -198,13 +213,17 @@ if $ARGS[0] = 'hole':
 								gs 'willpower', 'bj', 'resist', 'hard'
 								gs 'willpower', 'pay', 'resist'
 								gs 'stat'
-								gt 'gdktoilet_womens', 'rape'
+								gt 'gloryhole', 'rape'
 							end
 						else
 							act 'Take his money and Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 						end
-						act 'Give back the money and Leave': money -= 100 & gt 'gdktoilet_womens', 'womens'
-						act 'Blow Him': gt 'gdktoilet_womens', 'blowjob'
+						act 'Give back the money and Leave': 
+							money -= 100
+							if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+							if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+						end
+						act 'Blow Him': gt 'gloryhole', 'blowjob'
 					end
 				else
 					act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -218,11 +237,14 @@ if $ARGS[0] = 'hole':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ghseenomen.jpg"></center>'
 		'Looking through the hole, you can see a row of urinals on the other side. The hole must be to the men''s room next door. You don''t see any men currently in there.'
-		act 'Leave': gt 'gdktoilet_womens', 'womens'
+		act 'Leave': 
+			if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+			if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+		end
 		act 'Wait':
 			cla
 			'You decide stay and wait for someone to come.'
-			act 'Keep looking': gs 'gdktoilet_womens', 'hole'
+			act 'Keep looking': gs 'gloryhole', 'hole'
 		end
 	end
 end
@@ -237,7 +259,10 @@ if $ARGS[0] = 'virgin':
 		gs 'stat'
 		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
 		'You shudder in disgust at the thought that you were just touching some stranger''s dick. You get up and quickly leave.'
-		act'Leave':gt 'gdktoilet_womens', 'womens'
+		act 'Leave': 
+			if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+			if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+		end
 	end
 	act 'Grab it':
 		*clr & cla
@@ -255,7 +280,10 @@ if $ARGS[0] = 'virgin':
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/eww.mp4"></video></center>'
 				'You let go of him, wondering what possessed you to grab some stranger''s dick in the first place. You quickly leave the stall, you can hear the guy. "Hey why did you stop...? Hello? Are you still there? What the fuck!"'
-				act 'Quickly get out': gt 'gdktoilet_womens', 'womens'
+				act 'Quickly get out':
+					if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+					if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+				end
 			end
 		else
 			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -276,7 +304,7 @@ if $ARGS[0] = 'virgin':
 				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghmastcum.mp4"></video></center>'
 				'Without any warning, hot white liquid spurts out the tip of his penis. You look at your hands, watching the sperm run down the back of your hand and down onto your arm. The man panting says, "That was," he takes another breath, "That was great."'
 				'You decide to lick a bit of the white liquid off your hand curiously wanting to know what it tastes like. It''s slimy and tastes tart.'
-				act 'Continue': gt 'gdktoilet_womens', 'emptystall'
+				act 'Continue': gt 'gloryhole', 'start'
 			end
 		end
 	end
@@ -292,7 +320,7 @@ if $ARGS[0] = 'blowjob':
 	'You wrap your lips around his dick and take his <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock in your mouth and start to suck it, you suck the cock enthusiastically.'
 	gs 'arousal', 'bj', 5, 'unknown', 'sub'
 	gs 'stat'
-	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'gdktoilet_womens', 'ghsex'
+	if stat['vaginal'] > 0 or stat['anal'] > 0:act 'Undress':gt 'gloryhole', 'ghsex'
 	act 'Continue to Suck':
 		*clr & cla
 		temp = rand(1, 3)
@@ -307,7 +335,7 @@ if $ARGS[0] = 'blowjob':
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghswallow.mp4"></video></center>'
 			'Despite what he says you keep sucking his dick, you are looking forward to him filling your mouth up with his tasty sperm. Moments later hot spurts of cum fill your mouth, you savor the taste of it in your mouth, before you swallow it all down.'
-			act 'Get up': gt 'gdktoilet_womens', 'emptystall'
+			act 'Get up': gt 'gloryhole', 'start'
 		end
 		gs 'willpower', 'swallow', 'resist'
 		if will_cost <= pcs_willpwr:
@@ -321,7 +349,7 @@ if $ARGS[0] = 'blowjob':
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
 				'You pull your mouth off his dick but keep jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
-				act 'Get up': gt 'gdktoilet_womens', 'emptystall'
+				act 'Get up': gt 'gloryhole', 'start'
 			end
 		else
 			act 'Step back (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -337,8 +365,8 @@ if $ARGS[0] = 'ghsex':
 	'You let go of him and quickly undress, once you are naked you start stroking him again while you line yourself up with his dick. You badly want to fuck him.'
 	gs 'arousal', 'hj', 5, 'unknown', 'sub'
 	gs 'stat'
-	if stat['anal'] > 0: act 'Ass':gt 'gdktoilet_womens', 'anal'
-	if stat['vaginal'] > 0: act 'Pussy':gt 'gdktoilet_womens', 'pussy2'
+	if stat['anal'] > 0: act 'Ass':gt 'gloryhole', 'anal'
+	if stat['vaginal'] > 0: act 'Pussy':gt 'gloryhole', 'pussy2'
 end
 
 if $ARGS[0] = 'anal':
@@ -375,7 +403,10 @@ if $ARGS[0] = 'anal':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/analpain.jpg"></center>'
 				'The pain becomes too much and you can''t take it anymore, on the verge of tears you stop and pull your ass off his dick. You quickly get dressed and leave, you wonder if it was supposed to hurt that much. You can hear the guy yelling at you for having stopped before he finished.'
-				act 'Leave': gt 'gdktoilet_womens', 'womens'
+				act 'Leave': 
+					if $loc = 'gdktoilet_womens': gt 'gdktoilet_womens', 'womens'
+					if $loc = 'clubtoilet_women': gt 'city_nightclubToilet', 'clubtoilet_women'
+				end
 			end
 		else
 			act 'Stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -391,7 +422,7 @@ if $ARGS[0] = 'anal':
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghanalcream1.mp4"></video></center>'
 			'You feel his dick throb as he shoots his load of sperm deep in your ass, filling it up. When you pull your ass off his dick, you feel the hot sperm spilling out of your gaping asshole.'
 
-			act 'Get up': gt 'gdktoilet_womens', 'emptystall'
+			act 'Get up': gt 'gloryhole', 'start'
 		end
 		gs 'willpower', 'cum_inside_anal', 'resist'
 		if will_cost <= pcs_willpwr:
@@ -408,7 +439,7 @@ if $ARGS[0] = 'anal':
 				'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/sex/ghcumonass.jpg"></center>'
 				'You pull your ass away, feeling his cock slip out of your asshole, just as you feel hot splashing of cum landing on your butt, coating your cheeks and running down the crack of your ass.'
 
-				act 'Get up': gt 'gdktoilet_womens', 'emptystall'
+				act 'Get up': gt 'gloryhole', 'start'
 			end
 		else
 			act 'Let him cum all over your ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -423,7 +454,7 @@ if $ARGS[0] = 'anal':
 			gs 'arousal', 'end'
 			gs 'stat'
 
-			act 'Get up': gt 'gdktoilet_womens', 'emptystall'
+			act 'Get up': gt 'gloryhole', 'start'
 		end
 		gs 'willpower', 'swallow', 'resist'
 		if will_cost <= pcs_willpwr:
@@ -440,7 +471,7 @@ if $ARGS[0] = 'anal':
 				'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
 				'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
 
-				act 'Get up': gt 'gdktoilet_womens', 'emptystall'
+				act 'Get up': gt 'gloryhole', 'start'
 			end
 		else
 			act 'Turn around, kneel and let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -472,7 +503,7 @@ if $ARGS[0] = 'pussy2':
 	else
 		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghsex.mp4"></video></center>'
 	end
-	gs 'gdktoilet_womens', 'pussy'
+	gs 'gloryhole', 'pussy'
 	'You turn around and back up to the hole, you use one hand to guide his dick into your pussy. The <<npc_dick[$npclastgenerated]>>cm long <<$npc_thdick[$npclastgenerated]>> cock slides easily into your wet pussy, causing you to moan in pleasure as you move your hips back and forth. You start humping his dick with fast movements, taking the full length of him balls deep into you, which causes him to moan loudly. After several minutes, you hear him on the other side of the wall yell out, "I''m gonna cum."'
 	gs 'arousal', 'vaginal', 10, 'unknown', 'sub'
 	gs 'stat'
@@ -488,7 +519,7 @@ if $ARGS[0] = 'pussy2':
 			gs 'arousal', 'end'
 			gs 'stat'
 
-			act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
+			act 'Get dressed': gt 'gloryhole', 'emptystall'
 		end
 		gs 'willpower', 'cum_inside', 'resist'
 		if will_cost <= pcs_willpwr:
@@ -506,7 +537,7 @@ if $ARGS[0] = 'pussy2':
 					minut -= 9
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
+					act 'Get dressed': gt 'gloryhole', 'start'
 				end
 				gs 'willpower', 'swallow', 'resist'
 				if will_cost <= pcs_willpwr:
@@ -523,7 +554,7 @@ if $ARGS[0] = 'pussy2':
 						'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghfacial.mp4"></video></center>'
 						'You put your face near his dick and start jerking him off, shortly later, hot spurts of cum start flying and covering your face.'
 
-						act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
+						act 'Get dressed': gt 'gloryhole', 'start'
 					end
 				else
 					act 'Let him cum on your face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -543,7 +574,7 @@ if $ARGS[0] = 'pussy2':
 		sexcontra = 0
 		protect = 0
 
-		act 'Get dressed': gt 'gdktoilet_womens', 'emptystall'
+		act 'Get dressed': gt 'gloryhole', 'start'
 	end
 end
 
@@ -588,27 +619,6 @@ if $ARGS[0] = 'rape':
 				end
 			end
 		end
-	elseif (day >= 5 and week < 7) and (hour >= 20 and hour <= 23):
-		if music_on = 1:
-			$track_loop = 'sound/komb.mp3'
-			volume = 50
-			music_loop = 1
-			pl '<a href="exec: music_on = 0 & gt $loc">Turn off the music</a>'
-		else
-			music_loop = 0
-			close all
-			pl '<a href="exec: music_on = 1 & gt $loc">Play music</a>'
-		end
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club.jpg"></center>'
-		'You run into the crowd and start dancing to blend in. You hear a man yell out, "Where''s that bitch that took my money?" He storms off and you feel like it''s your lucky day today.'
-		act 'Dance':
-			*clr & cla
-			minut +=10
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/dance.jpg"></center>'
-			'You continue to dance until the man has left.'
-			act 'Stop': gt 'pav_disco'
-		end
 	else
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'