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