glife/locations/452_autosalonF

# autosalonF
<<<<<<< 452_autosalonF
if $ARGS[0] = 'start':
=======
if $ARGS[0]='start':
>>>>>>> 452_autosalonF
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
<<<<<<< 452_autosalonF
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'
=======
gs'stat'
set minut = minut + 5
set cartraid = 1
'<center><B>auto_show</B></center>'
'<center><img src="pic/manager.jpg" ></center>'
'List of cars for sale'
'<a href="exec:GS ''carF1'',''car''">VAZ 2107</a>. - new, price 200sput'
'<a href="exec:GS ''carF1'',''car2''">VAZ 2115</a>. - new, price 310sput'
'<a href="exec:GS ''carF1'',''car3''">VAZ 2113</a>. - new, price 290sput'
'<a href="exec:GS ''carF1'',''car4''">VAZ 2114</a>. - new, price 300sput'
'<a href="exec:GS ''carF1'',''car5''">VAZ 2110</a>. - new, price 350sput'
'<a href="exec:GS ''carF1'',''car6''">Kalina VAZ</a>. - new, price 400sput'
'<a href="exec:GS ''carF1'',''car7''">WHA PRIORA</a>. - new, price 450sput'
'<a href="exec:GS ''carF1'',''car8''">Chevrolet NIVA</a>. - new, price 500sput'
'<a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>. - new, price 500sput'
'<a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>. - new, price 600sput'
'<a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>. - new, price 1 million'
'<a href="exec:GS ''carF1'',''car96''">Audi Q7</a>. - new, price 5 million'
'<a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>. - new, price 2 million'
'<a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>. - new, price 5 million'
'<a href="exec:GS ''carF1'',''car99''">BMW X6</a>. - new, price 4,5million'
'<a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>. - new, price 8million'
act 'Talk to the manager':gt'autosalonF','manager1'
act 'Get_Away':gt'Nord'
>>>>>>> 452_autosalonF
end

<<<<<<< 452_autosalonF
if $ARGS[0] = 'manager1':
=======
if $ARGS[0]='manager1':
>>>>>>> 452_autosalonF
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
<<<<<<< 452_autosalonF
gs 'stat'
set minut += 5
'<center><B>Auto Show</B></center>'
'<center><img src="images\etogame\manager.jpg"></center>'
=======
gs'stat'
set minut = minut + 5
'<center><B>auto_show</B></center>'
'<center><img src="pic/manager.jpg" ></center>'
>>>>>>> 452_autosalonF
'In the bank <<karta>> rubles'
*nl
<<<<<<< 452_autosalonF
'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
=======
'Manager friendly smiles and says. To purchase , we do not work for cash payment. As it is impossible to have two cars, excuse_me, but this is a new, antiprobkovy Law City Hall.'
act 'Get_Away':gt'Nord'
     if prava = 1 and car = 0:
         if karta >= 200000:
             act 'Buy VAZ 2107 (200 sput)':
             cla
             *clr
             set karta = karta - 200000
             set $car = 'VAZ 2107'
             set car = 1
             set benz = 3
             set cardrive = 8
             set teh = 200
             set tehcar = 200
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 310000:
             act 'Buy VAZ 2115 (310 sput)':
             cla
             *clr
             set karta = karta - 310000
             set $car = 'VAZ 2115'
             set car = 2
             set benz = 3
             set cardrive = 8
             set teh = 300
             set tehcar = 300
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         if karta >= 290000:
             act 'Buy VAZ 2113 (290 sput)':
             cla
             *clr
             set karta = karta - 290000
             set $car = 'VAZ 2113'
             set car = 3
             set benz = 3
             set cardrive = 8
             set teh = 290
             set tehcar = 290
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         if karta >= 300000:
             act 'Buy VAZ 2114 (300 sput)':
             cla
             *clr
             set karta = karta - 300000
             set $car = 'VAZ 2114'
             set car = 4
             set benz = 3
             set cardrive = 8
             set teh = 300
             set tehcar = 300
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         if karta >= 350000:
             act 'Buy VAZ 2110 (350 sput)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 400000:
             act 'Buy VAZ Kalina (400 sput)':
             cla
             *clr
             set karta = karta - 400000
             set $car = 'Kalina VAZ'
             set car = 6
             set benz = 3
             set cardrive = 8
             set teh = 400
             set tehcar = 400
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 450000:
             act 'Buy VAZ Priora (450 sput)':
             cla
             *clr
             set karta = karta - 450000
             set $car = 'WHA PRIORA'
             set car = 7
             set benz = 3
             set cardrive = 8
             set teh = 450
             set tehcar = 450
             set wrek = 0
             'You have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 500000:
             act 'Buy Chevrolet Niva (500 sput)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 500000:
             act 'Buy UAZ Hunter (500 sput)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 600000:
             act 'Buy UAZ Patriot (600 sput)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 1000000:
             act 'buy Mitsubishi l200 (1 million)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 5000000:
             act 'buy Audi Q7 (5 million)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 2000000:
             act 'buy Cadillac Escalade (2 million)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'autosalonF','manager'
             end
         
         end 
         
         if karta >= 5000000:
             act 'buy Porsche Cayenne (5 million)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         
         end 
         
         if karta >= 4500000:
             act 'buy BMW X6 (4,5 million)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         end 
         
         if karta >= 8000000:
             act 'buy Mercedes-Benz S 600 (8 million)':
             cla
             *clr
             set karta = 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 have listed the money and the manager has given you the keys. she clarified, that your machine is already on the street. Gasoline is small and she recommends that you refuel.'
             act 'Get_Away':gt'Nord'
             end
         end 
     end
>>>>>>> 452_autosalonF
end
--- autosalonF ---------------------------------