# autosalonF
if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	*clr
	minut += 5
	cartraid = 1
	gs 'stat'
	'<center><b>Auto Show</b></center>'
	'<center><img src="images/etogame/manager.jpg"></center>'
	'List of vehicles for sale'
	'<a href="exec:GS ''carF1'',''car6''">Kalina VAZ</a>. - new, price 400 th.RUB'
	'<a href="exec:GS ''carF1'',''car7''">WHA PRIORA</a>. - new, price 450 th.RUB'
	'<a href="exec:GS ''carF1'',''car8''">Chevrolet NIVA</a>. - new, price 500 th.RUB'
	'<a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>. - new, price 500 th.RUB'
	'<a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>. - new, price 600 th.RUB'
	'<a href="exec:GS ''carF1'',''car13''">Ford Focus 2</a>. - new, price 500 th.RUB'
	'<a href="exec:GS ''carF1'',''car102''">Renault LOGAN</a>. - new, price 700 th.RUB'
	'<a href="exec:GS ''carF1'',''car110''">Ford Mondeo</a>. - new, price 850 th.RUB'
	'<a href="exec:GS ''carF1'',''car104''">Toyota Celica</a>. - new, price 1 million.RUB'
	'<a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>. - new, price 1 million.RUB'
	'<a href="exec:GS ''carF1'',''car103''">Toyota Corolla</a>. - new, price 1,1 million.RUB'
	'<a href="exec:GS ''carF1'',''car105''">Mazda 6</a>. - new, price 1,2 million.RUB'
	'<a href="exec:GS ''carF1'',''car106''">Mercedes-Benz E 212</a>. - new, price 1,7 million.RUB'
	'<a href="exec:GS ''carF1'',''car109''">Audi A6</a>. - new, price 1,9 million.RUB'
	'<a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>. - new, price 2 million.RUB'
	'<a href="exec:GS ''carF1'',''car101''">BMW Z4</a>. - new, price 3 million.RUB'
	'<a href="exec:GS ''carF1'',''car107''">BMW M5</a>. - new, price 4,5 million.RUB'
	'<a href="exec:GS ''carF1'',''car99''">BMW X6</a>. - new, price 4,5 million.RUB'
	'<a href="exec:GS ''carF1'',''car96''">Audi Q7</a>. - new, price 5 million.RUB'
	'<a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>. - new, price 5 million.RUB'
	'<a href="exec:GS ''carF1'',''car108''">Jaguar XKR-S</a>. - new, price 7 million.RUB'
	'<a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>. - new, price 8 million.RUB'
	'<a href="exec:GS ''carF1'',''car111''">Bentley Continental GT</a>. - new, price 10 million.RUB'
	'<a href="exec:GS ''carF1'',''car112''">Ferrari 458 Italia</a>. - new, price 20 million.RUB'

	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'
	minut += 5
	'<center><b>Auto Show</b></center>'
	'<center><img src="images/etogame/manager.jpg"></center>'
	'In the bank <<karta>> <b>₽</b>'
	'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 karta >= 400000:
		act 'Buy Kalina VAZ (400 th.RUB)':
			cla
			*clr
			karta = karta - 400000
			$car = 'Kalina VAZ'
			car = 6
			benz = 3
			cardrive = 8
			teh = 400
			tehcar = 400
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 450000:
		act 'Buy VAZ Priora (450 th.RUB)':
			cla
			*clr
			karta = karta - 450000
			$car = 'WHA PRIORA'
			car = 7
			benz = 3
			cardrive = 8
			teh = 450
			tehcar = 450
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 500000:
		act 'Buy Chevrolet Niva (500 th.RUB)':
			cla
			*clr
			karta = karta - 500000
			$car = 'Chevrolet NIVA'
			car = 8
			benz = 3
			cardrive = 8
			teh = 500
			tehcar = 500
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 500000:
		act 'Buy UAZ Hunter (500 th.RUB)':
			cla
			*clr
			karta = karta - 500000
			$car = 'UAZ HUNTER'
			car = 9
			benz = 3
			cardrive = 8
			teh = 300
			tehcar = 300
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 600000:
		act 'Buy UAZ Patriot (600 th.RUB)':
			cla
			*clr
			karta = karta - 600000
			$car = 'UAZ Patriot'
			car = 10
			benz = 3
			cardrive = 8
			teh = 400
			tehcar = 400
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 500000:
		act 'Ford Focus 2 (500 th.RUB)':
			cla
			*clr
			karta = karta - 500000
			$car = 'Ford Focus 2'
			car = 13
			benz = 3
			cardrive = 8
			teh = 800
			tehcar = 800
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 700000:
		act 'Renault LOGAN (700 th.RUB)':
			cla
			*clr
			karta = karta - 700000
			$car = 'Renault LOGAN'
			car = 102
			benz = 3
			cardrive = 8
			teh = 1000
			tehcar = 1000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 850000:
		act 'Ford Mondeo (850 th.RUB)':
			cla
			*clr
			karta = karta - 850000
			$car = 'Ford Mondeo'
			car = 110
			benz = 3
			cardrive = 8
			teh = 2000
			tehcar = 2000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 1000000:
		act 'Buy Toyota Celica (1 million.RUB)':
			cla
			*clr
			karta = karta - 1000000
			$car = 'Toyota Celica'
			car = 104
			benz = 3
			cardrive = 8
			teh = 3000
			tehcar = 3000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 1000000:
		act 'Buy Mitsubishi l200 (1 million.RUB)':
			cla
			*clr
			karta = karta - 1000000
			$car = 'Mitsubishi l200'
			car = 95
			benz = 3
			cardrive = 8
			teh = 2000
			tehcar = 2000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 1100000:
		act 'Buy Toyaboutta Corolla (1,1 million.RUB)':
			cla
			*clr
			karta = karta - 1100000
			$car = 'Toyaboutta Corolla'
			car = 103
			benz = 3
			cardrive = 8
			teh = 3000
			tehcar = 3000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 1200000:
		act 'Buy Mazda 6 (1,2 million.RUB)':
			cla
			*clr
			karta = karta - 1200000
			$car = 'Mazda 6'
			car = 105
			benz = 3
			cardrive = 8
			teh = 3000
			tehcar = 3000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 1700000:
		act 'Mercedes-Benz E 212 (1,7 million.RUB)':
			cla
			*clr
			karta = karta - 1700000
			$car = 'Mercedes-Benz E 212'
			car = 106
			benz = 3
			cardrive = 8
			teh = 5000
			tehcar = 5000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 1900000:
		act 'Buy Audi A6 (1,9 million.RUB)':
			cla
			*clr
			karta = karta - 1900000
			$car = 'Audi A6'
			car = 109
			benz = 3
			cardrive = 8
			teh = 5000
			tehcar = 5000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 2000000:
		act 'Buy Cadillac Escalade (2 million.RUB)':
			cla
			*clr
			karta = karta - 2000000
			$car = 'Cadillac Escalade'
			car = 97
			benz = 3
			cardrive = 8
			teh = 4000
			tehcar = 4000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 3000000:
		act 'Buy BMW Z4 (3 million.RUB)':
			cla
			*clr
			karta = karta - 3000000
			$car = 'BMW Z4'
			car = 101
			benz = 3
			cardrive = 8
			teh = 4000
			tehcar = 4000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 4500000:
		act 'Buy BMW M5 (4,5 million.RUB)':
			cla
			*clr
			karta = karta - 4500000
			$car = 'BMW M5'
			car = 107
			benz = 3
			cardrive = 8
			teh = 6000
			tehcar = 6000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 4500000:
		act 'Buy BMW X6 (4,5 million.RUB)':
			cla
			*clr
			karta = karta - 4500000
			$car = 'BMW X6'
			car = 99
			benz = 3
			cardrive = 8
			teh = 4000
			tehcar = 4000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 5000000:
		act 'Buy Audi Q7 (5 million.RUB)':
			cla
			*clr
			karta = karta - 5000000
			$car = 'Audi Q7'
			car = 96
			benz = 3
			cardrive = 8
			teh = 5000
			tehcar = 5000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 5000000:
		act 'Buy Porsche Cayenne (5 million.RUB)':
			cla
			*clr
			karta = karta - 5000000
			$car = 'Porsche Cayenne'
			car = 98
			benz = 3
			cardrive = 8
			teh = 3000
			tehcar = 3000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 7000000:
		act 'Buy Jaguar XKR-S (7 million.RUB)':
			cla
			*clr
			karta = karta - 7000000
			$car = 'Jaguar XKR-S'
			car = 108
			benz = 3
			cardrive = 8
			teh = 4000
			tehcar = 4000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 8000000:
		act 'Buy Mercedes-Benz S 600 (8 million.RUB)':
			cla
			*clr
			karta = karta - 8000000
			$car = 'Mercedes-Benz S 600'
			car = 100
			benz = 3
			cardrive = 8
			teh = 8000
			tehcar = 8000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 10000000:
		act 'Buy Bentley Continental GT (10 million.RUB)':
			cla
			*clr
			karta = karta - 10000000
			$car = 'Bentley Continental GT'
			car = 111
			benz = 3
			cardrive = 8
			teh = 8000
			tehcar = 8000
			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 'Escape':gt'Nord'
		end
	end

	if karta >= 20000000:
		act 'Buy Ferrari 458 Italia (10 million.RUB)':
			cla
			*clr
			karta = karta - 20000000
			$car = 'Ferrari 458 Italia'
			car = 112
			benz = 3
			cardrive = 8
			teh = 10000
			tehcar = 10000
			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

--- autosalonF ---------------------------------