GirlLife_BPP/locations/road

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

	act 'Leave':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 'Leave':minut += 20 & nroad = 20 & gt 'vokzalG'
				end

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

			act 'Leave':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 'Leave':minut += 5 & nroad = 0 & gt 'Vokzal'
		end
	end
}

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

	act 'Leave':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 'Leave':minut += 20 & nroad = 20 & gt 'vokzalG'
			end

			act 'Leave':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 'Leave':minut += 5 & nroad = 0 & gt 'Vokzal'
			end

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

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

	act 'Leave':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 'Leave':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 'Leave':minut += 5 & nroad = 0 & gt 'Vokzal'
				end

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

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

$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.'

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>'
elseif nroad = 1:
	'Not podaleku from the city could be seen <a href="exec:minut += 15 & gt ''locmansion''">houses</a>.'
elseif nroad = 2:
	''
elseif nroad = 3:
	'Podaleku not seen from the road <a href="exec:minut += 15 & gt ''graveyard''">cemetery</a>.'
elseif nroad = 4:
	''
elseif 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>.'
elseif nroad = 6:
	''
elseif nroad = 7:
	''
elseif nroad = 8:
	''
elseif nroad = 9:
	''
elseif nroad = 10:
	'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
elseif nroad = 11:
	''
elseif nroad = 12:
	''
elseif nroad = 13:
	''
elseif nroad = 14:
	'Near the road is <a href="exec:minut += 15 & gt ''motel''">motel</a>'
elseif nroad = 15:
	'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>. From the little station leads to a dirt road <a href="exec:minut += 30 & gt ''gadukino''">Village Gadyukino</a>'
elseif nroad = 16:
	'Not podaleku is seen from the road abandoned building.'
elseif nroad = 17:
	''
elseif nroad = 18:
	''
elseif nroad = 19:
	''
elseif nroad = 20:
	'Highway abuts the old provincial town.'
	'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
end

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