Browse Source

Bug fixes for all locations beginning with R

- Some locations are renamed once again
heromaster 10 years ago
parent
commit
f798fea60e
10 changed files with 156 additions and 48 deletions
  1. 6 7
      locations/RynokHoz
  2. 5 5
      locations/rack
  3. 99 0
      locations/rate
  4. 1 1
      locations/ratinglist
  5. 6 6
      locations/restaurant
  6. 1 1
      locations/restoran
  7. 17 21
      locations/result
  8. 5 4
      locations/rinwork
  9. 4 3
      locations/road
  10. 12 0
      locations/roulette

+ 6 - 7
locations/RynokHoz

@@ -32,13 +32,13 @@ if $ARGS[0] = 'the_beginning':
 			gbrand = rand(1, 100)
 
 			if gbrand < 95 and palevorin = 0:
-				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 				money += 2000
+				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 
 				act 'Go home':gt 'street'
 			elseif palevorin >= 1:
-				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 				money += 2000
+				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 
 				act 'Go home':gt 'street'
 			elseif gbrand >= 95 and palevorin = 0:
@@ -61,8 +61,6 @@ if $ARGS[0] = 'the_beginning':
 				act 'Agree to gangbang':
 					cla
 					palevorin = 2
-					'Host finished on you and gave way to the two guys, one of them raised your ass and threw you in pussy stuck to his penis, you groaned in pain when he hit you in the womb, the second guy immediately pulled penis and began to clap them on your face, you take it in your mouth. So you fry two guys, and the owner was sitting and looking at what is happening.'
-					'<center><img src="images/pics/rinkrug.jpg"></center>'
 
 					if abdulasex = 0:abdulasex = 1 & guy += 1
 					if hasansex = 0:hasansex = 1 & guy += 1
@@ -74,6 +72,8 @@ if $ARGS[0] = 'the_beginning':
 					cumass += 1
 					cumlip += 1
 					money += 5000
+					'<center><img src="images/pics/rinkrug.jpg"></center>'
+					'Host finished on you and gave way to the two guys, one of them raised your ass and threw you in pussy stuck to his penis, you groaned in pain when he hit you in the womb, the second guy immediately pulled penis and began to clap them on your face, you take it in your mouth. So you fry two guys, and the owner was sitting and looking at what is happening.'
 					'And finally Abdul Hasan filled steel finish and one in your mouth and the second you on your ass.'
 					'After the boys finished owner came to you and gave you a bonus of 5000 rubles'
 
@@ -99,13 +99,12 @@ if $ARGS[0] = 'the_beginning':
 			gbrand = rand(1, 100)
 
 			if gbrand < 95 and palevorin = 0:
-				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 				money += 2000
-
+				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 				act 'Go home':gt 'street'
 			elseif palevorin >= 1:
-				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 				money += 2000
+				'After sex, the host has written you a premium in the amount of 2, 000 rubles, and you went each about his business.'
 
 				act 'Go home':gt 'street'
 			elseif gbrand >= 95 and palevorin = 0:

+ 5 - 5
locations/the_stand → locations/rack

@@ -1,7 +1,9 @@
 # rack
+'You are standing at the front reception and you smiling young girl behind the counter'
+
 act 'See the description of the rooms':
 	cla
-	*clear
+	*clr
 	'The choice available to 4 types of rooms:'
 	'1. Budget Room'
 	'2. Standard rooms'
@@ -11,9 +13,7 @@ act 'See the description of the rooms':
 	act 'Finish reading':gt 'rack'
 end
 
-act 'Talk to a girl at the reception':gt 'maria1'
-act 'Move away from the rack':gt 'inn'
-
-'You are standing at the front reception and you smiling young girl behind the counter'
+act 'Talk to a girl at the reception':gt 'Maria1'
+act 'Move away from the rack':gt 'hotel'
 
 --- rack ---------------------------------

+ 99 - 0
locations/rate

@@ -0,0 +1,99 @@
+# rate
+clr
+cla
+minut += 5
+kh = 0
+chnch = 0
+mb = 0
+du = 0
+series = 0
+chi = 100
+gs 'stat'
+'<right><img src="images/casino/stavkaru.jpg"></right>'
+'What will be put?'
+
+act 'Red / Black':
+	act 'Red':
+		kh = 1
+		gt 'result'
+
+	end
+
+	act 'Black':
+		kh = 2
+		gt 'result'
+	end
+end
+
+act 'Even / Odd':
+	act 'Even':
+		chnch = 1
+		gt 'result'
+	end
+
+	act 'Odd':
+		chnch = 2
+		gt 'result'
+	end
+end
+
+act 'Small / Large':
+	act 'Small: 1-18':
+		mb = 1
+		gt 'result'
+	end
+
+	act 'Large: 19-36':
+		mb = 2
+		gt 'result'
+	end
+end
+
+act 'Dozen':
+	act 'first dozen: 1-12':
+		du = 1
+		gt 'result'
+	end
+
+	act 'Two Dozen:13-24':
+		du = 2
+		gt 'result'
+	end
+
+	act 'third dozen:25-36':
+		du = 3
+		gt 'result'
+	end
+end
+
+act 'Series':
+	act 'First row: 1, 4, 7, 10, 13, 16, 19, 22, 25, 28, 31, 34':
+		series = 1
+		gt 'result'
+	end
+
+	act 'Second row: 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35':
+		series = 2
+		gt 'result'
+	end
+
+	act 'Third row: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36':
+		series = 3
+		gt 'result'
+	end
+end
+
+act 'Number':
+	chi = input 'Enter a number from 0-36'
+
+	if chi < 0 and chi > 36:
+		msg 'Said that it was only from 0 to 36'
+		gt 'rate'
+	end
+
+	gt 'result'
+end
+
+act 'Nothing':gt 'amrul'
+
+--- rate ---------------------------------

+ 1 - 1
locations/ratinglist

@@ -6,7 +6,7 @@ nums = 0
 nums += 1
 if rating[nums]<0 and slut[nums] = 0 and loss[nums] >= 10 and win[nums]*2 < loss[nums]:slut[nums] = 1
 if rating[nums] < 0:rating[nums] = 0
-if nums < NPCnum:jump'marknulator'
+if nums < NPCnum:jump 'marknulator'
 
 !!QAZAM
 !!PGIF

+ 6 - 6
locations/the_restaurant → locations/restaurant

@@ -3,15 +3,15 @@ if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
 	cla
+	clr
 	*clr
 	minut += 5
-	'<center><b><font color="maroon">Bank</font></b></center>'
-	'<center><img src="images/etogame/bank.jpg"></center>'
-	clr
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
+	'<center><b><font color="maroon">Bank</font></b></center>'
+	'<center><img src="images/etogame/bank.jpg"></center>'
 	'Working hours are from 9 to 21.'
 
 	act 'Leave':
@@ -27,15 +27,15 @@ if $ARGS[0] = '1':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
 	cla
+	clr
 	*clr
 	minut += 5
-	'<center><b><font color="maroon">Bank</font></b></center>'
-	'<center><img src="images/etogame/bank1.jpg"></center>'
-	clr
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
+	'<center><b><font color="maroon">Bank</font></b></center>'
+	'<center><img src="images/etogame/bank1.jpg"></center>'
 
 	if bankfond > 0:'Personal account <<bankfond>> rubles'
 

+ 1 - 1
locations/restoran

@@ -124,5 +124,5 @@ if $ARGS[0] = 'vip':
 		minut += 5
 		gt 'restoran', 'start'
 	end
-
+end
 --- restoran ---------------------------------

+ 17 - 21
locations/result

@@ -22,10 +22,8 @@ end
 
 if kh ! 0:
 	if kh = 1:
-		'1'
-
 		if x_rul = 1 or x_rul = 3 or x_rul = 5 or x_rul = 7 or x_rul = 9 or x_rul = 12 or x_rul = 14 or x_rul = 16 or x_rul = 18 or x_rul = 19 or x_rul = 21 or x_rul = 23 or x_rul = 25 or x_rul = 27 or x_rul = 30 or x_rul = 32 or x_rul = 34 or x_rul = 36:
-			act 'You have won <<2*st_1>>':
+			act 'You have won <<2 * st_1>>':
 				money += 2 * st_1
 				gt 'amrul'
 			end
@@ -34,7 +32,7 @@ if kh ! 0:
 		end
 	elseif kh = 2:
 		if x_rul = 2 or x_rul = 4 or x_rul = 6 or x_rul = 8 or x_rul = 10 or x_rul = 11 or x_rul = 13 or x_rul = 15 or x_rul = 17 or x_rul = 20 or x_rul = 22 or x_rul = 24 or x_rul = 26 or x_rul = 28 or x_rul = 29 or x_rul = 31 or x_rul = 33 or x_rul = 35:
-			act 'You have won <<2*st_1>>':
+			act 'You have won <<2 * st_1>>':
 				money += 2 * st_1
 				gt 'amrul'
 			end
@@ -47,7 +45,7 @@ elseif chnch ! 0:
 		chnch = 0
 
 		if x_rul mod 2 = 0:
-			act 'You have won <<2*st_1>>':
+			act 'You have won <<2 * st_1>>':
 				money += 2 * st_1
 				gt 'amrul'
 			end
@@ -60,7 +58,7 @@ elseif chnch ! 0:
 		chnch = 0
 
 		if x_rul mod 2 = 1:
-			act 'You have won <<2*st_1>>':
+			act 'You have won <<2 * st_1>>':
 				money += 2 * st_1
 				gt 'amrul'
 			end
@@ -72,7 +70,7 @@ elseif mb ! 0:
 	if mb = 1:
 		mb = 0
 		if x_rul > 0 and x_rul < 19:
-			act 'You have won <<2*st_1>>':
+			act 'You have won <<2 * st_1>>':
 				money += 2 * st_1
 				gt 'amrul'
 			end
@@ -84,7 +82,7 @@ elseif mb ! 0:
 	if mb = 2:
 		mb = 0
 		if x_rul > 18 and x_rul < 37:
-			act 'You have won <<2*st_1>>':
+			act 'You have won <<2 * st_1>>':
 				money += 2 * st_1
 				gt 'amrul'
 			end
@@ -97,7 +95,7 @@ elseif du ! 0:
 		du = 0
 
 		if x_rul > 0 and x_rul < 13:
-			act 'You have won <<3*st_1>>':
+			act 'You have won <<3 * st_1>>':
 				money += 3 * st_1
 				gt 'amrul'
 			end
@@ -110,7 +108,7 @@ elseif du ! 0:
 		du = 0
 
 		if x_rul > 12 and x_rul < 25:
-			act 'You have won <<3*st_1>>':
+			act 'You have won <<3 * st_1>>':
 				money += 3 * st_1
 				gt 'amrul'
 			end
@@ -122,7 +120,7 @@ elseif du ! 0:
 	if du = 3:
 		du = 0
 		if x_rul > 24 and x_rul < 37:
-			act 'You have won <<3*st_1>>':
+			act 'You have won <<3 * st_1>>':
 				money += 3 * st_1
 				gt 'amrul'
 			end
@@ -130,9 +128,9 @@ elseif du ! 0:
 			act 'You lost':gt 'amrul'
 		end
 	end
-elseif a_row ! 0:
-	if a_row = 1:
-		a_row = 0
+elseif series ! 0:
+	if series = 1:
+		series = 0
 
 		if x_rul = 1 or x_rul = 4 or x_rul = 7 or x_rul = 10 or x_rul = 13 or x_rul = 16 or x_rul = 19 or x_rul = 22 or x_rul = 25 or x_rul = 28 or x_rul = 31 or x_rul = 34:
 			act 'You have won <<3*st_1>>':
@@ -142,8 +140,8 @@ elseif a_row ! 0:
 		else
 			act 'You lost':gt 'amrul'
 		end
-	elseif a_row = 2:
-		a_row = 0
+	elseif series = 2:
+		series = 0
 
 		if x_rul = 2 or x_rul = 3 or x_rul = 8 or x_rul = 11 or x_rul = 14 or x_rul = 17 or x_rul = 20 or x_rul = 23 or x_rul = 26 or x_rul = 29 or x_rul = 32 or x_rul = 35:
 			act 'You have won <<3*st_1>>':
@@ -153,10 +151,8 @@ elseif a_row ! 0:
 		else
 			act 'You lost':gt 'amrul'
 		end
-	end
-
-	if a_row = 3:
-		a_row = 0
+	elseif series = 3:
+		series = 0
 
 		if x_rul = 3 or x_rul = 4 or x_rul = 9 or x_rul = 12 or x_rul = 15 or x_rul = 18 or x_rul = 21 or x_rul = 24 or x_rul = 27 or x_rul = 30 or x_rul = 33 or x_rul = 36:
 			act 'You have won <<3*st_1>>':
@@ -171,7 +167,7 @@ end
 
 elseif chi ! 100:
 	if chi = x_rul:
-		act 'You have won <<37*st_1>>':
+		act 'You have won <<37 * st_1>>':
 			money += 37 * st_1
 			gt 'amrul'
 		end

+ 5 - 4
locations/rinwork

@@ -116,7 +116,7 @@ if $ARGS[0] = 'start':
 			cla
 			*clr
 			rinart = rinvesh * 1000
-			rinmon = rinmon - rinart
+			rinmon -= rinart
 			money += rinmon
 			gs 'stat'
 			'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
@@ -155,7 +155,7 @@ if $ARGS[0] = 'start':
 
 				act 'Refuse':
 					cla
-					'You become otnekivatsya Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I''m fine and I can take you.'
+					'You have become excuses Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I''m fine and I can take you.'
 
 					act 'Okay, let''s go have a drink':gt 'RynokHoz', 'the_beginning'
 
@@ -391,7 +391,7 @@ if $ARGS[0] = 'start':
 
 					act 'Further':gt 'rinwork', 'start'
 				end
-			else
+			elseif rintakrand = 5:
 				$rintak = 'Arthur, Abdul Hassan and neighing loudly and talk about something not on the plain language.'
 
 				act 'View on Caucasians':
@@ -706,8 +706,9 @@ if $ARGS[0] = 'start':
 				if water >= 20:
 					'Coffee you no longer climbs.'
 				elseif water < 20:
-					'You gladly drank a mug of coffee.'
 					water += 20
+					'You gladly drank a mug of coffee.'
+
 				end
 
 				act 'Throw leftovers':gt 'rinwork', 'start'

+ 4 - 3
locations/road

@@ -167,13 +167,13 @@ $polustanok3 = {
 
 $metka = $ARGS[0]
 $loc = $CURLOC
+clr
+gs 'stat'
+gs 'time'
 '<center><h4>Northern Highway</h4></center>'
 '<center><img src="images/etogame/road.jpg"></center>'
 '<center><<nroad>> km</center>'
 'Highway which carried cars at high speed, with the hum of the wind enveloping sweep wagon.'
-clr
-gs 'stat'
-gs 'time'
 
 if car > 0 and cardrive = 19 and ncarroad = nroad:'Standing on the sidelines <a href="exec:gs ''carF'', ''start''">your <<$car>></a>.'
 if nroad = 0:act 'Go to town':minut += 60 & gt 'nord'
@@ -181,6 +181,7 @@ if nroad = 16:act 'Go to object':minut += 60 & gt 'obekt'
 if nroad = 20:act 'Go to town':minut += 60 & gt 'gorodok'
 if nroad < 20:act 'Go north':minut += 60 & nroad += 1 & gt $curloc
 if nroad > 0:act 'Go south':minut += 60 & nroad -= 1 & gt $curloc
+
 if nroad = 0:
 	'Outskirts of the town which brought sad ramshackle huts of kryazhestyh trees.'
 	'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'

+ 12 - 0
locations/roulette

@@ -0,0 +1,12 @@
+# roulette
+clr
+minut += 10
+gs 'stat'
+'<right><img src="images/casino/ruletka.jpg"></right>'
+'You came to the table with American roulette.'
+
+act 'Approach to the dealer':gt 'croupier'
+act 'Play':gt 'amrul'
+act 'Back in the hall':gt 'hall'
+
+--- roulette ---------------------------------