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
 
 clr
-gs'stat'
-gs'time'
+gs 'stat'
+gs 'time'
 
 '<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 = 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':
 	cla
 	clr
 	*clr
-	gs'stat'
+	gs 'stat'
 
 	'<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>'
 	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 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>.'
@@ -56,7 +56,7 @@ if $ARGS[0] = 'Gadbitch':
 	if temper >= 20 and month >= 5 and month <= 9:
 
 		if bikini > 0:
-			act 'bathe':
+			act 'Bathe':
 				cla
 				*clr
 				cumpussy = 0
@@ -68,9 +68,9 @@ if $ARGS[0] = 'Gadbitch':
 				minut += 30
 				sweat = -3
 				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>'
 					'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
 				else
@@ -82,10 +82,10 @@ if $ARGS[0] = 'Gadbitch':
 						'You iskupnulis in the creek, feeling the refreshing and invigorating water.'
 					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
 		else
-			act 'bathe nude':
+			act 'Bathe nude':
 				cla
 				*clr
 				cumpussy = 0
@@ -98,7 +98,7 @@ if $ARGS[0] = 'Gadbitch':
 				sweat = -3
 				manna += 5
 				willpower += 5
-				if stren < 30:stren = stren + 1
+				if stren < 30:stren += 1
 				if hour >= 22 and hour <= 6:
 					'<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.'
@@ -113,7 +113,7 @@ if $ARGS[0] = 'Gadbitch':
 						'You stripped naked and quickly iskupnulis in the creek, feeling the refreshing and invigorating water.'
 					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
 		if hour >= 8 and hour < 20:
@@ -139,7 +139,7 @@ if $ARGS[0] = 'Gadbitch':
 						tan += 3
 						'You body is smeared with cream for sunburn and went sunbathing.'
 					end
-					act 'further':minut += 5 & gt'Gadriver', 'Gadbitch'
+					act 'Further':minut += 5 & gt 'Gadriver', 'Gadbitch'
 				end
 			else
 				act 'Sunbathe nude (1:00)':
@@ -162,13 +162,13 @@ if $ARGS[0] = 'Gadbitch':
 						tan += 3
 						'You body is smeared with cream for sunburn and went sunbathing.'
 					end
-					act 'Further':minut += 5 & gt'Gadriver', 'Gadbitch'
+					act 'Further':minut += 5 & gt 'Gadriver', 'Gadbitch'
 				end
 			end
 		end
 	end
 
-	act 'escape':minut += 5 & gt'Gadriver'
+	act 'escape':minut += 5 & gt 'Gadriver'
 end
 
 $mirameadow = {
@@ -190,19 +190,19 @@ $mirameadow = {
 			'<center><img src="images/qwest/gadukino/river/MiraRiverNude.jpg"></center>'
 		end
 	end
-	act 'escape':minut += 5 & gt'Gadriver', 'Gadbitch'
+	act 'Leave':minut += 5 & gt 'Gadriver', 'Gadbitch'
 
-	act'chat':
+	act 'Chat':
 	cls
-	minut+=10
-	manna+=10
-	gs'stat'
+	minut += 10
+	manna += 10
+	gs 'stat'
 		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
 			if miragopQW < 12:
 				'<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>'
 			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
 }
 
@@ -222,7 +222,7 @@ $fishers = {
 
 	'<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 = {
@@ -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...'
 	'- 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 ---------------------------------

+ 2 - 2
locations/gadukino

@@ -29,14 +29,14 @@ end
 '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 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 month >= 5 and month <= 9:
 		act 'Walking through the village':
 			cls
 			minut += 15
-			temp = RAND(0,100)
+			temp = RAND(0, 100)
 			gs 'stat'
 			if temp < 4 and meadow = 0:
 				'<center><img src="images/qwest/gadukino/trail_meadow.jpg"></center>'

+ 5 - 7
locations/mitkabuh

@@ -2,11 +2,9 @@
 gs 'stat'
 
 if miraingop = 0 and alko < 8:
-	act 'Leave':gt 'Gaddvor'
-
 	'<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.'
-	act 'Escape':gt'Gaddvor'
+	act 'Leave':gt 'Gaddvor'
 	act 'Drink':
 		cls
 		minut += 30
@@ -16,7 +14,7 @@ if miraingop = 0 and alko < 8:
 		'<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."'
 
-		act 'Catching his breath':gt $curloc
+		act 'Catching your breath':gt $curloc
 	end
 elseif miraingop = 0 and alko >= 8 and mirasextimes = 0:
 	'<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!"'
 
-		act 'Escape':gt'Gaddvor'
+		act 'Leave':gt 'Gaddvor'
 	end
 elseif miraingop = 0 and alko >= 8:
 	'<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...'
-	act 'Escape':gt'Gaddvor'
+	act 'Leave':gt 'Gaddvor'
 end
 
 if miraingop = 1 and miragopQW > 0:
@@ -128,7 +126,7 @@ if miraingop = 1 and miragopQW > 0:
 				gs 'stat'
 				'<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.'
-				act 'Catching his breath':gt $curloc
+				act 'Catching your breath':gt $curloc
 			end
 		end
 		if temp = 2: