Walking or hitchhiking Sveta mistook for a prostitute.

locations/road.qsrc

@@ -39,26 +39,24 @@ if $ARGS[0] = '':
 	if nroad < 20: 
 		act 'Walk towards Pavlovsk (0:20)': 
 			if func('road', 'mistake_check'): 
-				"Someone stops and thinks you are a hooker. He asks about your services and the price you would slobber on your dick for."
-				"You are shocked, and refuse, but also are enlightened and now you can work along the highway as a prostitute if you want to."
-				act 'Leave': minut += 20 & nroad += 1 & gt $curloc
+				!! TODO: should be gt 'road', 'walking_mistake'
+				gt 'road', 'autostop_mistake', 'Pavlovsk'
 			else
 				minut += 20
 				nroad += 1
-				act 'Continue...': gt $curloc
+				gt $curloc
 			end		
 		end
 	end
 	if nroad > 0: 
 		act 'Walk towards St. Petersburg (0:20)': 
-			if func('road', 'mistake_check'): 
-				"Someone stops and thinks you are a hooker. He asks about your services and the price you would slobber on your dick for."
-				"You are shocked, and refuse, but also are enlightened and now you can work along the highway as a prostitute if you want to."
-				act 'Leave': minut += 20 & nroad -= 1 & gt $curloc
+			if func('road', 'mistake_check'):  
+				!! TODO: should be gt 'road', 'walking_mistake'
+				gt 'road', 'autostop_mistake', 'St. Petersburg'
 			else
 				minut += 20
 				nroad -= 1
-				act 'Continue...': gt $curloc
+				gt $curloc
 			end
 		end	
 	end
@@ -72,9 +70,7 @@ if $ARGS[0] = '':
 			picrand = RAND(1, 3)
 			!! Check if a misunderstanding is happening here
 			if func('road', 'mistake_check', 2): 
-				"Someone stops and thinks you are a hooker. He asks about your services and the price you would slobber on your dick for."
-				"You are shocked, and refuse, but also are enlightened and now you can work along the highway as a prostitute if you want to."
-				act 'Ponder the meaning of life': gt $curloc
+				gt 'road', 'autostop_mistake', 'Pavlovsk'
 			elseif gorand <= 60:
 				'<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
 				'<center><img <<$set_imgh>> src="images/locations/highway/autostop (<<picrand>>).jpg" ></center>'
@@ -102,9 +98,7 @@ if $ARGS[0] = '':
 			gorand = rand(1, 100)
 			picrand = RAND(1, 3)
 			if func('road', 'mistake_check', 2): 
-				"Someone stops and thinks you are a hooker. He asks about your services and the price you would slobber on your dick for."
-				"You are shocked, and refuse, but also are enlightened and now you can work along the highway as a prostitute if you want to."
-				act 'Ponder the meaning of life': gt $curloc
+				gt 'road', 'autostop_mistake', 'St. Petersburg'
 			elseif gorand <= 60:
 				'<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
 				'<center><img <<$set_imgh>> src="images/locations/highway/autostop (<<picrand>>).jpg" ></center>'
@@ -369,15 +363,21 @@ if $ARGS[0] = 'autostop_money':
 	if textrand = 2:$road_textrand4 = '<<autostop_price*100>> <b>₽</b>. Take it or leave it.'
 	if textrand = 3:$road_textrand4 = '<<autostop_price*100>> <b>₽</b>.'
 	'<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
-	if truck_drive = 1:
-		'<center><img <<$set_imgh>> src="images/locations/highway/truck_guy (<<picrand>>).jpg" ></center>'
-	elseif bandit_drive = 1:
-		'<center><img <<$set_imgh>> src="images/locations/highway/guy (1).jpg" ></center>'
+	if ARGS[1] = 0:
+		if truck_drive = 1:
+			'<center><img <<$set_imgh>> src="images/locations/highway/truck_guy (<<picrand>>).jpg" ></center>'
+		elseif bandit_drive = 1:
+			'<center><img <<$set_imgh>> src="images/locations/highway/guy (1).jpg" ></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/highway/guy (<<picrand>>).jpg" ></center>'
+		end
+		'You approach the driver and say, "Hello, sir! I need a ride to <<$road_textrand0>>, can you help me?"'
+		'The driver gives you another appraising look.'
 	else
-		'<center><img <<$set_imgh>> src="images/locations/highway/guy (<<picrand>>).jpg" ></center>'
+		'<center><img <<$set_imgh>> src="images/locations/highway/guy (<<ARGS[2]>>).jpg" ></center>'
+		'You take a small step back, "I think, there is a mistake, sir, I''m just trying to get to <<$road_textrand0>>, can you help me?'
+		'The driver gives you another appraising look.'
 	end
-	'You approach the driver and say, "Hello, sir! I need a ride to <<$road_textrand0>>, can you help me?"'
-	'The driver gives you another appraising look.'
 	vnerand = RAND(0,1200) 
 	if vnerand <= pcs_apprnc:
 		cla
@@ -400,71 +400,77 @@ if $ARGS[0] = 'autostop_money':
 			'After some hesitation, he responds, "Oh, alright then. Getting a handjob from a cute girl such as yourself sounds like a fair deal. Get in."'
 			act'Get in the car':gt 'road', 'drive_sex2'
 		end
-		exit
+		act 'Decline his offer':
+			cla
+			'You bite your lip for a second, thinking for a moment that maybe you could offer him money instead, but decide it''s safer to let him go, who knows what he will do if you refuse and then get in the car with him, alone.'
+			'"Thank you sir, but I will just wait for someone else, I''m sorry for holding you up." you say and step away from the car. The man shrugs and drives off.'
+			act 'Continue':gt $curloc
+		end
+		exit & !! What does this exit actually do here? 
 	else 
 		'He ponders for a second and then says, "<<$road_textrand4>>"'
-	end
-	if money > autostop_price*100:
-		act 'Agree to pay him': gt 'road', 'autostop_drive'
-	end
-	act'Decline his offer':
-		cla
-		'"I''m sorry, sir. I can''t afford that," you apologize and step away from the car. The man shrugs and drives off.'
-		act 'Continue':gt $curloc
-	end
-	act 'Ask for a lower price':
-		cla
-		textrand = RAND(1,3)
-		if textrand = 1:$road_textrand5 = 'Please, sir! I''m nearly broke... would you please do a girl a favour? I''d be so grateful!'
-		if textrand = 2:$road_textrand5 = 'Maybe we can work something out?'
-		if textrand = 3:$road_textrand5 = 'Oh no, I don''t have that much! Could you lower your price? Maybe a bit, just for me?'
-		'You twirl your hair between your fingers and give the man a cute look, hoping he will have pity on you and lower the price. "<<$road_textrand5>>" you ask him sweetly.'
-		'The man seems a bit reluctant and looks at you once more.'
-		vnerand = RAND(0,400)
-		if vnerand <= pcs_apprnc:
+		if money > autostop_price*100:
+			act 'Agree to pay him': gt 'road', 'autostop_drive'
+		end
+		act'Decline his offer':
 			cla
-			'"I can take you there for free, but only if you do something for me in return", the guy smiles.'
-			'"Uhh... like what?" you ask him, even though you''re pretty sure you know where this is going.'
-			'The man laughs and shifts a bit in his seat. He says, "You''re a grown-up girl with a nice body! Surely you can think of something?"'
-			act 'Offer a blowjob':
-				cla
-				drive_sex[1] = 1
-				'You bite your lip for a second, quickly going through your options. Then you say, "I really do need this ride, sir! Would a blowjob be okay?"'
-				'The guy grins greedily and says, "Excellent, I knew we would find a way to help each other out! Get in."'
-				act 'Get in the car':gt 'road', 'drive_sex1'
-			end
-			act 'Offer a handjob':
+			'"I''m sorry, sir. I can''t afford that," you apologize and step away from the car. The man shrugs and drives off.'
+			act 'Continue':gt $curloc
+		end
+		act 'Ask for a lower price':
+			cla
+			textrand = RAND(1,3)
+			if textrand = 1:$road_textrand5 = 'Please, sir! I''m nearly broke... would you please do a girl a favour? I''d be so grateful!'
+			if textrand = 2:$road_textrand5 = 'Maybe we can work something out?'
+			if textrand = 3:$road_textrand5 = 'Oh no, I don''t have that much! Could you lower your price? Maybe a bit, just for me?'
+			'You twirl your hair between your fingers and give the man a cute look, hoping he will have pity on you and lower the price. "<<$road_textrand5>>" you ask him sweetly.'
+			'The man seems a bit reluctant and looks at you once more.'
+			vnerand = RAND(0,400)
+			if vnerand <= pcs_apprnc:
 				cla
-				drive_sex[2] = 1
-				'You bite your lip for a second, quickly going through your options. Then you say, "I really do need this ride, sir! Would a handjob be okay?"'
-				'The guy gives you a slightly disappointed look and says, "What? Only a handjob?"'
-				'You really don''t want to go further than that! Your cheeks turn a deep red and you begin to stumble, "I''m sorry. I don''t normally do this..."'
-				'After some hesitation, he responds, "Oh, alright then. Getting a handjob from a cute girl such as yourself sounds like a fair deal. Get in."'
-				act 'Get in the car':gt 'road', 'drive_sex2'
-			end
-		else 
-			ivrand = RAND(1,2)
-			autostop_price -= ivrand
-			'The man sighs exasperatedly, but yields, "Okay, fine. I''ll make it <<ivrand*100>> <b>₽</b> less, because you seem like a nice girl and I want to help you out. I''ll take you there for <<autostop_price*100>> <b>₽</b>, but I can''t go any lower than that!"'
-			
-			if money > autostop_price*100:
-				act 'Agree to pay him':
-					!trip
-					gt 'road', 'autostop_drive'
+				'"I can take you there for free, but only if you do something for me in return", the guy smiles.'
+				'"Uhh... like what?" you ask him, even though you''re pretty sure you know where this is going.'
+				'The man laughs and shifts a bit in his seat. He says, "You''re a grown-up girl with a nice body! Surely you can think of something?"'
+				act 'Offer a blowjob':
+					cla
+					drive_sex[1] = 1
+					'You bite your lip for a second, quickly going through your options. Then you say, "I really do need this ride, sir! Would a blowjob be okay?"'
+					'The guy grins greedily and says, "Excellent, I knew we would find a way to help each other out! Get in."'
+					act 'Get in the car':gt 'road', 'drive_sex1'
+				end
+				act 'Offer a handjob':
+					cla
+					drive_sex[2] = 1
+					'You bite your lip for a second, quickly going through your options. Then you say, "I really do need this ride, sir! Would a handjob be okay?"'
+					'The guy gives you a slightly disappointed look and says, "What? Only a handjob?"'
+					'You really don''t want to go further than that! Your cheeks turn a deep red and you begin to stumble, "I''m sorry. I don''t normally do this..."'
+					'After some hesitation, he responds, "Oh, alright then. Getting a handjob from a cute girl such as yourself sounds like a fair deal. Get in."'
+					act 'Get in the car':gt 'road', 'drive_sex2'
+				end
+			else 
+				ivrand = RAND(1,2)
+				autostop_price -= ivrand
+				'The man sighs exasperatedly, but yields, "Okay, fine. I''ll make it <<ivrand*100>> <b>₽</b> less, because you seem like a nice girl and I want to help you out. I''ll take you there for <<autostop_price*100>> <b>₽</b>, but I can''t go any lower than that!"'
+				
+				if money > autostop_price*100:
+					act 'Agree to pay him':
+						!trip
+						gt 'road', 'autostop_drive'
+					end
+				end
+				act 'Decline his offer':
+					cla
+					'"I''m sorry, sir. I still can''t afford that," you apologize and step away from the car. The man shrugs and drives off.'
+					act 'Continue':gt $curloc
+				end
+				act 'Offer him a blowjob instead':
+					cla
+					drive_sex[1] = 1
+					'You bite your lip, as if you are ashamed of what you''re about to say next. In a weak voice, you offer, "I can''t pay you money, sir. But... I could give you a blowjob? Would that be okay?"'
+					'You lick your lips seductively and offer him a weak smile, hoping that maybe he''ll feel bad for you and just take you with him for free.'
+					'The man grins from ear to ear, and says, "You know what, girl? I was kinda hoping you''d say that. Get in."'
+					act 'Get in the car':gt 'road', 'drive_sex1'
 				end
-			end
-			act 'Decline his offer':
-				cla
-				'"I''m sorry, sir. I still can''t afford that," you apologize and step away from the car. The man shrugs and drives off.'
-				act 'Continue':gt $curloc
-			end
-			act 'Offer him a blowjob instead':
-				cla
-				drive_sex[1] = 1
-				'You bite your lip, as if you are ashamed of what you''re about to say next. In a weak voice, you offer, "I can''t pay you money, sir. But... I could give you a blowjob? Would that be okay?"'
-				'You lick your lips seductively and offer him a weak smile, hoping that maybe he''ll feel bad for you and just take you with him for free.'
-				'The man grins from ear to ear, and says, "You know what, girl? I was kinda hoping you''d say that. Get in."'
-				act 'Get in the car':gt 'road', 'drive_sex1'
 			end
 		end
 	end
@@ -548,5 +554,78 @@ if $ARGS[0] = 'mistake_check':
 	killvar 'upclose_check'
 end
 
+if $ARGS[0] = 'autostop_mistake':
+	cla & *clr
+	menu_off = 1
+	gs'stat'
+	truck_drive = 0
+	bandit_drive = 0
+	if rand(1,4) = 1: bandit_drive = 1
+	
+	textrand = RAND(1,5)
+	if textrand = 1:$road_textrand1 = 'perfectly clean and shiny'
+	if textrand = 2:$road_textrand1 = 'dirty'
+	if textrand = 3:$road_textrand1 = 'dusty'
+	if textrand = 4:$road_textrand1 = 'slightly dusty'
+	if textrand = 5:$road_textrand1 = 'very dirty'
+	textrand = RAND(1,5)
+	if textrand = 1:$road_textrand2 = 'black'
+	if textrand = 2:$road_textrand2 = 'white'
+	if textrand = 3:$road_textrand2 = 'red'
+	if textrand = 4:$road_textrand2 = 'blue'
+	if textrand = 5:$road_textrand2 = 'grey'
+	textrand = RAND(1,5)
+	actrand = RAND(1,6)
+	if actrand = 1: $act_text = 'how much for a blowjob?"'
+	if actrand = 2: $act_text = 'what do you charge for a blowjob?"'
+	if actrand = 3: $act_text = 'you give me head, I give you some money, fair deal."'
+	if actrand = 4: $act_text = 'how much for spreading your legs?"'
+	if actrand = 5: $act_text = 'what do you charge for a ride?"'
+	if actrand = 6: $act_text = 'how much for anal?"'
+	if textrand = 1:$road_textrand1 = '"Hey there, darling! What is your price? I really need to relax, <<$act_text>>'
+	if textrand = 2:$road_textrand1 = '"Hey gorgeous, I was just looking for you. My balls are really full, <<$act_text>>'
+	if textrand = 3:$road_textrand3 = '"Hey girl, just what I need, <<$act_text>>'
+	if textrand = 4:$road_textrand3 = '"Hey beauty, just what I need, <<$act_text>>'
+	if textrand = 5:$road_textrand3 = '"Darling, where are your girlfriends, being busy?" he glances over you again "Don''t be sad, I''ll make you busy too, <<$act_text>>"'
+	
+	if prostitute['road'] = 0: prostitute['highway_idea'] = 1
+
+	'<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
+	!! TODO: At some point add in a scene where some pimps stop, thinking Sveta is freelancing, to correct the situation.
+	picrand = RAND(2,4)
+	'<center><img <<$set_imgh>> src="images/locations/highway/guy (<<picrand>>).jpg" ></center>'
+	'After a few minutes of you trying to get someone to pull over, a <<$road_textrand1>>, <<$road_textrand2>> car stops near you. The driver rolls down his window and leans closer, his eyes roaming over your body.'
+	'<<$road_textrand3>>" - rubs his fingers together with a wide smile as he waits for your answer.'
+	'You blink at the question, then you realise that he mistook you for a prositute' + iif(PCloStyle = 4, ', which, seeing what you''re wearing, isn''t really surprising', '.')
+	if $ARGS[1] = 'St. Petersburg':
+		if nroad > 10:
+			act 'Ask the driver to take you to Gadukino':
+				$road_textrand0 = 'Gadukino'
+				gt 'road', 'autostop_money', 1, picrand
+			end
+		end
+		act 'Ask the driver to take you to St. Petersburg':
+			$road_textrand0 = 'St. Petersburg'
+			gt 'road', 'autostop_money', 1, picrand
+		end
+	else
+		if nroad < 10:
+			act 'Ask the driver to take you to Gadukino':
+				$road_textrand0 = 'Gadukino'
+				gt 'road', 'autostop_money', 1, picrand
+			end
+		end
+		act 'Ask the driver to take you to Pavlovsk':
+			$road_textrand0 = 'Pavlovsk'
+			gt 'road', 'autostop_money', 1, picrand
+		end
+	end
+
+	killvar '$road_textrand1'
+	killvar '$road_textrand2'
+	killvar '$road_textrand3'
+end
+
+
 --- road ---------------------------------