glife/locations/road

# road
$polustanok = {
	cls
	gs 'stat'
	'Ordinary railway platform.'

	act 'Exit':minut += 10 & nroad = 5 & gt 'road'

	if money >= 150:
		act 'Buy a ticket to the town (150 rubles)':
			cls
			money -= 150
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped at the station.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped at the station.'

				act 'To go further':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images/etogame/electri.jpg"></center>'
					'After 15 minutes the train stopped in the Township.'

					act 'Exit':minut += 20 & nroad = 20 & gt 'vokzalG'
				end

				act 'Exit':minut += 15 & nroad = 15 & gt 'road'
			end

			act 'Exit':minut += 10 & nroad = 10 & gt 'road'
		end
	end

	if money >= 50:
		act 'Buy a ticket to the Centre (50 rubles)':
			cls
			money -= 50
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped at the Centre.'

			act 'Exit':minut += 5 & nroad = 0 & gt 'Vokzal'
		end
	end
}

$polustanok2 = {
	cls
	gs 'stat'
	'Ordinary railway platform.'

	act 'Exit':minut += 10 & nroad = 10 & gt 'road'

	if money >= 100:
		act 'Buy a ticket to the town (100 rubles)':
			cls
			money -= 100
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped at the station.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped in the Township.'

				act 'Exit':minut += 20 & nroad = 20 & gt 'vokzalG'
			end

			act 'Exit':minut += 10 & nroad = 15 & gt 'road'
		end
	end

	if money >= 100:
		act 'Buy a ticket to the Center (100 rubles)':
			cls
			money -= 100
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped at the Centre.'

				act 'Exit':minut += 5 & nroad = 0 & gt 'Vokzal'
			end

			act 'Exit':minut += 20 & nroad = 5 & gt 'road'
		end
	end
}

$polustanok3 = {
	cls
	gs 'stat'
	'Ordinary railway platform.'

	act 'Exit':minut += 15 & nroad = 15 & gt 'road'

	if money >= 50:
		act 'Buy a ticket to the town (50 rubles)':
			cls
			money -= 100
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped in the Township.'

			act 'Exit':minut += 20 & nroad = 20 & gt 'vokzalG'
		end
	end

	if money >= 150:
		act 'Buy a ticket to the Center (150 rubles)':
			cls
			money -= 150
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped at the station.'

				act 'To go further':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images/etogame/electri.jpg"></center>'
					'After 15 minutes the train stopped at the Centre.'

					act 'Exit':minut += 5 & nroad = 0 & gt 'Vokzal'
				end

				act 'Exit':minut += 5 & nroad = 5 & gt 'road'
			end

			act 'Exit':minut += 20 & nroad = 10 & gt 'road'
		end
	end
}

$metka = $ARGS[0]
$loc = $CURLOC
'<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'
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>'
end

if nroad = 1:'Not podaleku from the city could be seen <a href="exec:minut += 15 & gt ''locmansion''">houses</a>.'
if nroad = 2:''
if nroad = 3:'Podaleku not seen from the road <a href="exec:minut += 15 & gt ''graveyard''">cemetery</a>.'
if nroad = 4:''
if nroad = 5:'Not podaleku from the road is <a href="exec:dynamic $polustanok">railway stop</a> next to which is <a href="exec:minut += 15 & gt ''dachi''">cottage cooperative</a>.'
if nroad = 6:''
if nroad = 7:''
if nroad = 8:''
if nroad = 9:''
if nroad = 10:'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
if nroad = 11:''
if nroad = 12:''
if nroad = 13:''
if nroad = 14:'Near the road is <a href="exec:minut += 15 & gt ''motel''">motel</a>'
if nroad = 15:'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>.'
if nroad = 16:'Not podaleku is seen from the road abandoned building.'
if nroad = 17:''
if nroad = 18:''
if nroad = 19:''
if nroad = 20:
	'Highway abuts the old provincial town.'
	'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
end

--- road ---------------------------------