change the approach in the locations

locations/mod_IbizaDance.qsrc

@@ -2,7 +2,7 @@
 menu_off = 1
 
 if $ARGS[0] = 'start':
-	gs 'saveposition'
+!!	gs 'saveposition'
 	gt 'mod_IbizaDance','initSequence'
 end
 
@@ -67,10 +67,10 @@ if $ARGS[0] = 'nextStep':
 			dancerun += 1
 			dancenum = 0
             close all
-			gt 'restoreposition'
+			gt 'mod_IbizaDanceFloor'
 		end
 	else
-		act 'Stop dancing': close all & gt 'restoreposition'
+		act 'Stop dancing': close all & gt 'mod_IbizaDanceFloor'
 	end
 end
 

locations/mod_IbizaGuard.qsrc

@@ -1,7 +1,6 @@
 # mod_IbizaGuard
 
 if $ARGS[0] = 'start':
-	gs 'saveposition'
 	gt 'mod_IbizaGuard','guard<<rand(1,5)>>'
 end
 
@@ -36,7 +35,7 @@ if $ARGS[0]='guard1':
 		'You take it in front of him, not even knowing what you''ve just swallowed but at an instant you immediately feel your nipples harden under your blouse and how a warm pleasant feeling accumulates in your belly.'
 		gs 'stat'
 
-		act 'Head back to the dance floor': gt 'restoreposition'
+		act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 	end
 end
 
@@ -89,7 +88,7 @@ if $ARGS[0]='guard2':
 				gs 'arousal', 'end'
 				gs 'stat'
 				
-				act 'Head back to the dance floor': gt 'restoreposition'
+				act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 			end
 			
 			act 'Ride him':
@@ -153,7 +152,7 @@ if $ARGS[0]='guard2':
 									gs 'arousal', 'end'
 									minut += 5 & gs 'stat'
 									
-									act 'Head back to the dance floor': gt 'restoreposition'
+									act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 								end
 							end
 						end
@@ -177,7 +176,7 @@ if $ARGS[0]='guard2':
 								gs 'arousal', 'end'
 								minut += 5 & gs 'stat'
 								
-								act 'Head back to the dance floor': gt 'restoreposition'
+								act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 							end
 						end
 					end
@@ -260,7 +259,7 @@ if $ARGS[0]='guard2':
 									gs 'arousal', 'end'
 									minut += 5 & gs 'stat'
 									
-									act 'Head back to the dance floor': gt 'restoreposition'
+									act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 								end
 							end
 						end
@@ -301,7 +300,7 @@ if $ARGS[0]='guard3':
 		minut += 5
 		gs 'stat'
 		
-		act 'Head back to the dance floor': gt 'restoreposition'
+		act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 	end
 
 	act 'Swallow both':
@@ -354,7 +353,7 @@ if $ARGS[0]='guard3':
 					gs 'arousal', 'end'
 					gs 'stat'
 					
-					act 'Head back to the dance floor': gt 'restoreposition'
+					act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 				end
 			end
 		end
@@ -415,7 +414,7 @@ if $ARGS[0]='guard4':
 				gs 'arousal', 'end'
 				gs 'stat'
 				
-				act 'Head back to the dance floor': gt 'restoreposition'
+				act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 			end
 
 			act 'Have sex with him':
@@ -461,7 +460,7 @@ if $ARGS[0]='guard4':
 							gs 'cum_call', 'breasts'
 							minut += 5 & gs 'stat'
 							
-							act 'Head back to the dance floor': gt 'restoreposition'
+							act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 						end
 					end
 				end
@@ -544,7 +543,7 @@ if $ARGS[0]='guard5':
 				gs 'arousal', 'end'
 				gs 'stat'
 				
-				act 'Head back to the dance floor': gt 'restoreposition'
+				act 'Head back to the dance floor': gt 'mod_IbizaDanceFloor'
 			end
 		end
 	end

locations/mod_IbizaToilet.qsrc

@@ -1,7 +1,7 @@
 # mod_IbizaToilet
 
 if $ARGS[0] = 'start':
-	gs 'saveposition'
+!!	gs 'saveposition'
 	gt 'mod_IbizaToilet','entrance'
 end
 
@@ -34,7 +34,7 @@ if $ARGS[0] = 'tou':
 	
 	minut += 5
 	gs 'stat'
-	act 'Leave the toilet': gt 'restoreposition'
+	act 'Leave the toilet': gt 'mod_IbizaDanceFloor'
 	act 'Look into the mirror': gt 'mirror', 'start'
 	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
 
@@ -48,7 +48,7 @@ if $ARGS[0] = 'tou':
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center><br>'
 			'You use a tissue and a bit of water to remove cum stains in your clothes. '
 
-			act 'Finish': gt 'restoreposition'
+			act 'Finish': gt 'mod_IbizaDanceFloor'
 		end
 	end
 	dynamic $quickwash
@@ -131,13 +131,14 @@ if $ARGS[0] = '3':
 			*nl
 			'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/toilet4c.mp4"></video></center><br>'
 			'As you open your mouth, you suddenly feel a warm liquid covering you face. As he takes a piss you hear him say, "This is the only way to teach lippy bitches some manners! Now I''m going to find another slut to fuck! You can lay there in my piss... like the piece of shit you are."'
-				act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
-			end
+			gs 'arousal', 'bj', 10, 'sub'
+
+			act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
+		end
 			
 		act 'Suck it!!':
 			*clr & cla
-   
-			'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/toilet5.mp4"></video></center><br>'
+   			'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/toilet5.mp4"></video></center><br>'
 			'You grab his massive cock and put it in your mouth. You start to suck it but because of its thickness you can only fit the penis head in your little mouth.'
 			'"Go deeper you little whore!" the man commands.'
 			'"I can''t..., it''s too thick.'
@@ -147,9 +148,10 @@ if $ARGS[0] = '3':
 			'You obey and quickly position yourself so you can suck and lick his balls until you completely fit them in your mouth. As you suck his balls you begin jerking him off with your free hand. You are baffled as you notice that your pussy is dripping wet.'
 			'"That''s enough playing with my balls bitch! If you can''t fit my cock in your mouth, I''ll need to relieve myself in one of the other holes instead! Since I''m a nice guy, I''ll let you choose! Ass or pussy?"'
 			'<<$OpenInnerThought>> «Oh my God! If this guy shoves his massive cock in my ass, I won''t be able to walk straight for days!<<$CloseInnerThought>> « you think to yourself. You have no other choice than...'					
+			gs 'arousal', 'bj', 5, 'sub'
+			gs 'stat'
 
 			act 'Pussy':
-					
 				*clr & cla
 				'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/bicgcock2.mp4"></video></center><br>'
 				'"Good choice whore!" he tells you as he lays down on the floor, "I want you to ride me and don''t be afraid to go deep. I want to feel that I''m streching your inside..."'
@@ -166,6 +168,9 @@ if $ARGS[0] = '3':
 				$orgasm_or = 'yes'
 				$orgasm_txt = '"Oh my God! I''m cumming! Aaaaaahhh my God! Aaaaahh!!! you shout.'
 				'"Keep on riding me whore!!!" he yells. "I''m close so don''t you dare to stop! Yes!" He groans loudly as he explodes inside of you and you feel him emptying his balls directly in your womb... "Well done whore! Now show me your cream filled pussy!"'						
+				gs 'arousal', 'vaginal', 10, 'sub'
+				gs 'sweat', 'add', 10
+				gs 'stat'
 
 				act 'Do it':
 					!Add bonus massive vaginal creampie!!
@@ -175,9 +180,10 @@ if $ARGS[0] = '3':
 					'"Not bad! There is nothing that turnes me on more than a cream-filled bun! I''ve put a lot of yeast in the batter!" he jokes.'
 					'"I truly hope you end up with a little bastard!"' 
 					'<<$OpenInnerThought>> «Oh my God! I can''t get pregnant, as soon as he leaves I must run into the booth and push out as much sperm as I can.»<<$CloseInnerThought>>'
+					gs 'arousal', 'end'
+					minut += 5 & gs 'stat' 
 
-						act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
-					end
+					act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
 				end
 			end
 		end
@@ -272,6 +278,7 @@ if $ARGS[0] = '8':
 			'"I''ll share all these photos to my friends! Fuck, I''m so close whore! Keep it up, don''t slow down!! As you''ve behaved very well... I''ll let you decide where you want me to unload."'
 			
 			gs 'arousal', 'bj', 5, 'sub'
+			gs 'stat'
 				
 			act 'On my face please!!!':
 
@@ -284,9 +291,14 @@ if $ARGS[0] = '8':
 				'"God! I''m not done yet." he tells you as he keeps on cumming over your face.'
 				'<<$OpenInnerThought>> «What a relief! I managed to avoid him cumming inside me! Just look at the load! I would''ve ended pregnant if he came inside me.»<<$CloseInnerThought>>'
 				'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/f3.mp4"></video></center><br>'
-					act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
+				gs 'arousal', 'bj', 5, 'sub'
+				gs 'cum_call', 'face'
+				gs 'arousal', 'end'
+			
+			
+				act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
       
-				end
+			end
 				
 			act 'Cum in my mouth!!':
 				
@@ -300,9 +312,14 @@ if $ARGS[0] = '8':
 				'"I knew all of you are whores but you''re on the next level." he says.'
 				'"I want to become the biggest whore on this ship... and this is one step on the way to become that." you reply him.'
 				'"If the rest of the whores are good as you, I''m definitely going to have a good time." he tells you as he exits the bathroom.'     
-					act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
+				gs 'arousal', 'bj', 5, 'sub'
+				gs 'cum_call', 'mouth'
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
       
-				end
+			end
 				
 			act 'Fuck him until he cums!!':
 				*clr & cla
@@ -318,9 +335,18 @@ if $ARGS[0] = '8':
 				'<<$OpenInnerThought>> «Fuck! How many have been cumming inside of me! This is insane!<<$CloseInnerThought>> «”'
 				*nl
 				'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/cream3.mp4"></video></center><br>'
-					act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
-				end
+				gs 'arousal', 'vaginal', 5, 'sub'
+				gs 'arousal', 'anal', 5, 'sub'
+				gs 'cum_call', ''
+				gs 'arousal', 'end'
+
+				gs 'stat'
+				
+				
+				
+				act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
 			end
+			
 		end
 	end
 end
@@ -354,6 +380,8 @@ if $ARGS[0] = '9':
 		*nl
 		'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/toilet15.mp4"></video></center><br>'
 		'<<$OpenInnerThought>> «This is really humiliating! I feel so filthy... just like a simple whore that''ll do anything her customers demand her to do... But is it really so bad?»<<$CloseInnerThought>>'	
+		minut += 5 & gs 'stat'
+				
 		act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
 	end
 end
@@ -484,7 +512,7 @@ if $ARGS[0] = '18':
 	act 'Leave the bathroom':
 		'You stare down at the floor as you quickly walk past the surprised man... You take a quick glance back so he doesn''t follow after you. Seeing you''ve made it out without any repercussions you return to the dance floor...'
 
-		act 'Back to the dance floor':gt 'restoreposition'
+		act 'Back to the dance floor':gt 'mod_IbizaDanceFloor'
 	end
 	
 	act 'Kneeling and getting his cock out':
@@ -510,7 +538,12 @@ if $ARGS[0] = '18':
 		*nl
 		'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/toilet/cream4.mp4"></video></center><br>'
 		'<<$OpenInnerThought>> «I think I''m starting to become a cum addict! I don''t care if they cum in my mouth, in my pussy or in my ass, I just want to get filled every time.»<<$CloseInnerThought>> you think to yourself while you''re freshining up so you can go back to the dance floor.'
-			act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
+		gs 'arousal', 'vaginal', 5, 'sub'
+		gs 'arousal', 'end'
+		gs 'cum_call', ''
+		gs 'stat'
+
+		act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
 	end
 end
 
@@ -545,6 +578,10 @@ if $ARGS[0] = '19':
 		'<<$OpenInnerThought>> «50,000 [rubles] for seven days... and they pick up two rounds of customers per trip... they are earning 16,500,000€ per trip! They''re making bank thanks to the girls...»<<$CloseInnerThought>>'
 		'<<$OpenInnerThought>> «And that''s without counting the extra outings that I know they charge separately...»<<$CloseInnerThought>>'
 		'"I''m ready for another round, this time I want you feel your inside, whore!" You are still amazed by the numbers and not responding as the customer shoves you into a booth...'
+		gs 'arousal', 'bj', 5, 'sub'
+		gs 'arousal', 'end'
+		gs 'cum_call', 'mouth'
+		gs 'stat'
 			
 		act 'Fuck him, you have no choice':
 			!Add decrease aroused --
@@ -555,6 +592,9 @@ if $ARGS[0] = '19':
 			'Snapping back, you begin to speed up as you tighten your grip on his cock as you ask him, "Do you enjoy my moist pussy?"'
 			'"Yes, it''s one of the best I''ve had up to now!" he answers.'
 			'"No, no, no..." you reply, "It''s not one of the best. It is the best pussy on this whole cruise. And this will be... Aaaaaah... the best fuck you will have!" you scream out while having an orgasm.'
+			gs 'arousal', 'vaginal', 5, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
   
 			act 'Leave the booth': gt 'mod_IbizaToilet', 'tou'
 		end

locations/mod_Ibizabar.qsrc

@@ -2,7 +2,7 @@
 menu_off = 1
 
 if $ARGS[0] = 'start':
-	gs 'saveposition'
+!!	gs 'saveposition'
 	gt 'mod_IbizaBar','buffetbar<<rand(1,4)>>'
 end
 
@@ -23,7 +23,7 @@ if $ARGS[0]='buffetbar1':
 		pcs_hydra -= 10
 	end
 	gs 'stat'
-	act 'Leave the bar': gt 'restoreposition'
+	act 'Leave the bar': gt 'mod_IbizaDanceFloor'
 end
 
 if $ARGS[0]='buffetbar2':
@@ -37,7 +37,7 @@ if $ARGS[0]='buffetbar2':
 
 	'<center><img <<$set_imgh>> src="mod/ibiza/locations/city/citycenter/nightclub/trip01/buffetbar/bar2.jpg"></center><br>'
 	'You walk over the buffet bar, at the entrance you show your bracelet to the waiter. He nods and lets you continue on. You eat and drink until you are completely full.'
-	act 'Leave the bar': gt 'restoreposition'
+	act 'Leave the bar': gt 'mod_IbizaDanceFloor'
 end
 
 if $ARGS[0]='buffetbar3':
@@ -53,7 +53,7 @@ if $ARGS[0]='buffetbar3':
 	
 	'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/buffetbar/bar3.mp4"></video></center><br>'
 	'You walk over to the buffet bar and grab something to eat. After feeling stuffed you feel the need to have some beers. After a few beers you feel that you drank a bit more than you should''ve. You feel somewhat drunk.'
-	act 'Leave the bar': gt 'restoreposition'
+	act 'Leave the bar': gt 'mod_IbizaDanceFloor'
 
 end
 
@@ -71,7 +71,7 @@ if $ARGS[0]='buffetbar4':
 	'<center><img <<$set_imgh>> src="mod/ibiza/locations/city/citycenter/nightclub/trip01/buffetbar/bar4.jpg"></center><br>'
 	'You enter the buffet bar where you grab something to eat. As you''re eating you notice they have an exclusive brand of vodka. You ask the waiter if you could taste it, just a little shot.'
 	'He returns after a short with a small glass. As you take a sip of it you feel the alcohol go straight to your head. You need to be careful drinking this stuff it''s quite strong, you might lose control!'
-	act 'Leave the bar': gt 'restoreposition'
+	act 'Leave the bar': gt 'mod_IbizaDanceFloor'
 end
 
 --- mod_IbizaBar ---------------------------------