# autosalonF
if $ARGS[0]='start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
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'
end

if $ARGS[0]='manager1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs'stat'
set minut = minut + 5
'<center><B>auto_show</B></center>'
'<center><img src="pic/manager.jpg" ></center>'
'In the bank <<karta>> rubles'
*nl
'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
end
--- autosalonF ---------------------------------

