# 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>.'
end

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.'
end
if nroad = 1:
'Not podaleku from the city could be seen <a href="exec:minut += 15 & GT ''locmansion''">houses</a>.'
end
if nroad = 2:
''
end
if nroad = 3:
'Podaleku not seen from the road <a href="exec:minut += 15 & GT ''graveyard''">cemetery</a>.'
end
if nroad = 4:
''
end
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>.'
end
if nroad = 6:
''
end
if nroad = 7:
''
end
if nroad = 8:
''
end
if nroad = 9:
''
end
if nroad = 10:
'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
end
if nroad = 11:
''
end
if nroad = 12:
''
end
if nroad = 13:
''
end
if nroad = 14:
'Near the road is <a href="exec:minut += 15 & GT ''motel''">motel</a>'
end
if nroad = 15:
'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>.'
end
if nroad = 16:
'Not podaleku is seen from the road abandoned building.'
end
if nroad = 17:
''
end
if nroad = 18:
''
end
if nroad = 19:
''
end
if nroad = 20:
'Highway abuts the old provincial town.'
end
--- road ---------------------------------

