123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339 |
- # 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'', ''car''">2107</a>. - New price 200,000 rubles'
- '<a href="exec:gs ''carF1'', ''car2''">2115</a>. - New price 310,000 rubles'
- '<a href="exec:gs ''carF1'', ''car3''">2113</a>. - New price 290,000 rubles'
- '<a href="exec:gs ''carF1'', ''car4''">2114</a>. - New price 300,000 rubles'
- '<a href="exec:gs ''carF1'', ''car5''">VAZ 2110</a>. - New price 350,000 rubles'
- '<a href="exec:gs ''carF1'', ''car6''">VAZ Kalina</a>. - New price 400,000 rubles'
- '<a href="exec:gs ''carF1'', ''car7''">WHA Pryor</a>. - New price 450,000 rubles'
- '<a href="exec:gs ''carF1'', ''car8''">Chevrolet Niva</a>. - New price 500,000 rubles'
- '<a href="exec:gs ''carF1'', ''car9''">UAZ HUNTER</a>. - New price 500,000 rubles'
- '<a href="exec:gs ''carF1'', ''car10''">UAZ Patriot</a>. - New price 600,000 rubles'
- '<a href="exec:gs ''carF1'', ''car95''">Mitsubishi l200</a>. - New price 1,000,000 rubles'
- '<a href="exec:gs ''carF1'', ''car96''">Audi Q7</a>. - New price 5,000,000 rubles'
- '<a href="exec:gs ''carF1'', ''car97''">Cadillac Escalade</a>. - New price 2,000,000 rubles'
- '<a href="exec:gs ''carF1'', ''car98''">Porsche Cayenne</a>. - New price 5,000,000 rubles'
- '<a href="exec:gs ''carF1'', ''car99''">BMW X6</a>. - New price 4,500,000 rubles'
- '<a href="exec:gs ''carF1'', ''car100''">Mercedes-Benz S 600</a>. - New price 8,000,000 rubles'
- 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>> rubles'
- '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
- karta -= 200000
- $car = '2107'
- car = 1
- benz = 3
- cardrive = 8
- teh = 200
- tehcar = 200
- 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
- karta -= 310000
- $car = '2115'
- car = 2
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 290000:
- act 'Buy VAZ 2113 (290,000 rubles)':
- cla
- *clr
- karta -= 290000
- $car = '2113'
- car = 3
- benz = 3
- cardrive = 8
- teh = 290
- tehcar = 290
- 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
- karta -= 300000
- $car = '2114'
- car = 4
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 350000:
- act 'Buy VAZ 2110 (350,000 rubles)':
- cla
- *clr
- karta -= 350000
- $car = 'VAZ 2110'
- car = 5
- benz = 3
- cardrive = 8
- teh = 350
- tehcar = 350
- 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
- karta -= 400000
- $car = 'VAZ Kalina'
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 450000:
- act 'Buy VAZ Priora (450,000 rubles)':
- cla
- *clr
- karta -= 450000
- $car = 'VAZ 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 500000:
- act 'Buy Chevrolet Niva (500,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 500000:
- act 'Buy UAZ Hunter (500,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 600000:
- act 'Buy UAZ Patriot (600,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 1000000:
- act 'Buy Mitsubishi l200 (1,000,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 5000000:
- act 'Buy Audi Q7 (5,000,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 2000000:
- act 'Buy Cadillac Escalade (2,000,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'autosalonF', 'manager'
- end
- end
- if karta >= 5000000:
- act 'Buy Porsche Cayenne (5,000,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 4500000:
- act 'Buy BMW X6 (4,500,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- if karta >= 8000000:
- act 'Buy Mercedes-Benz S 600 (8,000,000 rubles)':
- cla
- *clr
- 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 'Leave':gt 'Nord'
- end
- end
- end
- end
- --- autosalonF ---------------------------------
|