autosalonF 9.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339
  1. # autosalonF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. *clr
  7. minut += 5
  8. cartraid = 1
  9. gs 'stat'
  10. '<center><b>Auto Show</b></center>'
  11. '<center><img src="images/etogame/manager.jpg"></center>'
  12. 'List of vehicles for sale'
  13. '<a href="exec:gs ''carF1'', ''car''">2107</a>. - New price 200,000 rubles'
  14. '<a href="exec:gs ''carF1'', ''car2''">2115</a>. - New price 310,000 rubles'
  15. '<a href="exec:gs ''carF1'', ''car3''">2113</a>. - New price 290,000 rubles'
  16. '<a href="exec:gs ''carF1'', ''car4''">2114</a>. - New price 300,000 rubles'
  17. '<a href="exec:gs ''carF1'', ''car5''">VAZ 2110</a>. - New price 350,000 rubles'
  18. '<a href="exec:gs ''carF1'', ''car6''">VAZ Kalina</a>. - New price 400,000 rubles'
  19. '<a href="exec:gs ''carF1'', ''car7''">WHA Pryor</a>. - New price 450,000 rubles'
  20. '<a href="exec:gs ''carF1'', ''car8''">Chevrolet Niva</a>. - New price 500,000 rubles'
  21. '<a href="exec:gs ''carF1'', ''car9''">UAZ HUNTER</a>. - New price 500,000 rubles'
  22. '<a href="exec:gs ''carF1'', ''car10''">UAZ Patriot</a>. - New price 600,000 rubles'
  23. '<a href="exec:gs ''carF1'', ''car95''">Mitsubishi l200</a>. - New price 1,000,000 rubles'
  24. '<a href="exec:gs ''carF1'', ''car96''">Audi Q7</a>. - New price 5,000,000 rubles'
  25. '<a href="exec:gs ''carF1'', ''car97''">Cadillac Escalade</a>. - New price 2,000,000 rubles'
  26. '<a href="exec:gs ''carF1'', ''car98''">Porsche Cayenne</a>. - New price 5,000,000 rubles'
  27. '<a href="exec:gs ''carF1'', ''car99''">BMW X6</a>. - New price 4,500,000 rubles'
  28. '<a href="exec:gs ''carF1'', ''car100''">Mercedes-Benz S 600</a>. - New price 8,000,000 rubles'
  29. act 'Talk to the manager':gt 'autosalonF', 'manager1'
  30. act 'Leave':gt 'Nord'
  31. end
  32. if $ARGS[0] = 'manager1':
  33. $metka = $ARGS[0]
  34. $loc = $CURLOC
  35. cla
  36. *clr
  37. gs 'stat'
  38. minut += 5
  39. '<center><b>Auto Show</b></center>'
  40. '<center><img src="images/etogame/manager.jpg"></center>'
  41. 'In the bank <<karta>> rubles'
  42. '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.'
  43. act 'Leave':gt 'Nord'
  44. if prava = 1 and car = 0:
  45. if karta >= 200000:
  46. act 'Buy VAZ 2107 (200,000 rubles)':
  47. cla
  48. *clr
  49. karta -= 200000
  50. $car = '2107'
  51. car = 1
  52. benz = 3
  53. cardrive = 8
  54. teh = 200
  55. tehcar = 200
  56. wrek = 0
  57. '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.'
  58. act 'Leave':gt 'Nord'
  59. end
  60. end
  61. if karta >= 310000:
  62. act 'Buy VAZ 2115 (310,000 rubles)':
  63. cla
  64. *clr
  65. karta -= 310000
  66. $car = '2115'
  67. car = 2
  68. benz = 3
  69. cardrive = 8
  70. teh = 300
  71. tehcar = 300
  72. wrek = 0
  73. '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.'
  74. act 'Leave':gt 'Nord'
  75. end
  76. end
  77. if karta >= 290000:
  78. act 'Buy VAZ 2113 (290,000 rubles)':
  79. cla
  80. *clr
  81. karta -= 290000
  82. $car = '2113'
  83. car = 3
  84. benz = 3
  85. cardrive = 8
  86. teh = 290
  87. tehcar = 290
  88. wrek = 0
  89. '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.'
  90. act 'Leave':gt 'Nord'
  91. end
  92. end
  93. if karta >= 300000:
  94. act 'Buy VAZ 2114 (300,000 rubles)':
  95. cla
  96. *clr
  97. karta -= 300000
  98. $car = '2114'
  99. car = 4
  100. benz = 3
  101. cardrive = 8
  102. teh = 300
  103. tehcar = 300
  104. wrek = 0
  105. '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.'
  106. act 'Leave':gt 'Nord'
  107. end
  108. end
  109. if karta >= 350000:
  110. act 'Buy VAZ 2110 (350,000 rubles)':
  111. cla
  112. *clr
  113. karta -= 350000
  114. $car = 'VAZ 2110'
  115. car = 5
  116. benz = 3
  117. cardrive = 8
  118. teh = 350
  119. tehcar = 350
  120. wrek = 0
  121. '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.'
  122. act 'Leave':gt 'Nord'
  123. end
  124. end
  125. if karta >= 400000:
  126. act 'Buy VAZ Kalina (400,000 rubles)':
  127. cla
  128. *clr
  129. karta -= 400000
  130. $car = 'VAZ Kalina'
  131. car = 6
  132. benz = 3
  133. cardrive = 8
  134. teh = 400
  135. tehcar = 400
  136. wrek = 0
  137. '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.'
  138. act 'Leave':gt 'Nord'
  139. end
  140. end
  141. if karta >= 450000:
  142. act 'Buy VAZ Priora (450,000 rubles)':
  143. cla
  144. *clr
  145. karta -= 450000
  146. $car = 'VAZ PRIORA'
  147. car = 7
  148. benz = 3
  149. cardrive = 8
  150. teh = 450
  151. tehcar = 450
  152. wrek = 0
  153. '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.'
  154. act 'Leave':gt 'Nord'
  155. end
  156. end
  157. if karta >= 500000:
  158. act 'Buy Chevrolet Niva (500,000 rubles)':
  159. cla
  160. *clr
  161. karta -= 500000
  162. $car = 'Chevrolet Niva'
  163. car = 8
  164. benz = 3
  165. cardrive = 8
  166. teh = 500
  167. tehcar = 500
  168. wrek = 0
  169. '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.'
  170. act 'Leave':gt 'Nord'
  171. end
  172. end
  173. if karta >= 500000:
  174. act 'Buy UAZ Hunter (500,000 rubles)':
  175. cla
  176. *clr
  177. karta -= 500000
  178. $car = 'UAZ HUNTER'
  179. car = 9
  180. benz = 3
  181. cardrive = 8
  182. teh = 300
  183. tehcar = 300
  184. wrek = 0
  185. '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.'
  186. act 'Leave':gt 'Nord'
  187. end
  188. end
  189. if karta >= 600000:
  190. act 'Buy UAZ Patriot (600,000 rubles)':
  191. cla
  192. *clr
  193. karta -= 600000
  194. $car = 'UAZ PATRIOT'
  195. car = 10
  196. benz = 3
  197. cardrive = 8
  198. teh = 400
  199. tehcar = 400
  200. wrek = 0
  201. '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.'
  202. act 'Leave':gt 'Nord'
  203. end
  204. end
  205. if karta >= 1000000:
  206. act 'Buy Mitsubishi l200 (1,000,000 rubles)':
  207. cla
  208. *clr
  209. karta -= 1000000
  210. $car = 'Mitsubishi l200'
  211. car = 95
  212. benz = 3
  213. cardrive = 8
  214. teh = 2000
  215. tehcar = 2000
  216. wrek = 0
  217. '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.'
  218. act 'Leave':gt 'Nord'
  219. end
  220. end
  221. if karta >= 5000000:
  222. act 'Buy Audi Q7 (5,000,000 rubles)':
  223. cla
  224. *clr
  225. karta -= 5000000
  226. $car = 'Audi Q7'
  227. car = 96
  228. benz = 3
  229. cardrive = 8
  230. teh = 5000
  231. tehcar = 5000
  232. wrek = 0
  233. '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.'
  234. act 'Leave':gt 'Nord'
  235. end
  236. end
  237. if karta >= 2000000:
  238. act 'Buy Cadillac Escalade (2,000,000 rubles)':
  239. cla
  240. *clr
  241. karta -= 2000000
  242. $car = 'Cadillac Escalade'
  243. car = 97
  244. benz = 3
  245. cardrive = 8
  246. teh = 4000
  247. tehcar = 4000
  248. wrek = 0
  249. '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.'
  250. act 'Leave':gt 'autosalonF', 'manager'
  251. end
  252. end
  253. if karta >= 5000000:
  254. act 'Buy Porsche Cayenne (5,000,000 rubles)':
  255. cla
  256. *clr
  257. karta -= 5000000
  258. $car = 'Porsche Cayenne'
  259. car = 98
  260. benz = 3
  261. cardrive = 8
  262. teh = 3000
  263. tehcar = 3000
  264. wrek = 0
  265. '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.'
  266. act 'Leave':gt 'Nord'
  267. end
  268. end
  269. if karta >= 4500000:
  270. act 'Buy BMW X6 (4,500,000 rubles)':
  271. cla
  272. *clr
  273. karta -= 4500000
  274. $car = 'BMW X6'
  275. car = 99
  276. benz = 3
  277. cardrive = 8
  278. teh = 4000
  279. tehcar = 4000
  280. wrek = 0
  281. '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.'
  282. act 'Leave':gt 'Nord'
  283. end
  284. end
  285. if karta >= 8000000:
  286. act 'Buy Mercedes-Benz S 600 (8,000,000 rubles)':
  287. cla
  288. *clr
  289. karta -= 8000000
  290. $car = 'Mercedes-Benz S 600'
  291. car = 100
  292. benz = 3
  293. cardrive = 8
  294. teh = 8000
  295. tehcar = 8000
  296. wrek = 0
  297. '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.'
  298. act 'Leave':gt 'Nord'
  299. end
  300. end
  301. end
  302. end
  303. --- autosalonF ---------------------------------