Browse Source

Re-ordered more choices in gad files. Some minor spelling/grammar corrections as well, and added a choice as to where Mira's brother drops you off after your "ride".

richard_butte 4 years ago
parent
commit
f74ddfba6d
4 changed files with 105 additions and 105 deletions
  1. 4 5
      locations/gadprostitutes.qsrc
  2. 4 4
      locations/mirafather.qsrc
  3. 18 17
      locations/miroslavahome.qsrc
  4. 79 79
      locations/mitka.qsrc

+ 4 - 5
locations/gadprostitutes.qsrc

@@ -54,8 +54,9 @@ if $ARGS[0] = 'start':
 			'After Mira is done with her preaching, you try to think of something witty to say or raise your hand to slap her back, but you just can''t bring yourself to do it.'
 			'Mira sees the defeated look in your eyes and knows that she has won. She pulls you into an embrace and whispers, "It''s alright <<$pcs_nickname>>. We can just be friends again. And if you want to, maybe you can come work with me instead?"'
 			
-			act 'Finish':gt'gadprostitutes','start'
+			act 'Continue':gt 'gadprostitutes','start'
 		else
+			act 'Walk back to the highway': nroad = 10 & gt 'road'
 			if MiraLoc = 8:
 				'You see Mira standing below a streetlight a little ways down the road.'
 				! event to become miras pimp if not the boys slut, not the village whore
@@ -98,7 +99,6 @@ if $ARGS[0] = 'start':
 			!if gadriver_gang = 2 and PCloStyle = 4 and pcs_sleep > 0:
 			!	act 'Prostitute yourself':gt 'gadprostitutes', 'without_mira'
 			!end
-			act 'Walk back to the highway': nroad = 10 & gt 'road'
 		end
 	else
 		'It is not a good time of day for prostitution. Try coming back later in the evening.'
@@ -110,7 +110,8 @@ end
 if $ARGS[0] = 'just_mira':
 	gs 'miroslava', 'miraclothes'
 	
-	if hour >= 16 and hour <= 23:
+	if hour >= 16 and hour <= 23:		
+		act 'Leave Mira to her work': gt 'gadprostitutes', 'start'
 		act 'Wait for Mira to attract a customer':
 			*clr & cla
 			minut += 30
@@ -214,8 +215,6 @@ if $ARGS[0] = 'just_mira':
 				act 'Continue' :gt 'gadprostitutes', 'just_mira'
 			end
 		end
-		
-		act 'Leave Mira to her work': gt 'gadprostitutes', 'start'
 	else
 		'It is too late for Mira to work as a prostitute now.'
 		act 'Walk back to Gadukino together':MiraLoc = 0 & gt 'gadukino', ''

+ 4 - 4
locations/mirafather.qsrc

@@ -20,7 +20,7 @@ if npc_QW['A64'] > 0:'<center><b><font color = maroon>Afanasiy</font></b></cente
 *nl
 'Mira''s father, <<boyage>> years old. After his wife died, he drank heavily and looks much older than he actually is. He is still in good shape for a man his age.'
 
-act 'Leave':gt 'MiroslavaHome', 'start'
+act 'Leave him be':gt 'MiroslavaHome', 'start'
 
 if Mira_no > 0 and mirafathertalk = 0 and miraday ! daystart:
 	*clr & cla
@@ -57,7 +57,7 @@ else
 				'Mira''s father tells you that she''s not home, she left without telling him where she was going.'
 
 				if mirapimp = 1:
-					'Mira is not home but you know exactly where to find her. She has been working as your prostitute on the highway'
+					'Mira is not home but you know exactly where to find her. She has been working as your prostitute on the highway.'
 				elseif miraprost > 1:
 					'Mira is not home but you know exactly where to find her. You have seen her working as a prostitute on the highway.'
 				elseif miraprost = 1:
@@ -65,7 +65,7 @@ else
 				else
 					'Mira is not home and you have no idea where she might be. Maybe you should go look around town.'
 				end
-				act 'Leave':gt 'Gadukino'
+				act 'Go back to the village center':gt 'gadukino'
 				if miraprost > 0: act 'Go to the highway': gt 'gadprostitutes','start'
 			elseif mira_temp > 10 and month >= 4 and month <= 10 and hour <= 18:
 				*clr & cla
@@ -77,7 +77,7 @@ else
 				*nl
 				'Mira''s father tells you that she''s not home, she said she was going to the river.'
 
-				act 'Leave':gt 'Gadukino'
+				act 'Go back to the village center':gt 'gadukino'
 				act 'Go to the river':gt 'gadriver','start'
 			else
 				MiraLoc = 0

+ 18 - 17
locations/miroslavahome.qsrc

@@ -34,7 +34,7 @@ if $ARGS[0] = 'start':
 		*nl
 		'Near the house you see '+iif(npc_QW['A64'] = 0, 'Mira''s father','Afanasiy')+' working.'
 
-		act 'Leave': gt 'gadukino'
+		act 'Go back to the village center': gt 'gadukino'
 
 		act 'Talk to '+iif(npc_QW['A64'] = 0, 'Mira''s father','Afanasiy'): gt 'mirafather'
 
@@ -47,7 +47,7 @@ if $ARGS[0] = 'start':
 	else
 		*nl
 		if hour > 22 or hour < 3: 'It''s too late, most of Mira''s family is asleep, no need to wake them up unnecessarily.' else 'It''s too early, most of Mira''s family is still asleep, no need to wake them up unnecessarily.'
-		act 'Leave': gt 'gadukino'
+		act 'Go back to the village center': gt 'gadukino'
 	end
 end
 
@@ -60,6 +60,7 @@ if $ARGS[0] = 'mirabrother':
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirabrother.jpg"></center>'
 
+	act 'Leave him be': gt 'MiroslavaHome', 'start'
 	act 'Ask if you can get a ride on his motorcycle':
 		*clr & cla
 		minut += 2
@@ -77,15 +78,15 @@ if $ARGS[0] = 'mirabrother':
 			act 'Walk away': gt 'MiroslavaHome', 'start'
 		else
 			if $pantyworntype ! 'none':
-				'"No problem", he says to you while looking you up and down with a strange glint in his eyes. "But my bike, well he only allows girls without panties to ride on his back and there''s nothing I can do about it, this bike is a little devil"'
+				'"No problem", he says to you while looking you up and down with a strange glint in his eyes. "But my bike, well, he only allows girls without panties to ride on his back, and there''s nothing I can do about it. This bike is a little devil."'
+				act 'Look at him in disgust and walk away': gt 'MiroslavaHome', 'start'
 				act 'Remove panties':
 					gs 'underwear', 'remove'
 					'You really want a ride on his motorcycle, and quickly slide them down your legs and stuff them in your pocket.'
 					gt 'MiroslavaHome', 'mirabrother'
 				end
-				act 'You look at him in disgust and walk away.': gt 'MiroslavaHome', 'start'
 			else
-				'"No problem", he says to you, and then adds with a mischievous smile. "But first, sit down on him, he''ll check to make sure he likes you. He is fussy son of a bitch."'
+				'"No problem", he says to you, and then adds with a mischievous smile, "but first, sit down on him and he''ll check to make sure he likes you. He is a fussy son of a bitch."'
 				act 'Get on the bike':
 					*clr & cla
 					pcs_horny += 10
@@ -94,8 +95,9 @@ if $ARGS[0] = 'mirabrother':
 
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto.jpg"></center>'
 					'You quickly swing your leg up and over the motorcycle, plop your ass down on the padded seat and grab the handlebars. Mira''s brother, with a satisfied smile, never takes his eyes off your crotch. You wiggle your ass on the seat a little giving him a great view of your naked pussy.'
-					'"Fine", he say still smiling, "Just fine! You have an awesome pussy, and I''m sure my friend," and he slaps the gas tank,"is looking forward to having you ride on him. You know what I mean, yes?" You give him a wicked grin and nod. "We''ll give you a ride to remember, and then you can give me a ride to remember..." You just continue to nod.'
+					'"Fine", he says, still smiling, "Just fine! You have an awesome pussy, and I''m sure my friend," and he slaps the gas tank, "is looking forward to having you ride on him. You know what I mean, yes?" You give him a wicked grin and nod. "We''ll give you a ride to remember, and then you can give me a ride to remember..." You just continue to nod.'
 
+					act 'Change your mind and leave': gt 'MiroslavaHome', 'start'
 					act 'Hell yes, you agree...':
 						*clr & cla
 						pcs_horny += 10
@@ -105,7 +107,7 @@ if $ARGS[0] = 'mirabrother':
 
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto.jpg"></center>'
 
-						'"Cool, here take this helmet, safety first."'
+						'"Cool. Here, take this helmet - safety first."'
 
 
 						act 'Put on the helmet':
@@ -126,7 +128,7 @@ if $ARGS[0] = 'mirabrother':
 
 								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto2.jpg"></center>'
 
-								'He guns the engine, which roars and then sets out at furious pace. The rear wheel burns rubber and smokes a little as he rides you down the highway, after a few miles he does a U-turn and heads back towards Gadukino and does not stop in the village.'
+								'He guns the engine, which roars and then sets out at furious pace. The rear wheel burns rubber and smokes a little as he rides down the highway. After a few miles, he does a U-turn and heads back towards Gadukino, but does not stop in the village.'
 
 
 								act 'One ride ends and another begins...':
@@ -145,7 +147,7 @@ if $ARGS[0] = 'mirabrother':
 										gs 'stat'
 
 										'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto4.jpg"></center>'
-										'You, bearing in mind the deal, obediently stand, while his hands knead your breasts and stroke your crotch.'
+										'Remembering the deal, you obediently stand, letting his hands knead your breasts and stroke your crotch.'
 
 										act 'Try to enjoy his touch':
 											*clr & cla
@@ -154,17 +156,17 @@ if $ARGS[0] = 'mirabrother':
 											gs 'stat'
 
 											'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto5.jpg"></center>'
-											'You feel, as his hand rubs your crotch, fingering your labia. A minute later he turns you around and press down on your shoulders...'
+											'You feel his hand rub your crotch, fingering your labia. A minute later he turns you around and presses down on your shoulders...'
 
 
-											act 'Squat':
+											act 'Kneel':
 												*clr & cla
 												pcs_horny += RAND(5,15)
 												minut += 2
 												gs 'stat'
 
 												'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto6.jpg"></center>'
-												'You obediently sit down in front of him on your knees and unzip his pants. His quickly growing member pops out right in front of your face...'
+												'You obediently kneel down in front of him and unzip his pants. His quickly-growing member pops out right in front of your face...'
 
 												act 'Suck':
 													*clr & cla
@@ -173,7 +175,7 @@ if $ARGS[0] = 'mirabrother':
 													gs 'stat'
 
 													'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto7.jpg"></center>'
-													'You stare for a few seconds, transfixed, as he grows larger and larger. You take his dick in your mouth and begin to suck on it and at the same time caressing his balls with your hands.'
+													'You stare for a few seconds, transfixed, as he grows larger and larger. You take his dick in your mouth and begin to suck on it, caressing his balls with your hands.'
 
 													act 'Swallow':
 														*clr & cla
@@ -187,9 +189,10 @@ if $ARGS[0] = 'mirabrother':
 														if mirabrosextime = 0:mirabrosextime = 1 & guy += 1
 														gs 'stat'
 														'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirabromoto8.jpg"></center>'
-														'After a couple of minutes you feel his warm sticky cum hit the back of your throat and being to swallow it all down. Mira''s brother stands still for a minute, his eyes closed in bliss. Finally he takes his cock out of your mouth, zips up pants, sits on a motorcycle and drives you back to the village...'
+														'After a couple of minutes you feel his warm sticky cum hit the back of your throat and begin to swallow it all down. Mira''s brother stands still for a minute, his eyes closed in bliss. Finally, he takes his cock out of your mouth and zips up his pants. You put your helmets back on, get on the motorcycle once again, and he drives you back to the village...'
 
-														act 'Go back to your grandparents house': gt 'gadhouse', 'start'
+														act 'Ask him to take you back to Mira''s house': gt 'MiroslavaHome', 'start'
+														act 'Ask him to drop you off at your grandparents house': gt 'gaddvor'
 													end
 												end
 											end
@@ -199,8 +202,6 @@ if $ARGS[0] = 'mirabrother':
 							end
 						end
 					end
-
-					act 'Leave': gt 'gadukino'
 				end
 			end
 		end

+ 79 - 79
locations/mitka.qsrc

@@ -163,6 +163,22 @@ if $ARGS[0] = 'sex_chat':
 				end
 			end
 		end
+		gs 'willpower', 'bj', 'resist'
+		if will_cost <= pcs_willpwr:
+			act 'No thanks (<<will_cost>> Willpower)':
+				cla
+				npc_rel['A63'] -= 1
+				gs 'willpower', 'bj', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				
+				*nl
+				'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
+				act 'Walk away':gt $loc
+			end
+		else
+			act 'No thanks. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 		act 'Sounds tempting, but only a blowjob.':
 			*clr & cla
 			
@@ -214,22 +230,6 @@ if $ARGS[0] = 'sex_chat':
 				act 'Leave': gt $loc
 			end
 		end
-		gs 'willpower', 'bj', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'No thanks (<<will_cost>> Willpower)':
-				cla
-				npc_rel['A63'] -= 1
-				gs 'willpower', 'bj', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'stat'
-				
-				*nl
-				'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-				act 'Walk away':gt $loc
-			end
-		else
-			act 'No thanks. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
 	! Sveta is not the boys slut but has had sex with Mitka and she does not know Mira likes Mitka or Mira is the boys slut
 	elseif (npc_QW['A63'] > 0 and npc_QW['A63'] < 10) and (npc_QW['A60'] < 2 or npc_QW['A60'] >= 11):
 		*nl
@@ -237,6 +237,42 @@ if $ARGS[0] = 'sex_chat':
 		mitkarand = rand(1,10)
 		if (mitkarand = 1 or (mitkarand < 5 and pcs_vag > 0)) and mesec = 0:
 			'"How about you let me fuck you today?" Mitka asks.'
+			if pcs_vag = 0: 
+				gs 'willpower', 'sex', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'No, I''m still a virgin. (<<will_cost>> Willpower)':
+						cla
+						npc_rel['A63'] -= 2
+						gs 'willpower', 'sex', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						
+						*nl
+						'You tell Mitka you are not ready to lose your virginity yet. You know it would be fun, but maybe another time...'
+						
+						act 'Leave': gt $loc
+					end
+				else
+					act 'No, I''m still a virgin. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+			gs 'willpower', 'sex', 'resist'
+			if will_cost <= pcs_willpwr:
+				act 'No thanks, not today. (<<will_cost>> Willpower)':
+					cla
+					npc_rel['A63'] -= 2
+					gs 'willpower', 'sex', 'resist'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					
+					*nl
+					'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
+					
+					act 'Walk away': gt $loc
+				end
+			else
+				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 			act 'Sure, sounds like fun':
 				*clr & cla
 				
@@ -267,31 +303,14 @@ if $ARGS[0] = 'sex_chat':
 				
 				act 'Leave': gt $loc
 			end
-			if pcs_vag = 0: 
-				gs 'willpower', 'sex', 'resist'
-				if will_cost <= pcs_willpwr:
-					act 'No, I''m still a virgin. (<<will_cost>> Willpower)':
-						cla
-						npc_rel['A63'] -= 2
-						gs 'willpower', 'sex', 'resist'
-						gs 'willpower', 'pay', 'resist'
-						gs 'stat'
-						
-						*nl
-						'You tell Mitka you are not ready to lose your virginity yet. You know it would be fun, but maybe another time...'
-						
-						act 'Leave': gt $loc
-					end
-				else
-					act 'No, I''m still a virgin. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end
-			end
-			gs 'willpower', 'sex', 'resist'
+		elseif mitkarand < 9:
+			'Can you give me a blowjob today?" Mitka asks.'
+			gs 'willpower', 'bj', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'No thanks, not today. (<<will_cost>> Willpower)':
 					cla
 					npc_rel['A63'] -= 2
-					gs 'willpower', 'sex', 'resist'
+					gs 'willpower', 'bj', 'resist'
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					
@@ -303,8 +322,6 @@ if $ARGS[0] = 'sex_chat':
 			else
 				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-		elseif mitkarand < 9:
-			'Can you give me a blowjob today?" Mitka asks.'
 			act 'Sure, sounds like fun':
 				*clr & cla
 				
@@ -357,12 +374,33 @@ if $ARGS[0] = 'sex_chat':
 					act 'Leave': gt $loc
 				end
 			end
-			gs 'willpower', 'bj', 'resist'
+		else
+			'"I want to do anal today. What do you think?" Mitka asks.'
+			if pcs_ass = 0:
+				gs 'willpower', 'anal', 'resist'
+				if will_cost <= pcs_willpwr:
+					act 'No, I''ve never done anal before (<<will_cost>> Willpower)':
+						cla
+						npc_rel['A63'] -= 2
+						gs 'willpower', 'anal', 'resist'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						
+						*nl
+						'You tell Mitka you are not ready to lose your anal virginity yet. You know it would be fun, but maybe another time...'
+						
+						act 'Leave': gt $loc
+					end
+				else
+					act 'No, I''ve never done anal before (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+			gs 'willpower', 'anal', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'No thanks, not today. (<<will_cost>> Willpower)':
 					cla
 					npc_rel['A63'] -= 2
-					gs 'willpower', 'bj', 'resist'
+					gs 'willpower', 'anal', 'resist'
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					
@@ -374,8 +412,6 @@ if $ARGS[0] = 'sex_chat':
 			else
 				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-		else
-			'"I want to do anal today. What do you think?" Mitka asks.'
 			act 'Sure, sounds like fun':
 				*clr & cla
 				
@@ -407,42 +443,6 @@ if $ARGS[0] = 'sex_chat':
 				
 				act 'Leave':gt 'gadukino'
 			end
-			if pcs_ass = 0:
-				gs 'willpower', 'anal', 'resist'
-				if will_cost <= pcs_willpwr:
-					act 'No, I''ve never done anal before (<<will_cost>> Willpower)':
-						cla
-						npc_rel['A63'] -= 2
-						gs 'willpower', 'anal', 'resist'
-						gs 'willpower', 'pay', 'resist'
-						gs 'stat'
-						
-						*nl
-						'You tell Mitka you are not ready to lose your anal virginity yet. You know it would be fun, but maybe another time...'
-						
-						act 'Leave': gt $loc
-					end
-				else
-					act 'No, I''ve never done anal before (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end
-			end
-			gs 'willpower', 'anal', 'resist'
-			if will_cost <= pcs_willpwr:
-				act 'No thanks, not today. (<<will_cost>> Willpower)':
-					cla
-					npc_rel['A63'] -= 2
-					gs 'willpower', 'anal', 'resist'
-					gs 'willpower', 'pay', 'resist'
-					gs 'stat'
-					
-					*nl
-					'You turn around and walk away from Mitka. You know it would be fun, but maybe another time...'
-					
-					act 'Walk away': gt $loc
-				end
-			else
-				act 'No thanks, not today. (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-			end
 		end
 	! Sveta is not the boys slut and Sveta knows Mira likes Mitka and Mira is not the boys slut yet
 	elseif npc_QW['A63'] > 0 and npc_QW['A63'] < 11 and npc_QW['A60'] >= 2 and npc_QW['A60'] < 11: