Browse Source

Assorted minor cleanup

Capitalization fixes
Changed Escape acts to Leave
Spaces on gt 'location' and gs 'location' calls
Fixed night time hour check to use or instead of and
Thekingofsweden 9 years ago
parent
commit
99124a7c9f
4 changed files with 38 additions and 40 deletions
  1. BIN
      glife.txt
  2. 31 31
      locations/gadriver
  3. 2 2
      locations/gadukino
  4. 5 7
      locations/mitkabuh

BIN
glife.txt


+ 31 - 31
locations/gadriver

@@ -3,8 +3,8 @@ $metka = $ARGS[0]
 $loc = $CURLOC
 $loc = $CURLOC
 
 
 clr
 clr
-gs'stat'
-gs'time'
+gs 'stat'
+gs 'time'
 
 
 '<center><H4>River Zmeyavka</H4></center>'
 '<center><H4>River Zmeyavka</H4></center>'
 
 
@@ -27,14 +27,14 @@ temp = RAND(0,20)
 if temp = 0 and hour >= 6 and hour < 22 and month >= 5 and month <= 9 and sunWeather = 1:'On the banks spread their fishing rods <a href="exec: dynamic $fishers ">local fishermen</a>.'
 if temp = 0 and hour >= 6 and hour < 22 and month >= 5 and month <= 9 and sunWeather = 1:'On the banks spread their fishing rods <a href="exec: dynamic $fishers ">local fishermen</a>.'
 if temp = 1 and hour < 5 and month >= 5 and month <= 9 and miragopQW >= 20:'Right next to the path leading to the river, is completely naked <a href="exec: dynamic $mirapunish ">Mira</a>, crucified between two trees...'
 if temp = 1 and hour < 5 and month >= 5 and month <= 9 and miragopQW >= 20:'Right next to the path leading to the river, is completely naked <a href="exec: dynamic $mirapunish ">Mira</a>, crucified between two trees...'
 
 
-act 'to the beach':minut += 5 & gt'Gadriver', 'Gadbitch'
-act 'In the village':minut += 20 & mirainriver = 0 & gt'gadukino'
+act 'To the beach':minut += 5 & gt 'Gadriver', 'Gadbitch'
+act 'To the village':minut += 20 & mirainriver = 0 & gt 'gadukino'
 
 
 if $ARGS[0] = 'Gadbitch':
 if $ARGS[0] = 'Gadbitch':
 	cla
 	cla
 	clr
 	clr
 	*clr
 	*clr
-	gs'stat'
+	gs 'stat'
 
 
 	'<center><H4>Village beach</H4></center>'
 	'<center><H4>Village beach</H4></center>'
 
 
@@ -48,7 +48,7 @@ if $ARGS[0] = 'Gadbitch':
 		'<center><img src="images/qwest/gadukino/river/Gadbitch_night.jpg"></center>'
 		'<center><img src="images/qwest/gadukino/river/Gadbitch_night.jpg"></center>'
 	end
 	end
 
 
-	'A small country beach, where you can somehow sunbathe and swim.'
+	'A small country beach, where you can sunbathe and swim.'
 	if mirainriver = 1:temp = RAND(0,20)
 	if mirainriver = 1:temp = RAND(0,20)
 	if mirainriver = 1 and temp < 10:'On the beach sunning razomlevshie<a href="exec: dynamic $mirameadow ">Mira</a>.'
 	if mirainriver = 1 and temp < 10:'On the beach sunning razomlevshie<a href="exec: dynamic $mirameadow ">Mira</a>.'
 	if mirainriver = 1 and temp >= 10:'The river splashing fun <a href="exec: dynamic $mirameadow ">Mira</a>.'
 	if mirainriver = 1 and temp >= 10:'The river splashing fun <a href="exec: dynamic $mirameadow ">Mira</a>.'
@@ -56,7 +56,7 @@ if $ARGS[0] = 'Gadbitch':
 	if temper >= 20 and month >= 5 and month <= 9:
 	if temper >= 20 and month >= 5 and month <= 9:
 
 
 		if bikini > 0:
 		if bikini > 0:
-			act 'bathe':
+			act 'Bathe':
 				cla
 				cla
 				*clr
 				*clr
 				cumpussy = 0
 				cumpussy = 0
@@ -68,9 +68,9 @@ if $ARGS[0] = 'Gadbitch':
 				minut += 30
 				minut += 30
 				sweat = -3
 				sweat = -3
 				manna += 5
 				manna += 5
-				willpower = willpower + 5
-				if stren < 30:stren = stren + 1
-				if hour >= 22 and hour <= 6:
+				willpower += 5
+				if stren < 30:stren += 1
+				if hour >= 22 or hour <= 6:
 					'<center><img src="images/qwest/gadukino/river/GadRiverSwim_night.jpg"></center>'
 					'<center><img src="images/qwest/gadukino/river/GadRiverSwim_night.jpg"></center>'
 					'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
 					'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
 				else
 				else
@@ -82,10 +82,10 @@ if $ARGS[0] = 'Gadbitch':
 						'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
 						'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
 					end
 					end
 				end
 				end
-				act 'Get out of the water':minut += 5 & gt'Gadriver', 'Gadbitch'
+				act 'Get out of the water':minut += 5 & gt 'Gadriver', 'Gadbitch'
 			end
 			end
 		else
 		else
-			act 'bathe nude':
+			act 'Bathe nude':
 				cla
 				cla
 				*clr
 				*clr
 				cumpussy = 0
 				cumpussy = 0
@@ -98,7 +98,7 @@ if $ARGS[0] = 'Gadbitch':
 				sweat = -3
 				sweat = -3
 				manna += 5
 				manna += 5
 				willpower += 5
 				willpower += 5
-				if stren < 30:stren = stren + 1
+				if stren < 30:stren += 1
 				if hour >= 22 and hour <= 6:
 				if hour >= 22 and hour <= 6:
 					'<center><img src="images/qwest/gadukino/river/watergirls1.jpg"></center>'
 					'<center><img src="images/qwest/gadukino/river/watergirls1.jpg"></center>'
 					'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
 					'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
@@ -113,7 +113,7 @@ if $ARGS[0] = 'Gadbitch':
 						'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
 						'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
 					end
 					end
 				end
 				end
-				act 'Get out of the water':minut += 5 & gt'Gadriver', 'Gadbitch'
+				act 'Get out of the water':minut += 5 & gt 'Gadriver', 'Gadbitch'
 			end
 			end
 		end
 		end
 		if hour >= 8 and hour < 20:
 		if hour >= 8 and hour < 20:
@@ -139,7 +139,7 @@ if $ARGS[0] = 'Gadbitch':
 						tan += 3
 						tan += 3
 						'You body is smeared with cream for sunburn and went sunbathing.'
 						'You body is smeared with cream for sunburn and went sunbathing.'
 					end
 					end
-					act 'further':minut += 5 & gt'Gadriver', 'Gadbitch'
+					act 'Further':minut += 5 & gt 'Gadriver', 'Gadbitch'
 				end
 				end
 			else
 			else
 				act 'Sunbathe nude (1:00)':
 				act 'Sunbathe nude (1:00)':
@@ -162,13 +162,13 @@ if $ARGS[0] = 'Gadbitch':
 						tan += 3
 						tan += 3
 						'You body is smeared with cream for sunburn and went sunbathing.'
 						'You body is smeared with cream for sunburn and went sunbathing.'
 					end
 					end
-					act 'Further':minut += 5 & gt'Gadriver', 'Gadbitch'
+					act 'Further':minut += 5 & gt 'Gadriver', 'Gadbitch'
 				end
 				end
 			end
 			end
 		end
 		end
 	end
 	end
 
 
-	act 'escape':minut += 5 & gt'Gadriver'
+	act 'escape':minut += 5 & gt 'Gadriver'
 end
 end
 
 
 $mirameadow = {
 $mirameadow = {
@@ -190,19 +190,19 @@ $mirameadow = {
 			'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
 			'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
 		end
 		end
 	end
 	end
-	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
+	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
 
 
-	act'chat':
+	act 'Chat':
 	cls
 	cls
-	minut+=10
-	manna+=10
-	gs'stat'
+	minut += 10
+	manna += 10
+	gs 'stat'
 		if temp < 10:
 		if temp < 10:
-		if miragopQW < 12:
-			'<center><img src="images/qwest/gadukino/river/MiraBeach.jpg"></center>'
-		else
-			'<center><img src="images/qwest/gadukino/river/MiraBeachNude.jpg"></center>'
-		end
+			if miragopQW < 12:
+				'<center><img src="images/qwest/gadukino/river/MiraBeach.jpg"></center>'
+			else
+				'<center><img src="images/qwest/gadukino/river/MiraBeachNude.jpg"></center>'
+			end
 		else
 		else
 			if miragopQW < 12:
 			if miragopQW < 12:
 				'<center><img src="images/qwest/gadukino/river/MiraRiver.jpg"></center>'
 				'<center><img src="images/qwest/gadukino/river/MiraRiver.jpg"></center>'
@@ -210,8 +210,8 @@ $mirameadow = {
 				'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
 				'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
 			end
 			end
 		end
 		end
-	 'You are chatting with Mira about trifles'
-	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
+	 'You are chatting with Mira about trivial things.'
+	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
 	end
 	end
 }
 }
 
 
@@ -222,7 +222,7 @@ $fishers = {
 
 
 	'<center><img src="images/qwest/gadukino/river/GadRiverFishers.jpg"></center>'
 	'<center><img src="images/qwest/gadukino/river/GadRiverFishers.jpg"></center>'
 
 
-	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
+	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
 }
 }
 
 
 $mirapunish = {
 $mirapunish = {
@@ -235,6 +235,6 @@ $mirapunish = {
 	'You come closer to her and Miroslav happily smiling to you, asking for her release. As long as you untie her, she tells you that it is so Kolyamba punished for what she lightly bit his cock as he sucked...'
 	'You come closer to her and Miroslav happily smiling to you, asking for her release. As long as you untie her, she tells you that it is so Kolyamba punished for what she lightly bit his cock as he sucked...'
 	'- Thank God - with a sigh of relief she adds to her story. - Well, it was you got to me and not someone else, and then imagine what would have been a picture - naked Mirka, Crucified night among the trees, stay away and do what you want, even fuck, even beat, kill ... Well had passed, thank you, she asks, you did great was saved!'
 	'- Thank God - with a sigh of relief she adds to her story. - Well, it was you got to me and not someone else, and then imagine what would have been a picture - naked Mirka, Crucified night among the trees, stay away and do what you want, even fuck, even beat, kill ... Well had passed, thank you, she asks, you did great was saved!'
 
 
-	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
+	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
 }
 }
 --- Gadriver ---------------------------------
 --- Gadriver ---------------------------------

+ 2 - 2
locations/gadukino

@@ -29,14 +29,14 @@ end
 'A small village with a rickety wooden houses.'
 'A small village with a rickety wooden houses.'
 
 
 if StoryLine = 1:'In one <a href="exec:minut += 5 & gt ''Gaddvor''">huts live your grandparents</a>.'
 if StoryLine = 1:'In one <a href="exec:minut += 5 & gt ''Gaddvor''">huts live your grandparents</a>.'
-if miraQW > 0: 'Through the three houses is the house  <a href="exec:minut += 5 & GT ''MiroslavaHome''">Miroslava</a>.'
+if miraQW > 0: 'Through the three houses is the house  <a href="exec:minut += 5 & gt ''MiroslavaHome''">Miroslava</a>.'
 
 
 if hour >= 6 and hour < 20:
 if hour >= 6 and hour < 20:
 	if month >= 5 and month <= 9:
 	if month >= 5 and month <= 9:
 		act 'Walking through the village':
 		act 'Walking through the village':
 			cls
 			cls
 			minut += 15
 			minut += 15
-			temp = RAND(0,100)
+			temp = RAND(0, 100)
 			gs 'stat'
 			gs 'stat'
 			if temp < 4 and meadow = 0:
 			if temp < 4 and meadow = 0:
 				'<center><img src="images/qwest/gadukino/trail_meadow.jpg"></center>'
 				'<center><img src="images/qwest/gadukino/trail_meadow.jpg"></center>'

+ 5 - 7
locations/mitkabuh

@@ -2,11 +2,9 @@
 gs 'stat'
 gs 'stat'
 
 
 if miraingop = 0 and alko < 8:
 if miraingop = 0 and alko < 8:
-	act 'Leave':gt 'Gaddvor'
-
 	'<center><img src="images/qwest/gadukino/drunk.jpg"></center>'
 	'<center><img src="images/qwest/gadukino/drunk.jpg"></center>'
 	'Set in a secluded spot three village boy, Mitka kingpin, Bob Package and Kolyamba drink moonshine without snacks. Mitka brew pours into a glass and takes you.'
 	'Set in a secluded spot three village boy, Mitka kingpin, Bob Package and Kolyamba drink moonshine without snacks. Mitka brew pours into a glass and takes you.'
-	act 'Escape':gt'Gaddvor'
+	act 'Leave':gt 'Gaddvor'
 	act 'Drink':
 	act 'Drink':
 		cls
 		cls
 		minut += 30
 		minut += 30
@@ -16,7 +14,7 @@ if miraingop = 0 and alko < 8:
 		'<center><img src="images/qwest/gadukino/drunk.jpg"></center>'
 		'<center><img src="images/qwest/gadukino/drunk.jpg"></center>'
 		'You drank moonshine and everything inside burned, breathless you become zanyuhivat sleeve ,because there were no snacks. Mitka said approvingly "Good infection, wade."'
 		'You drank moonshine and everything inside burned, breathless you become zanyuhivat sleeve ,because there were no snacks. Mitka said approvingly "Good infection, wade."'
 
 
-		act 'Catching his breath':gt $curloc
+		act 'Catching your breath':gt $curloc
 	end
 	end
 elseif miraingop = 0 and alko >= 8 and mirasextimes = 0:
 elseif miraingop = 0 and alko >= 8 and mirasextimes = 0:
 	'<center><img src="images/qwest/gadukino/mitka.jpg"></center>'
 	'<center><img src="images/qwest/gadukino/mitka.jpg"></center>'
@@ -42,12 +40,12 @@ elseif miraingop = 0 and alko >= 8 and mirasextimes = 0:
 
 
 		'Mitka, I lay down on his side and lit "Fucking!"'
 		'Mitka, I lay down on his side and lit "Fucking!"'
 
 
-		act 'Escape':gt'Gaddvor'
+		act 'Leave':gt 'Gaddvor'
 	end
 	end
 elseif miraingop = 0 and alko >= 8:
 elseif miraingop = 0 and alko >= 8:
 	'<center><img src="images/qwest/gadukino/drunk.jpg"></center>'
 	'<center><img src="images/qwest/gadukino/drunk.jpg"></center>'
 	'You got drunk in the trash, leg practically no longer hold you. Mitka noticed your condition keeps you around the waist. It seems, you`ve had enough...'
 	'You got drunk in the trash, leg practically no longer hold you. Mitka noticed your condition keeps you around the waist. It seems, you`ve had enough...'
-	act 'Escape':gt'Gaddvor'
+	act 'Leave':gt 'Gaddvor'
 end
 end
 
 
 if miraingop = 1 and miragopQW > 0:
 if miraingop = 1 and miragopQW > 0:
@@ -128,7 +126,7 @@ if miraingop = 1 and miragopQW > 0:
 				gs 'stat'
 				gs 'stat'
 				'<center><img src="images/qwest/gadukino/drinking.jpg"></center>'
 				'<center><img src="images/qwest/gadukino/drinking.jpg"></center>'
 				'You take a glass of moonshine and start, coughing and sickly, strain it through your teeth. Miroslav meanwhile shyly responds to impudent questions rural youth.'
 				'You take a glass of moonshine and start, coughing and sickly, strain it through your teeth. Miroslav meanwhile shyly responds to impudent questions rural youth.'
-				act 'Catching his breath':gt $curloc
+				act 'Catching your breath':gt $curloc
 			end
 			end
 		end
 		end
 		if temp = 2:
 		if temp = 2: