1
0

autosalonF 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515
  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'',''car6''">Kalina VAZ</a>. - new, price 400 th.RUB'
  14. '<a href="exec:GS ''carF1'',''car7''">WHA PRIORA</a>. - new, price 450 th.RUB'
  15. '<a href="exec:GS ''carF1'',''car8''">Chevrolet NIVA</a>. - new, price 500 th.RUB'
  16. '<a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>. - new, price 500 th.RUB'
  17. '<a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>. - new, price 600 th.RUB'
  18. '<a href="exec:GS ''carF1'',''car13''">Ford Focus 2</a>. - new, price 500 th.RUB'
  19. '<a href="exec:GS ''carF1'',''car102''">Renault LOGAN</a>. - new, price 700 th.RUB'
  20. '<a href="exec:GS ''carF1'',''car110''">Ford Mondeo</a>. - new, price 850 th.RUB'
  21. '<a href="exec:GS ''carF1'',''car104''">Toyota Celica</a>. - new, price 1 million.RUB'
  22. '<a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>. - new, price 1 million.RUB'
  23. '<a href="exec:GS ''carF1'',''car103''">Toyota Corolla</a>. - new, price 1,1 million.RUB'
  24. '<a href="exec:GS ''carF1'',''car105''">Mazda 6</a>. - new, price 1,2 million.RUB'
  25. '<a href="exec:GS ''carF1'',''car106''">Mercedes-Benz E 212</a>. - new, price 1,7 million.RUB'
  26. '<a href="exec:GS ''carF1'',''car109''">Audi A6</a>. - new, price 1,9 million.RUB'
  27. '<a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>. - new, price 2 million.RUB'
  28. '<a href="exec:GS ''carF1'',''car101''">BMW Z4</a>. - new, price 3 million.RUB'
  29. '<a href="exec:GS ''carF1'',''car107''">BMW M5</a>. - new, price 4,5 million.RUB'
  30. '<a href="exec:GS ''carF1'',''car99''">BMW X6</a>. - new, price 4,5 million.RUB'
  31. '<a href="exec:GS ''carF1'',''car96''">Audi Q7</a>. - new, price 5 million.RUB'
  32. '<a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>. - new, price 5 million.RUB'
  33. '<a href="exec:GS ''carF1'',''car108''">Jaguar XKR-S</a>. - new, price 7 million.RUB'
  34. '<a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>. - new, price 8 million.RUB'
  35. '<a href="exec:GS ''carF1'',''car111''">Bentley Continental GT</a>. - new, price 10 million.RUB'
  36. '<a href="exec:GS ''carF1'',''car112''">Ferrari 458 Italia</a>. - new, price 20 million.RUB'
  37. act 'Talk to the manager':gt 'autosalonF', 'manager1'
  38. act 'Leave':gt 'Nord'
  39. end
  40. if $ARGS[0] = 'manager1':
  41. $metka = $ARGS[0]
  42. $loc = $CURLOC
  43. cla
  44. *clr
  45. gs 'stat'
  46. minut += 5
  47. '<center><b>Auto Show</b></center>'
  48. '<center><img src="images/etogame/manager.jpg"></center>'
  49. 'In the bank <<karta>> <b>₽</b>'
  50. '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.'
  51. act 'Leave':gt 'Nord'
  52. if karta >= 400000:
  53. act 'Buy Kalina VAZ (400 th.RUB)':
  54. cla
  55. *clr
  56. karta = karta - 400000
  57. $car = 'Kalina VAZ'
  58. car = 6
  59. benz = 3
  60. cardrive = 8
  61. teh = 400
  62. tehcar = 400
  63. wrek = 0
  64. '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.'
  65. act 'Escape':gt'Nord'
  66. end
  67. end
  68. if karta >= 450000:
  69. act 'Buy VAZ Priora (450 th.RUB)':
  70. cla
  71. *clr
  72. karta = karta - 450000
  73. $car = 'WHA PRIORA'
  74. car = 7
  75. benz = 3
  76. cardrive = 8
  77. teh = 450
  78. tehcar = 450
  79. wrek = 0
  80. '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.'
  81. act 'Escape':gt'Nord'
  82. end
  83. end
  84. if karta >= 500000:
  85. act 'Buy Chevrolet Niva (500 th.RUB)':
  86. cla
  87. *clr
  88. karta = karta - 500000
  89. $car = 'Chevrolet NIVA'
  90. car = 8
  91. benz = 3
  92. cardrive = 8
  93. teh = 500
  94. tehcar = 500
  95. wrek = 0
  96. '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.'
  97. act 'Escape':gt'Nord'
  98. end
  99. end
  100. if karta >= 500000:
  101. act 'Buy UAZ Hunter (500 th.RUB)':
  102. cla
  103. *clr
  104. karta = karta - 500000
  105. $car = 'UAZ HUNTER'
  106. car = 9
  107. benz = 3
  108. cardrive = 8
  109. teh = 300
  110. tehcar = 300
  111. wrek = 0
  112. '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.'
  113. act 'Escape':gt'Nord'
  114. end
  115. end
  116. if karta >= 600000:
  117. act 'Buy UAZ Patriot (600 th.RUB)':
  118. cla
  119. *clr
  120. karta = karta - 600000
  121. $car = 'UAZ Patriot'
  122. car = 10
  123. benz = 3
  124. cardrive = 8
  125. teh = 400
  126. tehcar = 400
  127. wrek = 0
  128. '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.'
  129. act 'Escape':gt'Nord'
  130. end
  131. end
  132. if karta >= 500000:
  133. act 'Ford Focus 2 (500 th.RUB)':
  134. cla
  135. *clr
  136. karta = karta - 500000
  137. $car = 'Ford Focus 2'
  138. car = 13
  139. benz = 3
  140. cardrive = 8
  141. teh = 800
  142. tehcar = 800
  143. wrek = 0
  144. '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.'
  145. act 'Escape':gt'Nord'
  146. end
  147. end
  148. if karta >= 700000:
  149. act 'Renault LOGAN (700 th.RUB)':
  150. cla
  151. *clr
  152. karta = karta - 700000
  153. $car = 'Renault LOGAN'
  154. car = 102
  155. benz = 3
  156. cardrive = 8
  157. teh = 1000
  158. tehcar = 1000
  159. wrek = 0
  160. '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.'
  161. act 'Escape':gt'Nord'
  162. end
  163. end
  164. if karta >= 850000:
  165. act 'Ford Mondeo (850 th.RUB)':
  166. cla
  167. *clr
  168. karta = karta - 850000
  169. $car = 'Ford Mondeo'
  170. car = 110
  171. benz = 3
  172. cardrive = 8
  173. teh = 2000
  174. tehcar = 2000
  175. wrek = 0
  176. '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.'
  177. act 'Escape':gt'Nord'
  178. end
  179. end
  180. if karta >= 1000000:
  181. act 'Buy Toyota Celica (1 million.RUB)':
  182. cla
  183. *clr
  184. karta = karta - 1000000
  185. $car = 'Toyota Celica'
  186. car = 104
  187. benz = 3
  188. cardrive = 8
  189. teh = 3000
  190. tehcar = 3000
  191. wrek = 0
  192. '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.'
  193. act 'Escape':gt'Nord'
  194. end
  195. end
  196. if karta >= 1000000:
  197. act 'Buy Mitsubishi l200 (1 million.RUB)':
  198. cla
  199. *clr
  200. karta = karta - 1000000
  201. $car = 'Mitsubishi l200'
  202. car = 95
  203. benz = 3
  204. cardrive = 8
  205. teh = 2000
  206. tehcar = 2000
  207. wrek = 0
  208. '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.'
  209. act 'Escape':gt'Nord'
  210. end
  211. end
  212. if karta >= 1100000:
  213. act 'Buy Toyaboutta Corolla (1,1 million.RUB)':
  214. cla
  215. *clr
  216. karta = karta - 1100000
  217. $car = 'Toyaboutta Corolla'
  218. car = 103
  219. benz = 3
  220. cardrive = 8
  221. teh = 3000
  222. tehcar = 3000
  223. wrek = 0
  224. '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.'
  225. act 'Escape':gt'Nord'
  226. end
  227. end
  228. if karta >= 1200000:
  229. act 'Buy Mazda 6 (1,2 million.RUB)':
  230. cla
  231. *clr
  232. karta = karta - 1200000
  233. $car = 'Mazda 6'
  234. car = 105
  235. benz = 3
  236. cardrive = 8
  237. teh = 3000
  238. tehcar = 3000
  239. wrek = 0
  240. '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.'
  241. act 'Escape':gt'Nord'
  242. end
  243. end
  244. if karta >= 1700000:
  245. act 'Mercedes-Benz E 212 (1,7 million.RUB)':
  246. cla
  247. *clr
  248. karta = karta - 1700000
  249. $car = 'Mercedes-Benz E 212'
  250. car = 106
  251. benz = 3
  252. cardrive = 8
  253. teh = 5000
  254. tehcar = 5000
  255. wrek = 0
  256. '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.'
  257. act 'Escape':gt'Nord'
  258. end
  259. end
  260. if karta >= 1900000:
  261. act 'Buy Audi A6 (1,9 million.RUB)':
  262. cla
  263. *clr
  264. karta = karta - 1900000
  265. $car = 'Audi A6'
  266. car = 109
  267. benz = 3
  268. cardrive = 8
  269. teh = 5000
  270. tehcar = 5000
  271. wrek = 0
  272. '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.'
  273. act 'Escape':gt'Nord'
  274. end
  275. end
  276. if karta >= 2000000:
  277. act 'Buy Cadillac Escalade (2 million.RUB)':
  278. cla
  279. *clr
  280. karta = karta - 2000000
  281. $car = 'Cadillac Escalade'
  282. car = 97
  283. benz = 3
  284. cardrive = 8
  285. teh = 4000
  286. tehcar = 4000
  287. wrek = 0
  288. '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.'
  289. act 'Escape':gt'Nord'
  290. end
  291. end
  292. if karta >= 3000000:
  293. act 'Buy BMW Z4 (3 million.RUB)':
  294. cla
  295. *clr
  296. karta = karta - 3000000
  297. $car = 'BMW Z4'
  298. car = 101
  299. benz = 3
  300. cardrive = 8
  301. teh = 4000
  302. tehcar = 4000
  303. wrek = 0
  304. '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.'
  305. act 'Escape':gt'Nord'
  306. end
  307. end
  308. if karta >= 4500000:
  309. act 'Buy BMW M5 (4,5 million.RUB)':
  310. cla
  311. *clr
  312. karta = karta - 4500000
  313. $car = 'BMW M5'
  314. car = 107
  315. benz = 3
  316. cardrive = 8
  317. teh = 6000
  318. tehcar = 6000
  319. wrek = 0
  320. '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.'
  321. act 'Escape':gt'Nord'
  322. end
  323. end
  324. if karta >= 4500000:
  325. act 'Buy BMW X6 (4,5 million.RUB)':
  326. cla
  327. *clr
  328. karta = karta - 4500000
  329. $car = 'BMW X6'
  330. car = 99
  331. benz = 3
  332. cardrive = 8
  333. teh = 4000
  334. tehcar = 4000
  335. wrek = 0
  336. '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.'
  337. act 'Escape':gt'Nord'
  338. end
  339. end
  340. if karta >= 5000000:
  341. act 'Buy Audi Q7 (5 million.RUB)':
  342. cla
  343. *clr
  344. karta = karta - 5000000
  345. $car = 'Audi Q7'
  346. car = 96
  347. benz = 3
  348. cardrive = 8
  349. teh = 5000
  350. tehcar = 5000
  351. wrek = 0
  352. '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.'
  353. act 'Escape':gt'Nord'
  354. end
  355. end
  356. if karta >= 5000000:
  357. act 'Buy Porsche Cayenne (5 million.RUB)':
  358. cla
  359. *clr
  360. karta = karta - 5000000
  361. $car = 'Porsche Cayenne'
  362. car = 98
  363. benz = 3
  364. cardrive = 8
  365. teh = 3000
  366. tehcar = 3000
  367. wrek = 0
  368. '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.'
  369. act 'Escape':gt'Nord'
  370. end
  371. end
  372. if karta >= 7000000:
  373. act 'Buy Jaguar XKR-S (7 million.RUB)':
  374. cla
  375. *clr
  376. karta = karta - 7000000
  377. $car = 'Jaguar XKR-S'
  378. car = 108
  379. benz = 3
  380. cardrive = 8
  381. teh = 4000
  382. tehcar = 4000
  383. wrek = 0
  384. '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.'
  385. act 'Escape':gt'Nord'
  386. end
  387. end
  388. if karta >= 8000000:
  389. act 'Buy Mercedes-Benz S 600 (8 million.RUB)':
  390. cla
  391. *clr
  392. karta = karta - 8000000
  393. $car = 'Mercedes-Benz S 600'
  394. car = 100
  395. benz = 3
  396. cardrive = 8
  397. teh = 8000
  398. tehcar = 8000
  399. wrek = 0
  400. '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.'
  401. act 'Escape':gt'Nord'
  402. end
  403. end
  404. if karta >= 10000000:
  405. act 'Buy Bentley Continental GT (10 million.RUB)':
  406. cla
  407. *clr
  408. karta = karta - 10000000
  409. $car = 'Bentley Continental GT'
  410. car = 111
  411. benz = 3
  412. cardrive = 8
  413. teh = 8000
  414. tehcar = 8000
  415. wrek = 0
  416. '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.'
  417. act 'Escape':gt'Nord'
  418. end
  419. end
  420. if karta >= 20000000:
  421. act 'Buy Ferrari 458 Italia (10 million.RUB)':
  422. cla
  423. *clr
  424. karta = karta - 20000000
  425. $car = 'Ferrari 458 Italia'
  426. car = 112
  427. benz = 3
  428. cardrive = 8
  429. teh = 10000
  430. tehcar = 10000
  431. wrek = 0
  432. '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.'
  433. act 'Leave':gt 'Nord'
  434. end
  435. end
  436. end
  437. end
  438. --- autosalonF ---------------------------------