[fixed] Various fixes thanks to the good folks on TFGS

locations/gloryhole.qsrc

@@ -7,7 +7,7 @@ if $ARGS[0] = 'start':
 	gs 'stat'
 	'<center><b><font color="maroon">Empty Stall</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/sitting.jpg"></center>'
-	if stat['bj'] = 0:
+	if stat['bj'] = 0 or stat['know_glory'] = 0:
 		gs 'stat'
 		'You walk down to the last stall and sit down, next to the toilet is a rather large almost perfectly round hole. Puzzled, you wonder how it got there and why no one has fixed it.'
 	elseif stat['bj'] >= 1:
@@ -15,11 +15,27 @@ if $ARGS[0] = 'start':
 		gs 'stat'
 		'You walk down to the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
 	end
-	act 'Get Up':
-		cla
-		'You decide not to look in the hole and leave.'
-		act 'Leave': gt $loc, $loc_arg
+	gs 'gloryhole', 'start_options'
+end
+
+if $ARGS[0] = 'return':
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">The Last Stall</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/shared/gloryhole/action/sitting.jpg"></center>'
+	if stat['bj'] = 0 or stat['know_glory'] = 0:
+		gs 'stat'
+		'You are still in the last stall. Next to the toilet is a rather large almost perfectly round hole. You still don''t know how it got there and why no one has fixed it.'
+	elseif stat['bj'] >= 1:
+		pcs_horny += 10
+		gs 'stat'
+		'You are still in the last stall. The large almost perfectly round hole is still there. You wonder how many women have used that hole. You feel a little excited as you contemplate your next move.'
 	end
+	gs 'gloryhole', 'start_options'
+end
+
+if $ARGS[0] = 'start_options':
+	act 'Stand up and leave': gt $loc, $loc_arg
 	if pcs_horny >=40:
 		gs 'willpower', 'mast', 'self'
 		if will_cost <= pcs_willpwr:				
@@ -111,6 +127,7 @@ if $ARGS[0] = 'hole':
 	wait 700
 	if gloryhole = 0 or rand(1,5) = 5:
 		act 'Sign the wall':
+			stat['know_glory'] = 1
 			*clr & cla
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/ghstartled.mp4"></video></center>'
@@ -217,7 +234,7 @@ if $ARGS[0] = 'hole':
 		act 'Leave': gt $loc, $loc_arg
 		act 'Wait':
 			cla
-			'You decide stay and wait for someone to come.'
+			'You decide to stay and wait for someone to come.'
 			act 'Keep looking': gs 'gloryhole', 'hole'
 		end
 	end
@@ -272,7 +289,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 'gloryhole', 'start'
+				act 'Continue': gt 'gloryhole', 'return'
 			end
 		end
 	end
@@ -308,7 +325,7 @@ if $ARGS[0] = 'blowjob':
 				gs 'arousal', 'end'
 				gs 'stat'
 				'You gather a mouthful of sperm, and then swallow it. Their sperm has a sticky and sharp taste which makes you grimace.'
-				act 'Get up': gt 'gloryhole', 'start'
+				act 'Get up': gt 'gloryhole', 'return'
 			end
 
 			act 'Spit out':
@@ -317,27 +334,26 @@ if $ARGS[0] = 'blowjob':
 				gs 'arousal', 'end'
 				gs 'stat'
 				'You decide to spit it all out.'
-				act 'Get up': gt 'gloryhole', 'start'
+				act 'Get up': gt 'gloryhole', 'return'
 			end
 		end
 		gs 'willpower', 'swallow', 'resist'
-			if will_cost <= pcs_willpwr:
-				act 'Step back (<<will_cost>> Willpower)':
-					*clr & cla
-					
-					gs 'willpower', 'swallow', 'resist'
-					gs 'willpower', 'pay', 'resist'
-					gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
-					gs 'arousal', 'end'
-					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 '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>'
+		if will_cost <= pcs_willpwr:
+			act 'Step back (<<will_cost>> Willpower)':
+				*clr & cla
+				
+				gs 'willpower', 'swallow', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'cum_call', 'face', 'an unknown guy from the gloryhole'
+				gs 'arousal', 'end'
+				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 'gloryhole', 'return'
 			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>'
+		end
 	end
 end
 
@@ -364,6 +380,7 @@ if $ARGS[0] = 'ghsex':
 			act 'Pussy (<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 'Re-dress and suck it instead': gt 'gloryhole', 'blowjob'
 end
 
 if $ARGS[0] = 'condom':
@@ -417,7 +434,7 @@ if $ARGS[0] = 'pussy':
 					minut -= 9
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Get dressed': gt 'gloryhole', 'start'
+					act 'Get dressed': gt 'gloryhole', 'return'
 				end
 			else
 				act 'Allow him to cum inside (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -433,7 +450,7 @@ if $ARGS[0] = 'pussy':
 				minut -= 9
 				gs 'arousal', 'end'
 				gs 'stat'
-				act 'Get dressed': gt 'gloryhole', 'start'
+				act 'Get dressed': gt 'gloryhole', 'return'
 			end
 		end
 		
@@ -449,7 +466,7 @@ if $ARGS[0] = 'pussy':
 				minut -= 9
 				gs 'arousal', 'end'
 				gs 'stat'
-				act 'Get dressed': gt 'gloryhole', 'start'
+				act 'Get dressed': gt 'gloryhole', 'return'
 			end
 			act 'Let him cum on your face':
 				*clr & cla
@@ -462,7 +479,7 @@ if $ARGS[0] = 'pussy':
 				'<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 'gloryhole', 'start'
+				act 'Get dressed': gt 'gloryhole', 'return'
 			end
 		end
 	else
@@ -476,7 +493,7 @@ if $ARGS[0] = 'pussy':
 		sexcontra = 0
 		protect = 0
 
-		act 'Get dressed': gt 'gloryhole', 'start'
+		act 'Get dressed': gt 'gloryhole', 'return'
 	end
 end
 
@@ -538,7 +555,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 'gloryhole', 'start'
+			act 'Get dressed': gt 'gloryhole', 'return'
 		end
 
 		act 'Let him cum all over your ass':
@@ -552,7 +569,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 'gloryhole', 'start'
+			act 'Get dressed': gt 'gloryhole', 'return'
 		end
 
 		gs 'willpower', 'swallow', 'resist'
@@ -569,7 +586,7 @@ if $ARGS[0] = 'anal':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Get up': gt 'gloryhole', 'start'
+				act 'Get dressed': gt 'gloryhole', 'return'
 			end
 		else
 			act 'Turn around, kneel and let him cum in your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -586,7 +603,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 'gloryhole', 'start'
+			act 'Get dressed': gt 'gloryhole', 'return'
 		end
 
 	end

locations/gopsex.qsrc

@@ -28,10 +28,15 @@ end
 !deduce if gg first time
 if $ARGS[0] = 'gg_devst_deflor':
 	if stat['virgin'] = 1:
-		pcs_horny = 0
-		pcs_mood = pcs_mood - 15
-		'You tell them that it''s your first time, and ask them to be gentle.'
-		'<font color = red><b>You bit your lip in pain and tears well up in your eyes, when his member enters into your pussy, breaking your hymen. You are crying and moaning as the sturdy cock fucks your bloody pussy.</b></font>'
+		if pcs_vag = 0:
+			pcs_horny = 0
+			pcs_mood = pcs_mood - 15
+			'You tell them that it''s your first time, and ask them to be gentle.'
+			'<font color = red><b>You bit your lip in pain and tears well up in your eyes, when his member enters into your pussy, breaking your hymen. You are crying and moaning as the sturdy cock fucks your bloody pussy.</b></font>'
+		else
+			'You tell them that it''s your first time, and ask them to be gentle.'
+			'His member enters you with some resistance but it doesn''t hurt, if anything it feels good. You had expected your first time to be painful and for there to be some blood yet there is none of either.'
+		end
 	end
 end
 

locations/pav_commcenter.qsrc

@@ -7,6 +7,7 @@ menu_off = 0
 $loc_arg = ''
 $loc = 'pav_commcenter'
 $location_type = 'public_outdoors'
+gs 'stat'
 
 if $ARGS[0] ! 'XXX':
 	'<center><b><font color="maroon">Community Centre</font></b></center>'
@@ -23,6 +24,8 @@ if $ARGS[0] ! 'XXX':
 				act 'Return to the dance': gt 'pav_disco'
 			elseif money >= 25:
 				act 'Go to the dance (25 <b>₽</b>)': money -= 25 & minut += 5 & gt 'pav_disco'
+			else
+				'The dance is on currently but you do not have the 25 <b>₽</b> entrance fee.'
 			end
 		else
 			*nl
@@ -64,5 +67,6 @@ if $ARGS[0] ! 'XXX':
 	gs 'family'
 	gs 'stat'	
 end
+
 --- pav_commcenter ---------------------------------
 

locations/selfplay.qsrc

@@ -1175,7 +1175,7 @@ if $ARGS[0] = 'anal_fisting':
 	end
 end
 
-if $ARGS[0] = 'anal_fisting':
+if $ARGS[0] = 'anal_fisting2':
 	cls
 	SelfFisting += 1
 	selfplaytime += 5

locations/talent_agency.qsrc

@@ -32,7 +32,7 @@ if $ARGS[0] = 'start':
 	'"Hello, welcome to the Aurora Female Talent Agency! How may I help you?"'
 	if casting = 3 and hour <= 11 and SMTV_commercial = daystart:
 		audition['room'] = 3
-		'"Oh? Are you here for the SMTV commercial? Please go to interview room <<room>>, they''re waiting for you inside.'
+		'"Oh? Are you here for the SMTV commercial? Please go to interview room <<audition[''room'']>>, they''re waiting for you inside.'
 	elseif casting = 3 and ((hour > 11 and SMTV_commercial = daystart) or SMTV_commercial < daystart):
 		'"You''re here for the SMTV commercial? Sorry, you''re late, and you''ve just cost the production tons of money. You''ve been fired. First rule of showbiz honey: show up on time.'
 		casting = 0
@@ -81,11 +81,9 @@ if $ARGS[0] = 'hallway':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/aurora/auditions/hallway.jpg"></center>'
 	act 'Leave':gt 'talent_agency','start'
-	if casting = 3:
-		act 'Room 3':gt 'talent_agency','room3'
-	end
 	act 'Room 1':gt 'talent_agency','room1'
 	act 'Room 2':gt 'talent_agency','room2'
+	act 'Room 3':gt 'talent_agency','room3'
 	act 'Room 4':gt 'talent_agency','room4'
 	act 'Room 5':gt 'talent_agency','room5'
 	act 'General Audition Room':gt 'talent_agency','room6'

locations/tatiana_missions.qsrc

@@ -281,7 +281,7 @@ if $ARGS[0] = 'mission2':
 		'"Yes, <<$pcs_nickname>>, <i>HIC SUNT DRACONES!</i> Not Salvatore''s sissyfied ones, I mean Tolkien''s kingdom-destroying Smaug version! I will tell you about them some other day." She gives you another cheeky smile and continues.'
 		'"Dealing with that crisis took us a while, and when I returned, "The Veil" did something to the agency. It made them... hm... <i>forget</i> me. I tried to return using mundane and magical means, but I was repelled again and again. In the end, I lost the gig and the royalties, so I decided to give it time and see if whatever magical effect was in place dissipated on its own."'
 
-		if pcs_splcstng <=50:
+		if pcs_splcstng >=50:
 			'Tatiana grabs some papers and passes them to you. "Read this, <<$pcs_nickname>>!"'
 			'Without magical training, the information would be nonsense, but now that you can read them, the mismatched charts and behavioral studies show a... kind of curse floating around the ''Aphrodite Model Agency'' that makes some models suffer a significant loss of IQ and partake in overly archetypal behavior."'
 			'"Yes, <<$pcs_nickname>>, they are transforming into scatter-brained bimbos! The interesting part is that they are copying some of my mannerisms and views. Following this lead, I consulted some curse experts. In summary, they think that there must be a personal item of mine at its center, and that it''s what made the curse repel me."'