glife/locations/376_autosalonF

# autosalonF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
set cartraid = 1
'<center><B>Auto Show</B></center>'
'<center><img src="images\etogame\manager.jpg"></center>'
'List of vehicles for sale'
'<a href="exec:GS ''carF1'',''car''">2107</a>. - New price 200tyr'
'<a href="exec:GS ''carF1'',''car2''">2115</a>. - New price 310tyr'
'<a href="exec:GS ''carF1'',''car3''">2113</a>. - New price 290tyr'
'<a href="exec:GS ''carF1'',''car4''">2114</a>. - New price 300tyr'
'<a href="exec:GS ''carF1'',''car5''">VAZ 2110</a>. - New price 350tyr'
'<a href="exec:GS ''carF1'',''car6''">VAZ Kalina</a>. - New price 400tyr'
'<a href="exec:GS ''carF1'',''car7''">WHA Pryor</a>. - New price 450tyr'
'<a href="exec:GS ''carF1'',''car8''">Chevrolet Niva</a>. - New price 500tyr'
'<a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>. - New price 500tyr'
'<a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>. - New price 600tyr'
'<a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>. - New price 1,000,000'
'<a href="exec:GS ''carF1'',''car96''">Audi Q7</a>. - New price 5,000,000'
'<a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>. - New price 2,000,000'
'<a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>. - New price 5,000,000'
'<a href="exec:GS ''carF1'',''car99''">BMW X6</a>. - New price 4,500,000'
'<a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>. - New price 8m'
act 'Talk to the manager': gt 'autosalonF','manager1'
act 'Leave': gt 'Nord'
end

if $ARGS[0] = 'manager1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
'<center><B>Auto Show</B></center>'
'<center><img src="images\etogame\manager.jpg"></center>'
'In the bank <<karta>> rubles'
*nl
'The manager smiled and said affably. To purchase, you must have the right and enough cash in the bank, we do not work for cash. As it is impossible to have two cars, I am sorry, but this new law antiprobkovy City Hall.'
act 'Leave': gt 'Nord'
	if prava = 1 and car = 0:
		if karta >= 200000:
			act 'Buy VAZ 2107 (200,000 rubles)':
			cla
			*clr
			set karta -= 200000
			set $car = '2107'
			set car = 1
			set benz = 3
			set cardrive = 8
			set teh = 200
			set tehcar = 200
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 310000:
			act 'Buy VAZ 2115 (310,000 rubles)':
			cla
			*clr
			set karta -= 310000
			set $car = '2115'
			set car = 2
			set benz = 3
			set cardrive = 8
			set teh = 300
			set tehcar = 300
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end
		if karta >= 290000:
			act 'Buy VAZ 2113 (290,000 rubles)':
			cla
			*clr
			set karta -= 290000
			set $car = '2113'
			set car = 3
			set benz = 3
			set cardrive = 8
			set teh = 290
			set tehcar = 290
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end
		if karta >= 300000:
			act 'Buy VAZ 2114 (300,000 rubles)':
			cla
			*clr
			set karta -= 300000
			set $car = '2114'
			set car = 4
			set benz = 3
			set cardrive = 8
			set teh = 300
			set tehcar = 300
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end
		if karta >= 350000:
			act 'Buy VAZ 2110 (350,000 rubles)':
			cla
			*clr
			set karta -= 350000
			set $car = 'VAZ 2110'
			set car = 5
			set benz = 3
			set cardrive = 8
			set teh = 350
			set tehcar = 350
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 400000:
			act 'Buy VAZ Kalina (400,000 rubles)':
			cla
			*clr
			set karta -= 400000
			set $car = 'VAZ Kalina'
			set car = 6
			set benz = 3
			set cardrive = 8
			set teh = 400
			set tehcar = 400
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 450000:
			act 'Buy VAZ Priora (450,000 rubles)':
			cla
			*clr
			set karta -= 450000
			set $car = 'VAZ PRIORA'
			set car = 7
			set benz = 3
			set cardrive = 8
			set teh = 450
			set tehcar = 450
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 500000:
			act 'Buy Chevrolet Niva (500,000 rubles)':
			cla
			*clr
			set karta -= 500000
			set $car = 'Chevrolet Niva'
			set car = 8
			set benz = 3
			set cardrive = 8
			set teh = 500
			set tehcar = 500
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 500000:
			act 'Buy UAZ Hunter (500,000 rubles)':
			cla
			*clr
			set karta -= 500000
			set $car = 'UAZ HUNTER'
			set car = 9
			set benz = 3
			set cardrive = 8
			set teh = 300
			set tehcar = 300
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 600000:
			act 'Buy UAZ Patriot (600,000 rubles)':
			cla
			*clr
			set karta -= 600000
			set $car = 'UAZ PATRIOT'
			set car = 10
			set benz = 3
			set cardrive = 8
			set teh = 400
			set tehcar = 400
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 1000000:
			act 'Buy Mitsubishi l200 (1000000)':
			cla
			*clr
			set karta -= 1000000
			set $car = 'Mitsubishi l200'
			set car = 95
			set benz = 3
			set cardrive = 8
			set teh = 2000
			set tehcar = 2000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 5000000:
			act 'Buy Audi Q7 (5000000)':
			cla
			*clr
			set karta -= 5000000
			set $car = 'Audi Q7'
			set car = 96
			set benz = 3
			set cardrive = 8
			set teh = 5000
			set tehcar = 5000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 2000000:
			act 'Buy Cadillac Escalade (2000000)':
			cla
			*clr
			set karta -= 2000000
			set $car = 'Cadillac Escalade'
			set car = 97
			set benz = 3
			set cardrive = 8
			set teh = 4000
			set tehcar = 4000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'autosalonF','manager'
			end

		end

		if karta >= 5000000:
			act 'Buy Porsche Cayenne (5000000)':
			cla
			*clr
			set karta -= 5000000
			set $car = 'Porsche Cayenne'
			set car = 98
			set benz = 3
			set cardrive = 8
			set teh = 3000
			set tehcar = 3000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end

		end

		if karta >= 4500000:
			act 'Buy BMW X6 (4,5 mln)':
			cla
			*clr
			set karta -= 4500000
			set $car = 'BMW X6'
			set car = 99
			set benz = 3
			set cardrive = 8
			set teh = 4000
			set tehcar = 4000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end
		end

		if karta >= 8000000:
			act 'Buy Mercedes-Benz S 600 (8000000)':
			cla
			*clr
			set karta -= 8000000
			set $car = 'Mercedes-Benz S 600'
			set car = 100
			set benz = 3
			set cardrive = 8
			set teh = 8000
			set tehcar = 8000
			set wrek = 0
			'You transferred money manager and you receive a key. She said that your car is already on the street. Gasoline little and she recommends that you refuel.'
			act 'Leave': gt 'Nord'
			end
		end
	end
end
--- autosalonF ---------------------------------