Browse Source

[merged] most the text of sovietmercader's gadukino changes.
[fixed] broken act in swamphouse
[fixed] excessive arousal calls in gadriver

*note menu_off = 0 should be at $loc $metka (destination), not upon exit of curloc. Essentially, anywhere there is a $loc and $metka assigned, there should be a menu_off = 0/1, as to prevent duplicates.

3xpurt 5 years ago
parent
commit
947524d889

+ 3 - 6
locations/Gaddvor.qsrc

@@ -58,7 +58,7 @@ if $ARGS[0]='':
 		act 'Enter your grandparents'' house':minut += 1 & gt 'Gadhouse'
 		act 'Enter the banya':minut += 1 & gt 'Gadbana'
 	end
-	
+
 	if $clothingworntype = 'nude':
 		*nl
 		'You are naked and can only go into your grandparent''s house to get dressed or go to the banya.'
@@ -72,13 +72,12 @@ if $ARGS[0]='':
 		if meadow > 0 and hour >= 6 and hour < 20 and month >= 4 and month <= 10:act 'Go to the meadow':minut += 20 & gt 'Meadow', 'start'
 		act '<b>Go to Gadukino</b>':minut += 5 & gt 'gadukino'
 
-		!removed from 1.2.5
 		if hour >= 17 and hour < 20:
 			if mitkaday!daystart:'<a href="exec:gt ''mitka''">Mitka</a> is hanging out near the barn in your grandparents'' backyard, he is following you while taking a smoke.'
 		elseif hour >= 20 and sunWeather = 1:
 			'Several <a href="exec:gt ''mitkabuh''">young men</a> are sitting near your grandparents'' backyard, drinking moonshine and talking loudly.'
 		end
-		!125s
+
 		mira_temp = rand(1,5)
 		if mira_temp = 3 and hour >= 9 and hour <= 19 and npc_rel['A60'] >= 15 and Mira_no = 0 and sunWeather = 1 and mira_guestday ! daystart and (npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
 			*clr & cla
@@ -95,9 +94,8 @@ if $ARGS[0]='':
 	end
 end
 
-if $ARGS[0]='chickens':
+if $ARGS[0] = 'chickens':
 	*clr & cla
-	menu_off = 0
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/chickens1.jpg"></center>'
 	'Ordinary chickens clucking about their pen.'
 	minut += 1
@@ -120,7 +118,6 @@ if $ARGS[0]='chickens':
 	end
 	act 'Leave': gt'Gaddvor'
 end
-!!125e
 
 --- Gaddvor ---------------------------------
 

+ 6 - 6
locations/Gadsarai.qsrc

@@ -515,7 +515,7 @@ if $ARGS[0] = 'cow':
 			if cow_field = 1:'You lead Dawn to the field, where you let the shepherds take over.'
 			if graze_cow = 1:'You lead Dawn to the field, where you grandfather awaits you. It''s his turn to keep an eye on the cows.'
 
-			act 'Further':gt'gadfield','cow'
+			act 'Continue':gt'gadfield','cow'
 		end
 	end
 
@@ -561,7 +561,7 @@ if $ARGS[0] = 'horse':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
 			'You took Desperado by the bridle and led it to the field. There, you let it run free in the paddock area, and went on with your business.'
 
-			act 'Further':gt'gadfield','field'
+			act 'Continue':gt'gadfield','field'
 		end
 	end
 	if horse_river = 1 and sunWeather = 1 and temper >= 15:
@@ -576,7 +576,7 @@ if $ARGS[0] = 'horse':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/horse_field.jpg"></center>'
 			'You took Desperado by the bridle and led it to the river.'
 
-			act 'Further':gt'Gadriver', 'Gadbitch'
+			act 'Continue':gt'gadriver', 'gadbitch'
 		end
 	end
 	if comb_horse = 1:
@@ -592,7 +592,7 @@ if $ARGS[0] = 'horse':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/comb_horse.jpg"></center>'
 			'You groom Desperado for an hour. When finished, you''re satisfied with the result. Desperado is looking as healthy as ever.'
 
-			act 'Further':gt 'Gadsarai','horse'
+			act 'Continue':gt 'Gadsarai','horse'
 		end
 	end
 
@@ -620,7 +620,7 @@ if $ARGS[0] = 'mira_dog':
 		'"Okay Mira, I''m feeling mercyfull today. You can consider yourself forgiven." you say, removing Mira''s collar.'
 		'The girl looks nervously at you for a few moments, then quickly gets dressed and runs home.'
 
-		act 'Further':gt'Gadsarai'
+		act 'Continue':gt'Gadsarai'
 	end
 	act 'Go':gt'Gadsarai'
 end
@@ -635,7 +635,7 @@ if know_no_bandit = 0:
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/know_no_pirat.jpg"></center>'
 	'"Where''s Bandit? The bastard probably ran away, you sadly thought, looking at an empty dog house, remembering the beloved dog fondly.'
-	act 'Further':gt $loc, $metka
+	act 'Continue':gt $loc, $metka
 end
 }
 !125e

+ 38 - 26
locations/Meadow.qsrc

@@ -1,17 +1,29 @@
 # Meadow
+
 if $ARGS[0] = 'start' or $ARGS[0] = '':
-	$location_type = 'secluded'
-	$metka = 'start'
 	$loc = 'Meadow'
+	$metka = 'start'
+	$location_type = 'secluded'
+
+	$menu_loc = 'Meadow'
+	$menu_arg = 'start'
+	menu_off = 0
 
 	gs 'stat'
 
-!MiraLoc = 0 (Mira at home)
-!MiraLoc = 1 (Mira at river)
-!MiraLoc = 2 (Mira at meadow)
-!MiraLoc = 3 (Mira at forest)
-!MiraLoc = 4 (Mira at field)
-!MiraLoc = 5 (Mira with gop)
+	!MiraLoc = 0 (Mira at home)
+	!MiraLoc = 1 (Mira at river)
+	!MiraLoc = 2 (Mira at meadow)
+	!MiraLoc = 3 (Mira at forest)
+	!MiraLoc = 4 (Mira at field)
+	!MiraLoc = 5 (Mira with gop)
+
+	!meadow = 1 'You have found the meadow'
+	!meadow = 2 'Your first visit with Mira'
+	!meadow = 3 'You allowed Mira to come here without you'
+	!meadow = 4 'You have denied Mira from coming here without you. Blocks wish and father events.'
+	!meadow = 5 'You are interested in Mira''s father'
+	!meadow = 6 'You have seduced Mira''s father, now its her turn'
 
 	'<center><H4>Meadow</H4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow1_<<rand(0,5)>>.jpg"></center>'
@@ -78,18 +90,12 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	act 'Leave':minut += 20 & MiraLoc = 0 & gt 'Gaddvor'
 end
 
-	!meadow = 1 'You have found the meadow'
-	!meadow = 2 'Your first visit with Mira'
-	!meadow = 3 'You allowed Mira to come here without you'
-	!meadow = 4 'You have denied Mira from coming here without you. Kills wish and father events.'
-	!meadow = 5 'You are interested in Mira''s father'
-	!meadow = 6 'You have seduced Mira''s father, now its her turn'
-
 if $ARGS[0] = 'Mira':
 	minut += 2
 	gs 'stat'
+	! first time here with Mira
 	if meadow = 2:
-	gs 'Miroslava', 'miraclothes'
+		gs 'Miroslava', 'miraclothes'
 		'"Wow! This place is awesome. My family and I have only been in the village a few months, but I have never heard anyone ever talk about this place." Mira tells you. "Now I know where I can come to, when I want to be alone. You don''t mind, do you?"'
 		act 'You allow her to come here on her own':
 			*clr & cla
@@ -116,6 +122,7 @@ if $ARGS[0] = 'Mira':
 				minut += 2
 				pcs_horny += 40
 				gs 'stat'
+
 				if npc_QW['A60'] = 0:
 					'<center><img <<$set_imgh>> src="images/characters/village/mira/mira.jpg"></center>'
 				else
@@ -142,14 +149,14 @@ if $ARGS[0] = 'Mira':
 					'Mira immediately sits on the grass and waits until you get undressed. Holding out your hand, you throw caution to the winds and push your panties aside, revealing your already dripping snatch...'
 					gs 'arousal', 'foreplay', 5, 'lesbian'
 					gs 'stat'
-					act 'Further':
+					act 'Continue':
 						*clr & cla
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick1.jpg"></center>'
 						'You enjoy, Mira''s gentle touch between your legs. She teases you by gently touching your clit...'
 						gs 'arousal', 'vaginal_finger', 5, 'lesbian'
 						gs 'stat'
-						act 'Further':
+						act 'Continue':
 							*clr & cla
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick2.jpg"></center>'
@@ -162,7 +169,7 @@ if $ARGS[0] = 'Mira':
 						end
 					end
 				else
-					act 'Further':
+					act 'Continue':
 						*clr & cla
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/miralick2.jpg"></center>'
@@ -521,6 +528,9 @@ if $ARGS[0] = 'miraperversion11':
 	pcs_horny += 10
 	npc_QW['A60'] = 12
 	gs 'stat'
+
+	gs 'Miroslava', 'miraclothes'
+
 	'You don''t know where to begin, so you stay silent just staring at Mira. Mira at the same time is looking at her feet and blushing hard.'
 	'Finally you gather your wits and ask what happened last night? Mira, still not looking you in the eye, stammers out that she doesn''t know why she did it. She says that she was out of control.'
 	'But you were also drunk, and did not do what she did. Her face sinks with shame and she continues to look at the ground.'
@@ -537,8 +547,8 @@ if $ARGS[0] = 'lesb_mira':
 	'You continue, "Mira, I want you," you whispered in her ear and kissed her passionately on the lips.'
 	gs 'arousal', 'kiss_give', 5, 'lesbian'
 	gs 'stat'
-	if mirahorny < 20:act 'Further':gt 'mirasex','mirakiss'
-	if mirahorny >= 20:act 'Further':gt 'mirasex','foreplay'
+	if mirahorny < 20:act 'Continue':gt 'mirasex','mirakiss'
+	if mirahorny >= 20:act 'Continue':gt 'mirasex','foreplay'
 end
 
 if $ARGS[0] = 'mira_lesb':
@@ -563,7 +573,7 @@ if $ARGS[0] = 'mira_lesb':
 			'"- You`re mean, " she sulked at you in response.'
 			gs 'arousal', 'end'
 			gs 'stat'
-			act 'Further':gt $loc, $metka
+			act 'Continue':gt $loc, $metka
 		end
 	end
 end
@@ -637,7 +647,7 @@ if $ARGS[0] = 'mira_lesb_talk1':
 	'" - Well, yeah so?"'
 	'" - I was thinking you served all the boys and forgot about your best friend." Mira said looking you in the eye.'
 	if lesbian = 0:
-		'" - So you''re not a guy. Do you want to do that?," - you.say surprised'
+		'" - So you''re not a guy. Do you want to do that?," - you say surprised'
 		'" - Everyone knows girls know the best ways to pleasure girls," she answered you.'
 	else
 		'You already guessed where she was going with this, but still hesitated.'
@@ -682,7 +692,8 @@ if $ARGS[0] = 'mira_lesb_talk2':
 	mirahorny = rand(0,80)
 	gs 'stat'
 
-	'Mira walks up toyou with a malicious smile on her face.'
+	'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_lesb_talk2.jpg"></center>'
+	'Mira walks up to you with a malicious smile on her face.'
 	' - Well, <<$pcs_nickname>>, congratulations, she said. - You are now the same whore as me. All the boys fucked you too.'
 	'You tried to keep silent, but she is not satisfied.'
 	' - So did they or did they not?, - she insists on an answer.'
@@ -722,6 +733,7 @@ if $ARGS[0] = 'mira_lesb_talk4':
 	mirahorny = rand(40,80)
 	miraday = daystart
 	gs 'stat'
+
 	gs 'Miroslava', 'miraclothes'
 
 	'Walking through the village you meet Mira. Seeing you, she immediately came up to you with an excited face.'
@@ -740,7 +752,7 @@ if $ARGS[0] = 'mirameadow':
 		*clr & cla
 		minut += 2
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/mirameadowmastr.jpg"></center>'
-		'You are about to approach her, but stop as she undoes her pants. You decide to watch to what she does...'
+		'You were about to approach her, but stop as she undoes her pants. You decide to watch to what she does...'
 		act 'Watch':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/characters/village/mira/mirameadowmastr1.jpg"></center>'
@@ -778,7 +790,7 @@ if $ARGS[0] = 'mirameadow':
 								gs 'arousal', 'voyeur', 10, 'lesbian'
 								gs 'arousal', 'end'
 								gs 'stat'
-								act 'Leave':minut += 30 & gt'Gaddvor'
+								act 'Leave':minut += 20 & gt 'gadukino'
 							end
 						end
 					end

+ 13 - 8
locations/Miroslava.qsrc

@@ -1,14 +1,19 @@
 # Miroslava
 
 if $ARGS[0] = 'Start' or $ARGS[0] = '':
-	$metka = 'Start'
 	$loc = 'Miroslava'
+	$metka = $ARGS[0]
+
+	$menu_loc = 'Miroslava'
+	$menu_arg = $ARGS[0]
+	menu_off = 0
+
 	gs 'boyStat', 'A60'
 	girlage = age
 	temp = RAND(0,20)
 	mira_temp = rand(0,20)
 
-	!MiaLoc tells us where Mira is Located
+	!MiraLoc tells us where Mira is Located
 	!----------------------------------------------
 	!MiraLoc = 0 (Mira at home)
 	!MiraLoc = 1 (Mira at river)
@@ -259,7 +264,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 		end
 
 		if npc_rel['A60'] >= 15 and hour >= 20 and npc_QW['A60'] = 0 and sunWeather = 1 and MiraLoc ! 3:
-			act 'Ask if she has met the local boys?':
+			act 'Ask if she''s met the local boys?':
 				*clr & cla
 				minut += 2
 				npc_rel['A60'] += 1
@@ -278,7 +283,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 		end
 
 		if npc_rel['A60'] >= 16 and hour >= 20 and npc_QW['A60'] > 0 and sunWeather = 1 and MiraLoc ! 3:
-			act 'Suggest catching up with the local guys and having a drink or three':
+			act 'Drink with the local guys':
 				if Mira_no = 0:
 					*clr & cla
 					minut += 5
@@ -312,7 +317,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 		end
 
 		if npc_rel['A60'] >= 20 and week >= 6 and hour > 18 and hour < 22:
-			act 'Suggest taking a steam bath in your grandparents sauna':
+			act 'Inite for a steam bath':
 				if Mira_no = 0:
 					if npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1:
 						*clr & cla
@@ -372,7 +377,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 						gs 'Miroslava', 'miraclothes'
 						'You suggest going to the river to swim or sunbathe, Mira readily agrees.'
 
-						act 'Go to the river':gt 'Gadriver', 'Gadbitch'
+						act 'Go to the river':gt 'gadriver', 'gadbitch'
 					else
 						MiraLoc = 0
 						minut += 5
@@ -482,7 +487,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 
 		if npc_rel['A60'] >= 15 and MiraLoc ! 3 and (npc_QW['A63'] < 13 or npc_QW['A60'] >= 10 or mirasex > 1):
 			if mira_guest = 0:
-				act 'Invite Mira back to your grandparent''s house':
+				act 'Invite to your grandparent''s':
 					*clr & cla
 					minut += 5
 					mira_guest = 1
@@ -742,7 +747,7 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 					'<center><img <<$set_imgh>> src="images/characters/village/mira/girls_go.jpg"></center>'
 					'You decided to go with Mira to the village beach and all the way she goes, merrily chattering and telling stories.'
 
-					act 'Continue': gt'Gadriver', 'Gadbitch'
+					act 'Continue': gt'gadriver', 'gadbitch'
 				end
 
 				act'Refuse':

+ 18 - 12
locations/MiroslavaHome.qsrc

@@ -1,17 +1,23 @@
 # MiroslavaHome
 
 if $ARGS[0] = 'start':
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+	$loc = 'MiroslavaHome'
+	$metka = 'start'
 	$location_type = 'public_outdoors'
+
+	$menu_loc = 'MiroslavaHome'
+	$menu_arg = 'start'
+	menu_off = 0
+
 	*clr & cla
 	minut += 5
 	mira_temp = rand(0,15)
 	gs 'stat'
+
 	'<center><h2>Gadukino Village</h2></center>'
 	'<center><b>Mira''s Yard</b></center>'
 
-	!!MiaLoc tells us where Mira is Located
+	!!MiraLoc tells us where Mira is Located
 	!!----------------------------------------------
 	!!MiraLoc = 0 (Mira at home)
 	!!MiraLoc = 1 (Mira at river)
@@ -22,7 +28,7 @@ if $ARGS[0] = 'start':
 	!!---------------------------------------------
 
 	act 'Leave': gt 'gadukino'
-	
+
 	if hour >= 8 and hour <= 22:
 		if Mira_no > 0 and mirafathertalk = 0 and miraday ! daystart:
 			*clr & cla
@@ -41,14 +47,14 @@ if $ARGS[0] = 'start':
 			mirafathertalk = 1
 			gs'stat'
 
-			act 'Further':gt 'miroslavahome', 'start'
+			act 'Continue':gt 'miroslavahome', 'start'
 		elseif temper >= 15 and sunWeather = 1 and npc_QW['A60'] = 7 and hour >= 8 and hour <= 18:
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/characters/village/mira/miraqw7.jpg"></center>'
 			'Entering the courtyard, you notice Mira, working in the garden. She is bent over and, to your amazement, you see her bare naked crotch...'
 			MiraLoc = 0
 
-			act 'Approach it':
+			act 'You approach slowly':
 				*clr & cla
 				gs 'Miroslava', 'miraclothes'
 				'You quietly sneak up to her, but she notices you and turns around, immediately blushing rapidly. You a couple seconds of silently staring at her, and then unceremoniously asked why she without panties. Miroslav took the eye, with rumpled feet and legs, explaining that it turned out very hot, so she... You remind her about the second wish and ask to sit down. Miroslav reluctantly agrees, and when he sits down, you tell her, she`ll show you the crotch, you bad considered. The girl mumbles something unintelligible, but then for half a minute lifts up her skirt and gives you a good look at my crotch.'
@@ -64,10 +70,10 @@ if $ARGS[0] = 'start':
 					minut += 15
 					gs 'stat'
 
-					act 'Go out on the road':
+					act 'Lead her to the road':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/characters/village/mira/mirawish2_1.jpg"></center>'
-						'Out on the road you say, "Mira, pose as a prostitute, this will be the second wish." Mira sadly nods her head, looks around and seeing that the street was quiet, fulfills your desire...'
+						'You lead her out to the main road. You tell Mira, that she is to pose as a prostitute and attempt to get a customer or two. This is your second wish. You want Mira to become a prostitute and fulfill the desires of anyone who asks for her services. Mira looks shocked but nods that she will do it, Mira looks around the area and seeing no one else watching begins to pose by the roadside for passing cars...'
 						minut += 15
 						npc_QW['A60'] = 8
 						gs 'stat'
@@ -111,7 +117,7 @@ if $ARGS[0] = 'start':
 					act 'Leave': gt 'gadukino'
 				end
 			end
-!!125s
+
 			act 'Ask for Mira':
 				if mira_temp >= 10 and sunWeather = 1 and temper >= 15 and hour < 20 and Mira_no = 0:
 					*clr & cla
@@ -141,7 +147,7 @@ if $ARGS[0] = 'start':
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome.jpg"></center>'
-		if hour > 22 or hour < 3: 'It''s late, most of Mira''s family is asleep, no need to them up unnecessarily.' else 'It''s too early, most of Mira''s family is still asleep, no need to wake people up unnecessarily.'
+		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'
 	end
 end
@@ -166,7 +172,7 @@ if $ARGS[0] = 'mirabrother':
 			else
 				'He gazes at you a couple of seconds, and then asks, "Who are you again?"'
 			end
-			
+
 			act 'Walk away': gt 'MiroslavaHome', 'start'
 		else
 			if $pantyworntype ! 'none':
@@ -259,7 +265,7 @@ if $ARGS[0] = 'mirabrother':
 
 												'<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...'
-												
+
 												act 'Suck':
 													*clr & cla
 													pcs_horny += RAND(10,20)

+ 103 - 44
locations/gadfield.qsrc

@@ -1,10 +1,24 @@
 # gadfield
 
-$metka = $ARGS[0]
-$loc = 'gadfield'
+!MiraLoc tells us where Mira is Located
+!----------------------------------------------
+!MiraLoc = 0 (Mira at home)
+!MiraLoc = 1 (Mira at river)
+!MiraLoc = 2 (Mira at meadow)
+!MiraLoc = 3 (Mira at forest)
+!MiraLoc = 4 (Mira at field)
+!MiraLoc = 5 (Mira with gop)
+!---------------------------------------------
 
 if $ARGS[0] = 'field':
+	$loc = 'gadfield'
+	$metka = 'field'
 	$location_type = 'secluded'
+
+	$menu_loc = 'gadfield'
+	$menu_arg = 'field'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
 	gs'stat'
 
@@ -24,8 +38,8 @@ if $ARGS[0] = 'field':
 		end
 	end
 
-	
 	'A field outside the village.'
+
 	if hour >= 9 and hour <= 19 and week < 6:'Grandfather''s horse <a href="exec: gt ''gadfield'',''horse''">Desperado</a> is grazing the field.'
 	if hour >= 9 and hour <= 19 and graze_cow = 0:'You see <a href="exec: gt ''gadfield'',''cow''">a herd of cows</a> in the middle of the field.'
 	if hour >= 6 and hour <= 20 and graze_cow = 1:'You notice <a href="exec: gt ''gadfield'',''cow''">a herd of cows</a>.'
@@ -33,12 +47,13 @@ if $ARGS[0] = 'field':
 
 	if hour >= 7 and hour <= 20 and haying_time = 1:
 		act 'Go to the hayfield':
-			gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
+			gs 'food', 'm_meal'
 			*clr & cla
+
 			if npc_rel['A60'] >= 15:
 				npc_rel['A60'] += 1
 				'<center><img <<$set_imgh>> src="images/characters/village/mira/haying_time_mira.jpg"></center>'
-				'Most of the village has shown up to help out with the hay. You and Mira also partake in the activities. You are really enjoying yourself, especially considering you spending time, sitting on the fresh cut hay, talking to Mira.'
+				'Most of the village has shown up to help out with the hay. You and Mira also partake in the activities. You are really enjoying yourself, especially considering you''re spending time, sitting on the fresh cut hay, talking to Mira.'
 			else
 				fat -= 5
 				stren_exp += 1
@@ -48,20 +63,29 @@ if $ARGS[0] = 'field':
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/haying_time.jpg"></center>'
 				'Almost all of the villagers have shown up to help out with the fresh cut hay. You decide to join them.'
 			end
+
 			minut += 360
 			grandmahelp += 1
 			haying_time = 0
-			hndiwrk_exp += rand(0,2) 
+			hndiwrk_exp += rand(0,2)
 			gs 'stat'
 
-			act 'Further':gt'gadfield','field'
+			act 'Continue':gt'gadfield','field'
 		end
 	end
 
-	act 'Go back to the road':minut += 10 & gt'gadroad'
+	act 'Back to the road':minut += 10 & gt'gadroad'
 end
 
 if $ARGS[0] = 'horse':
+	$loc = 'gadfield'
+	$metka = 'horse'
+	$location_type = 'public_outdoors'
+
+	$menu_loc = 'gadfield'
+	$menu_arg = 'horse'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
 	gs'stat'
 
@@ -75,19 +99,27 @@ if $ARGS[0] = 'horse':
 			'You spot your grandfather''s horse wandering loose in the field and decide to help out by taking Desperado home. Reaching for the bridle, you start leading Desperado towards the village.'
 			minut += 60
 			grandmahelp += rand(0,1)
-			hndiwrk_exp += rand(0,3) 
+			hndiwrk_exp += rand(0,3)
 			gs 'stat'
 
-			act 'Go back to your grandparent''s barn':gt'Gadsarai'
+			act 'To your grandparent''s barn':gt'Gadsarai'
 		end
 	end
-	act 'Back':gt'gadfield','field'
+	act 'To the field':gt'gadfield','field'
 end
 
 if $ARGS[0] = 'cow':
+	$loc = 'gadfield'
+	$metka = 'cow'
+	$location_type = 'secluded'
+
+	$menu_loc = 'gadfield'
+	$menu_arg = 'cow'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
-	temp = rand(1,5)
 	gs'stat'
+	temp = rand(1,5)
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow.jpg"></center>'
 	'The cow herd is standing in the middle of the field.'
@@ -100,10 +132,10 @@ if $ARGS[0] = 'cow':
 			'Seeing the cow herd on the field, you decide to help your grandfather bring the cows home...'
 			minut += 60
 			grandmahelp += rand(0,1)
-			hndiwrk_exp += rand(0,3) 
+			hndiwrk_exp += rand(0,3)
 			gs 'stat'
 
-			act 'Go back to your grandparent''s barn':gt'Gadsarai'
+			act 'To your grandparent''s barn':gt'Gadsarai'
 		end
 	end
 	if graze_cow = 1:
@@ -113,12 +145,13 @@ if $ARGS[0] = 'cow':
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_wait.jpg"></center>'
 				if graze_cow_exp = 0:'Some time flies by while waiting for the locals to finish their gathering.'
 				if graze_cow_exp = 1:'Some time flies by while waiting for the locals and their children to finish their gathering.'
+
 				if hour >= 9:minut += 20
 				if hour < 9:minut += 60
-				hndiwrk_exp += rand(0,4) 
+				hndiwrk_exp += rand(0,4)
 				gs 'stat'
 
-				act 'Further':gt'gadfield','cow'
+				act 'Continue':gt'gadfield','cow'
 			end
 		end
 		if hour >= 10 and hour < 13:
@@ -126,20 +159,23 @@ if $ARGS[0] = 'cow':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow'+rand(1,4)+'.jpg"></center>'
 				'You manage to herd all the cows within the hour. Instead of letting your grandfather do all the work, you roll up the sleeves and do most of the work.'
+
 				minut += 60
 				if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 				graze_cow_exp = 1
 				grandmahelp += 1
-				hndiwrk_exp += rand(0,3) 
+				hndiwrk_exp += rand(0,3)
 				gs 'stat'
 
-				act 'Further':gt'gadfield','cow'
+				act 'Continue':gt'gadfield','cow'
 			end
+
 			if mira = 0:
 				act 'Take a run on the field (1:00)':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_run.jpg"></center>'
 					'Since you have nothing to do, you run intervals across the field for an hour.'
+
 					frost = 0
 					minut += 60
 					fat -= 5
@@ -149,7 +185,7 @@ if $ARGS[0] = 'cow':
 					if temper >= 25 and sunWeather = 1:pcs_hydra -= 24
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow'
+					act 'Continue':gt'gadfield','cow'
 				end
 			end
 			if temper >= 15 and sunWeather = 1 and mira = 0:
@@ -163,20 +199,21 @@ if $ARGS[0] = 'cow':
 					pcs_sweat += 10
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow'
+					act 'Continue':gt'gadfield','cow'
 				end
 				if pcs_sleep < 40:
 					act 'Take a nap (1:00)':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_lying.jpg"></center>'
 						'You lie down on the grass and doze off for an hour.'
+
 						minut += 60
 						pcs_mood += 10
 						pcs_sleep+= 9
 						if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 						gs 'stat'
 
-						act 'Further':gt'gadfield','cow'
+						act 'Continue':gt'gadfield','cow'
 					end
 				end
 				act 'Pick flowers (1:00)':
@@ -188,7 +225,7 @@ if $ARGS[0] = 'cow':
 					if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow'
+					act 'Continue':gt'gadfield','cow'
 				end
 				act 'Read a book (1:00)':
 					*clr & cla
@@ -219,13 +256,14 @@ if $ARGS[0] = 'cow':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go.jpg"></center>'
 			'Looking at his watch, grandpa turns to you and says "The time is around lunchtime so it''s time to take the herd to the watering hole." You begin to gather the cows and lead them to the river.'
+
 			if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 			grandmahelp += 1
 			minut += 60
-			hndiwrk_exp += rand(0,3) 
+			hndiwrk_exp += rand(0,3)
 			gs 'stat'
 
-			act 'Further':gt'gadfield','cow2'
+			act 'Herd the cows to the river':gt'gadfield','cow2'
 		end
 	end
 	if graze_cow = 0:act 'Back':gt'gadfield','field'
@@ -251,18 +289,28 @@ if graze_cow = 1 and npc_rel['A60'] >= 15 and mira = 0 and sunWeather = 1 and ho
 	mira = 1
 	gs 'stat'
 
-	act 'Further':pcs_hydra +=40 & gt'gadfield','cow'
+	act 'Continue':pcs_hydra +=40 & gt'gadfield','cow'
 end
 
 if $ARGS[0] = 'cow2':
+	$loc = 'gadfield'
+	$metka = 'cow2'
+	$location_type = 'secluded'
+
+	$menu_loc = 'gadfield'
+	$menu_arg = 'cow2'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
 	gs'stat'
 
 	'<center><H4>River</H4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_river.jpg"></center>'
+
 	'The cow herd is standing by the river.'
-	if mira = 1: MiraLoc = 42 & 'S<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
-	if temper >= 15 and sunWeather = 1:'- "You can go for a swim while there is time, <<$pcs_nickname>>. I`ll keep an eye on the herd," said you grandpa.'
+
+	if mira = 1: MiraLoc = 42 & '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
+	if temper >= 15 and sunWeather = 1:'- "You can go for a swim while there is time, <<$pcs_nickname>>. I`ll keep an eye on the herd," said your grandfather.'
 
 	if graze_cow = 1:
 		if hour < 16:
@@ -274,10 +322,10 @@ if $ARGS[0] = 'cow2':
 				if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 				grandmahelp += 1
 				graze_cow_exp = 1
-				hndiwrk_exp += rand(0,3) 
+				hndiwrk_exp += rand(0,3)
 				gs 'stat'
 
-				act 'Further':gt'gadfield','cow2'
+				act 'Continue':gt'gadfield','cow2'
 			end
 			if temper >= 15 and sunWeather = 1 and mira = 0:
 				act 'Swim (0:15)':
@@ -292,7 +340,7 @@ if $ARGS[0] = 'cow2':
 					if pcs_stren < 30:stren_exp += 1
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow2'
+					act 'Continue':gt'gadfield','cow2'
 				end
 				act 'Tan (0:30)':
 					*clr & cla
@@ -304,7 +352,7 @@ if $ARGS[0] = 'cow2':
 					pcs_tan += 1
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow2'
+					act 'Continue':gt'gadfield','cow2'
 				end
 				act 'Read a book (1:00)':
 					*clr & cla
@@ -338,22 +386,31 @@ if $ARGS[0] = 'cow2':
 			grandmahelp += 1
 			if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 			minut += 60
-			hndiwrk_exp += rand(0,3) 
+			hndiwrk_exp += rand(0,3)
 			gs 'stat'
 
-			act 'Further':gt'gadfield','cow3'
+			act 'Herd the cows to the forest':gt'gadfield','cow3'
 		end
 	end
 end
 
-
 if $ARGS[0] = 'cow3':
+	$loc = 'gadfield'
+	$metka = 'cow3'
+	$location_type = 'secluded'
+
+	$menu_loc = 'gadfield'
+	$menu_arg = 'cow3'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
 	gs'stat'
 
 	'<center><H4>Field near the forest</H4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_forest.jpg"></center>'
+
 	'The cow herd is standing on a field near the forest.'
+
 	if mira = 1: MiraLoc = 43 & '<a href="exec: gt ''Miroslava'', ''Start''">Mira</a> is sitting next to you.'
 
 	if graze_cow = 1:
@@ -366,10 +423,10 @@ if $ARGS[0] = 'cow3':
 				if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 				grandmahelp += 1
 				graze_cow_exp = 1
-				hndiwrk_exp += rand(0,3) 
+				hndiwrk_exp += rand(0,3)
 				gs 'stat'
 
-				act 'Further':gt'gadfield','cow3'
+				act 'Continue':gt'gadfield','cow3'
 			end
 			if mira = 0:
 				act 'Take a run (1:00)':
@@ -385,7 +442,7 @@ if $ARGS[0] = 'cow3':
 					if temper >= 25 and sunWeather = 1:pcs_hydra -= 24
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow3'
+					act 'Continue':gt'gadfield','cow3'
 				end
 			end
 			if temper >= 15 and sunWeather = 1 and mira = 0:
@@ -398,7 +455,7 @@ if $ARGS[0] = 'cow3':
 					if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow3'
+					act 'Continue':gt'gadfield','cow3'
 				end
 				act 'Tan (1:00)':
 					*clr & cla
@@ -410,10 +467,10 @@ if $ARGS[0] = 'cow3':
 					pcs_sweat += 10
 					gs 'stat'
 
-					act 'Further':gt'gadfield','cow3'
+					act 'Continue':gt'gadfield','cow3'
 				end
 				if pcs_sleep < 40:
-					act 'Take a nap on the grass (1:00)':
+					act 'Nap on the grass (1:00)':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/graze_cow_lying.jpg"></center>'
 						'You lie down on the grass and doze off for an hour.'
@@ -423,7 +480,7 @@ if $ARGS[0] = 'cow3':
 						if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 						gs 'stat'
 
-						act 'Further':gt'gadfield','cow3'
+						act 'Continue':gt'gadfield','cow3'
 					end
 				end
 				act 'Read a book (1:00)':
@@ -453,17 +510,19 @@ if $ARGS[0] = 'cow3':
 		end
 		if hour >= 19:
 			*clr & cla
+
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_home.jpg"></center>'
-			'Looking at his watch, grandpa says that it is late and time to drive the herd home. You hurry up and gather up the cows and rush them towards the village. You are barely keeping up with the herd.'
+			'Looking at his watch, grandpa says that it is late and time to drive the herd home. You hurry and gather up the cows and drive them towards the village.'
+
 			if temper >= 25 and sunWeather = 1:pcs_hydra -= 12
 			minut += 60
 			mira = 0
 			graze_cow = 0
 			grandmahelp += 1
-			hndiwrk_exp += rand(0,3) 
+			hndiwrk_exp += rand(0,3)
 			gs 'stat'
 
-			act 'Go back to the village':gt'gadukino'
+			act 'Back to the village':gt'gadukino'
 		end
 	end
 end

+ 164 - 110
locations/gadforest.qsrc

@@ -1,60 +1,71 @@
 # gadforest
 
+!MiraLoc tells us where Mira is Located
+!----------------------------------------------
+!MiraLoc = 0 (Mira at home)
+!MiraLoc = 1 (Mira at river)
+!MiraLoc = 2 (Mira at meadow)
+!MiraLoc = 3 (Mira at forest)
+!MiraLoc = 4 (Mira at field)
+!MiraLoc = 5 (Mira with gop)
+!---------------------------------------------
+	
 if $ARGS[0] = '1':
+	*clr & cla
+	! figure out if Sveta came from Mira code or not. events play out differently whether with Mira or not
 	PC_arrive = iif($loc ! 'Miroslava', 1 , 0)
-	!out skirt
+
+	! edge of forest
+	$loc = 'gadforest'	
+	$metka = '1'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+	
+	$menu_loc = 'gadforest'
+	$menu_arg = '1'
+	menu_off = 0
+	
 	clothesAtLocation = FUNC('lost_clothes_here',$CURLOC)
 	gs 'gadukino_event', 'sound'
-	*clr & cla
 	gs'stat'
-	!gs'time'
-
-	!MiaLoc tells us where Mira is Located
-	!----------------------------------------------
-	!MiraLoc = 0 (Mira at home)
-	!MiraLoc = 1 (Mira at river)
-	!MiraLoc = 2 (Mira at meadow)
-	!MiraLoc = 3 (Mira at forest)
-	!MiraLoc = 4 (Mira at field)
-	!MiraLoc = 5 (Mira with gop)
-	!---------------------------------------------
-
+	
+	*clr & cla
+	
+	! Add to knowledge of forest
 	if goforest < 20:goforest += rand(0,1)
+	! chance to get lost
 	lost = 1
-	!to determine the continuation of the way if he got lost
-	lostrand = rand(1,30)
-	!the chance to get lost
+	lostrand = rand(1,20)
+	! Determine where Sveta got lost in the forest
 	foresteventrand = rand(1,20)
 	new_boletus = 0
 	new_bilberry = 0
 
-	'<center><H4>Forest</H4></center>'
+	'<center><H4>Edge of the Forest</H4></center>'
 	if month >= 4 and month <= 10:
 		if hour >= 6 and hour < 22:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest1.jpg"></center>'
-			'The edge of the forest. There are a few mushrooms and you can often see mushroom pickers.'
+			'Your are at the edge of the forest. Mushrooms and berries grow here and you can often find other people picking them.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night1.jpg"></center>'
-			'The edge of the forest. Night in the woods is scary and uncomfortable.'
+			'You are at the edge of the forest. Night in the woods is scary and uncomfortable.'
 		end
 	else
 		if hour >= 8 and hour < 18:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter1.jpg"></center>'
-			'The edge of the forest. The forest in the winter is very beautiful.'
+			'You are at the edge of the forest. The forest in winter is very beautiful.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night1.jpg"></center>'
-			'The edge of the forest. Night in the winter forest is very scary and uncomfortable.'
+			'You are at the edge of the forest. Night in the forest during wintertime is very scary and uncomfortable.'
 		end
 	end
+	
 	if forestpicnic = 1:'On the edge of the forest you see people. Apparently they are having a family <a href="exec:gt ''gadforest_event'',''picnic''">picnic</a>.'
-	if MiraLoc = 3:'Near you wandering in the forest is <a href="exec: gt ''Miroslava'' ">Mira</a>.'
-	if clothesAtLocation = 1:'On the ground lay your clothes.'
-	if findvel = 2:'Near the tree is your old <a href="exec:gt ''bicycle'',''forest''">bike</a>.'
-	if goforest < 10:'You don''t know this forest very well, it''s best if you don''t wander too far.'
-
+	if MiraLoc = 3:'Nearby is <a href="exec: gt ''Miroslava'' ">Mira</a>.'
+	if clothesAtLocation = 1:'Your clothes are nearby on the ground.'
+	if findvel = 2:'Leaning up against a tree is your old <a href="exec:gt ''bicycle'',''forest''">bike</a>.'
+	if goforest < 10:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
+	
+	! Sveta arrive without Mira events
 	if PC_arrive = 1:
 		if temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest = 1:gt 'gadforest_event', 'nude_event'
 		if foresteventrand < 3 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 1 & gt'gadforest_event', 'mushroom_pickers1'
@@ -67,32 +78,37 @@ if $ARGS[0] = '1':
 		if foresteventrand = 9 and hour >= 8 and hour <= 15 and month >= 4 and month <= 10 and gadboyday ! daystart and week > 5: gt 'gadforest_event', 'gopforest_3boys'
 	end
 
+	! can only be naked if successfully complete Mira gadforest_event, nude_event
 	if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
 		act'Strip naked':
 			if forestpicnic = 0:
-				inhib_exp += rand(1,3)
 				cla
 				*clr
-				minut+=5
+				if pcs_inhib < 50:inhib_exp += rand(1,3)
+				minut += 5
 				if CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest.jpg"></center>'
 				if CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/nudeforest1.'+rand(1,2)+'.jpg"></center>'
 				gs 'underwear', 'remove'
 				gs 'clothing', 'strip', 'gadforest'
+				gs 'exhibitionism', 3
+				gs 'stat'
+				
 				'You don''t hesitate and quickly get undressed, your clothes are left laying in a pile.'
 
-				act'Back':gt'gadforest','1'
+				act'Continue':gt'gadforest','1'
 			else
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/noundress.jpg"></center>'
-				'You see a number of people you are ashamed of.'
+				'You see a number of people nearby and decide not to undress right now.'
 
-				act'Back':gt'gadforest','1'
+				act'Continue':gt'gadforest','1'
 			end
 		end
 	end
+	
 	if clothesAtLocation = 1 and $clothingworntype = 'nude':
-		act 'Dress':
+		act 'Get dressed':
 			cla
 			*clr
 			minut += 5
@@ -106,13 +122,15 @@ if $ARGS[0] = '1':
 			act 'Back': gt 'gadforest','1'
 		end
 	end
-	!if he had gone from the forest and put in another place
+	
+	! if Sveta left the forest without retrieving her clothes
 	if clothesAtLocation = 1 and $clothingworntype ! 'nude':
 		if $clothingworntype = 'cheap' and clothingwornnumber = 414:
-			act 'Pick up the abandoned clothing':
+			act 'Pick up your abandoned clothing':
 				cla
 				minut += 2
 				gs 'clothing', 'swamp_clothes', 0
+				gs 'underwear', 'wear'
 				gs 'clothing', 'recover_lost_clothes', 'gadforest', 1
 				gs 'stat'
 				*nl
@@ -120,10 +138,11 @@ if $ARGS[0] = '1':
 				act 'Back': gt 'gadforest','1'
 			end
 		else
-			act 'Pick up the abandoned clothing':
+			act 'Pick up your abandoned clothing':
 				cla
 				minut += 5
 				gs 'clothing', 'swamp_clothes', 0
+				gs 'underwear', 'wear'
 				gs 'clothing', 'recover_lost_clothes', 'gadforest'
 				gs 'stat'
 				*nl
@@ -132,8 +151,9 @@ if $ARGS[0] = '1':
 			end
 		end
 	end
+	
 	if hour >= 6 and hour <= 20 and sunWeather = 1:
-		act 'Walking in the woods':
+		act 'Go for a walk in the woods':
 			cla
 			*clr
 			minut += 60
@@ -151,7 +171,7 @@ if $ARGS[0] = '1':
 					if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest1.'+rand(1,3)+'.jpg"></center>'
 					if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_tanga0.'+rand(1,2)+'.jpg"></center>'
 					if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforest_nude0.'+rand(1,4)+'.jpg"></center>'
-					'You are walking through the woods, enjoying the sounds of forest and the fresh air.'
+					'You are walking through the woods, enjoying the sounds of the forest and the fresh air.'
 				else
 					if $clothingworntype ! 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest'+rand(1,3)+'.jpg"></center>'
 					if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforest_nude'+rand(1,3)+'.jpg"></center>'
@@ -160,16 +180,17 @@ if $ARGS[0] = '1':
 			else
 				if MiraLoc ! 3:
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gulforestwinter0.'+rand(1,2)+'.jpg"></center>'
-					'You walk through the winter woods, enjoying the sounds of the forest and the fresh air.'
+					'You walk through the snowy woods, enjoying the sounds of the forest and the fresh air.'
 				else
 					'<center><img <<$set_imgh>> src="images/characters/village/mira/miraforestwinter.jpg"></center>'
-					'You walk with Mira through the winter woods, enjoying the sounds of the forest and the fresh air.'
+					'You walk with Mira through the snowy woods, enjoying the sounds of the forest and the fresh air.'
 				end
 			end
-
+			
 			act 'Continue':gt 'gadforest','1'
 		end
 	end
+	
 	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and edge_forestday ! daystart:
 		act 'Look for mushrooms and berries':
 			cla
@@ -179,7 +200,8 @@ if $ARGS[0] = '1':
 			edge_forestday = daystart
 			if goforest < 20:goforest += rand(0,1)
 			gs 'stat'
-
+			
+			! no mushroom pickers or mushroom pickers moved deeper into the forest
 			if mushroom_pickers = 0 or mushroom_pickers = 2:
 				cla
 				new_boletus += rand(0,1)
@@ -190,9 +212,10 @@ if $ARGS[0] = '1':
 				gs 'stat'
 
 				gs 'gadforest', 'clothes1'
-				if new_boletus = 0 and new_bilberry > 0:'You`re in for hours of wandering through the woods in search of mushrooms or berries and you found <<new_bilberry>> kg of berries.'
-				if new_boletus > 0 and new_bilberry > 0:'You`re in for hours of wandering through the woods in search of mushrooms or berries and you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
+				if new_boletus = 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
+				if new_boletus > 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
 			end
+			! mushroom pickers are at the edge of the forest
 			if mushroom_pickers = 1 and temp_gf = 1:
 				cla
 				new_bilberry += rand(0,1)
@@ -201,8 +224,8 @@ if $ARGS[0] = '1':
 
 				if new_bilberry > 0: gs 'gadforest', 'clothes1'
 				if new_bilberry = 0: gs 'gadforest', 'clothes2'
-				if new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_bilberry>> kg of berries.'
-				if new_bilberry = 0:'You are wandering through the woods in search of mushrooms or berries for half an hour, but you found nothing.'
+				if new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
+				if new_bilberry = 0:'After searching for mushrooms and berries for half an hour you found nothing.'
 			end
 			if mushroom_pickers = 1 and temp_gf = 2:
 				cla
@@ -210,46 +233,52 @@ if $ARGS[0] = '1':
 				gs 'stat'
 
 				gs 'gadforest', 'clothes2'
-				'You are wandering through the woods in search of mushrooms or berries for half an hour, but found nothing.'
+				'After searching for mushrooms and berries for half an hour you found nothing.'
 			end
 			act 'Continue':gt 'gadforest','1'
 		end
  	end
+ 	
 	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and MiraLoc ! 3:
 		act 'Go further into the forest':
 			if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
 			if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
 	 	end
 	end
+	
 	if goswamp = 1 and MiraLoc ! 3:
+		! day time chance to get stuck in swamp. ps. use bike to get there 100% of the time by illume
 		if hour >= 6 and hour < 20:
 			act 'Go to the swamp':
 				minut += 75
-				!random chance to swamp road. It a pity to use it only in lost. ps. use bike to 100% there by illume
 				if goforest >= lostrand:
 					gt 'swamp'
 				else
 					gt 'gadforestswamp','1'
 				end
 			end
+		! night time chased by wolves
 		else
 			act 'Go to the swamp':gt 'gadforest_event', 'swamp_road'
 		end
 	end
-	act 'Out of the woods':
+	
+	act 'Leave the woods':
 		dirtyclothes = 0
 		gs 'clothing', 'swamp_clothes', 0
+		gs 'stat'
 		if $clothingworntype = 'nude':
 			if $CloLosTyp[$CURLOC] = '' or gadforest_clothestorn = 1:
-				!no cloth here, it must be broken. There may be a good exhibi or rape event entry point.
+				! no clothes here, they must be ripped apart enough times in the woods or swamp to get destroyed.
+				! This may be a good exhibition or rape event entry point
 				inhib_exp += rand(0,2)
 				gadforest_clothestorn = 0
-				'You sneak out the woods, hiding your naked body in shadow and moving toward grandparents house.'
-				'You Successfully reach home without witness.'
+				'You sneak out the woods, hiding your naked body in the shadows and moving toward grandparents house.'
+				'You successfully reach home without anyone noticing.'
 				cla
-				act 'Continue':gt'Gadhouse'
+				act 'Go home':gt'Gadhouse'
 			else
-				'<B>You should dress before leave</B>'
+				'<B>You should get dressed before leaving the woods.</B>'
 			end
 		else
 			minut += 30 & gt'gadroad'
@@ -260,48 +289,55 @@ if $ARGS[0] = '1':
 end
 
 if $ARGS[0] = '2':
+	*clr & cla
+	! slightly inside forest
+	$loc = 'gadforest'	
+	$metka = '2'
 	$location_type = 'secluded'
-	!inside
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+	
+	$menu_loc = 'gadforest'
+	$menu_arg = '2'
+	menu_off = 0
+	
 	gs 'gadukino_event', 'sound'
-	*clr & cla
 	gs'stat'
-	!gs'time'
+	
+	! Add to knowledge of forest
 	if goforest < 40:goforest += rand(0,1)
+	! Determine where Sveta got lost in the forest
 	lost = 2
-	!to determine the continuation of the path YY lost
+	! chance to get lost
 	lostrand = rand(1,60)
-	!the chance to get lost
 	foresteventrand = rand(1,10)
 	new_boletus = 0
 	new_bilberry = 0
+	
 	'<center><H4>Forest</H4></center>'
 	if month >= 4 and month <= 10:
 		if hour >= 6 and hour < 22:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest2.jpg"></center>'
-			'Forest. The intoxicating fresh air and singing birds light up your soul with joy.'
+			'You are in the forest. The fresh air and singing birds light up your soul with joy.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
-			'Forest. Night in the woods is scary and uncomfortable.'
+			'You are in the forest. Night in the woods is scary and uncomfortable.'
 		end
 	else
 		if hour >= 8 and hour < 18:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter2.jpg"></center>'
-			'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
+			'You are in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night2.jpg"></center>'
-			'Forest. Night in the winter forest is very scary and uncomfortable.'
+			'You are in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
 		end
 	end
-	if goforest < 20:'You do not know this part of the forest, it''s better not to wander too far.'
+	if goforest < 20:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
 
 	if foresteventrand = 1 and month >= 6 and month <= 9 and mushroom_pickersday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers1'
 	if foresteventrand = 2 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters'
 	if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart:mushroom_pickers = 2 & gt 'gadforest_event', 'mushroom_pickers3'
 
 
-	act 'Back':
+	act 'To the edge of the forest':
 		lostrand = rand(1,30)
 		if goforest >= lostrand:minut += 30 & gt 'gadforest','1'
 		if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
@@ -316,6 +352,7 @@ if $ARGS[0] = '2':
 			if goforest < 40:goforest += rand(0,1)
 			gs 'stat'
 
+			! mushroom_pickers either not seen today or still at the edge of the forest
 			if mushroom_pickers < 2:
 				cla
 				new_boletus += 1
@@ -326,7 +363,7 @@ if $ARGS[0] = '2':
 				gs 'stat'
 
 				gs 'gadforest', 'clothes1'
-				'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
+				'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
 			end
 			if mushroom_pickers = 2 and temp_gf = 1:
 				cla
@@ -337,8 +374,8 @@ if $ARGS[0] = '2':
 				gs 'stat'
 
 				if new_boletus > 0 or new_bilberry > 0: gs 'gadforest', 'clothes1'
-				if new_boletus = 0 and new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_bilberry>> kg of berries.'
-				if new_boletus > 0 and new_bilberry > 0:'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
+				if new_boletus = 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_bilberry>> kg of berries.'
+				if new_boletus > 0 and new_bilberry > 0:'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
 			end
 			if mushroom_pickers = 2 and temp_gf = 2:
 				cla
@@ -346,11 +383,12 @@ if $ARGS[0] = '2':
 				gs 'stat'
 
 				gs 'gadforest', 'clothes2'
-				'You are wandering through the woods in search of mushrooms or berries for half an hour, but found nothing.'
+				'After searching for mushrooms and berries for half an hour you found nothing.'
 			end
 			act 'Continue':gt 'gadforest','2'
 		end
 	end
+	
 	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
 		act 'Go further into the forest':
 			if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
@@ -361,52 +399,60 @@ if $ARGS[0] = '2':
 end
 
 if $ARGS[0] = '3':
-	!deep forest
+	*clr & cla
+	! deep inside forest
+	$loc = 'gadforest'	
+	$metka = '3'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+	
+	$menu_loc = 'gadforest'
+	$menu_arg = '3'
+	menu_off = 0
+	
 	gs 'gadukino_event', 'sound'
-	*clr & cla
 	gs'stat'
-	!gs'time'
+	
+	! Add to knowledge of forest
 	if goforest < 60:goforest += rand(0,1)
 	lost = 3
-	!to determine the continuation of the path YY lost
+	! Determine where Sveta got lost in the forest
 	lostrand = rand(1,100)
-	!the chance to get lost
+	! chance to get lost
 	foresteventrand = rand(1,10)
 	new_boletus = 0
 	new_bilberry = 0
-	'<center><H4>Thicket</H4></center>'
+	
+	'<center><H4>Deep Forest</H4></center>'
 	if month >= 4 and month <= 10:
 		if hour >= 6 and hour < 22:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest3.jpg"></center>'
-			'Forest. The intoxicating fresh air and singing birds light up your soul with joy.'
+			'You are deep in the forest. The fresh air and singing birds light up your soul with joy.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night3.jpg"></center>'
-			'Forest. Night in the woods is scary and uncomfortable.'
+			'You are deep in the forest. Night in the woods is scary and uncomfortable.'
 		end
 	else
 		if hour >= 8 and hour < 18:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter3.jpg"></center>'
-			'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
+			'You are deep in the forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night3.jpg"></center>'
-			'Forest. Night in the winter forest is very scary and uncomfortable.'
+			'You are deep in the forest. Night in the forest during wintertime is very scary and uncomfortable.'
 		end
 	end
-	if goforest < 30:'You do not know this part of the forest, it''s better not to wander too far.'
+	if goforest < 30:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
 
 	if foresteventrand = 1 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'basket'
 	if foresteventrand = 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
 	if foresteventrand = 3 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
 	if foresteventrand = 4 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters'
 
-	act 'Back':
+	act 'Go back to the forest':
 		lostrand = rand(1,60)
 		if goforest >= lostrand:minut += 30 & gt 'gadforest','2'
 		if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
 	end
+	
 	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and thicketday ! daystart:
 
 	act 'Look for mushrooms and berries':
@@ -421,11 +467,12 @@ if $ARGS[0] = '3':
 			pcs_mood += 5
 			gs 'stat'
 			gs 'gadforest', 'clothes1'
-			'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
+			'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
 
 			act 'Continue':gt 'gadforest','3'
 		end
 	end
+	
 	if hour >= 6 and hour <= 20 and month >= 6 and month <= 9:
 
 		act 'Go further into the forest':
@@ -437,28 +484,35 @@ if $ARGS[0] = '3':
 end
 
 if $ARGS[0] = '4':
-	!near swamp
+	*clr & cla
+	! forest near swamp
+	$loc = 'gadforest'	
+	$metka = '4'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+	
+	$menu_loc = 'gadforest'
+	$menu_arg = '4'
+	menu_off = 0
+	
 	gs 'gadukino_event', 'sound'
-	*clr & cla
 	gs'stat'
-	!gs'time'
+	
+	! Add to knowledge of forest
 	if goforest < 80:goforest += rand(0,1)
 	lost = 4
-	!to determine the continuation of the path YY lost
+	! Determine where Sveta got lost in the forest
 	lostrand = rand(1,120)
-	!the chance to get lost
+	! chance to get lost
 	foresteventrand = rand(1,10)
 	dirty = 0
 	new_boletus = 0
 	new_bilberry = 0
-	'<center><H4>Woods near swamps</H4></center>'
+	
+	'<center><H4>Forest near the Swamp</H4></center>'
 	if month >= 4 and month <= 10:
 		if hour >= 6 and hour < 22:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest4.jpg"></center>'
-			'Forest. The intoxicating fresh air and singing birds light up your soul with joy.'
+			'You are in the forest near the swamp. The fresh air and singing birds light up your soul with joy.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night4.jpg"></center>'
 			'Forest. Night in the woods is scary and uncomfortable.'
@@ -466,19 +520,19 @@ if $ARGS[0] = '4':
 	else
 		if hour >= 8 and hour < 18:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter4.jpg"></center>'
-			'Forest. The forest in the winter is very beautiful, the fresh air makes you happy.'
+			'You are in the forest near the swamp. The forest in the winter is very beautiful, the fresh air makes you happy.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_winter_night4.jpg"></center>'
-			'Forest. Night in the winter forest is very scary and uncomfortable.'
+			'You are in the forest near the swamp. Night in the forest during wintertime is very scary and uncomfortable.'
 		end
 	end
-	if goforest < 60:'You do not know this part of the forest. It is better not to go too far in.'
+	if goforest < 60:'You don''t know this part of the forest very well, it''s best if you don''t go any deeper into the woods.'
 
 	if foresteventrand < 2 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'bilberry'
 	if foresteventrand > 7 and month >= 6 and month <= 9 and foresteventday ! daystart: gt 'gadforest_event', 'mushroom'
 	if foresteventrand = 5 and hour > 8 and hour < 20 and foresteventday ! daystart:gt 'gadforest_event', 'forest_hanters'
 
-	act 'Back':
+	act 'Go back to the deep woods':
 		lostrand = rand(1,100)
 		if goforest >= lostrand:minut += 30 & gt 'gadforest','3'
 		if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
@@ -498,12 +552,13 @@ if $ARGS[0] = '4':
 			gs 'stat'
 
 			gs 'gadforest', 'clothes1'
-			'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
+			'After searching for mushrooms and berries for half an hour you found <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
 
 			act 'Continue':gt 'gadforest','4'
 		end
 	end
-	act 'Go further into the forest':
+	
+	act 'Go further into the swamp':
 		if goforest >= lostrand and goswamp = 1:minut += 30 & gt 'swamp'
 		if goforest >= lostrand and goswamp = 0:minut += 30 & gt 'gadforestswamp','1'
 		if goforest < lostrand:gt 'gadforest', 'gadforestloststart'
@@ -540,7 +595,6 @@ end
 if $ARGS[0] = 'gadforestloststart':
 	cla
 	*clr
-	!gs'time'
 	gs 'stat'
 
 	'<center><H4>Somewhere in the woods</H4></center>'
@@ -550,16 +604,16 @@ if $ARGS[0] = 'gadforestloststart':
 	else
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadfear3.jpg"></center>'
 	end
-	'You suddenly realize in horror that you are not familiar with the area you are in... you get lost.'
+	'You suddenly realize in horror that you are not familiar with the area you are in... you are lost!.'
 
-	act 'Continue':
+	act 'Look for a way out':
 		if lost = 1: gt 'gadforestlost','1'
 		if lost = 2: gt 'gadforestlost','2'
 		if lost = 3: gt 'gadforestlost','3'
 		if lost = 4: gt 'gadforestlost','4'
 	end
 
-	!add for realistic, rescue in forest! by illume
+	! add for rescue in forest by illume
 	forest_lost = 1
 	if StoryLine = 1: forest_lostday = daystart + rand(1,3)
 end
@@ -569,11 +623,11 @@ if $ARGS[0] = 'torncloth':
 	if $clothingworntype ! 'nude':
 		if (PCloThinness = 1 or PCloSkirt > 0) and PCloQuality < 5:
 			!skirts, not fit, and not high-class enough by illume
-			'Oops, your clothes get snagged and tears slightly.'
+			'Oops, your clothes get snagged and tear slightly.'
 			dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 1'
-			!add remove cloth if worn out, need better texting by illume.
+			!add remove clothes if worn out
 			if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
-				'Your raggedy clothes have finally had enough and fall apart. You are naked now.'
+				'Your ripped clothes were barely holding together, but now they have finally fell apart. You are naked now.'
 				gadforest_clothestorn = 1
 				gs 'clothing', 'strip', 'gadforest', 2
 			end

File diff suppressed because it is too large
+ 162 - 146
locations/gadforest_event.qsrc


+ 133 - 85
locations/gadforestlost.qsrc

@@ -2,8 +2,18 @@
 
 !make this trigger after 2 days in swamp house, minus a countdown per hour
 if $ARGS[0] = 'forestrescue':
-	!rescue in forest by illume. I think we need good texts.
 	cls
+	$loc = 'gadforestlost'
+	$metka = 'forestrescue'
+	$location_type = 'secluded'
+
+	$menu_loc = 'gadforestlost'
+	$menu_arg = 'forestrescue'
+	menu_off = 0
+
+	gs 'gadukino_event', 'sound'
+	gs'stat'
+
 	minut += 150
 	lost_girl = 0
 	dirtyclothes = 0
@@ -13,41 +23,58 @@ if $ARGS[0] = 'forestrescue':
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/forester.jpg"></center>'
-	'You wander in the forest trying to find your way out, suddenly you spot a man dressed as a forest ranger.'
-	'"And here is our lost girl." he said wearily, "Your grandfather and grandmother are very worried about you. They asked me to help find you. Follow me, I will take you home."'
+
+	'Suddenly you spot a man dressed as a forest ranger.'
+	'He walks up to you and says, "And here is our lost girl. Your grandfather and grandmother are very worried about you. They asked me to help find you. Follow me, I will take you home."'
+
+	!rescued during rest
 	if $loc = 'gadforestrelax':
-		!rescued during rest
+		!have fire
 		if bonfire = 1:
-			!have fire
-			'When lost, it''s very smart if you stay in one place and make a fire. It will keep you warm, and make you visable to others.'
+			'When lost, it''s very smart if you stay in one place and make a fire. It will keep you warm, and make you visible to others.'
 		else
 			'Staying in one place is a good idea when you are lost.'
 		end
 	end
-	'You get ready quickly and you follow the forest ranger out of the woods.'
+
+	'You get ready quickly and follow the forest ranger out of the woods.'
+
 	if $clothingworntype ! 'nude':
-		act 'Further':gt'Gadhouse'
+		'You can''t wait to get back to your grandparents house and have a bath and a nice hot meal.'
+
+		act 'To your grandparents house':gt'Gadhouse'
 	elseif $clothingworntype = 'nude':
-		act 'Further':gt'gadforest', '1'
+		'The ranger looks you up and down and you feel like he is about to ask you something but he decides against it.'
+		'You remember you left your clothes by the edge of the woods and ask the ranger to take you there instead.'
+
+		act 'To the edge of the woods':gt'gadforest', '1'
 	end
 end
 if $ARGS[0] = '1':
-	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
+	*clr & cla
+	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 7: gt 'gadforestlost', 'forestrescue'
+	$loc = 'gadforestlost'
+	$metka = '1'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	 $loc = $CURLOC
+
+	$menu_loc = 'gadforestlost'
+	$menu_arg = '1'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
-	cla
-	*clr
+	gs'stat'
+
+	riprand = rand(1,10)
+	rescuerand = rand(1,10)
 	wolfrand = rand(1,10)
 	hantrand = rand(1,10)
-	gs'stat'
-	!gs'time'
+
+
 	gs 'gadforestlost', 'gadforestlost'
 
 	if wolfrand = 1 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
 
-	act 'Look for the road':
+	act 'Look for a way out':
 		cla
 		*clr
 		minut += 60
@@ -58,26 +85,31 @@ if $ARGS[0] = '1':
 
 		gs 'gadforestlost', 'lostclothes'
 		if goforest > lostrand:
-			act 'Look for the road':gs 'gadforestlost', 'gadforestlostfinish1'
+			act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish1'
 		else
-			act 'Look for the road':gt 'gadforestlost','1'
+			act 'Look for a way out':gt 'gadforestlost','1'
 		end
-		act 'To take a break':gt 'gadforestrelax'
+		act 'Take a break':gt 'gadforestrelax'
 	end
 	if rand(1,10)> 8: gs 'gadforest', 'torncloth'
 	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = '2':
-	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
+	*clr & cla
+	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 8: gt 'gadforestlost', 'forestrescue'
+	$loc = 'gadforestlost'	$metka = '2'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+
+	$menu_loc = 'gadforestlost'
+	$menu_arg = '2'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
-	cls
+	gs'stat'
 	wolfrand = rand(1,10)
 	hantrand = rand(1,10)
 	gs'stat'
-	!gs'time'
+
 	gs 'gadforestlost', 'gadforestlost'
 
 	if wolfrand <= 2 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
@@ -94,26 +126,33 @@ if $ARGS[0] = '2':
 
 		gs 'gadforestlost', 'lostclothes'
 		if goforest > lostrand:
-			act 'Look for the road ':gs 'gadforestlost', 'gadforestlostfinish2'
+			act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish2'
 		else
-			act 'Look for the road':gt 'gadforestlost','2'
+			act 'Look for a way out':gt 'gadforestlost','2'
 		end
-		act 'To take a break':gt 'gadforestrelax'
+		act 'Take a break':gt 'gadforestrelax'
 	end
 	if rand(1,10)> 7: gs 'gadforest', 'torncloth'
 	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = '3':
-	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
+	*clr & cla
+	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue'
+	$loc = 'gadforestlost'
+	$metka = '3'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+
+	$menu_loc = 'gadforestlost'
+	$menu_arg = '3'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
-	cls
+	gs'stat'
+
 	wolfrand = rand(1,10)
 	hantrand = rand(1,10)
 	gs'stat'
-	!gs'time'
+
 	gs 'gadforestlost', 'gadforestlost'
 	if wolfrand <= 3 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
 	if hantrand = 1 and hour > 8 and hour < 20 :forest_lost = 1 & gt 'gadforest_event', 'forest_hanters'
@@ -129,26 +168,37 @@ if $ARGS[0] = '3':
 
 		gs 'gadforestlost', 'lostclothes'
 		if goforest > lostrand:
-			act 'Look for the road ':gs 'gadforestlost', 'gadforestlostfinish3'
+			act 'Look for a way out':gs 'gadforestlost', 'gadforestlostfinish3'
 		else
-			act 'Look for the road':gt 'gadforestlost','3'
+			act 'Look for a way out':gt 'gadforestlost','3'
 		end
-		act 'To take a break':gt 'gadforestrelax'
+		act 'Take a break':gt 'gadforestrelax'
 	end
 	if rand(1,10)> 6: gs 'gadforest', 'torncloth'
 	gs 'gadforestlost', 'searchfood'
 end
 if $ARGS[0] = '4':
-	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
+	*clr & cla
+	if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10)> 9: gt 'gadforestlost', 'forestrescue'
+	$loc = 'gadforestlost'
+	$metka = '4'
 	$location_type = 'secluded'
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+
+	$menu_loc = 'gadforestlost'
+	$menu_arg = '4'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
-	cls
+	gs'stat'
+
+	cla
+	*clr
+
+
 	wolfrand = rand(1,10)
 	hantrand = rand(1,10)
 	gs'stat'
-	!gs'time'
+
 	gs 'gadforestlost', 'gadforestlost'
 
 	if wolfrand <= 4 and (hour = 23 or hour >= 0 and hour < 6):gt 'gadforest_event', 'lost'
@@ -165,12 +215,12 @@ if $ARGS[0] = '4':
 		gs 'stat'
 
 		gs 'gadforestlost', 'lostclothes'
-		act 'Look for the road ':
+		act 'Continue looking for the road':
 			if goforest > lostrand: gs 'gadforestlost', 'gadforestlostfinish4'
 			if goforest < lostrand and temp > 7:gt 'gadforestswamp','1'
 			if goforest < lostrand and temp <= 7:gt 'gadforestlost','4'
 		end
-		act 'To take a break':gt 'gadforestrelax'
+		act 'Take a break':gt 'gadforestrelax'
 	end
 	if rand(1,10)> 7: gs 'gadforest', 'torncloth'
 	gs 'gadforestlost', 'searchfood'
@@ -199,12 +249,13 @@ if $ARGS[0] = 'lostclothes':
 	if $clothingworntype ! 'nude' and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch0.'+rand(1,4)+'.jpg"></center>'
 	if $clothingworntype ! 'nude' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_ski0.'+rand(1,4)+'.jpg"></center>'
 	if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestsearch_nude0.'+rand(1,4)+'.jpg"></center>'
-	'Within an hour of wandering through the woods you decide....'
+	'After wandering through the woods for an hour you decide to....'
 end
 if $ARGS[0] = 'gadforestlostfinish':
 	'<center><H4>Somewhere in the woods</H4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadjoy.jpg"></center>'
-	'You look over and realize that you finally see lights shining from distnat houses, glad to get out of this alive you rush forward.'
+	'You look over and realize that you finally see lights shining from distant houses, glad to get out of this alive you rush forward.'
+
 	!clear lost flags by illume, clear dirtyclothes flag by rachels
 	lost_girl = 0
 	dirtyclothes = 0
@@ -213,14 +264,15 @@ if $ARGS[0] = 'gadforestlostfinish':
 	gs 'clothing', 'swamp_clothes', 0
 	gs 'stat'
 	if $clothingworntype = 'nude':
-		act 'Out of the woods':
+		act 'Leave the woods':
 			minut += 25
-			'You find your way out of the woods, hiding your naked body in shadow and moving toward the edge of the forest, where you left your clothes.'
+			'You find your way out of the woods, hiding your naked body in shadows.'
+			'You make your way back towards the edge of the forest where you left your clothes.'
 			cla
 			act 'Continue':gt'gadforest', '1'
 		end
+		!disable further actions from being added
 		temp=0
-		!disable further act add.
 	end
 end
 if $ARGS[0] = 'gadforestlostfinish1':
@@ -229,15 +281,13 @@ if $ARGS[0] = 'gadforestlostfinish1':
 	temp = RAND(1,3)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'
 	gs 'stat'
 
 	gs 'gadforestlost', 'gadforestlostfinish'
-	''
 
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
+	if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
 
 end
 if $ARGS[0] = 'gadforestlostfinish2':
@@ -246,17 +296,15 @@ if $ARGS[0] = 'gadforestlostfinish2':
 	temp = RAND(1,5)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'
 	gs 'stat'
 
 	gs 'gadforestlost', 'gadforestlostfinish'
-	''
 
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
-	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
-	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
+	if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
+	if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
+	if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
 end
 if $ARGS[0] = 'gadforestlostfinish3':
 	cls
@@ -264,19 +312,17 @@ if $ARGS[0] = 'gadforestlostfinish3':
 	temp = RAND(1,7)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'
 	gs 'stat'
 
 	gs 'gadforestlost', 'gadforestlostfinish'
-	''
-
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
-	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
-	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
-	if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road'
-	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
+
+	if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
+	if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
+	if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
+	if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road'
+	if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
 end
 if $ARGS[0] = 'gadforestlostfinish4':
 	cls
@@ -284,22 +330,22 @@ if $ARGS[0] = 'gadforestlostfinish4':
 	temp = RAND(1,9)
 	lost = 0
 	pcs_mood += 20
-	!gs'time'
 	gs 'stat'
 
 	gs 'gadforestlost', 'gadforestlostfinish'
-	''
-
-	if temp = 1:act 'Out of the woods':minut += 15 & gt'gadforest','1'
-	if temp = 2:act 'Out of the woods':minut += 15 & gt'gadfield','field'
-	if temp = 3:act 'Out of the woods':minut += 15 & gt'gadroad'
-	if temp = 4:act 'Out of the woods':minut += 15 & gt'Gadriver','start'
-	if temp = 5:act 'Out of the woods':minut += 15 & gt'Meadow'
-	if temp = 6:act 'Out of the woods':minut += 15 & nroad = 15 & gt'road'
-	if temp = 7:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
-	if temp = 8:act 'Out of the woods':minut += 15 & nroad = 10 & gt'road'
-	if temp = 9 and goswamp = 0:act 'Out of the woods':minut += 15 & gt 'gadforestswamp','1'
-	if temp = 9 and goswamp = 1:act 'Out of the woods':minut += 15 & gt 'swamp'
+
+
+
+	if temp = 1:act 'Leave the woods':minut += 15 & gt'gadforest','1'
+	if temp = 2:act 'Leave the woods':minut += 15 & gt'gadfield','field'
+	if temp = 3:act 'Leave the woods':minut += 15 & gt'gadroad'
+	if temp = 4:act 'Leave the woods':minut += 15 & gt'gadriver','start'
+	if temp = 5:act 'Leave the woods':minut += 15 & gt'Meadow'
+	if temp = 6:act 'Leave the woods':minut += 15 & nroad = 15 & gt'road'
+	if temp = 7:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
+	if temp = 8:act 'Leave the woods':minut += 15 & nroad = 10 & gt'road'
+	if temp = 9 and goswamp = 0:act 'Leave the woods':minut += 15 & gt 'gadforestswamp','1'
+	if temp = 9 and goswamp = 1:act 'Leave the woods':minut += 15 & gt 'swamp'
 
 end
 if $ARGS[0] = 'searchfood':
@@ -320,11 +366,13 @@ if $ARGS[0] = 'searchfood':
 				'Within half an hour of wandering through the woods in search of mushrooms or berries, you found <<new_boletus>> kg mushrooms and <<new_bilberry>> kg of berries.'
 			else
 				pcs_mood -= 5
+				gs 'stat'
+
 				gs 'gadforest', 'clothes2'
 				'After half an hour of wandering through the woods in search of mushrooms or berries, you found nothing.'
 			end
-			gs 'stat'
-			act 'Further':gt $loc, $metka
+
+			act 'Continue':gt $loc, $metka
 		end
 	end
 end

+ 61 - 25
locations/gadforestswamp.qsrc

@@ -2,11 +2,17 @@
 
 $location_type = 'secluded'
 if $ARGS[0] = '1':
-	$metka = '1'
 	$loc = 'gadforestswamp'
+	$metka = '1'
+	$location_type = 'secluded'
+
+	$menu_loc = 'gadforestswamp'
+	$menu_arg = '1'
+	menu_off = 0
 
 	gs 'gadukino_event', 'sound'
 	gs 'stat'
+
 	'<center><H4>Swamp</H4></center>'
 	if month >= 4 and month <= 10:
 		if hour >= 6 and hour < 22:
@@ -21,11 +27,12 @@ if $ARGS[0] = '1':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter_night.jpg"></center>'
 		end
 	end
-	'You went to the marsh, behind it you can see some kind of hut. You can go back into the woods or try to get to the hut through the mash, but will you have enough strength and agility to overcome this obstacle?'
+	'You come to the edge of the swamp; you can see a hut in the distance.'
+	'You can go back into the woods or try to get to the hut through the marsh, but will you have enough strength and agility to overcome this obstacle?'
 
 	act 'Go back to the forest':gt 'gadforestlost','4'
 
-	act 'Try to go forward through the mire':
+	act 'Try to go through the mire':
 		*clr & cla
 		minut += 10
 		swamprand = pcs_stren + pcs_agil
@@ -37,27 +44,42 @@ if $ARGS[0] = '1':
 		if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
 		'You entered the swamp and felt your feet starting to sink into the mud...'
 		temp_gads = RAND(1,100)
-		act 'Go further':
+		act 'Give it another try':
 			if swamprand > temp_gads:gt 'swamp_yard'
-			if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
-			if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
+			if Enable_nogameover = 0:
+				if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
+				if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
+			else
+				gt 'gadforestswamp', '2'
+			end
 		end
 	end
 end
 
 if $ARGS[0] = '2':
-	$metka = '2'
 	$loc = 'gadforestswamp'
+	$metka = '2'
+	$location_type = 'secluded'
+
+	$menu_loc = 'gadforestswamp'
+	$menu_arg = '2'
+	menu_off = 0
+
 	gs 'gadukino_event', 'sound'
+	gs 'stat'
 
+	! unbrush hair and remove makeup
 	pcs_hairbsh = 0
 	if pcs_makeup > 1:pcs_makeup = 0
-	!clothes wear out, "dirty" to avoid at a time 
+
+	! clothes wear out, "dirty" to avoid at a time
 	if dirty = 0 and ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear'):dirty = 1 & dirtyclothes = 1 & dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 10'
-	!add remove cloth if worn out, need better texting by illume.
+	! add remove clothes if worn out
 	if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
-		'Your clothes are torn to pieces, you are naked now.'
-		gs 'clothing', 'strip'
+		'Your ripped clothes were barely holding together, but now they have finally fell apart.'
+		'You are naked now.'
+		gadforest_clothestorn = 1
+		gs 'clothing', 'strip', 'gadforestswamp', 2
 	end
 	gs 'stat'
 	'<center><H4>Swamp</H4></center>'
@@ -67,12 +89,14 @@ if $ARGS[0] = '2':
 	act 'Call for help':
 		*clr & cla
 		minut += 10
-		if pcs_sweat < 10: pcs_sweat += 10	
+		if pcs_sweat < 10: pcs_sweat += 10
 		if week = 6 or week = 7:temp_gads = RAND(1,3)
 		if week < 6:temp_gads = RAND(1,5)
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlosthelp.jpg"></center>'
-		'You are exhausted and begin to scream for help, suddenly you see people...'
+
+		'You are exhausted and begin to scream for help...'
+
 
 		act 'Wait':
 			if temp_gads = 1:
@@ -82,15 +106,19 @@ if $ARGS[0] = '2':
 				hanterhelp = 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/handshelp.jpg"></center>'
-				'You hear men speaking and begin to shouting louder. The voices come closer and finally, someone''s strong hands grabbed you and dragged back to solid ground.'
+				'You hear men speaking and begin to shout louder. The voices come closer and finally, someone''s strong hands grabbed you and dragged back to solid ground.'
+				'You are so tired from your ordeal you pass out.'
 
-				act 'Further':gt 'swamp_yard'
+				act 'Wake up':gt 'swamp_yard'
 			else
 				*clr & cla
 				minut += 10
+				gs 'stat'
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
 				'No one responds to your call, looks like you are all alone.'
-				act 'Further':gt 'gadforestswamp','2'
+
+				act 'Contemplate your life':gt 'gadforestswamp','2'
 			end
 		end
 	end
@@ -106,12 +134,16 @@ if $ARGS[0] = '2':
 		gs 'stat'
 
 		dynamic $swampclothes
-		'You decided not to tempt fate more and turn back...'
 
-		act 'Go':
+		'You decide it''s wisest to try and turn back...'
+		act 'Give it another try':
 			if swamprand > temp_gads:gt 'gadforestswamp','1'
-			if swamprand < temp_gads and temp_gads <= 20:over = 10 & gt'gameover'
-			if swamprand < temp_gads and temp_gads > 20:gt 'gadforestswamp','2'
+			if Enable_nogameover = 0:
+				if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
+				if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
+			else
+				gt 'gadforestswamp', '2'
+			end
 		end
 	end
 	act 'Try to go on to the hut':
@@ -126,13 +158,17 @@ if $ARGS[0] = '2':
 		gs 'stat'
 
 		dynamic $swampclothes
-		'You thought more about it and decided against it. You move on from the house...'
 
-		act 'Go':
+		'You decide you might as well keep going forward at this point...'
+		act 'Give it another try':
 			if swamprand > temp_gads:gt 'swamp_yard'
-			if swamprand < temp_gads and temp_gads <= 30:over = 10 & gt'gameover'
-			if swamprand < temp_gads and temp_gads > 30:gt 'gadforestswamp','2'
-		end 
+			if Enable_nogameover = 0:
+				if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
+				if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
+			else
+				gt 'gadforestswamp', '2'
+			end
+		end
 	end
 end
 

+ 45 - 42
locations/gadprostitutes.qsrc

@@ -1,68 +1,71 @@
 # gadprostitutes
-!!NOTE:  This is a placeholder.  I intend to flesh this out and maybe expand it to include the PC taking part as well.
 
 if $ARGS[0] = 'start':
-	$metka = $ARGS[0]
-	$loc = $CURLOC
-    $location_type = 'public_outdoors'
+	*clr & cla
+	$loc = 'gadprostitutes'
+	$metka = 'start'
+	$location_type = 'public_outdoors'
+
+	$menu_loc = 'gadprostitutes'
+	$menu_arg = 'start'
+	menu_off = 0
+
 	CLOSE ALL
+	gs 'gadukino_event', 'sound'
+	gs'stat'
 
-	if sound = 0:
-		if month >=11 and month <= 12 or month >=1 and month <=3:
-			if hour >= 8 and hour <= 23: PLAY 'sound/zima2.mp3',30
-			if hour >= 0 and hour <= 7: PLAY 'sound/zima2.mp3',30
-		else
-			if hour >= 8 and hour <= 23: PLAY 'sound/ptica.mp3',30
-			if hour >= 0 and hour <= 7: PLAY 'sound/ptica.mp3',30
-		end
+	'<center><h4>Main Road near Gadukino</h4></center>'
+	if month >= 11 or month <= 3:
+		'<center><img <<$set_imgh>> src="images/locations/highway/roadwinter.jpg"></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/highway/road.jpg"></center>'
 	end
-	clr
-	gs 'stat'
-	'<center><h4>Highway near Gadukino Village</h4></center>'
 	'You walk out to the highway '
-	
-	! commented out to make it more likely and similiar to the choices in miroslavaHome
-					!and hour <= 23:
-	if hour >= 18:
+	if hour < 18:
+		'You a look around for Mira but don''t see her here, maybe come back later in the evening.'
+
+		act 'Walk back to the village': gt 'gadukino'
+	elseif hour >= 18 and hour <= 23:
 		if miraprost > 0 and npc_QW['A60'] > 30:
-			!last events end after 1.2.5 will be 31 by illume
 			'You a look around for Mira and spot her standing below a streetlight down the road a little ways.'
 			if mirapimp = 0:
 				pcs_dom += RAND(2,6)
 				mirapimp = 1
-				'You call her over to you.  Mira, hurries over and looks at you with downcast eyes.  "Hi, <<$pcs_nickname>>.  You having a good night?"'
-				'You look at her angryly.  "A better question, my lovely whore, is ''Are you having a good night''?  I want 300 <b>₽</b> per customer you have each night."  You tell her earnestly.'
-				'Mira looks up in shock and with a hurt look on her face.  "What are you talking about?  Do you think I am a hooker?"'
-				'You step up to her and place your hand on her face.  Mira closes her eyes and leans into your hand.  You look into her eyes once she opens them and then SLAP her hard across the face.  Mira falls to the ground and starts to cry.  "You''re my property whore.  You will do whatever I tell you.  You will never lie to me ever again, or I swear I will make you pay.  Understand me?!"'
-				'Mira nods and she wipes away tears.'
-				'You  reach down and help her back to her feet.  You brush her off and help her fix her makeup.  "Good, now get that cute ass back out on that road and earn us some money."'
-				act 'You smile wickedly as you watch Mira start her life as your prostitute-slave':gt 'gadprostitutes', 'start'
+				'You call her over to you. Mira, hurries over and looks at you with downcast eyes.  "Hi, <<$pcs_nickname>>.  You having a good night?"'
+					'You look at her angryly. "A better question, my lovely whore, is are you having a good night"?  I want 300 <b>₽</b> per customer you have each night." You tell her earnestly.'
+					'Mira looks up in shock and with a hurt look on her face. "What are you talking about?  Do you think I am a hooker?"'
+				'You step up to her and place your hand on her face. Mira closes her eyes and leans into your hand. You look into her eyes once she opens them and then SLAP her hard across the face. Mira falls to the ground and starts to cry. "You''re my property whore. You will do whatever I tell you. You will never lie to me ever again, or I swear I will make you pay. Understand me?!"'
+					'Mira nods and she wipes away tears.'
+					'You reach down and help her back to her feet. You brush her off and help her fix her makeup. "Good, now get that cute ass back out on that road and earn us some money."'
+					'You give Mira a little slap on the ass and smile as you watch Mira start her life as your prostitute.'
+
+				act 'Finish':gt 'gadprostitutes', 'start'
 			else
-				act 'Watch her perform a trick...':
-					pcs_dom += RAND(0,2)  
-					cls	
+				act 'Watch Mira and the customer':
+					pcs_dom += RAND(0,2)
+					cls
 					minut += 30
-					temp = RAND(0,5)
-					if temp = 0:
+					temp_gad_pro = RAND(0,5)
+					if temp_gad_pro = 0:
 						miraprost += 1
 						'<center><img <<$set_imgh>> src="images/characters/village/mira/sex/mirawish2_2.jpg"></center>'
-						'It isn''t long before Mira''s first customer pulls up in a nice vehicle.  She takes a deep breath, looks you in the eyes, you nod and wink, as she approachs the vehicle and starts talking to the driver.'
+						'It isn''t long before a customer pulls up in a nice vehicle. Mira approaches the vehicle and starts talking to the driver.'
 						'<center><img <<$set_imgh>> src="images/characters/village/mira/miraprost.jpg"></center>'
-						'You can''t hear what she is saying but after only a few minutes the door opens and Mira steps into the vehicle.  It pulls away, but doesn''t go far.  You see it pull off the main road and head down a dirt road. Smiling and wanting to see the action, you run into the woods trying to head off the vehicle.'
-					elseif temp = 1:
+						'You can''t hear what she is saying but after only a few minutes the door opens and Mira steps into the vehicle. It pulls away, but doesn''t go far. You see it pull off the main road and head down a dirt road. Smiling and wanting to see the action, you run into the woods trying to head off the vehicle.'
+					elseif temp_gad_pro = 1:
 						miraprost += 1
 						cls
+						gs 'arousal', 'voyeur', 25
 						gs 'stat'
-						'<center><video autoplay loop src="images/characters/village/mira/sex/miraprost1.mp4"></video></center>'	
-						'You walk up and look into the car.  You see Mira giving one hell of a blowjob to her first customer.  Her head is bobbing up and down on his 17cm cock.'
+						'<center><video autoplay loop src="images/characters/village/mira/sex/miraprost1.mp4"></video></center>'
+						'You walk up and look into the car. You see Mira giving one hell of a blowjob to her customer. Her head is bobbing up and down on his cock.'
 						'<center><video autoplay loop src="images/characters/village/mira/sex/miraprost1_1.mp4"></video></center>'
 						'You duck for cover as the guy suddenly gets out of the car and opens the passenger door, grabs Mira''s head and starts forcing his cock deep into her throat.'
 						'<center><video autoplay loop src="images/characters/village/mira/sex/miraprost1_2.mp4"></video></center>'
-						'Eventually, the guys grunts and cums all over Mira''s face and into her mouth.  The nicely dressed man pulls Mira out of the car, hands her a few bills and then drives off.'
+						'Eventually, the guy grunts and cums all over Mira''s face and into her mouth. The nicely dressed man pulls Mira out of the car, hands her a few bills and then drives off.'
+						'Mira walks back towards the road counting the money he gave her as she absentmindedly licks the cum as it drips down her face. She smiles at you and shows you the money as you join her.'
 						'<center><img <<$set_imgh>> src="images/characters/village/mira/miramoney.jpg"></center>'
-						gs 'arousal', 'voyeur', 25
-						gs 'stat'
-					elseif temp = 2:
+					elseif temp_gad_pro = 2:
 						cls
 						pcs_horny += 20
 						minut += 20
@@ -83,7 +86,7 @@ if $ARGS[0] = 'start':
 					act 'Walk back to the village': gt 'gadukino'
 				end
 			end
-			act 'Walk back to the village': 
+			act 'Walk back to the village':
 				gs 'arousal', 'end'
 				gs 'stat'
 				gt 'gadukino'

+ 79 - 111
locations/gadriver.qsrc

@@ -28,11 +28,11 @@ if $ARGS[0] = 'start':
 
 	'A large river flows lazily a for a few hundred meters in the northern outskirts of Gadukino.'
 
-	if hour >= 6 and hour < 21 and sunWeather = 1: 'You see the local <a href="exec:gt ''Gadriver'', ''fishers''">fishermen</a> fishing with their rods on the riverbank.'
+	if hour >= 6 and hour < 21 and sunWeather = 1: 'You see the local <a href="exec:gt ''gadriver'', ''fishers''">fishermen</a> fishing with their rods on the riverbank.'
 
 	temp_gr = rand(0,20)
 
-	if temp_gr = 1 and hour < 5 and month >= 5 and month <= 9 and npc_QW['A60'] >= 20: 'Right next to the path leading to the river, you see <a href="exec: gt ''Gadriver'', ''mirapunish'' ">Mira</a> naked, bound with ropes between two trees...'
+	if temp_gr = 1 and hour < 5 and month >= 5 and month <= 9 and npc_QW['A60'] >= 20: 'Right next to the path leading to the river, you see <a href="exec: gt ''gadriver'', ''mirapunish'' ">Mira</a> naked, bound with ropes between two trees...'
 
 	if temp_gr = 4 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
 		if mitkaguysriver ! daystart:
@@ -64,13 +64,12 @@ if $ARGS[0] = 'start':
 					gs 'dinSex','boy_wants_anal','lubri'
 					gs 'dinsex','analsex',20,'sub','gangbang'
 				end
-				gs 'arousal', 'end'
 				gs 'stat'
 
 				act 'Finish':minut += 10 & gt'gadukino'
 			end
 		else
-			act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
+			act 'Go to the beach':gt 'gadriver', 'gadbitch'
 			act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
 		end
 	elseif temp_gr = 5 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
@@ -82,26 +81,26 @@ if $ARGS[0] = 'start':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex18.jpg"></center>'
 				'The boys lead you to Vasyan''s house, where they spend an hour fucking you in the ass...'
+				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
+				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
+				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
+				gs 'arousal', 'end'
 				gs 'boyStat', 'A63'
 				npc_sex[$boy] += 1
-				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
 				gs 'cum_call','butt',$boy,1
 				gs 'boyStat', 'A61'
 				npc_sex[$boy] += 1
-				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
 				gs 'cum_call','butt',$boy,1
 				gs 'boyStat', 'A62'
 				npc_sex[$boy] += 1
-				gs 'arousal', 'anal', 20, 'gangbang', 'sub'
 				gs 'cum_call','butt',$boy,1
-				gs 'arousal', 'end'
 				pcs_ass += 3
 				gs 'stat'
 
-				act 'Leave':minut += 10 & gt'gadukino'
+				act 'Leave': gt'gadukino'
 			end
 		else
-			act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
+			act 'Go to the beach':gt 'gadriver', 'gadbitch'
 			act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
 		end
 	elseif temp_gr = 6 and MiraLoc ! 1 and npc_QW['A63'] >= 13 and hour >= 5 and sub > 0:
@@ -129,22 +128,22 @@ if $ARGS[0] = 'start':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Finish':minut += 10 & gt'gadukino'
+				act 'Finish': gt'gadukino'
 			end
 		else
-			act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
+			act 'Go to the beach':gt 'gadriver', 'gadbitch'
 			act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
 		end
 	else
-		act 'Go to the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
+		act 'Go to the beach':gt 'gadriver', 'gadbitch'
 		act 'Go to Gadukino':minut += 20 & MiraLoc ! 1 & gt 'gadukino'
 	end
 end
 
-if $ARGS[0] = 'Gadbitch':
-	PC_arrive = iif($metka ! 'Gadbitch', 1 , 0)
+if $ARGS[0] = 'gadbitch':
+	PC_arrive = iif($metka ! 'gadbitch', 1 , 0)
 	$location_type = 'public_outdoors'
-	$metka = 'Gadbitch'
+	$metka = 'gadbitch'
 	$loc = 'gadriver'
 	menu_off = 1
 	gs 'stat'
@@ -176,15 +175,15 @@ if $ARGS[0] = 'Gadbitch':
 
 	if sunWeather = 1 and MiraLoc = 1:
 		if RAND(0,10) < 5:
-			'<a href="exec:sun = 1 & gt ''Gadriver'', ''Mira'' ">Mira</a> is laying on the beach sunbathing.'
+			'<a href="exec:sun = 1 & gt ''gadriver'', ''Mira'' ">Mira</a> is laying on the beach sunbathing.'
 			if npc_rel['A60'] < 15:npc_rel['A60'] += 1
 		else
-			'<a href="exec:sun = 0 & gt ''Gadriver'', ''Mira'' ">Mira</a> is in the river splashing water around and having fun.'
+			'<a href="exec:sun = 0 & gt ''gadriver'', ''Mira'' ">Mira</a> is in the river splashing water around and having fun.'
 			if npc_rel['A60'] < 15:npc_rel['A60'] += 1
 		end
 	end
 
-	if MiraLoc ! 1 and npc_QW['A63'] >= 13 and RAND(0,10) = 0 and hour >= 8 and hour < 20 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1:'<a href="exec: gt ''Gadriver'', ''GuysRiver'' ">Bob Colby</a> is resting on the riverbank.'
+	if MiraLoc ! 1 and npc_QW['A63'] >= 13 and RAND(0,10) = 0 and hour >= 8 and hour < 20 and month >= 5 and month <= 9 and temper >= 15 and sunWeather = 1:'<a href="exec: gt ''gadriver'', ''GuysRiver'' ">Bob Colby</a> is resting on the riverbank.'
 
 	if temper >= 15 and month >= 5 and month <= 9:
 		temp_gr = RAND(0,9)
@@ -195,7 +194,7 @@ if $ARGS[0] = 'Gadbitch':
 				gs 'underwear', 'remove'
 				gs 'clothing', 'strip', 'VillageRiver'
 				'Without hesitation, you take off all your clothes and neatly fold them before putting them down on a pile. Without your clothes holding you back, you can go for a nice swim in the river or just lie down in the sand and do some sunbathing.'
-				act 'Continue': gt 'Gadriver', 'Gadbitch'
+				act 'Continue': gt 'gadriver', 'gadbitch'
 			end
 		end
 		if $clothingworntype = 'swimwear':
@@ -232,36 +231,27 @@ if $ARGS[0] = 'Gadbitch':
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex13.jpg"></center>'
 						'When you decide it''s time to get out of the river, you hear the sound of men laughing as they walk on the river bank approaching you. As they get closer you see the smirking faces of the village boys led by Mitya headed towards the river bank while you are still in the shallow waters.'
 						'They quickly undress and jump in the water. Within a few seconds you are surrounded by the grinning boys. Without a word they reach for you and roughly take turns forcing you to suck their cocks.'
+						gs 'arousal', 'bj', 15, 'gangbang', 'sub', 'rough'
+						gs 'arousal', 'hj', 15, 'gangbang', 'sub', 'rough'
+						gs 'arousal', 'end'
 						gs 'boyStat', 'A63'
 						npc_sex[$boy] += 1
-						gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
-						gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-						gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-						minut -= 10
 						gs 'cum_call','face',$boy, 1,'','',20
 						gs 'cum_call','hair',$boy, 1,'','',20
 						gs 'boyStat', 'A61'
 						npc_sex[$boy] += 1
-						gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
-						gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-						gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-						minut -= 10
 						gs 'cum_call','face',$boy, 1,'','',20
 						gs 'cum_call','mouth',$boy, 1,'','',20
 						gs 'boyStat', 'A62'
 						npc_sex[$boy] += 1
-						gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
-						gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-						gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 						minut -= 10
 						gs 'cum_call','face',$boy, 1,'','',20
 						gs 'cum_call','mouth',$boy, 1,'','',20
 						swallow += RAND(0,3)
 						gang +=1
-						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
+						act 'Finish':gt'gadriver', 'gadbitch'
 					elseif MiraLoc ! 1 and npc_QW['A63'] >= 13 and temp_gr = 1 and hour >= 8 and hour < 20 and sub > 0:
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex19.jpg"></center>'
@@ -276,9 +266,9 @@ if $ARGS[0] = 'Gadbitch':
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
+						act 'Finish':gt'gadriver', 'gadbitch'
 					else
-						minut += 5 & gt'Gadriver', 'Gadbitch'
+						gt'gadriver', 'gadbitch'
 					end
 				end
 			end
@@ -316,34 +306,27 @@ if $ARGS[0] = 'Gadbitch':
 							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex12.jpg"></center>'
 							'As soon as you step out of the water, you find yourself standing naked in front of a couple of the village boys, judging from the fishing poles they are carrying, you know they were coming to the river to do some fishing.'
 							'But, seeing you skinny dipping, they instead start talking amongst themselves about how much of a slut you are and the only good thing you are for is sucking cock. You tell them to fuck off, but they are too worked up and not listening to you at all.'
+							gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
+							gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
+							gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
+							gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
+							gs 'arousal', 'end'
 							gs 'boyStat', 'A63'
 							npc_sex[$boy] += 1
-							gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
-							gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 							gs 'cum_call','butt',$boy, 1
 							gs 'boyStat', 'A61'
 							npc_sex[$boy] += 1
-							gs 'arousal', 'bj', 5, 'gangbang', 'sub', 'rough'
-							minut -= 10
-							gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
-							gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 							gs 'cum_call','anus',$boy, 1,'','',20
 							gs 'boyStat', 'A62'
 							npc_sex[$boy] += 1
-							gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
-							gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-							gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-							minut -= 10
 							gs 'cum_call','mouth',$boy
 							swallow += RAND(0,1)
 							gs 'stat'
-							gs 'arousal', 'end'
-							gs 'stat'
 							gang +=1
 
-							act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
+							act 'Finish': gt'gadriver', 'gadbitch'
 						else
-							minut += 5 & gt'Gadriver', 'Gadbitch'
+							gt'gadriver', 'gadbitch'
 						end
 					end
 				end
@@ -368,7 +351,7 @@ if $ARGS[0] = 'Gadbitch':
 						end
 						'You are sunbathing by the river when Mira comes along. You smile, she undresses and lays her towel next to yours.'
 
-						act 'Continue': gt'Gadriver', 'Gadbitch'
+						act 'Continue': gt'gadriver', 'gadbitch'
 					elseif $clothingworntype = 'nude':
 						*clr & cla
 						minut += 60
@@ -395,34 +378,26 @@ if $ARGS[0] = 'Gadbitch':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex14.jpg"></center>'
 								'You hear several men''s voices rapidly approaching. All of a sudden a couple of the village boys emerge in front of you. Noticing that you are nude, they brighten up greatly and in a few minutes, despite you protesting lively, they have you on all fours and are roughly fucking you...'
+								gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
 								gs 'boyStat', 'A62'
 								npc_sex[$boy] += 1
-								gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 								gs 'cum_call','butt',$boy, 1
 								gs 'boyStat', 'A63'
 								npc_sex[$boy] += 1
-								gs 'arousal', 'bj', 5, 'gangbang', 'sub', 'rough'
-								minut -= 10
-								gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 								gs 'cum_call','anus',$boy, 1,'','',20
 								gs 'boyStat', 'A61'
 								npc_sex[$boy] += 1
-								gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-								minut -= 10
 								gs 'cum_call','mouth',$boy
-								swallow += RAND(0,1)
-								gs 'stat'
+								swallow += 1
 								gs 'arousal', 'end'
-								gang +=1
 								gs 'stat'
 
-								act 'Get dressed':minut += 5 & gt'Gadriver', 'Gadbitch'
+								act 'Get dressed':gt'gadriver', 'gadbitch'
 							else
-								gt'Gadriver', 'Gadbitch'
+								gt'gadriver', 'gadbitch'
 							end
 						end
 					else
@@ -451,32 +426,25 @@ if $ARGS[0] = 'Gadbitch':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex15.jpg"></center>'
 								'After a while, you hear some familiar voices quickly approaching you. A couple minutes later you see the village boys emerge from the bushes. Noticing you sunbathing, they brighten up greatly. In a short amount of time, despite you protesting lively, all of your holes have been violated...'
+								gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'hj', 10, 'gangbang', 'sub', 'rough'
+								gs 'arousal', 'end'
 								gs 'boyStat', 'A61'
 								npc_sex[$boy] += 1
-								gs 'arousal', 'vaginal', 10, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 								gs 'cum_call','butt',$boy, 1
 								gs 'boyStat', 'A62'
 								npc_sex[$boy] += 1
-								gs 'arousal', 'bj', 5, 'gangbang', 'sub', 'rough'
-								minut -= 10
-								gs 'arousal', 'anal', 10, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
 								gs 'cum_call','anus',$boy, 1,'','',20
 								gs 'boyStat', 'A63'
 								npc_sex[$boy] += 1
-								gs 'arousal', 'bj', 10, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-								gs 'arousal', 'hj', 5, 'gangbang', 'sub', 'rough'
-								minut -= 10
 								gs 'cum_call','mouth',$boy
-								swallow += RAND(0,1)
-								gs 'stat'
-								gs 'arousal', 'end'
+								swallow += 1
 								gang +=1
 								gs 'stat'
 
-								act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
+								act 'Finish':gt'gadriver', 'gadbitch'
 							elseif MiraLoc = 1 and npc_QW['A60'] >= 15 and temp_gr = 1 and hour >= 8 and hour < 20:
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaguysriversex16.jpg"></center>'
@@ -486,10 +454,10 @@ if $ARGS[0] = 'Gadbitch':
 								gs 'arousal', 'end'
 								gs 'stat'
 
-								act 'Finish':minut += 5 & gt'Gadriver', 'Gadbitch'
+								act 'Finish': gt'gadriver', 'gadbitch'
 							else
 								minut += 5
-								gt'Gadriver', 'Gadbitch'
+								gt'gadriver', 'gadbitch'
 							end
 						end
 					end
@@ -505,7 +473,7 @@ if $ARGS[0] = 'Gadbitch':
 			minut += 5
 			gs 'underwear', 'wear'
 			if clothesAtLocation = 1: gs 'clothing', 'recover_lost_clothes', 'VillageRiver', 1
-				act 'Continue': gt 'Gadriver', 'Gadbitch'
+				act 'Continue': gt 'gadriver', 'gadbitch'
 		end
 	end
 
@@ -514,13 +482,13 @@ if $ARGS[0] = 'Gadbitch':
 		if $clothingworntype = 'swimwear':
 			cla
 			'You need to dress in regular clothes first.'
-			act'Return':gt'Gadriver', 'Gadbitch'
+			act'Return':gt'gadriver', 'gadbitch'
 		elseif $clothingworntype = 'nude':
 			'You need to put some clothes on first.'
-			act'Return':gt'Gadriver', 'Gadbitch'
+			act'Return':gt'gadriver', 'gadbitch'
 		else
 			minut += 5
-			gt 'Gadriver', 'start'
+			gt 'gadriver', 'start'
 		end
 	end
 !! extraordinary events at the river beach. Be aware, this part has to be at the end because it removes actions, which were set before.
@@ -539,7 +507,7 @@ if $ARGS[0] = 'Gadbitch':
 		*nl
 		'"<<$pcs_nickname>>, I have to go home, " Mira said to you and began to gather her stuff.'
 
-		act 'Continue': gt'Gadriver', 'Gadbitch'
+		act 'Continue': gt'gadriver', 'gadbitch'
 	elseif Mira_no = 0 and MiraLoc = 1 and hour > 8 and hour < 20 and sunWeather = 1 and temper >= 15 and PC_arrive = 1:
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_in_river.jpg"></center>'
@@ -567,7 +535,7 @@ if $ARGS[0] = 'Gadbitch':
 					'You start to take off your clothes.'
 					if ARRSIZE('swimwear') > 0:
 						act 'Change into swimwear':
-							gs 'Gadriver','get_changed','start'
+							gs 'gadriver','get_changed','start'
 						end
 					end
 					if pcs_inhib >= 25 or exhibitionist_lvl > 1:
@@ -592,7 +560,7 @@ if $ARGS[0] = 'Gadbitch':
 								pcs_sweat = 10 + rand(0,4)
 								gs'stat'
 
-								act 'Get out of the water':gt'Gadriver', 'Gadbitch'
+								act 'Get out of the water':gt'gadriver', 'gadbitch'
 							end
 						end
 					end
@@ -600,7 +568,7 @@ if $ARGS[0] = 'Gadbitch':
 				end
 				act'Refuse': gt 'gadriver', 'second_thoughts'
 			else
-				gt'Gadriver', 'Gadbitch'
+				gt'gadriver', 'gadbitch'
 			end
 		end
 	end
@@ -630,7 +598,7 @@ if $ARGS[0] = 'get_changed':
 				pcs_sweat = 10 + rand(0,4)
 				gs'stat'
 
-				act 'Get out of the water':gt'Gadriver', 'Gadbitch'
+				act 'Get out of the water':gt'gadriver', 'gadbitch'
 			end
 		else
 			act'Second thoughts': gt 'gadriver', 'second_thoughts'
@@ -651,7 +619,7 @@ if $ARGS[0] = 'second_thoughts':
 	npc_rel['A60'] -= 1
 	gs 'stat'
 
-	act 'Continue': gt'Gadriver', 'Gadbitch'
+	act 'Continue': gt'gadriver', 'gadbitch'
 end
 
 if $ARGS[0] = 'Mira':
@@ -673,7 +641,7 @@ if $ARGS[0] = 'Mira':
 			'<center><img <<$set_imgh>> src="images/characters/village/mira/mirarivernude.jpg"></center>'
 		end
 	end
-	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
+	act 'Leave':gt 'gadriver', 'gadbitch'
 
 	act 'Chat':
 		*clr & cla
@@ -715,7 +683,7 @@ if $ARGS[0] = 'Mira':
 				'You and Mira are chatting about trivial things.'
 			end
 		end
-		act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
+		act 'Leave':gt 'gadriver', 'gadbitch'
 	end
 end
 
@@ -730,7 +698,7 @@ if $ARGS[0] = 'mirapunish':
 	'You approach Mira, she is looking distressed and embarrassingly smiles as you start asking what happened. She pleads you to release her. As you untie her, she explains that Kolyamba punished her for barely biting his cock as she sucked it...'
 	'"Thank God you showed up." she says with a sigh of relief as you untie her. "I''m glad it was you who found me and not one of those old hags from the village. They would be calling me a whore and I would get scolded about being promiscuous. Those old hags hate us you know. We''re young and beautiful and they are just mean old wrenches." said the naked Mira, revealing her true feelings about the villagers. She continues quietly, "Or it could have been even worse, someone could have abused me, raped me or even killed m..." All of a sudden she stops and lunges herself in your arms weeping. "Thank you," she tells you. "You saved my life!"'
 
-	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
+	act 'Leave':gt 'gadriver', 'gadbitch'
 end
 
 if $ARGS[0] = 'GuysRiver':
@@ -799,7 +767,7 @@ if $ARGS[0] = 'GuysRiver':
 					gs 'arousal', 'end'
 					gs 'stat'
 				end
-				act 'Leave':minut += 5 & gt'Gadriver', 'Gadbitch'
+				act 'Leave':gt'gadriver', 'gadbitch'
 			end
 		end
 	elseif temp_gr < 8:
@@ -849,7 +817,7 @@ if $ARGS[0] = 'GuysRiver':
 					gs 'arousal', 'end'
 					gs 'stat'
 				end
-				act 'Leave':minut += 5 & gt'Gadriver', 'Gadbitch'
+				act 'Leave':gt'gadriver', 'gadbitch'
 			end
 		end
 	else
@@ -914,12 +882,12 @@ if $ARGS[0] = 'GuysRiver':
 					gs 'arousal', 'end'
 					gs 'stat'
 				end
-				act 'Leave':minut += 5 & gt'Gadriver', 'Gadbitch'
+				act 'Leave':gt'gadriver', 'gadbitch'
 			end
 		end
 	end
 	if pcs_dom > 0:
-		act 'Leave':minut += 5 & gt'Gadriver', 'Gadbitch'
+		act 'Leave':gt'gadriver', 'gadbitch'
 	end
 end
 
@@ -954,7 +922,7 @@ if $ARGS[0] = 'fishers':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 					'You keep watching as the fishermen throw out their lures, one of them catches a fish and shows off his trophy before putting it into the fish bail. The two of you chat about fishing.'
 
-					act 'Leave':minut += 5 & gt 'Gadriver', 'start'
+					act 'Leave':gt 'gadriver', 'start'
 				end
 			end
 			if fishersQW = 4:
@@ -968,7 +936,7 @@ if $ARGS[0] = 'fishers':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 					'You decide to try your luck at fishing and ask the fishermen if they could lend you a fishing rod. A friend of the family, Uncle Stepan points to a pile of spare rods and tells you to pick one.'
 
-					act 'Fishing':gt 'Gadriver', 'fishing'
+					act 'Fishing':gt 'gadriver', 'fishing'
 				end
 			end
 			if fishersQW = 5:
@@ -981,14 +949,14 @@ if $ARGS[0] = 'fishers':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 					'You decide to join your new friends, Uncle Stepan tells you he has plenty of spare rods, and he hands you a rod while his eyes travel up and down your body.'
 
-					act 'Fishing':gt 'Gadriver', 'fishing'
+					act 'Fishing':gt 'gadriver', 'fishing'
 				end
 			end
 
-			act 'Leave':minut += 5 & gt 'Gadriver', 'start'
+			act 'Leave':gt 'gadriver', 'start'
 		end
 	else
-		act 'Leave':minut += 5 & gt 'Gadriver', 'start'
+		act 'Leave':gt 'gadriver', 'start'
 	end
 end
 
@@ -1048,11 +1016,11 @@ if $ARGS[0] = 'fishing':
 						'You strike, but the lack of tension makes the fish escape from the hook.'
 
 					end
-					act 'Throw another bait':gt 'Gadriver', 'fishing'
+					act 'Throw another bait':gt 'gadriver', 'fishing'
 				end
 			else
 				'The bobber remains perfectly still, eventually you decide to try a different lure.'
-				act 'Retrieve bait':gt 'Gadriver', 'fishing'
+				act 'Retrieve bait':gt 'gadriver', 'fishing'
 			end
 		end
 		act 'Finish':
@@ -1074,7 +1042,7 @@ if $ARGS[0] = 'fishing':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 					'You decide to release all the fish you caught today, the other fishermen shake their heads disapprovingly, throwing sidelong glances at your body as you dump the fish back into the river.'
 
-					act 'Leave':minut += 5 & gt $loc, $metka
+					act 'Leave':gt $loc, $metka
 				end
 				act 'Give the fish to Uncle Stepan':
 					cla
@@ -1086,7 +1054,7 @@ if $ARGS[0] = 'fishing':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 					'You give all the fish you caught to uncle Stepan and he makes a show out of reluctantly accepting them, but you can see that he is actually quite happy with this arrangement.'
 
-					act 'Leave':minut += 5 & gt $loc, $metka
+					act 'Leave':gt $loc, $metka
 				end
 				act 'Bring a fish to Boniface':
 					cla
@@ -1112,7 +1080,7 @@ if $ARGS[0] = 'fishing':
 					act 'Finish': gt 'Gadhouse'
 				end
 			else
-				act 'Leave':minut += 5 & gt $loc, $metka
+				act 'Leave':gt $loc, $metka
 			end
 		end
 	else
@@ -1136,7 +1104,7 @@ if $ARGS[0] = 'fishing':
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 				'You decide to release all the fish you caught today, the other fishermen shake their heads disapprovingly, throwing sidelong glances at your body as you dump the fish back into the river.'
 
-				act 'Leave':minut += 5 & gt $loc, $metka
+				act 'Leave':gt $loc, $metka
 			end
 			act 'Give to Uncle Stepan':
 				cla
@@ -1148,7 +1116,7 @@ if $ARGS[0] = 'fishing':
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/river/talkfishers.jpg"></center>'
 				'You give all the fish caught to uncle Stepan and he reluctantly accepts them, you can see he is quite happy with this arrangement.'
 
-				act 'Leave':minut += 5 & gt $loc, $metka
+				act 'Leave':gt $loc, $metka
 			end
 			act 'Bring a fish to Boniface':
 				cla
@@ -1174,7 +1142,7 @@ if $ARGS[0] = 'fishing':
 				act 'Finish': gt 'Gadhouse'
 			end
 		else
-			act 'Leave':minut += 5 & gt $loc, $metka
+			act 'Leave':gt $loc, $metka
 		end
 	end
 end

+ 26 - 21
locations/gadukino.qsrc

@@ -1,15 +1,19 @@
 # gadukino
 
 if $ARGS[0] = '':
-	$metka = $ARGS[0]
-	$loc = $CURLOC
+	$loc = 'gadukino'
+	$metka = ''
 	$location_type = 'public_outdoors'
 	CLOSE ALL
 	gs 'gadukino_event', 'gadukino'
-	!125s
+
+	$menu_loc = 'gadukino'
+	$menu_arg = ''
+	menu_off = 0
+
 	!exec before everything
-	mitkarand = rand(1,12)
 	!lower chance (1/3 to 1/12) and once per day by illume
+	mitkarand = rand(1,12)
 	if mitkaday ! daystart and mitka = 0 and hour >= 7 and hour < 20 and mitkarand = 1:
 		*clr & cla
 		minut += 5
@@ -18,7 +22,7 @@ if $ARGS[0] = '':
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
 		'In the village you are approached by your old friend Mitka.'
 
-		act 'Further':gt 'mitka'
+		act 'Continue':gt 'mitka'
 	elseif mitkaday ! daystart and mitka = 1 and hour >= 17 and hour < 20 and mitkarand = 1 and mitkaday ! daystart and npc_QW['A63'] < 13:
 		*clr & cla
 		minut += 5
@@ -27,7 +31,7 @@ if $ARGS[0] = '':
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
 		'In the village you are approached by your old friend Mitka.'
 
-		act 'Further':gt 'mitka'
+		act 'Continue':gt 'mitka'
 	else
 		mitkarand = rand(1,20)
 		if gadriver_gang < 3:
@@ -70,7 +74,7 @@ if $ARGS[0] = '':
 		end
 		if npc_rel['A60'] > 0: 'Just down the road from your grandparents house is <a href="exec:minut += 5 & gt ''MiroslavaHome'', ''start''">Mira''s</a> house.'
 		*nl
-		!125s
+
 		if month >= 6 and month <= 9:
 			if hour >= 9 and hour <= 11:
 				'A truck from the city has come to <a href="exec: gt ''gadukino'',''collection_point''">collect</a> mushrooms and berries. Will stay around until noon.'
@@ -184,14 +188,14 @@ if $ARGS[0] = 'succubus_hunt':
 		'God, this place is dull! After searching for an hour, you find no one; not even a stray cat seems to be out and about tonight. You give up reluctantly, pondering how else you are going to feed tonight.'
 		act 'Continue': gt 'gadukino'
 	else
-		'You are getting really antsy to feed, and after finding absolutely no one outside, you decide that breaking into someone''s house, risky as it is, is still better than going hungry.' 
+		'You are getting really antsy to feed, and after finding absolutely no one outside, you decide that breaking into someone''s house, risky as it is, is still better than going hungry.'
 		*nl
 		!Another rand_check here to choose the scene?
-		'You break the lock of the first house you see and go inside. You sneak around the house, looking for a meal, but there''s nobody there. This entire night is a bust... Well, since you''re here, you might as well try and see if there''s any regular food that helps with your hunger, even though you doubt it.' 
+		'You break the lock of the first house you see and go inside. You sneak around the house, looking for a meal, but there''s nobody there. This entire night is a bust... Well, since you''re here, you might as well try and see if there''s any regular food that helps with your hunger, even though you doubt it.'
 		'You head to the kitchen for a midnight snack, and as you tear through the fridge, eating whatever looks appetizing, you hear a man curse.'
 		'"Shit, what the hell happened to my door?!"'
 		'You freeze on the spot. You didn''t think anybody would actually come home while you were still here, but now that they did, maybe you can still salvage this mess.'
-		
+
 		act 'Strip':
 			*clr
 			cla
@@ -204,10 +208,10 @@ if $ARGS[0] = 'succubus_hunt':
 			'You give him a good look at your body; according to your plan, that should be enough to calm him down. Unfortunately, he doesn''t seem to be aware of the plan, cause he is having none of it.'
 			'"Have you been eating my food?! Get the hell out of my house!"'
 			*nl
-			'He grabs you and starts dragging you towards the door. You protest and try in vain to seduce him, wondering how anyone could resist your charms like this. Then you remember that you are stronger than him - weird how easily superhuman strength can slip your mind.' 
+			'He grabs you and starts dragging you towards the door. You protest and try in vain to seduce him, wondering how anyone could resist your charms like this. Then you remember that you are stronger than him - weird how easily superhuman strength can slip your mind.'
 			'As soon as you resist his pull, he grinds to a halt, confused by the fact that he can''t move you further. With the tables turned, you grab him and half-drag, half-throw him into his own living room where he lands on his back, stunned by the fact that this woman so easily overpowered him.'
 			'You pull his pants off and, already nude yourself, lower your pussy to his cock. He may have played the angry man, but the fact that it stands at attention soothes your bruised ego - your seduction efforts didn''t go completely unnoticed - and you plunge yourself down on top of him.'
-			
+
 			act 'Feed on him':
 				*clr
 				cla
@@ -230,13 +234,13 @@ if $ARGS[0] = 'succubus_hunt':
 				sucabscum = 1
 				minut += 15 + (20 * scfeed) / succublvl
 				'<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
-				
-				'You ride him hard, desperate to get your hungry pussy the nourishment it requires.' 
+
+				'You ride him hard, desperate to get your hungry pussy the nourishment it requires.'
 				if scrand < succublvl:
-					'Your seduction and succubus powers were strong enough to get your victim hard, but they weren''t enough to make him forget about his situation: He is giving you hateful looks, clearly pissed about his door and food and, oh yeah, the fact you are raping him, but you simply ignore that.' 
-					'All you need is his sperm. You could care less about his happiness, and if he wants to complain about a woman like you fucking his brains out, that''s his problem. Just as you''re thinking that, your powers surge and force him to come, unloading his jizz deep into your waiting cunt.' 
+					'Your seduction and succubus powers were strong enough to get your victim hard, but they weren''t enough to make him forget about his situation: He is giving you hateful looks, clearly pissed about his door and food and, oh yeah, the fact you are raping him, but you simply ignore that.'
+					'All you need is his sperm. You could care less about his happiness, and if he wants to complain about a woman like you fucking his brains out, that''s his problem. Just as you''re thinking that, your powers surge and force him to come, unloading his jizz deep into your waiting cunt.'
 					*nl
-					'You don''t know how long you go at it with him exactly, but after coming inside you <<$scxcum>>, and thus making you come too, he runs out of energy and falls unconscious. You lift yourself off of your passed-out plaything and head for the kitchen to collect your clothes as well as one last snack, feeling wonderfully relaxed after getting your fix.' 
+					'You don''t know how long you go at it with him exactly, but after coming inside you <<$scxcum>>, and thus making you come too, he runs out of energy and falls unconscious. You lift yourself off of your passed-out plaything and head for the kitchen to collect your clothes as well as one last snack, feeling wonderfully relaxed after getting your fix.'
 					'Then you head out the back door, making sure to break the handle on the way out - you''re nothing if not consistent.'
 				else
 					'He was resisting you initially, but after a while, your powers break any resistance he had in him. By the time his first orgasm hits and he shoots his sperm into your needy cunt, he would have betrayed his own mother, much less broken his front door and laid his fridge at your feet, just to be inside you a little longer.'
@@ -291,14 +295,14 @@ if $ARGS[0] = '1':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow_path.jpg"></center>'
 					' A few minutes later, snacking on an apple, you stumble upon the remains of an overgrown dirt road running through the middle of a majestic meadow filled with wildflowers. Judging by its undisturbed state no one uses it.'
 
-					act 'Further':
+					act 'Claim the meadow':
 						*clr & cla
 						minut += 20
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/meadow/meadow1_<<rand(0,5)>>.jpg"></center>'
-						'You spend another twenty minutes exploring the meadow and its surroundings. You''re positive no one visits this location. You loudly proclaim the meadow to be your domain and you are its ruler. Eventually, you decide to head back to the village and to your surprise, the path you follow back emerges into your grandparents back yard.'
+						'You spend another twenty minutes exploring the meadow and its surroundings. You''re positive no one visits this location. You loudly proclaim the meadow to be your domain and you are its ruler. Eventually, you decide to head back to the village. To your surpise, your discover a quick shortcut that leads from the meadow back to your grandparents house.'
 
-						act 'Return to the village': gt 'Gaddvor'
+						act 'Return to the house': gt 'Gaddvor'
 					end
 				end
 			end
@@ -307,6 +311,7 @@ if $ARGS[0] = '1':
 end
 
 if $ARGS[0] = '2':
+	! never met mira before
 	if npc_rel['A60'] = 0:
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/miroslava.jpg"></center>'
@@ -320,7 +325,7 @@ if $ARGS[0] = '2':
 			'You decide to lend a hand to help the girl with the calf. You are lonely in the village, and maybe this girl, if you get to know her, could your trips to Gadukino less boring. You walk over to the girl and introduce yourself and ask if she wants help. She nods and resumes pulling on the rope, while you walk over behind the calf and give it a load slap on the rump. The calf is surprised and immediately to moves forward away from you. The girl smiles in thanks and tells you her name is Miroslava, but everyone calls her Mira.'
 			'Together you are able to guide the calf back into its pen. Mira turns out to be quite a sociable girl and conversationalist. You learn that her family was recently forced to move to the village from the city. Her father''s huge gambling debts to some questionable men forced him to eventually sell the family''s property in the city to pay them back. Mira is having a rough time adjusting to the life in a small village. She misses the apartment in the center of the city and the money to buy nice dresses and makeup with. After selling everything and paying off the debt, her father was told to leave the city "or else...", so they were destitute and could only afford to buy a house in this run down dust covered village. You walk with her and chat until you reach her house, which is close by to your grandparent''s place. Mira invites you to come and visit her at any time. She is just as bored in the village as you are.'
 
-			act 'Finish': gt 'gadukino'
+			act 'Finish your walk': gt 'gadukino'
 		end
 
 		act 'Walk away': gt 'gadukino'

+ 48 - 46
locations/gadukino_event.qsrc

@@ -8,7 +8,7 @@ if $ARGS[0] = 'mira_apologise':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/turn_back.jpg"></center>'
 	'Walking through the village you hear someone catching up to you. Turning around, you see Mira nearing you.'
 
-	act 'Further':
+	act 'Continue':
 		*clr & cla
 		minut += 5
 		gs 'stat'
@@ -33,7 +33,7 @@ if $ARGS[0] = 'mira_apologise':
 			'"Ok, I agree to a truce," you say smiling, genuinely filled with joy ending all the drama. "I forgive you."'
 			'"And...?" Mira asks you.'
 			'Instead of answering her, you grab her by the arm and pull her into the bushes.'
-			act 'Further': gt 'mirasex','miralick_first'
+			act 'Continue': gt 'mirasex','miralick_first'
 		end
 		act 'Refuse':
 			*clr & cla
@@ -63,7 +63,7 @@ if $ARGS[0] = 'mitka_apologise':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/turn_back.jpg"></center>'
 	'Walking through the village you hear someone catching up to you. Turning around, you see Mitka running towards you. Knowing from experience, that boys are faster runners, you stop and wait for him to catch up.'
 
-	act 'Further':
+	act 'Continue':
 		*clr & cla
 		minut += 5
 		gs 'stat'
@@ -110,7 +110,7 @@ if $ARGS[0] = 'gang_apologise':
 		'He looked at you with sorrow in his eyes. You did not expect that anyone of them would be sorry.'
 		'"I had a talk with the other men in the morning, and, uh," uncle Stepan losing his composure. "Well, in short, I decided that I wanted to talk to you, apologize and ask if you could forget about yesterday... I''m really sorry and I''m worried that we might have damaged you physically."'
 		'You looked skeptically at "your uncle", not really knowing if he''s joking or not.'
-		act 'Further':
+		act 'Continue':
 			*clr & cla
 			minut += 5
 			gs 'stat'
@@ -165,12 +165,13 @@ if $ARGS[0] = 'gang_apologise':
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/girl_escapes.jpg"></center>'
 		'You started running away from the road, not stopping before you felt you were in the clear.'
 		'"Good thing I ran away from that evil man." you thought to yourself, looking around.'
-		act 'Further':gt'Meadow'
+		act 'Continue':gt'Meadow'
 	end
 end
 
 if $ARGS[0] = 'gadriver_gang':
 	minut += 5
+	menu_off = 1
 	gadriver_gang = 1
 	gadboyday = daystart
 	npc_QW['A63'] = 21
@@ -182,7 +183,7 @@ if $ARGS[0] = 'gadriver_gang':
 	'You walked along the path, fully immersed in your inner thoughts, you didn''t immediately notice the crowd of drunken village men. Noticing you alone the men turn their attention towards you.'
 	'One of the men grabs you and forces you away from the village. They start stripping you, surround you on all sides, taking out their cocks, warming up for what''s supposed to come. You think about resisting, but considering your reputation in the village, you find it''s not worth fighting, plus there was no way you could fight against this many men so you humbly kneel.'
 
-	act 'Suck':
+	act 'Suck the nearest cock':
 		*clr & cla
 		gs 'underwear', 'wear'
 		gs 'clothing', 'strip'
@@ -197,7 +198,7 @@ if $ARGS[0] = 'gadriver_gang':
 		minut -= 5
 		gs 'stat'
 
-		act 'Keep sucking':
+		act 'Suck the next guy':
 			*clr & cla
 			gs 'npcgeneratec', 0, 'some country guy', rand(19,45)
 			gs 'boyStat', $npclastgenerated, 'a'
@@ -208,7 +209,7 @@ if $ARGS[0] = 'gadriver_gang':
 			gs 'arousal', 'bj', 5, 'sub', 'gangbang'
 			gs 'stat'
 
-			act 'Further':
+			act 'Deepthroat two at once':
 				*clr & cla
 				gs 'npcgeneratec', 0, 'some country guy', rand(19,45)
 				gs 'boyStat', $npclastgenerated, 'b'
@@ -219,7 +220,7 @@ if $ARGS[0] = 'gadriver_gang':
 
 				gs 'arousal', 'bj', 5, 'sub', 'gangbang', 'deepthroat'
 				gs 'stat'
-				act 'Further':
+				act 'Make the first trio cum':
 					*clr & cla
 					minut += 5
 					gs 'cum_call', 'mouth', $boy, 1
@@ -227,11 +228,11 @@ if $ARGS[0] = 'gadriver_gang':
 					gs 'cum_call', 'stomach', $boy2, 1
 
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/river/gadriver_gang_cum1.jpg"></center>'
-					'It doesn''t take long before the first men finish, cumming in your mouth, on the face and chest. You continue sucking the men off, however...'
+					'It doesn''t take long before the first men finish, cumming in your mouth, on the face and chest. You continue sucking more men off, however...'
 
 					gs 'arousal', 'bj', 5, 'sub', 'gangbang', 'deepthroat'
 					gs 'stat'
-					act 'Further':
+					act 'Continue':
 						*clr & cla
 						gs 'npcgeneratec', 0, 'some country man', rand(19,45)
 						gs 'boyStat', $npclastgenerated
@@ -245,7 +246,7 @@ if $ARGS[0] = 'gadriver_gang':
 						minut -= 5
 						gs 'stat'
 
-						act 'Further':
+						act 'Continue':
 							*clr & cla
 							minut += 5
 							gs 'npcgeneratec', 0, 'man', rand(19,45)
@@ -264,7 +265,7 @@ if $ARGS[0] = 'gadriver_gang':
 							pose = 1
 							if rand(1,2) = 1:gs 'dinsex','sexcum'
 
-							act 'Further':
+							act 'Continue':
 								*clr & cla
 								gs 'npcgeneratec', 0, 'drunk man', rand(19,45)
 								gs 'boyStat', $npclastgenerated
@@ -283,7 +284,7 @@ if $ARGS[0] = 'gadriver_gang':
 								minut -= 5
 								gs 'stat'
 
-								act 'Further':
+								act 'Continue':
 									*clr & cla
 									gs 'boyStat', 'A63'
 									npc_sex[$boy] += 1
@@ -298,7 +299,7 @@ if $ARGS[0] = 'gadriver_gang':
 									minut -= 5
 									gs 'stat'
 
-									act 'Further':
+									act 'Continue':
 										*clr & cla
 										gs 'boyStat', 'A171'
 										npc_sex[$boy] += 1
@@ -316,7 +317,7 @@ if $ARGS[0] = 'gadriver_gang':
 										minut -= 5
 										gs 'stat'
 
-										act 'Further':
+										act 'Continue':
 											*clr & cla
 											gs 'npcgeneratec', 0, 'village man', rand(19,45)
 											gs 'boyStat', $npclastgenerated
@@ -333,7 +334,7 @@ if $ARGS[0] = 'gadriver_gang':
 											if rand(1,2) = 1:gs 'dinsex','sexcum'
 											gs 'stat'
 
-											act 'Further':
+											act 'Continue':
 												*clr & cla
 												minut += 5
 												gs 'boyStat', 'A62'
@@ -352,7 +353,7 @@ if $ARGS[0] = 'gadriver_gang':
 												gs 'stat'
 												*pl
 
-												act 'Further':
+												act 'Continue':
 													*clr & cla
 													minut += 5
 													if pcs_health <= 100:pcs_health += 100
@@ -365,7 +366,7 @@ if $ARGS[0] = 'gadriver_gang':
 													'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/river/gadriver_gang_oral4.jpg"></center>'
 													'The men decide that your holes need a rest, so the next few men are only going to get oral pleasure. They tell you to get on your knees and ordered you to suck.'
 
-													act 'Further':
+													act 'Continue':
 														*clr & cla
 														gs 'cum_call', 'mouth', $boy, 1
 														swallow += 1
@@ -386,7 +387,7 @@ if $ARGS[0] = 'gadriver_gang':
 														'They finish and walk away.'
 														gs 'stat'
 
-														act 'Further':
+														act 'Continue':
 															*clr & cla
 															gs 'npcgeneratec', 0, 'man', rand(19,45)
 															gs 'boyStat', $npclastgenerated
@@ -404,7 +405,7 @@ if $ARGS[0] = 'gadriver_gang':
 															'The men cum and walk away feeling satisfied.'
 															gs 'stat'
 
-															act 'Further':
+															act 'Continue':
 																*clr & cla
 																gs 'npcgeneratec', 0, 'unfamiliar guy', rand(19,45)
 																gs 'boyStat', $npclastgenerated
@@ -422,7 +423,7 @@ if $ARGS[0] = 'gadriver_gang':
 																'The men cum and walk away feeling satisfied.'
 																gs 'stat'
 
-																act 'Further':
+																act 'Continue':
 																	*clr & cla
 																	gs 'npcgeneratec', 0, 'guy', rand(19,45)
 																	gs 'boyStat', $npclastgenerated
@@ -438,7 +439,7 @@ if $ARGS[0] = 'gadriver_gang':
 																	minut -= 5
 																	gs 'stat'
 
-																	act 'Further':
+																	act 'Continue':
 																		*clr & cla
 																		gs 'npcgeneratec', 0, 'Drunk man', rand(19,45)
 																		gs 'boyStat', $npclastgenerated
@@ -453,7 +454,7 @@ if $ARGS[0] = 'gadriver_gang':
 																		minut -= 5
 																		gs 'stat'
 
-																		act 'Further':
+																		act 'Continue':
 																			*clr & cla
 																			gs 'boyStat', 'A172'
 																			npc_sex[$boy] += 1
@@ -470,7 +471,7 @@ if $ARGS[0] = 'gadriver_gang':
 																			minut -= 5
 																			gs 'stat'
 
-																			act 'Further':
+																			act 'Continue':
 																				*clr & cla
 																				gs 'npcgeneratec', 0, 'a man', rand(19,45)
 																				gs 'boyStat', $npclastgenerated
@@ -487,7 +488,7 @@ if $ARGS[0] = 'gadriver_gang':
 																				if rand(1,2) = 1:gs 'dinsex','sexcum'
 																				gs 'stat'
 
-																				act 'Further':
+																				act 'Continue':
 																					*clr & cla
 																					minut += 5
 																					if pcs_health <= 100:pcs_health += 100
@@ -497,7 +498,7 @@ if $ARGS[0] = 'gadriver_gang':
 																					'"I really hope that that was the last one..." you thought.'
 																					'This was just unfortunately wishful thinking. The men soon put you on your knees and then several men shoved their cocks in your face.'
 
-																					act 'Further':
+																					act 'Continue':
 																						*clr & cla
 																						gs 'npcgeneratec', 0, 'stranger', rand(19,45)
 																						gs 'boyStat', $npclastgenerated
@@ -514,7 +515,7 @@ if $ARGS[0] = 'gadriver_gang':
 																						if rand(1,2) = 1:gs 'dinsex','sexcum'
 																						gs 'stat'
 
-																						act 'Further':
+																						act 'Continue':
 																							*clr & cla
 																							gs 'npcgeneratec', 0, 'drunk guy', rand(19,45)
 																							gs 'boyStat', $npclastgenerated
@@ -534,7 +535,7 @@ if $ARGS[0] = 'gadriver_gang':
 																							if rand(1,2) = 1:gs 'dinsex','sexcum'
 																							*pl
 
-																							act 'Further':
+																							act 'Continue':
 																								*clr & cla
 																								gs 'npcgeneratec', 0, 'a man', rand(19,45)
 																								gs 'boyStat', $npclastgenerated
@@ -553,7 +554,7 @@ if $ARGS[0] = 'gadriver_gang':
 																								minut -= 5
 																								gs 'stat'
 
-																								act 'Further':
+																								act 'Continue':
 																									*clr & cla
 																									gs 'npcgeneratec', 0, 'unknown man', rand(19,45)
 																									gs 'boyStat', $npclastgenerated
@@ -570,7 +571,7 @@ if $ARGS[0] = 'gadriver_gang':
 																									minut -= 5
 																									gs 'stat'
 
-																									act 'Further':
+																									act 'Continue':
 																										*clr & cla
 																										gs 'npcgeneratec', 0, 'a villager', rand(19,45)
 																										gs 'boyStat', $npclastgenerated
@@ -587,7 +588,7 @@ if $ARGS[0] = 'gadriver_gang':
 																										minut -= 5
 																										gs 'stat'
 
-																										act 'Further':
+																										act 'Continue':
 																											*clr & cla
 																											minut += 5
 																											if pcs_health <= 100:pcs_health += 100
@@ -598,7 +599,7 @@ if $ARGS[0] = 'gadriver_gang':
 																											gs 'arousal', 'bj', 5, 'sub', 'gangbang', 'deepthroat'
 																											gs 'stat'
 
-																											act 'Further':
+																											act 'Continue':
 																												*clr & cla
 																												minut += 5
 																												gs 'npcgeneratec', 0, 'stranger', rand(19,45)
@@ -616,20 +617,21 @@ if $ARGS[0] = 'gadriver_gang':
 
 																												'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/river/gadriver_gang_cum3.jpg"></center>'
 																												'Like a panicked animal being pushed against a wall you gave it all, using all your might to please them. Your endeavor didn''t go unnoticed, some of men began cumming in your mouth and some of them on your face. There was so much sperm that your chest and abdomen also got covered.'
-																												act 'Further':
+																												act 'Continue':
 																													*clr & cla
 																													minut += 5
 																													gs 'cum_call', 'mouth', $boy3, 1
 																													gs 'cum_call', 'face', $boy4, 1
-																													swallow += 1
+																													swallow += 2
 																													gang += 1
+																													menu_off = 0
 																													gs 'stat'
 
 																													'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/river/gadriver_gang_cum4.jpg"></center>'
 																													'When the last men finally came, the crowd began to disperse, leaving you wrapped in a tattered blanket. You hear them sharing impressions of their drunken antics.'
 																													gs 'arousal', 'end'
 																													gs 'stat'
-																													act 'Further':minut += 5 & gt'Gadriver', 'Gadbitch'
+																													act 'Leave':minut += 5 & gt'gadriver', 'gadbitch'
 																												end
 																											end
 																										end
@@ -670,7 +672,7 @@ if $ARGS[0] = 'gadukino_mitka':
 	'Walking through the village you met Mitka. Seeing you, he started rubbing his crotch and said with a grin.'
 	'"Hey, <<$pcs_nickname>>, let''s go have some fun getting rid of this boner you just gave me."'
 
-	act 'Further': gt 'mitkasex', 'gad1', 'A63'
+	act 'Go with him': gt 'mitkasex', 'gad1', 'A63'
 end
 
 if $ARGS[0] = 'gadukino_kolyamba':
@@ -682,7 +684,7 @@ if $ARGS[0] = 'gadukino_kolyamba':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/kolyamba.jpg"></center>'
 	'Walking through the village you met Kolyamba. Seeing you, he reached into his pants and started playing with his balls. He then grabbed you by the arm and dragged into the bushes next to the road.'
 
-	act 'Further': gt 'mitkasex', 'gad1', 'A61'
+	act 'Go with him': gt 'mitkasex', 'gad1', 'A61'
 end
 
 if $ARGS[0] = 'gadukino_vasyan':
@@ -690,11 +692,11 @@ if $ARGS[0] = 'gadukino_vasyan':
 	vasyanday = daystart
 	gs 'stat'
 
-	'<center><b><font color = maroon>Vasya Paket</font></b></center>'
+	'<center><b><font color = maroon>Vasyan Paket</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/vasyan.jpg"></center>'
 	'Walking through the village you met Vasya. Seeing you, he smiled and waved you over to him. He kisses you on the lips and asks you to join him as he walked into the bushes next to the road.'
 
-	act 'Further': gt 'mitkasex', 'gad1', 'A62'
+	act 'Go with him': gt 'mitkasex', 'gad1', 'A62'
 end
 
 if $ARGS[0] = 'gadukino_2boys':
@@ -712,7 +714,7 @@ if $ARGS[0] = 'gadukino_2boys':
 	if mitboyrand = 2:'Walking through the village you met Mitka and Vasya. Seeing you, they grin, grab you by the arms and drag you into the bushes.'
 	if mitboyrand = 3:'Walking through the village you met Kolyamba and Vasya. Seeing you, they grin, grab you by the arms and drag you into the bushes.'
 
-	act 'Further': gt 'mitkasex', 'gad2'
+	act 'Go with them': gt 'mitkasex', 'gad2'
 end
 
 if $ARGS[0] = 'mira_mitka':
@@ -725,7 +727,7 @@ if $ARGS[0] = 'mira_mitka':
 	'Walking with Mira in the village you met Mitka. Seeing Mira, he started playing with his balls and said with a grin.'
 	'"Oh hey Mira, let''s go have some fun getting rid of this boner you just gave me."'
 
-	act 'Further': gt 'mitkasex', 'forest1', 'A63'
+	act 'Go with them': gt 'mitkasex', 'forest1', 'A63'
 end
 
 if $ARGS[0] = 'mira_kolyamba':
@@ -737,7 +739,7 @@ if $ARGS[0] = 'mira_kolyamba':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/kolyamba.jpg"></center>'
 	'Walking with Mira in the village you met Kolyamba. Seeing Mira, he started playing with his balls, dragging her into the bushes next to the road.'
 
-	act 'Further': gt 'mitkasex', 'forest1', 'A61'
+	act 'Go with them': gt 'mitkasex', 'forest1', 'A61'
 end
 
 if $ARGS[0] = 'mira_vasyan':
@@ -749,7 +751,7 @@ if $ARGS[0] = 'mira_vasyan':
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/vasyan.jpg"></center>'
 	'Walking with Mira in the village you met Vasyan. Seeing Mira, he smiled and dragged her into the bushes next to the road.'
 
-	act 'Further': gt 'mitkasex', 'forest1', 'A62'
+	act 'Go with them': gt 'mitkasex', 'forest1', 'A62'
 end
 
 if $ARGS[0] = 'mira_2boys':
@@ -767,7 +769,7 @@ if $ARGS[0] = 'mira_2boys':
 	if mitboyrand = 2:'Walking with Mira in the village you met Mitka and Vasyan. Seeing Mira, they grin, grab her arms and drag her into the bushes.'
 	if mitboyrand = 3:'Walking with Mira in the village you met Kolyamba and Vasyan. Seeing Mira, they grin, grab her arms and drag her into the bushes.'
 
-	act 'Further': gt 'mitkasex', 'forest2', mitboyrand
+	act 'Go with them': gt 'mitkasex', 'forest2', $ARGS[1]
 end
 
 if $ARGS[0] = 'mira_3boys':
@@ -783,7 +785,7 @@ if $ARGS[0] = 'mira_3boys':
 
 	'Walking with Mira in the village you met Mitka, Kolyamba and Vasyan. Seeing Mira, they grin, grab her arms and drag her into the bushes.'
 
-	act 'Further': gt 'mitkasex', 'forest3'
+	act 'Go with them': gt 'mitkasex', 'forest3'
 end
 
 if $ARGS[0] = 'go_home':

+ 11 - 11
locations/mirasex.qsrc

@@ -1,14 +1,14 @@
 # mirasex
 
-	!MiaLoc tells us where Mira is Located
-	!----------------------------------------------
-	!MiraLoc = 0 (Mira at home)
-	!MiraLoc = 1 (Mira at river)
-	!MiraLoc = 2 (Mira at meadow)
-	!MiraLoc = 3 (Mira at forest)
-	!MiraLoc = 4 (Mira at field)
-	!MiraLoc = 5 (Mira with gop)
-	!---------------------------------------------
+!MiaLoc tells us where Mira is Located
+!----------------------------------------------
+!MiraLoc = 0 (Mira at home)
+!MiraLoc = 1 (Mira at river)
+!MiraLoc = 2 (Mira at meadow)
+!MiraLoc = 3 (Mira at forest)
+!MiraLoc = 4 (Mira at field)
+!MiraLoc = 5 (Mira with gop)
+!---------------------------------------------
 
 if $ARGS[0] = 'miralick_first':
 	*clr & cla
@@ -43,7 +43,7 @@ if $ARGS[0] = 'mirakiss':
 	if pcs_horny < 20 or mirahorny < 20:
 		act 'Continue kissing':gt 'mirasex','mirakiss'
 	else
-		act 'Further':gt 'mirasex','foreplay'
+		act 'Continue':gt 'mirasex','foreplay'
 	end
 end
 
@@ -197,7 +197,7 @@ if $ARGS[0] = 'lickmira_mis1':
 		act 'Continue licking Mira':gt 'mirasex','lickmira_mis1'
 	else
 		if pcs_horny < 60:act 'Leave':MiraLoc ! 2 & minut += 20 & gt'Gaddvor'
-		if pcs_horny >= 60:act 'Further':gt 'mirasex','horny_talk'
+		if pcs_horny >= 60:act 'Continue':gt 'mirasex','horny_talk'
 	end
 	killvar '$textmis'
 	killvar '$textlick'

+ 31 - 6
locations/mitka.qsrc

@@ -1,12 +1,29 @@
 # mitka
+
+!---------------------------------------------
+! npc_QW['A63'] = 0 Sveta has never had sex with Mitka
+! npc_QW['A63'] = 1 Sveta has either had any sex with Mitka or Mitka has seen Sveta nude multiple times in the forest
+! npc_QW['A63'] = 2 to 9 Sveta continues to have sex with Mitka by himself or when drunk with him
+! npc_QW['A63'] = 10 Mitka shares Sveta with Kolyamba and Vasyan for the first time when Sveta is too drunk
+! npc_QW['A63'] = 11 to 19 Sveta continues to have sex with Mitka and Kolyamba and Vasyan in the forest and when she is drunk with them
+! npc_QW['A63'] = 20 Sveta gangbanged by all the drunk village men
+! npc_QW['A63'] = 21 Sveta rejected the village men''s money and they will no longer have sex with her - hunters are the exception they do not care and will continue to force Sveta to have sex with them in the swamp
+! npc_QW['A63'] = 22 Sveta accepted the village men''s money and is now the village prostitute. Also everyone in the village knows she is a whore and will demand sex from her all over the village
+! currently content ends after the river gangbang - the random scenes around the village and with the hunters are all done but none of the scenes for Sveta prostitution and beyond are written or coded yet - SM
+!---------------------------------------------
+	
+$menu_loc = 'mitka'
+$menu_arg = ''
+menu_off = 1
 gs 'stat'
+
 '<center><b><font color="maroon">Mitka Shkvoryen</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka.jpg"></center>'
 *nl
 'He is barely older than you, you remember him from your childhood. You both used to swim in the local river together.'
 if npc_QW['A63'] = 0 and rand(0,3) = 0:
 	'You blush as you recall that you used to swim naked when you were little.'
-	if pcs_horny >= 40: 'You bite your lip and glance down at his crotch and can''t help but wonder how much he has grown since then.'
+	if pcs_horny >= 50: 'You bite your lip and glance down at his crotch and can''t help but wonder how much he has grown since then.'
 end
 *nl
 
@@ -32,10 +49,10 @@ else
 			act 'I don''t know. My mother is obsessed with me staying a virgin.':
 				cla
 				'You turn away and slowly walk away from Mitka. You know you want him, but you promised your mother...'
-				act 'Continue': gt 'gadukino'
+				act 'Walk away': gt 'gadukino'
 			end
 			if pcs_horny >= 50:
-				act 'Hmm. No sex, Mitka. I will give you a blowjob only.':
+				act 'Hmm. Sounds tempting. I won''t have sex with you Mitka, but I will give you a blowjob.':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhome.jpg"></center>'
 					*nl
@@ -56,7 +73,6 @@ else
 							gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
 							gs 'cum_call','mouth',1
 							swallow += 1
-							gs 'stat'
 						elseif temp_mb >= 3:
 							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjhomecum2.jpg"></center>'
 							*nl
@@ -68,8 +84,8 @@ else
 							'Mitka places his large hands on the back of your head and roughly forces you to take his cock deep into your throat. Slowly he builds up a rhythm and finally finishes in your mouth.'
 							gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough'
 							gs 'cum_call','mouth',1
+							sub += 1
 							swallow += 1
-							gs 'stat'
 						end
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -78,10 +94,12 @@ else
 					end
 				end
 			end
+		! Sveta is not the boys slut and Mira is
 		elseif npc_QW['A63'] < 13 or npc_QW['A60'] > 10:
 			temp_mb = RAND(0,5)
 			*nl
 			'Mitka scratches his balls and adds with a grin: "Hey <<$pcs_nickname>>, do you want to have some fun?"'
+			! vaginal
 			if temp_mb = 0 or (temp_mb < 3 and pcs_vag > 0):
 				act 'Sure, sounds like fun':
 					*clr & cla
@@ -92,6 +110,7 @@ else
 				    end
 					*nl
 					'Mitka takes you to his house and onto the veranda. He has you sit on the couch and begins pawing at your clothes pulling them off you.'
+					if pcs_vag = 0: 'You feel your hymen break as Mitka penetrates you. Mitka looks down at you in surprise and says, "Wow, how were you still a virgin? If I had known, I would have savoured this moment longer!"'
 					'Breathing heavily, Mitka gets off of you and says, "Nice fuck!"'
 					npc_QW['A63'] += 1
 					gs 'boyStat', 'A63'
@@ -103,6 +122,7 @@ else
 					act 'Leave':gt 'gadukino'
 				end
 				act 'Leave':gt 'gadukino'
+			! oral
 			elseif temp_mb < 5:
 				act 'Suck his cock':
 					*clr & cla
@@ -136,6 +156,8 @@ else
 							'Mitka places his large hands on the back of your head and roughly forces you to take his cock deep into your throat. Slowly he builds up a rhythm and finally finishes in your mouth.'
 							gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough'
 							gs 'cum_call','mouth',1
+							sub += 1
+							swallow += 1
 						end
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -144,8 +166,9 @@ else
 					end
 				end
 				act 'Leave':gt 'gadukino'
+			! anal
 			else
-				act 'I guess':
+				act 'I guess so':
 					*clr & cla
 					if pcs_ass < 10:
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaanalhome.jpg"></center>'
@@ -167,6 +190,7 @@ else
 				end
 				act 'Leave':gt 'gadukino'
 			end
+		! Sveta is not the boys slut and Mira is not either
 		elseif npc_QW['A63'] < 13 and npc_QW['A60'] >= 2 and npc_QW['A60'] <= 10:
 			temp_mb = RAND(3,10)
 			*nl
@@ -182,6 +206,7 @@ else
 		else
 			act 'Leave':gt 'gadukino'
 		end
+		! Sveta is not the boys slut, is not drunk, and is not a sub
 		if (npc_QW['A63'] < 10 and alko < 6 and sub < 25):
 			act 'Leave':gt 'gadukino'
 		end

+ 91 - 33
locations/mitkabuh.qsrc

@@ -9,17 +9,13 @@
 !MiraLoc = 4 (Mira at field)
 !MiraLoc = 5 (Mira with gop)
 !---------------------------------------------
-! gadriver_gang ... if > 3 means that all the village guys promised not to have sex with PC (rachels explanation)
-! npc_drunk['A60'] += RAND(3,4)
-! mirapiss = RAND(0,10)
-! alko += rand(3,5)
-! npc_QW['A60']
+! gadriver_gang > 3 village guys promised not to have sex with PC
 
 !! default entry point
 if $ARGS[0] = '':
 	gs 'stat'
 	if hour >= 17:
-		if MiraLoc ! 5 : 
+		if MiraLoc ! 5 :
 			gt 'mitkabuh','partyalone'
 		else
 			gt 'mitkabuh','partywithMira'
@@ -31,10 +27,20 @@ if $ARGS[0] = '':
 end
 
 if $ARGS[0] = 'partyalone':
-!! repeat until drunk
+	$loc = 'mitkabuh'
+	$metka = 'partyalone'
+	$location_type = 'public_outdoors'
+	CLOSE ALL
+
+	$menu_loc = 'mitkabuh'
+	$menu_arg = 'partyalone'
+	menu_off = 0
+
+	!! repeat until drunk
+	! Sveta is not drunk
 	if alko < 8:
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
-		'Set in a secluded spot behind your grandparents'' house the three village boys, Mitka Shkvoryen, Vasyan Paket and Kolyamba Pyut are drinking moonshine, without any snacks. Mitka pours the brew into a clear plastic shot glass and hands it over to you.'
+		'Sitting in a secluded spot behind your grandparents'' house the three village boys, Mitka Shkvoryen, Vasyan Paket and Kolyamba Pyut are drinking moonshine, without any snacks. Mitka pours the brew into a clear plastic shot glass and hands it over to you.'
 		act 'Leave':gt 'Gaddvor'
 		act 'Drink':
 			*clr & cla
@@ -52,15 +58,15 @@ if $ARGS[0] = 'partyalone':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 			'You drink the moonshine and it burns as it goes down your throat. Your eyes water a little and you have a tough time catching your breath. You wipe your eyes and mouth on your sleeve, and look around but are a little disappointed because of the lack of snacks to munch on. Mitka said approvingly "Good shit, huh."'
 
-			act 'Catching your breath':gt 'mitkabuh'
+			act 'Continue drinking':gt 'mitkabuh'
 		end
+	! Sveta is drunk and is a sub or already had sex with Mitka or is the village whore
 	elseif gadriver_gang < 3 and (npc_QW['A63'] > 0 or sub >= 25):
 		*clr & cla
 		if mitkadaybuh ! daystart:
 			mitkadaybuh = daystart
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 			'You are trashed - your legs can barely keep you upright. Mitka, noticing your condition, grabs you by the waist. "Well, well little <<$pcs_nickname>>, come with me."'
-
 			if npc_QW['A63'] < 3:
 				act 'You nod and slur your words...mumbling something as you fell into his waiting arms':
 					*clr & cla
@@ -72,7 +78,7 @@ if $ARGS[0] = 'partyalone':
 					*nl
 					'Mitka takes you to his house and onto the veranda. He has you sit on the couch and begins pawing at your clothes pulling them off you.'
 					*nl
-					'Mitka, breathing heavily gets off of you and says, "You''re a good fuck!"'
+					'Mitka, breathing heavily gets off of you and says, "You''re a good fuck! We should do it again soon!"'
 					gs 'boyStat', 'A63'
 					npc_sex[$boy] += 1
 					pose = 0
@@ -85,7 +91,7 @@ if $ARGS[0] = 'partyalone':
 
 					act 'Leave':gt 'Gaddvor'
 				end
-			elseif npc_QW['A63'] < 10: 
+			elseif npc_QW['A63'] < 10:
 				xgt 'mitkabuh','solo_3to9'
 			elseif npc_QW['A63'] = 10:
 				xgt 'mitkabuh','solo_10'
@@ -105,10 +111,11 @@ if $ARGS[0] = 'partyalone':
 			if npc_QW['A63'] < 10:
 				'The guys talk about you, not paying you any attention.'
 			else
-				' "Hey, <<$pcs_nickname>>, come drink with us again, we love fucking you!! Ha-ha!" They laugh as you make your way back to your grandparents cottage. You scream at them, "Find someone-else, something... You fucking bastards."'
+				' "Hey, <<$pcs_nickname>>, come drink with us again, we love fucking you!! Ha-ha!" They laugh as you make your way back to your grandparents cottage. You are too drunk to come up with a proper insult and just mumble, "I''m sure you can find someone else instead..."'
 			end
 			act 'Leave':gt'Gaddvor'
 		end
+	! Sveta is drunk but hasn''t done anything to encourage Mitka yet
 	else
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 		'You are absolutely trashed, your legs refuse to follow your directions and you slowly slide to the ground. Mitka, noticing your condition, he steps over to you and picks you up and laughs, "It seems, you''ve had enough..."'
@@ -117,15 +124,26 @@ if $ARGS[0] = 'partyalone':
 end
 
 if $ARGS[0] = 'partywithMira':
+	$loc = 'mitkabuh'
+	$metka = 'partywithMira'
+	$location_type = 'public_outdoors'
+	CLOSE ALL
+
+	$menu_loc = 'mitkabuh'
+	$menu_arg = 'partywithMira'
+	menu_off = 0
+
+	! first time to kick off Mira quest
 	if npc_QW['A60'] = 0:
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 		'Set in a secluded spot behind your grandparents'' house the three village boys, Mitka Shkvoryen, Vasyan Paket and Kolyamba Pyut are drinking moonshine, without any snacks. You and Mira approach them and ask for a drink. The guys immediately brighten up and nod their heads. They introduce theyselves and welcome you both to the party. Mitka pours the brew into a clear plastic shot glass and hands it over to you and Mira.'
 		npc_QW['A60'] = 1
-		act 'Further': gt 'mitkabuh'
+		act 'Drink with the boys': gt 'mitkabuh'
 	else
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 		if alko = 0: 'Set in a secluded spot behind your grandparents'' house the three village boys, Mitka Shkvoryen, Vasyan Paket and Kolyamba Pyut are drinking moonshine, without any snacks. You and Mira approach them and ask for a drink. The guys immediately brighten up and actively nod their heads. Mitka pours the brew into a clear plastic shot glass and hands it over to you and Mira.'
 		if alko > 0: 'Set in a secluded spot behind your grandparents'' house the three village boys, Mitka Shkvoryen, Vasyan Paket and Kolyamba Pyut are drinking moonshine, without any snacks. Mitka pours the brew into a clear plastic shot glass and hands it over to you and Mira.'
+		!Sveta is not drunk and Mira is not drunk
 		if alko < 8 and npc_drunk['A60'] < 8:
 
 			if alko <4: act 'Leave':MiraLoc = 0 & gt'Gaddvor'
@@ -143,13 +161,14 @@ if $ARGS[0] = 'partywithMira':
 					pcs_breath = 0
 					gs 'stat'
 
-					act 'Catching your breath':gt 'mitkabuh'
+					act 'Continue drinking':gt 'mitkabuh'
 				end
 			elseif temp_mb = 1:
 				act 'You pass the shot glass of liquor to Mira':
 					*clr & cla
 					npc_drunk['A60'] += RAND(3,5)
 					minut += 15
+					gs 'stat'
 					mirapiss = RAND(0,10)
 					if npc_QW['A60'] >= 8 and mirapiss <= 2:
 						gt 'mitkabuh','with_mira_piss_1'
@@ -160,19 +179,23 @@ if $ARGS[0] = 'partywithMira':
 					else
 						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 						'You pass Mira a shot glass full of liquor, she examines the glass''s contents for a moment, then gulps down the entire glass with a single tose of her head. Her eyes wided and she coughs a little, sucking in her breath with a smile. You talk lively with the guys as they drink as well.'
-						act 'Further':gt 'mitkabuh'
+						act 'Continue drinking':gt 'mitkabuh'
 					end
 				end
 			end
+		! Sveta is drunk
 		elseif alko >= 8:
 			mitkadaybuh = daystart
+			! never had sex with Mitka and Mira is not already the boys slut or Sveta is not the village whore
 			if (npc_QW['A63'] = 0 and npc_QW['A60'] < 11) or gadriver_gang > 2:
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 				'You got absolutely trashed, your legs refuse to follow your directions and you slowly slide to the ground. Mitka, noticing your condition, he steps over to you and picks you up and laughs, "It seems, you''ve had enough..."'
+				'Mira comes over and takes you back to your grandparents house.'
 				gs 'stat'
 
-				act 'Leave':MiraLoc = 0 & gt'Gaddvor'
+				act 'Leave':MiraLoc = 0 & gt 'Gaddvor'
+			! Mira is already the boys slut and cannot stand up to them to take you home anymore or Sveta has already had sex with Mitka
 			else
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
@@ -183,8 +206,13 @@ if $ARGS[0] = 'partywithMira':
 					if temp_mb = 0 or (temp_mb < 3 and pcs_vag > 0):
 						act 'You mumble and slur your words':
 							*clr & cla
+						if pcs_vag = 0:
+							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkafirst.jpg"></center>'
+						else
 							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasex1.jpg"></center>'
-							'Mitka, with a last wink to the other guys, and not paying Mira any attention, walks you back to his house''s porch where he quickly began to undress you.'
+						end
+						'Mitka, with a last wink to the other guys, and not paying Mira any attention, walks you back to his house''s porch where he quickly began to undress you.'
+						if pcs_vag = 0: 'You''re so drunk you don''t even feel your hymen break as Mitka penetrates you. Mitka looks down at you in surprise and says, "Wow, how were you still a virgin? If I had known, I would have savoured moment this longer!"'
 							gs 'boyStat', 'A63'
 							npc_sex[$boy] += 1
 							pose = 0
@@ -243,6 +271,8 @@ if $ARGS[0] = 'partywithMira':
 									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjcum2.jpg"></center>'
 									'You''re trying to take Mitka''s cock in your mouth, but he rudely grabs you by the hair and pulls his cock out of your mouth and starts to spray cum on your face...'
 									minut += 10
+									swallow += 1
+									sub += 1
 									gs 'cum_call','face',$boy,1
 									gs 'arousal', 'end'
 									gs 'stat'
@@ -275,8 +305,10 @@ if $ARGS[0] = 'partywithMira':
 					end
 !				end
 			end
+		! Mira is drunk
 		else
 			if npc_QW['A60'] = 5:
+				menu_off = 1
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
 				'You''re already drunk, but remember Mira''s words, Therefore, still trying not to touch any of the others. Mira threw you a knowing look, and as soon as they said their goodbyes to you, you waited a couple of minutes before following behind Vasya and Kolambaya and go to Mitka''s home. A little short of a the house you hear the couple a few dozen feet in front of you, loudly chattering at each other. You fumble in the dark a bit before you find a hiding place to watch from without being seen yourself. You watch what is happening to Mira in the yard....'
@@ -309,6 +341,7 @@ if $ARGS[0] = 'partywithMira':
 end
 
 if $ARGS[0] = 'solo_3to9':
+	menu_off = 1
 	temp_mb = RAND(0,5)
 	if temp_mb = 0 or (temp_mb < 3 and pcs_vag > 0):
 		act 'Slurred mumble':
@@ -320,6 +353,7 @@ if $ARGS[0] = 'solo_3to9':
 			end
 			'Mitka takes you to his house and starts pulling off your clothes and tosses them aside.'
 			*nl
+			if pcs_vag = 0: 'You''re so drunk you don''t even feel your hymen break as Mitka penetrates you. Mitka looks down at you in surprise and says, "Wow, how were you still a virgin? If I had known, I would have savoured moment this longer!"'
 			'"Fuck me <<$pcs_nickname>>, your pussy felt so good wrapped around my dick!", Mitka whispered in your ear.'
 			gs 'boyStat', 'A63'
 			npc_sex[$boy] += 1
@@ -382,6 +416,8 @@ if $ARGS[0] = 'solo_3to9':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjcum2.jpg"></center>'
 					'You''re bobbing your head up and down fiercely as you cram as much of his ''yummy'' cock as deep in your mouth and throat as you can take it. Mitka, roughly grabs you by by the hair and pulls his cock out of your earger mouth and starts to spurt warm sticky spunk all over your face and hair...'
 					minut += 10
+					swallow += 1
+					sub += 1
 					gs 'cum_call','face',$boy, 1,'','',20
 					gs 'cum_call','hair',$boy, 1,'','',20
 					npc_QW['A63'] += 1
@@ -418,6 +454,7 @@ if $ARGS[0] = 'solo_3to9':
 end
 
 if $ARGS[0] = 'solo_10':
+	menu_off = 1
 	act 'You mumble and slur your words...':
 		*clr & cla
 		minut += 5
@@ -427,12 +464,13 @@ if $ARGS[0] = 'solo_10':
 		'"Well, that''s ... a beautifully sight," Mitka stammers smugly. "So let''s get this party started!"'
 
 		if sub > 0:
-			act 'Bend over and get fucked':
+			act 'Bend over':
 				*clr & cla
 				minut += 15
 				gs 'boyStat', 'A61'
 				npc_sex[$boy] += 1
 				pose = 1
+				sub += 1
 				npc_QW['A63'] += 1
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexpublic.jpg"></center>'
 				'You, drunkenly wallow to a nearby log, feeling a hand on your ass as Kolyamba steps up behind you and pulls your piss soaked panties down. '
@@ -456,14 +494,17 @@ if $ARGS[0] = 'solo_10':
 				minut += 10
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
-				'You refuse, drunken fighting off the advancing Kolyamba while barely standing on your feet. Your struggles piss Mitka off, he finally walks forward and grabs you by the arm and leads you to his veranda...'
-				act 'Moan':
+				'You refuse, drunkenly trying to fight off the advancing Kolyamba while barely standing on your feet. Your struggles piss Mitka off, he finally walks forward and grabs you by the arm and leads you to his veranda...'
+				'Mitka whispers in your ear, "You want my dick so bad then you can have it this time. But, next time you will do as I say. Understand?"'
+				act 'Moan in affirmation':
 					*clr & cla
 					minut += 15
 					gs 'boyStat', 'A63'
 					npc_sex[$boy] += 1
+					sub += 2
 					pose = 1
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexnopublic.jpg"></center>'
+					'All you can manage are moans as Mitka fucks you, but you can''t help but think to yourself that the other guys may start treating you differently after tonight.'
 					if mesec = 0:
 						gs 'dinsex', 'boy_puts_condom'
 						gs 'dinsex','vaginal_sex',10
@@ -483,13 +524,15 @@ if $ARGS[0] = 'solo_10':
 end
 
 if $ARGS[0] = 'solo_11':
+	menu_off = 1
 	if rand(0,5) < 5:
-		act 'Bend over and get fucked':
+		act 'Bend over':
 			*clr & cla
 			minut += 15
 			gs 'boyStat', 'A61'
 			npc_sex[$boy] += 1
 			pose = 1
+			sub += 1
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexpublic.jpg"></center>'
 			'You, drunkenly wallow to a nearby log, feeling a hand on your ass as Kolyamba steps up behind you and pulls your piss soaked panties down...'
 			if mesec = 0:
@@ -510,6 +553,7 @@ if $ARGS[0] = 'solo_11':
 			*clr & cla
 			gs 'boyStat', 'A61'
 			npc_sex[$boy] += 1
+			sub += 1
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjpublic.jpg"></center>'
 			gs 'oral','start'
 			gs 'stat'
@@ -548,8 +592,9 @@ if $ARGS[0] = 'solo_11':
 end
 
 if $ARGS[0] = 'solo_12':
+	menu_off = 1
 	if rand(0,5) < 4:
-		act 'Bend':
+		act 'Bend over':
 			*clr & cla
 			gs 'boyStat', 'A63'
 			npc_sex[$boy] += 1
@@ -616,6 +661,7 @@ if $ARGS[0] = 'solo_12':
 						gs 'cum_call','face',$boy, 1
 						cumface += 2
 						gang += 1
+						sub += 1
 						npc_QW['A63'] += 1
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -629,9 +675,10 @@ if $ARGS[0] = 'solo_12':
 end
 
 if $ARGS[0] = 'solo_13':
+	menu_off = 1
 	temp_mb = RAND(0,5)
 	if temp_mb < 3:
-		act 'Bend':
+		act 'Bend over':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexpublic.jpg"></center>'
 			'You''re startled and stumble to your feet, you make your way over to Mitka and fall into into his waiting arms. You feel Mitka pull up your skirt up and bare your ass...'
@@ -706,6 +753,7 @@ if $ARGS[0] = 'solo_13':
 				'You undress and lie down on a wooden bench...'
 				pose = 0
 				gang += 1
+				sub += 1
 				npc_QW['A63'] += 1
 				gs 'stat'
 
@@ -752,6 +800,7 @@ if $ARGS[0] = 'solo_13':
 end
 
 if $ARGS[0] = 'solo_14':
+	menu_off = 1
 	temp_mb = RAND(0,5)
 	if temp_mb < 2:
 		act 'Suck':
@@ -775,7 +824,7 @@ if $ARGS[0] = 'solo_14':
 			end
 		end
 	elseif temp_mb = 2:
-		act 'Bend':
+		act 'Bend over':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexpublic.jpg"></center>'
 			'You stumble around until you come to reach a nearby log and placing both hands on it lean against it for support. Mitka walks up behind you and grabs your clothes and pulls them down, exposing your bare ass...'
@@ -810,6 +859,7 @@ if $ARGS[0] = 'solo_14':
 			'You feel that soon they will cum all over your face and then lose interest in you...'
 			gs 'cum_call','face',$boy,1
 			cumface += 2
+			sub += 1
 			gs 'arousal', 'end'
 			gs 'stat'
 
@@ -858,6 +908,7 @@ if $ARGS[0] = 'solo_14':
 							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagroupcum2.jpg"></center>'
 							gs 'boyStat', 'A62'
 							npc_sex[$boy] += 1
+							sub += 1
 							gs 'oral','start'
 							'Exhausted, you hear Vasya straining as he fucks your mouth. You immediately tighten your grip around his cock and squeeze it and guide it into your mouth. A few seconds later you feel the tart taste of semen...'
 							gs 'cum_call','mouth',$boy,1
@@ -934,6 +985,7 @@ if $ARGS[0] = 'solo_14':
 end
 
 if $ARGS[0] = 'solo_ge15':
+	menu_off = 1
 	temp_mb = RAND(0,5)
 	if temp_mb = 0:
 		act 'Suck':
@@ -997,6 +1049,7 @@ if $ARGS[0] = 'solo_ge15':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagroup.jpg"></center>'
 			'You sit on the bench and the boys immediately begin to touch you and push their fingers into all your holes.'
 			pcs_horny += 20
+			sub += 1
 			minut += 5
 			gs 'stat'
 
@@ -1054,6 +1107,7 @@ if $ARGS[0] = 'solo_ge15':
 			gs 'boyStat', 'A61'
 			npc_sex[$boy] += 1
 			npc_QW['A63'] += 1
+			sub += 1
 			minut += 15
 			gs 'stat'
 			if rand(0,5) < 4:
@@ -1115,6 +1169,7 @@ if $ARGS[0] = 'solo_ge15':
 			npc_sex[$boy] += 1
 			gs 'arousal','vaginal',10,'sub','gangbang'
 			gang +=1
+			sub += 1
 			gs 'stat'
 			if RAND(0,5) < 4:
 				act 'Moan':
@@ -1172,13 +1227,14 @@ if $ARGS[0] = 'solo_ge15':
 end
 
 if $ARGS[0] = 'with_mira_piss_1':
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/characters/village/mira/mirapiss.jpg"></center>'
 	'You give Mira a shot glass of moonshine, but she asks you wait a few of minutes. You watch as she goes over to the nearest tree, where she lifts up her skirt, squats down and startis to pee. Vasya and Kolyamba are laughing loudly and stare hungerly at Mira. Mitka smiles and looks on indifferently. Having finish peeing, Mira walks back over to you as if nothing had happened and starts speaking to you and the guys as if nothing had happened. She gulps down her moonshine and asks for more.'
 	minut += 5
 	if npc_QW['A60'] < 10: npc_QW['A60'] += 1
 
 	if npc_QW['A60'] = 10:
-		act 'Further':
+		act 'Continue':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 			'As soon as she drank the liquor, a tipsy Vasyan asks her, with a devilish grin on his face, if she will service both his and Kolyamba''s dicks.'
@@ -1233,15 +1289,16 @@ if $ARGS[0] = 'with_mira_piss_1':
 				end
 			else
 				'Mira only chuckles in response, and Mitka cuffs Vasyan on the head...'
-				act 'Further':gt 'mitkabuh'
+				act 'Continue drinking':gt 'mitkabuh'
 			end
 		end
 	else
-		act 'Further':gt 'mitkabuh'
+		act 'Continue drinking':gt 'mitkabuh'
 	end
 end
 
 if $ARGS[0] = 'with_mira_piss_2':
+	menu_off = 1
 	if npc_drunk['A60'] >= 4:
 		minut += 5
 		if npc_QW['A60'] < 30: npc_QW['A60'] += 1
@@ -1294,19 +1351,20 @@ if $ARGS[0] = 'with_mira_piss_2':
 			gs 'arousal', 'end'
 			gs 'stat'
 
-			act 'Leave':MiraLoc = 0 & minut += 10 & gt'Gaddvor'
+			act 'Leave':MiraLoc = 0 & gt'Gaddvor'
 		end
 	end
 end
 
 if $ARGS[0] = 'with_mira_piss_3':
+	menu_off = 1
 	if npc_drunk['A60'] >= 4:
 		minut += 5
 		if npc_QW['A60'] < 25: npc_QW['A60'] += 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
 		'"I''m bored!" Mitka yells. "Mira get your ass down and give us a show to remember!" he snorts like a pig. "Show us how how loose your holes are whore..."'
-		'Mira grunts affirmatively, and undresses.'
+		'Mira mumbles affirmatively, and undresses.'
 
 		act 'Watch':
 			*clr & cla
@@ -1315,12 +1373,12 @@ if $ARGS[0] = 'with_mira_piss_3':
 			gs 'arousal', 'voyeur', 5, 'group'
 			gs 'stat'
 
-			act 'Further':gt 'mitkabuh'
+			act 'Continue drinking':gt 'mitkabuh'
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
 		'"I''m bored!" Mitka yells. "Mira get your ass down and give us a show to remember!" he snorts like a pig. "Show us how how loose your holes are whore..."'
-		'Mira refuses. Mitka and the others immediately demand she follow their orders. She continues to refuses to do their bidding. Eventually Mira offers a compromise and they agree with it, she''ll just strip naked and be made to crawl around in front of them on all fours, portraying a dog...'
+		'Mira refuses. Mitka and the others immediately demand she follow their orders. She continues to refuse to do their bidding. Eventually Mira offers a compromise and they agree with it, she''ll just strip naked and be made to crawl around in front of them on all fours, portraying a dog...'
 		minut += 5
 		if npc_QW['A60'] < 25: npc_QW['A60'] += 1
 		gs 'stat'
@@ -1332,7 +1390,7 @@ if $ARGS[0] = 'with_mira_piss_3':
 			gs 'arousal', 'voyeur', 5, 'group'
 			gs 'stat'
 
-			act 'Further':gt 'mitkabuh'
+			act 'Continue drinking':gt 'mitkabuh'
 		end
 	end
 end

+ 3 - 3
locations/mitkabuh_group.qsrc

@@ -52,7 +52,7 @@ if $ARGS[0] = '':
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 					'You pass Mira a shot glass full of liquor, she examines the glass''s contents for a moment, then gulps down the entire glass with a single tose of her head. Her eyes wided and she coughs a little, sucking in her breath with a smile. You talk with the guys as they drink as well.'
 
-					act 'Further':gt $curloc
+					act 'Continue':gt $curloc
 				end
 			end
 		end
@@ -307,7 +307,7 @@ if $ARGS[0] = 'mirapiss_3':
 			gs 'arousal','masturbate',15,'exhibitionism', 'sub', 'group'
 			gs 'stat'
 
-			act 'Further':gt $curloc
+			act 'Continue':gt $curloc
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitka_group/drunk1.jpg"></center>'
@@ -327,7 +327,7 @@ if $ARGS[0] = 'mirapiss_3':
 			gs 'arousal','flash', 10, 'sub', 'group'
 			gs 'stat'
 
-			act 'Further':gt $curloc
+			act 'Continue':gt $curloc
 		end
 	end
 end

+ 39 - 28
locations/mitkasex.qsrc

@@ -1,4 +1,5 @@
 # mitkasex
+
 gs 'stat'
 
 $textsexhanter = 'From a member of the unpleasant smells and remains in the mouth tastes foul feces. "-Damn, I had to do an enema." - belatedly dumaeete you.'
@@ -15,6 +16,8 @@ $textsexhanter11 = 'Gradually, a pleasant warmth growing and throbbing in the ab
 $textsexhanter12 = 'You feel nice when <<dick>> cm dick is moving inside of your ass and you moan with pleasure. Gradually, a pleasant warmth growing and throbbing in the abdomen, then the sensations crashing down on you and your body cover the hot waves of orgasm.'
 
 if $ARGS[0] = 'forest1':
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	boyAsex = 0
 	dirty_dickA = 0
@@ -26,7 +29,7 @@ if $ARGS[0] = 'forest1':
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkaforestsex1.'+rand(1,2)+'.jpg"></center>'
-	'Entering deeper into the thicket <<$boydesc>> comes up to you and Mira. He undresses you both makes you kneel before him...'
+	'Entering deeper into the thicket <<$boydesc>> comes up to you and Mira. He undresses you both and makes you kneel before him...'
 	hantsexa = rand(1,3)
 	if hantsexa = 1:act 'Suck':gt 'mitkasex', 'forestOral1_1'
 	if hantsexa = 2:act 'Suck':gt 'mitkasex', 'forestOral1_2'
@@ -34,6 +37,8 @@ if $ARGS[0] = 'forest1':
 end
 
 if $ARGS[0] = 'forest2':
+	*clr & cla
+	menu_off = 1
 	boyAsex = 0
 	boyBsex = 0
 	dirty_dickA = 0
@@ -66,6 +71,8 @@ if $ARGS[0] = 'forest2':
 end
 
 if $ARGS[0] = 'forest3':
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	mitkaforestsex = 0
 	pcs_dom -= 1
@@ -96,6 +103,8 @@ if $ARGS[0] = 'forest3':
 end
 
 if $ARGS[0] = 'gad1':
+	*clr & cla
+	menu_off = 1
 	minut += 5
 	boyAsex = 0
 	boyAsexa = 0
@@ -115,6 +124,7 @@ end
 
 if $ARGS[0] = 'gad2':
 	*clr & cla
+	menu_off = 1
 	boyAsex = 0
 	boyBsex = 0
 	boyAsexa = 0
@@ -246,7 +256,7 @@ if $ARGS[0] = 'gadHandsCum2':
 	gs 'stat'
 	if kosmetica <= 0:'After the guys went about their business and you are left to clean yourself up.'
 	if kosmetica > 0:
-		act 'Further':
+		act 'Continue':
 			*clr & cla
 			minut += 5
 			body_write = 1
@@ -256,12 +266,12 @@ if $ARGS[0] = 'gadHandsCum2':
 			'When the guys finished, they painted on your body "fuck slut" and writing a couple of other obscene words, and went about their business. You are left to clean yourself up.'
 			gs 'arousal', 'end'
 			gs 'stat'
-			act 'Further':gt $loc, $metka
+			act 'Finish':gt $loc, $metka
 		end
 	else
 		gs 'arousal', 'end'
 		gs 'stat'
-		act 'Further':gt $loc, $metka
+		act 'Finish':gt $loc, $metka
 	end
 end
 
@@ -623,7 +633,7 @@ if $ARGS[0] = 'gadOralCum1':
 	'<<$textsexhanter3>>'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'gadSideVag1':
@@ -667,7 +677,7 @@ if $ARGS[0] = 'gadSideVagCum1':
 	$orgasm_txt = ''
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'gadMisVag1':
@@ -751,7 +761,7 @@ if $ARGS[0] = 'gadCowVag1':
 		if hantsexa = 4:act 'Doggy':gt 'mitkasex', 'gadDogVag1'
 		if hantsexa = 5:act 'Doggy':gt 'mitkasex', 'gadDogAnal1'
 	else
-		act 'To ride on':gt 'mitkasex', 'gadCowVagCum1'
+		act 'Keep riding':gt 'mitkasex', 'gadCowVagCum1'
 	end
 end
 
@@ -767,7 +777,7 @@ if $ARGS[0] = 'gadCowVagCum1':
 	*pl
 	'<<$textsexhanter3>>'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'gadDogAnal1':
@@ -815,7 +825,7 @@ if $ARGS[0] = 'gadDogAnalCum1':
 	*pl
 	'<<$textsexhanter3>>'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'gadCowAnal1':
@@ -856,7 +866,7 @@ if $ARGS[0] = 'gadHandsCum1':
 	gs 'arousal', 'hj', 5, 'sub'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 ! One guy vs GG and Mira
@@ -953,7 +963,7 @@ if $ARGS[0] = 'forestOralCum1_1':
 	'<<$textsexhanter10>>'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestSide1_1':
@@ -997,7 +1007,7 @@ if $ARGS[0] = 'forestSideCum1_1':
 	*pl
 	'<<$textsexhanter10>>'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestSide1_2':
@@ -1058,7 +1068,7 @@ if $ARGS[0] = 'forestCow1_1':
 		if hantsexa = 5:act 'Watch':gt 'mitkasex', 'forestDog1_2'
 		if hantsexa = 6:act 'Doggy':gt 'mitkasex', 'forestDog1_3'
 	else
-		act 'To ride on':gt 'mitkasex', 'forestSideCum1_1'
+		act 'Keep riding':gt 'mitkasex', 'forestSideCum1_1'
 	end
 end
 
@@ -1073,7 +1083,7 @@ if $ARGS[0] = 'forestSideCum1_1':
 	*nl
 	'<<$textsexhanter10>>'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestCow1_2':
@@ -1133,7 +1143,7 @@ if $ARGS[0] = 'forestCowCum1_2':
 	'<<$textsexhanter10>>'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestCowOral1_1':
@@ -1163,7 +1173,7 @@ if $ARGS[0] = 'forestCowOral1_1':
 		if hantsexa = 5:act 'Watch':gt 'mitkasex', 'forestDog1_2'
 		if hantsexa = 6:act 'Doggy':gt 'mitkasex', 'forestDog1_3'
 	else
-		act 'Further':gt $loc, $metka
+		act 'Finish':gt $loc, $metka
 	end
 end
 
@@ -1210,7 +1220,7 @@ if $ARGS[0] = 'forestDogCum1_1':
 	gs 'arousal', 'anal', 5, 'sub', 'group'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestDog1_2':
@@ -1245,7 +1255,7 @@ if $ARGS[0] = 'forestDogCum1_2':
 	gs 'arousal', 'voyeur', 1, 'sub', 'group'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestDog1_3':
@@ -1287,7 +1297,7 @@ if $ARGS[0] = 'forestDogCum1_2':
 	'<<$textsexhanter10>>'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 ! Two guys vs GG and Mira
@@ -1448,11 +1458,12 @@ if $ARGS[0] = 'forestOralCum2_1':
 	if boyB_cum = 0:
 		gs 'arousal', 'end'
 		gs 'stat'
-		act 'Further':gt 'mitkasex', 'forestRelax2'
+		act 'Continue':gt 'mitkasex', 'forestRelax2'
 	else
 		gs 'arousal', 'end'
 		gs 'stat'
-		act 'Further':boyB_cum = 0 & gt $loc, $metka
+		boyB_cum = 0
+		act 'Finish':gt $loc, $metka
 	end
 end
 
@@ -1598,7 +1609,7 @@ if $ARGS[0] = 'forestRelax2':
 	else
 		gs 'arousal', 'end'
 		gs 'stat'
-		act 'Further':gt $loc, $metka
+		act 'Finish':gt $loc, $metka
 	end
 end
 
@@ -1613,7 +1624,7 @@ if $ARGS[0] = 'forestDog_mira2_1':
 	if horny_boyB >= 100:'Suddenly the guy grabs Mira by the hair and setting himself on his knees, starts to masturbate in front of her face.'
 
 	if horny_boyB < 100:
-		act 'Further':gt 'mitkasex', 'forestRelax2'
+		act 'Continue':gt 'mitkasex', 'forestRelax2'
 	else
 		gs 'arousal', 'end'
 		gs 'stat'
@@ -1632,7 +1643,7 @@ if $ARGS[0] = 'forestCow_mira2_1':
 	if horny_boyB >= 100:'Suddenly the guy rudely pushes her off and setting himself on his knees, starts to masturbate in front of the face.'
 
 	if horny_boyB < 100:
-		act 'Further':gt 'mitkasex', 'forestRelax2'
+		act 'Continue':gt 'mitkasex', 'forestRelax2'
 	else
 		gs 'arousal', 'end'
 		gs 'stat'
@@ -2117,7 +2128,7 @@ if $ARGS[0] = 'forestCum3_3':
 	'Soon, unable to withstand your skill the guys start to finish. Jets of sperm hit you in the mouth and face. There was so much sperm your mouth can''t hold it all and it runs down your chin and onto your breasts. The guys have you clean their dicks before going about their business. You are left alone to clean up.'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestCum3_2':
@@ -2152,7 +2163,7 @@ if $ARGS[0] = 'forestCum3_2':
 	'Soon, unable to withstand your skill the guys start to finish. Jets of sperm hit you in the mouth and face. There was so much sperm your mouth can''t hold it all and it runs down your chin and onto your breasts. The guys have you clean their dicks before going about their business. You are left alone to clean up.'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestCum3_1':
@@ -2184,7 +2195,7 @@ if $ARGS[0] = 'forestCum3_1':
 	'<<$textsexhanter3>>'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 if $ARGS[0] = 'forestRelax_mira':
@@ -2428,7 +2439,7 @@ if $ARGS[0] = 'forestCum_mira3':
 	'Turning your head to look at Mira, you can see her, moaning loudly, as she plays with the cum covering her face and body.'
 	gs 'arousal', 'voyeur', 1
 	gs 'stat'
-	act 'Further':gt $loc, $metka
+	act 'Finish':gt $loc, $metka
 end
 
 --- mitkasex ---------------------------------

+ 28 - 14
locations/swamp.qsrc

@@ -1,17 +1,24 @@
 # swamp
 
+$loc = 'swamp'
+$metka = ''
 $location_type = 'secluded'
-$metka = $ARGS[0]
-$loc = $CURLOC
-gs 'gadukino_event', 'sound'
-cls
+
+$menu_loc = 'swamp'
+$menu_arg = ''
+menu_off = 0
+
 new_boletus = 0
 new_bilberry = 0
-gs'stat'
-!gs'time'
 goswamp = 1
 
+gs 'gadukino_event', 'sound'
+gs 'stat'
+
+cls
+
 '<center><H4>Swamp</H4></center>'
+
 if month >= 4 and month <= 10:
 	if hour >= 6 and hour < 22:
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp.jpg"></center>'
@@ -26,34 +33,41 @@ else
 	end
 end
 
-'You''ve found the swamp area of the forest. It is considered dangerous to hike here in the afternoon, and forbidden at night. But you can find a lot of mushrooms and berries in the woods near the swamp area.'
-'There''s a small visible path to a clearing that leads to <a href="exec: gt ''swamp_yard'' ">the old hut</a>, it is probably used as a hunting lodge.'
+'You are in the swamp area of the forest.'
+'It is considered dangerous to hike here day unless extremely physically fit and should be avoided at night no matter what.'
+'But you can find a lot of mushrooms and berries here.'
+
+'There''s a small visible path to a clearing that leads to <a href="exec: gt ''swamp_yard'' ">the hut</a>, used by the hunters.'
 
 if hour >= 6 and hour <= 21 and month >= 6 and month <= 9:
-	act 'Walk into the forest':gs 'clothing', 'swamp_clothes', 0  & minut += 30 & gt 'gadforest','4'
+	act 'Walk into the forest':gs 'clothing', 'swamp_clothes', 0 & minut += 30 & gt 'gadforest','4'
 end
 if hour >= 6 and hour < 21:
-	act 'Return to the edge of the forest':gs 'clothing', 'swamp_clothes', 0  & hanters = 0 & minut += 150 & gt 'gadforest','1'
+	act 'Return to the edge of the forest':gs 'clothing', 'swamp_clothes', 0 & hanters = 0 & minut += 150 & gt 'gadforest','1'
 else
-	act 'Return to the edge of the forest':gs 'clothing', 'swamp_clothes', 0  & hanters = 0 & gt 'gadforest_event', 'forest_road'
+	act 'Return to the edge of the forest':gs 'clothing', 'swamp_clothes', 0 & hanters = 0 & gt 'gadforest_event', 'forest_road'
 end
 
 if hour >= 6 and hour <= 20 and month >= 6 and month <= 9 and boletus + bilberry < 10 and swamp_day ! daystart:
-	act 'Look for berries (0:30)':
+	act 'Look for mushrooms and berries (0:30)':
 		cla
 		*clr
 		minut += 30
 		temp = RAND(1,2)
 		swamp_day = daystart
 		if goforest < 20:goforest += rand(0,1)
+		new_boletus += rand(4,5)
+		boletus += new_boletus
 		new_bilberry += rand(4,5)
 		bilberry += new_bilberry
 		pcs_mood += 5
 		gs 'stat'
 
 		gs 'gadforest', 'clothes1'
-		'You spend half an hour wandering through the woods in search of mushrooms or berries and manage to found <<new_bilberry>> kg of berries.'
-		act 'Further': gt'swamp'
+
+		'You spend half an hour wandering through the woods in search of mushrooms and berries and manage to find <<new_boletus>> kg of mushrooms and <<new_bilberry>> kg of berries.'
+
+		act 'Continue': gt'swamp'
 	end
 end
 

+ 42 - 42
locations/swamphouse.qsrc

@@ -169,7 +169,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/enema.jpg"></center>'
 				'You search for your clothes, but only manage to find an enema syringe... "What is this doing here?" you wonder.'
-				act 'Further': gt 'swamphouse', 'start'
+				act 'Continue': gt 'swamphouse', 'start'
 			else
 				gs 'clothing', 'swamp_clothes', 1
 				gs 'stat'
@@ -325,7 +325,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/doublehanterlove.jpg"></center>'
 			'The men hold your hands leading you away from the hut. You''re fully aware of their plans but you don''t really mind.'
-			act 'Further': gt 'hantersex'
+			act 'Continue': gt 'hantersex', 'doublelovesex'
 		end
 		act 'Refuse':
 			*clr & cla
@@ -420,7 +420,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude1.jpg"></center>'
 					'You look around searching for your clothes. When you spot them, you dash over to grab them.'
-					act 'Further': gt 'swamphouse', 'start'
+					act 'Continue': gt 'swamphouse', 'start'
 				end
 			else
 				act 'Cover yourself':
@@ -431,7 +431,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
 					'You look around searching for your clothes but can''t seem to find them, instead you hide behind a piece of hessian... It''s better than nothing.'
-					act 'Further': gt 'swamphouse', 'start'
+					act 'Continue': gt 'swamphouse', 'start'
 				end
 			end
 			act 'Stay naked':
@@ -443,7 +443,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
 				'You take a deep breath and decided to disregard your nerves and leave it as it is. Upon entering the hut, the hunters can''t help themselves, they start staring at your most private parts.'
 				'"Damn, <<$pcs_nickname>>, you look really good. The things I would want to do to you..." said a somewhat aroused Andrei.'
-				act 'Further': gt 'swamphouse', 'start'
+				act 'Continue': gt 'swamphouse', 'start'
 			end
 		end
 		if hantersKnowSlut > 0:
@@ -455,14 +455,14 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				'Seeing you naked, the men get quickly aroused...'
 				'"Come here <<$pcs_nickname>>, come to us," one of the guys calls out to you.'
 
-				act 'Further':hantersexnude = 1 & gt 'hantersex', 'hantersexnude'
+				act 'Continue':hantersexnude = 1 & gt 'hantersex', 'hantersexnude'
 			else
 				hanterknowday = daystart
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamphousenude1.jpg"></center>'
 				'Seeing you naked, the men just shake their heads...'
 				'"Look here <<$pcs_nickname>>, if you want to charm us, you will need to think of something else." said one of the guys.'
 
-				act 'Further': gt 'swamphouse', 'start'
+				act 'Continue': gt 'swamphouse', 'start'
 			end
 		end
 	end
@@ -513,7 +513,7 @@ if $ARGS[0] = 'bucket':
 			pcs_breath = 0
 			'You take a sip from bucket, quenching your thirst.'
 		end
-		act 'Further': gt 'swamphouse', 'start'
+		act 'Continue': gt 'swamphouse', 'start'
 	end
 	act 'Move Away': gt 'swamphouse', 'start'
 
@@ -559,7 +559,7 @@ if $ARGS[0] = 'stove':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hotsoup.jpg"></center>'
 			'You made a simple mushroom soup.'
 
-			act 'Further': gt 'swamphouse', 'start'
+			act 'Continue': gt 'swamphouse', 'start'
 		end
 	end
 	if bucket >= 5 and hotwater = 0:
@@ -574,7 +574,7 @@ if $ARGS[0] = 'stove':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hotwater.jpg"></center>'
 			'With the heated water, You can now clean yourself with the basin or wash your clothes.'
 
-			act 'Further': gt 'swamphouse', 'start'
+			act 'Continue': gt 'swamphouse', 'start'
 		end
 	end
 	act 'Move away': gt 'swamphouse', 'start'
@@ -614,7 +614,7 @@ if $ARGS[0] = 'stackmagazines':
 		gs 'swamphouse', 'clothes_read_magazines'
 		'You decide to look through the scientific journal, trying to understand all sorts of clever things written in the magazine.'
 
-		act 'Further': gs 'swamphouse', 'stackmagazines'
+		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the literary magazine (1:00)':
 		cla
@@ -635,7 +635,7 @@ if $ARGS[0] = 'stackmagazines':
 		gs 'swamphouse', 'clothes_read_magazines'
 		'You decided to look through the literary magazine... It''s a real drag, you almost fall asleep several times while reading it.'
 
-		act 'Further': gs 'swamphouse', 'stackmagazines'
+		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the entertainment magazine (1:00)':
 		cla
@@ -656,7 +656,7 @@ if $ARGS[0] = 'stackmagazines':
 		gs 'swamphouse', 'clothes_read_magazines'
 		'You flick entertainment magazine, you delve into the world of the rich and famous.'
 
-		act 'Further': gs 'swamphouse', 'stackmagazines'
+		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Read the porn magazine (1:00)':
 		cla
@@ -673,7 +673,7 @@ if $ARGS[0] = 'stackmagazines':
 		gs 'arousal', 'voyeur', 60
 		gs 'arousal', 'end'
 		gs 'stat'
-		act 'Further': gs 'swamphouse', 'stackmagazines'
+		act 'Continue': gs 'swamphouse', 'stackmagazines'
 	end
 	act 'Move away': gt 'swamphouse', 'start'
 end
@@ -705,7 +705,7 @@ if $ARGS[0] = 'basin':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/basinswim.jpg"></center>'
 			'You fill the basin with warm water, strip, sitting in the basin you clean yourself. You feel rejuvenated again.'
 
-			act 'Further': gt 'swamphouse', 'start'
+			act 'Continue': gt 'swamphouse', 'start'
 		end
 	end
 	if hotwater = 1  and dirtyclothes = 1 and ($clothingworntype = 'nude' and clothesAtLocation = 1) or ($clothingworntype ! 'nude' and clothesAtLocation = 0 and clothesOnLine = 0):
@@ -739,7 +739,7 @@ if $ARGS[0] = 'basin':
 				end
 				'You hang the clothes to dry inside the hut.'
 
-				act 'Further': gt 'swamphouse', 'start'
+				act 'Continue': gt 'swamphouse', 'start'
 			end
 			if month >= 5 and month <= 9 and clothesOnLine = 0:
 				act 'Hang the clothes on a clothesline':
@@ -756,7 +756,7 @@ if $ARGS[0] = 'basin':
 					end
 					'You hang the clothes outside to dry.'
 
-					act 'Further': gt 'swamp_yard'
+					act 'Continue': gt 'swamp_yard'
 				end
 			end
 		end
@@ -807,7 +807,7 @@ if $ARGS[0] = 'hanterstableBJ':
 					gs 'arousal', 'end'
 					gs 'stat'
 
-					act 'Further': gs 'swamphouse', 'hanterstableBJ'
+					act 'Continue': gs 'swamphouse', 'hanterstableBJ'
 				end
 			else
 				act 'Keep sucking':
@@ -823,7 +823,7 @@ if $ARGS[0] = 'hanterstableBJ':
 					gs 'arousal', 'end'
 					gs 'stat'
 
-					act 'Further': gs 'swamphouse', 'hanterstableBJ'
+					act 'Continue': gs 'swamphouse', 'hanterstableBJ'
 				end
 			end
 		end
@@ -858,7 +858,7 @@ if $ARGS[0] = 'hanterstableBJ':
 					'When he was all done you cleaned Andrei the best you could, and then you put his cock back in his pants and zipped him up.'
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Further': gs 'swamphouse', 'hanterstableBJ'
+					act 'Continue': gs 'swamphouse', 'hanterstableBJ'
 				end
 			else
 				act 'Keep sucking':
@@ -874,7 +874,7 @@ if $ARGS[0] = 'hanterstableBJ':
 					gs 'arousal', 'end'
 					gs 'stat'
 
-					act 'Further': gs 'swamphouse', 'hanterstableBJ'
+					act 'Continue': gs 'swamphouse', 'hanterstableBJ'
 				end
 			end
 		end
@@ -909,7 +909,7 @@ if $ARGS[0] = 'hanterstableBJ':
 					'When he was all done you cleaned Andrei the best you could, and then you put his cock back in his pants and zipped him up.'
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Further': gs 'swamphouse', 'hanterstableBJ'
+					act 'Continue': gs 'swamphouse', 'hanterstableBJ'
 				end
 			else
 				act 'Keep sucking':
@@ -925,7 +925,7 @@ if $ARGS[0] = 'hanterstableBJ':
 					gs 'arousal', 'end'
 					gs 'stat'
 
-					act 'Further': gs 'swamphouse', 'hanterstableBJ'
+					act 'Continue': gs 'swamphouse', 'hanterstableBJ'
 				end
 			end
 		end
@@ -970,7 +970,7 @@ if $ARGS[0] = 'hanterstable':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/vodka'+rand(0,2)+'.jpg"></center>'
 			'You take a shot of vodka. The men laugh at the funny face you''re making after the shot.'
 
-			act 'Further': gs 'swamphouse', 'hanterstable'
+			act 'Continue': gs 'swamphouse', 'hanterstable'
 		end
 		act 'Drink beer':
 			*clr & cla
@@ -983,7 +983,7 @@ if $ARGS[0] = 'hanterstable':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/beer2.jpg"></center>'
 			'You take a bottle of bear, open it and start drinking it.'
 
-			act 'Further': gs 'swamphouse', 'hanterstable'
+			act 'Continue': gs 'swamphouse', 'hanterstable'
 		end
 		act 'Eat a snack':
 			gs 'food', 'snack'&!use current one, *clr & cla will clear messages
@@ -993,7 +993,7 @@ if $ARGS[0] = 'hanterstable':
 
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/snack1.'+rand(1,2)+'.jpg"></center>'
 			'You grab something to eat, so you don''t get drunk to quickly.'
-			act 'Further': gs 'swamphouse', 'hanterstable'
+			act 'Continue': gs 'swamphouse', 'hanterstable'
 		end
 		act 'Chat':
 			*clr & cla
@@ -1006,7 +1006,7 @@ if $ARGS[0] = 'hanterstable':
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterstable.jpg"></center>'
 			'You chat with the men about various topics... You try to keep up with their lingo but sometime fail and you all have a laugh about it.'
 
-			act 'Further': gs 'swamphouse', 'hanterstable'
+			act 'Continue': gs 'swamphouse', 'hanterstable'
 		end
 		act 'Move away from the table':hantersdrink = 0 & hanter_refuse = 1 & gt 'swamphouse', 'start'
 		if alko > 3 and alko < 8 and smokertemp = 1:
@@ -1259,7 +1259,7 @@ if $ARGS[0] = 'hanterstable':
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel1.jpg"></center>'
 							'Three hours later you wake up in the middle of the night. You''ve got a headache and vaguely remember yesterday.'
 
-							act 'Further': gt 'swamphouse', 'start'
+							act 'Continue': gt 'swamphouse', 'start'
 						end
 					end
 				end
@@ -1284,7 +1284,7 @@ if $ARGS[0] = 'hanterstable':
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel4.jpg"></center>'
 							'Four hours later you wake up in the middle of the night. You''ve got a headache and vaguely remember yesterday.'
 
-							act 'Further': gt 'swamphouse', 'start'
+							act 'Continue': gt 'swamphouse', 'start'
 						end
 					end
 				end
@@ -1308,7 +1308,7 @@ if $ARGS[0] = 'hanterstable':
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel2.jpg"></center>'
 							'You sleep for awhile, waking up barely able to lift your head from the pillow. You''ve got a headache and vaguely remember yesterday.'
 
-							act 'Further': gt 'swamphouse', 'start'
+							act 'Continue': gt 'swamphouse', 'start'
 						end
 					end
 				end
@@ -1340,7 +1340,7 @@ if $ARGS[0] = 'hanterstable':
 									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel2.jpg"></center>'
 									'You sleep for awhile, waking up barely able to get out of bed. You''ve got a headache and vaguely remember yesterday.'
 
-									act 'Further': gt 'swamphouse', 'start'
+									act 'Continue': gt 'swamphouse', 'start'
 								end
 							end
 						end
@@ -1398,7 +1398,7 @@ if $ARGS[0] = 'hanterstable':
 														'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel4.jpg"></center>'
 														'You sleep for four hours, waking up in the middle night, barely able to get up off the floor. You''ve got a headache and vaguely remember yesterday.'
 
-														act 'Further': gt 'swamphouse', 'start'
+														act 'Continue': gt 'swamphouse', 'start'
 													end
 												end
 											end
@@ -1422,7 +1422,7 @@ if $ARGS[0] = 'hanterstable':
 													'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel2.jpg"></center>'
 													'You sleep for awhile, waking up barely able to get out of bed. You''ve got a headache and vaguely remember yesterday.'
 
-													act 'Further': gt 'swamphouse', 'start'
+													act 'Continue': gt 'swamphouse', 'start'
 												end
 											end
 										end
@@ -1447,7 +1447,7 @@ if $ARGS[0] = 'hanterstable':
 										   '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel2.jpg"></center>'
 										   'You sleep for awhile, waking up barely able to get out of bed. You''ve got a headache and vaguely remember yesterday.'
 
-											act 'Further': gt 'swamphouse', 'start'
+											act 'Continue': gt 'swamphouse', 'start'
 										end
 									end
 								end
@@ -1531,7 +1531,7 @@ if $ARGS[0] = 'hanterstable':
 												'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel3.jpg"></center>'
 												'You sleep for four hours, waking up in the middle night, barely able to get up off the floor. You''ve got a headache and vaguely remember yesterday.'
 
-												act 'Further': gt 'swamphouse', 'start'
+												act 'Continue': gt 'swamphouse', 'start'
 											end
 										end
 									else
@@ -1545,7 +1545,7 @@ if $ARGS[0] = 'hanterstable':
 											'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/dance5.jpg"></center>'
 											'You keep on dancing, undressing further. Judging by the excited faces of the men, you''re definitely turning them on.'
 
-											act 'Further': gt 'hantersex', 'sexafterstrip3'
+											act 'Continue': gt 'hantersex', 'sexafterstrip3'
 										end
 									end
 								end
@@ -1582,7 +1582,7 @@ if $ARGS[0] = 'hanterstable':
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel1.jpg"></center>'
 						'Three hours later you wake up in the middle of the night. You''ve got a headache and vaguely remember yesterday.'
 
-						act 'Further': gt 'swamphouse', 'start'
+						act 'Continue': gt 'swamphouse', 'start'
 					end
 				end
 			end
@@ -1606,7 +1606,7 @@ if $ARGS[0] = 'hanterstable':
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel4.jpg"></center>'
 						'Four hours later you wake up in the middle of the night. You''ve got a headache and vaguely remember yesterday.'
 
-						act 'Further': gt 'swamphouse', 'start'
+						act 'Continue': gt 'swamphouse', 'start'
 					end
 				end
 			end
@@ -1630,7 +1630,7 @@ if $ARGS[0] = 'hanterstable':
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel2.jpg"></center>'
 						'You sleep for awhile, waking up barely able to lift your head from the pillow. You''ve got a headache and vaguely remember yesterday.'
 
-						act 'Further': gt 'swamphouse', 'start'
+						act 'Continue': gt 'swamphouse', 'start'
 					end
 				end
 			end
@@ -1697,7 +1697,7 @@ if $ARGS[0] = 'hanterstable':
 												'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel3.jpg"></center>'
 												'You sleep for four hours, waking up in the middle night, barely able to get up off the floor. You''ve got a headache and vaguely remember yesterday.'
 
-												act 'Further': gt 'swamphouse', 'start'
+												act 'Continue': gt 'swamphouse', 'start'
 											end
 										end
 									else
@@ -1710,7 +1710,7 @@ if $ARGS[0] = 'hanterstable':
 											'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/dance5.jpg"></center>'
 											'You keep on dancing, undressing further. Judging by the excited faces of the men, you''re definitely turning them on.'
 
-											act 'Further': gt 'hantersex', 'sexafterstrip1'
+											act 'Continue': gt 'hantersex', 'sexafterstrip1'
 										end
 									end
 								end
@@ -1845,7 +1845,7 @@ if $ARGS[0] = 'dirty_swamphouse':
 	'Visiting the hut, you notice that the hut has gotten pretty dirty. "I need to do something about this." you think to yourself. You grab a broom and a rag and began cleaning.'
 	'After a while you''ve finished cleaning and put back everything in order again. You''re quite pleased with yourself.'
 
-	act 'Further':dirty_swamphouse = 0 & gt 'swamphouse', 'start'
+	act 'Continue':dirty_swamphouse = 0 & gt 'swamphouse', 'start'
 end
 
 --- swamphouse ---------------------------------

Some files were not shown because too many files changed in this diff