# 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
'
Auto Show'
''
'List of vehicles for sale'
'2107. - New price 200tyr'
'2115. - New price 310tyr'
'2113. - New price 290tyr'
'2114. - New price 300tyr'
'VAZ 2110. - New price 350tyr'
'VAZ Kalina. - New price 400tyr'
'WHA Pryor. - New price 450tyr'
'Chevrolet Niva. - New price 500tyr'
'UAZ HUNTER. - New price 500tyr'
'UAZ Patriot. - New price 600tyr'
'Mitsubishi l200. - New price 1,000,000'
'Audi Q7. - New price 5,000,000'
'Cadillac Escalade. - New price 2,000,000'
'Porsche Cayenne. - New price 5,000,000'
'BMW X6. - New price 4,500,000'
'Mercedes-Benz S 600. - New price 8m'
act 'Talk to the manager': gt 'autosalonF','manager1'
act 'Leave': gt 'Nord'
=======
gs'stat'
set minut = minut + 5
set cartraid = 1
'auto_show'
''
'List of cars for sale'
'VAZ 2107. - new, price 200sput'
'VAZ 2115. - new, price 310sput'
'VAZ 2113. - new, price 290sput'
'VAZ 2114. - new, price 300sput'
'VAZ 2110. - new, price 350sput'
'Kalina VAZ. - new, price 400sput'
'WHA PRIORA. - new, price 450sput'
'Chevrolet NIVA. - new, price 500sput'
'UAZ HUNTER. - new, price 500sput'
'UAZ Patriot. - new, price 600sput'
'Mitsubishi l200. - new, price 1 million'
'Audi Q7. - new, price 5 million'
'Cadillac Escalade. - new, price 2 million'
'Porsche Cayenne. - new, price 5 million'
'BMW X6. - new, price 4,5million'
'Mercedes-Benz S 600. - 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
'Auto Show'
''
=======
gs'stat'
set minut = minut + 5
'auto_show'
''
>>>>>>> 452_autosalonF
'In the bank <> 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 ---------------------------------