1
0

autosalonF 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544
  1. # autosalonF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $location_type = 'event'
  6. cla
  7. *clr
  8. minut += 5
  9. cartraid = 1
  10. gs 'stat'
  11. '<center><b>Car Dealership</b></center>'
  12. '<center><img src="images/etogame/manager.jpg"></center>'
  13. nl
  14. '<b><center>List of Vehicles for Sale</center></b>'
  15. nl
  16. '<center><table border=0><TR>'
  17. '<TR><TD><a href="exec:GS ''carF1'',''car6''">Kalina VAZ</a>.</TD><TD> - </TD><TD> New. Price: 400 th.RUB</TD></TR>'
  18. '<TR><TD><a href="exec:GS ''carF1'',''car7''">WHA PRIORA</a>.</TD><TD> - </TD><TD> New. Price: 450 th.RUB</TD></TR>'
  19. '<TR><TD><a href="exec:GS ''carF1'',''car8''">Chevrolet NIVA</a>.</TD><TD> - </TD><TD> New. Price: 500 th.RUB</TD></TR>'
  20. '<TR><TD><a href="exec:GS ''carF1'',''car9''">UAZ HUNTER</a>.</TD><TD> - </TD><TD> New. Price: 500 th.RUB</TD></TR>'
  21. '<TR><TD><a href="exec:GS ''carF1'',''car10''">UAZ Patriot</a>.</TD><TD> - </TD><TD> New. Price: 600 th.RUB</TD></TR>'
  22. '<TR><TD><a href="exec:GS ''carF1'',''car13''">Ford Focus 2</a>.</TD><TD> - </TD><TD> New. Price: 500 th.RUB</TD></TR>'
  23. '<TR><TD><a href="exec:GS ''carF1'',''car102''">Renault LOGAN</a>.</TD><TD> - </TD><TD> New. Price: 700 th.RUB</TD></TR>'
  24. '<TR><TD><a href="exec:GS ''carF1'',''car110''">Ford Mondeo</a>.</TD><TD> - </TD><TD> New. Price: 850 th.RUB</TD></TR>'
  25. '<TR><TD><a href="exec:GS ''carF1'',''car104''">Toyota Celica</a>.</TD><TD> - </TD><TD> New. Price: 1 million.RUB</TD></TR>'
  26. '<TR><TD><a href="exec:GS ''carF1'',''car95''">Mitsubishi l200</a>.</TD><TD> - </TD><TD> New. Price: 1 million.RUB</TD></TR>'
  27. '<TR><TD><a href="exec:GS ''carF1'',''car103''">Toyota Corolla</a>.</TD><TD> - </TD><TD> New. Price: 1,1 million.RUB</TD></TR>'
  28. '<TR><TD><a href="exec:GS ''carF1'',''car105''">Mazda 6</a>.</TD><TD> - </TD><TD> New. Price: 1,2 million.RUB</TD></TR>'
  29. '<TR><TD><a href="exec:GS ''carF1'',''car106''">Mercedes-Benz E 212</a>.</TD><TD> - </TD><TD> New. Price: 1,7 million.RUB</TD></TR>'
  30. '<TR><TD><a href="exec:GS ''carF1'',''car109''">Audi A6</a>.</TD><TD> - </TD><TD> New. Price: 1,9 million.RUB</TD></TR>'
  31. '<TR><TD><a href="exec:GS ''carF1'',''car97''">Cadillac Escalade</a>.</TD><TD> - </TD><TD> New. Price: 2 million.RUB</TD></TR>'
  32. '<TR><TD><a href="exec:GS ''carF1'',''car101''">BMW Z4</a>.</TD><TD> - </TD><TD> New. Price: 3 million.RUB</TD></TR>'
  33. '<TR><TD><a href="exec:GS ''carF1'',''car107''">BMW M5</a>.</TD><TD> - </TD><TD> New. Price: 4,5 million.RUB</TD></TR>'
  34. '<TR><TD><a href="exec:GS ''carF1'',''car99''">BMW X6</a>.</TD><TD> - </TD><TD> New. Price: 4,5 million.RUB</TD></TR>'
  35. '<TR><TD><a href="exec:GS ''carF1'',''car96''">Audi Q7</a>.</TD><TD> - </TD><TD> New. Price: 5 million.RUB</TD></TR>'
  36. '<TR><TD><a href="exec:GS ''carF1'',''car98''">Porsche Cayenne</a>.</TD><TD> - </TD><TD> New. Price: 5 million.RUB</TD></TR>'
  37. '<TR><TD><a href="exec:GS ''carF1'',''car108''">Jaguar XKR-S</a>.</TD><TD> - </TD><TD> New. Price: 7 million.RUB</TD></TR>'
  38. '<TR><TD><a href="exec:GS ''carF1'',''car100''">Mercedes-Benz S 600</a>.</TD><TD> - </TD><TD> New. Price: 8 million.RUB</TD></TR>'
  39. '<TR><TD><a href="exec:GS ''carF1'',''car111''">Bentley Continental GT</a>.</TD><TD> - </TD><TD> New. Price: 10 million.RUB</TD></TR>'
  40. '<TR><TD><a href="exec:GS ''carF1'',''car112''">Ferrari 458 Italia</a>.</TD><TD> - </TD><TD> New. Price: 20 million.RUB</TD></TR>'
  41. '</TR></table>'
  42. act 'Talk to the manager':gt 'autosalonF', 'manager1'
  43. act 'Leave':gt 'Nord'
  44. end
  45. if $ARGS[0] = 'manager1':
  46. $metka = $ARGS[0]
  47. $loc = $CURLOC
  48. cla
  49. *clr
  50. gs 'stat'
  51. minut += 5
  52. '<center><b>Car Dealership</b></center>'
  53. '<center><img src="images/etogame/manager.jpg"></center>'
  54. 'You have <<karta>> <b>₽</b> on your bank account.'
  55. 'The manager smiles affably and explains routinely what is required to purchase a car: A driver''s license and the sum, in full, on your bank account.'
  56. '"With how the economy is right now, we can''t accept payment by installments at this time, I''m afraid", he apologizes, "and a few new laws have been passed, too: We cannot accept cash payment - the Duma believes that will help fight crime - and it is currently not possible to own more than one car, according to the Oblast''s new anti-corruption law.'
  57. act 'Leave':gt 'Nord'
  58. if karta >= 400000:
  59. act 'Buy a Kalina VAZ (400 th.RUB)':
  60. cla
  61. *clr
  62. karta = karta - 400000
  63. $car = 'Kalina VAZ'
  64. car = 6
  65. benz = 3
  66. cardrive = 8
  67. teh = 400
  68. tehcar = 400
  69. wrek = 0
  70. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  71. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  72. act 'Leave':gt'Nord'
  73. end
  74. end
  75. if karta >= 450000:
  76. act 'Buy a VAZ Priora (450 th.RUB)':
  77. cla
  78. *clr
  79. karta = karta - 450000
  80. $car = 'WHA PRIORA'
  81. car = 7
  82. benz = 3
  83. cardrive = 8
  84. teh = 450
  85. tehcar = 450
  86. wrek = 0
  87. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  88. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  89. act 'Leave':gt'Nord'
  90. end
  91. end
  92. if karta >= 500000:
  93. act 'Buy a Chevrolet Niva (500 th.RUB)':
  94. cla
  95. *clr
  96. karta = karta - 500000
  97. $car = 'Chevrolet NIVA'
  98. car = 8
  99. benz = 3
  100. cardrive = 8
  101. teh = 500
  102. tehcar = 500
  103. wrek = 0
  104. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  105. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  106. act 'Leave':gt'Nord'
  107. end
  108. end
  109. if karta >= 500000:
  110. act 'Buy a UAZ Hunter (500 th.RUB)':
  111. cla
  112. *clr
  113. karta = karta - 500000
  114. $car = 'UAZ HUNTER'
  115. car = 9
  116. benz = 3
  117. cardrive = 8
  118. teh = 300
  119. tehcar = 300
  120. wrek = 0
  121. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  122. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  123. act 'Leave':gt'Nord'
  124. end
  125. end
  126. if karta >= 600000:
  127. act 'Buy a UAZ Patriot (600 th.RUB)':
  128. cla
  129. *clr
  130. karta = karta - 600000
  131. $car = 'UAZ Patriot'
  132. car = 10
  133. benz = 3
  134. cardrive = 8
  135. teh = 400
  136. tehcar = 400
  137. wrek = 0
  138. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  139. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  140. act 'Leave':gt'Nord'
  141. end
  142. end
  143. if karta >= 500000:
  144. act 'Buy a Ford Focus 2 (500 th.RUB)':
  145. cla
  146. *clr
  147. karta = karta - 500000
  148. $car = 'Ford Focus 2'
  149. car = 13
  150. benz = 3
  151. cardrive = 8
  152. teh = 800
  153. tehcar = 800
  154. wrek = 0
  155. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  156. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  157. act 'Leave':gt'Nord'
  158. end
  159. end
  160. if karta >= 700000:
  161. act 'Buy a Renault LOGAN (700 th.RUB)':
  162. cla
  163. *clr
  164. karta = karta - 700000
  165. $car = 'Renault LOGAN'
  166. car = 102
  167. benz = 3
  168. cardrive = 8
  169. teh = 1000
  170. tehcar = 1000
  171. wrek = 0
  172. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  173. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  174. act 'Leave':gt'Nord'
  175. end
  176. end
  177. if karta >= 850000:
  178. act 'Buy a Ford Mondeo (850 th.RUB)':
  179. cla
  180. *clr
  181. karta = karta - 850000
  182. $car = 'Ford Mondeo'
  183. car = 110
  184. benz = 3
  185. cardrive = 8
  186. teh = 2000
  187. tehcar = 2000
  188. wrek = 0
  189. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  190. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  191. act 'Leave':gt'Nord'
  192. end
  193. end
  194. if karta >= 1000000:
  195. act 'Buy a Toyota Celica (1 million.RUB)':
  196. cla
  197. *clr
  198. karta = karta - 1000000
  199. $car = 'Toyota Celica'
  200. car = 104
  201. benz = 3
  202. cardrive = 8
  203. teh = 3000
  204. tehcar = 3000
  205. wrek = 0
  206. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  207. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  208. act 'Leave':gt'Nord'
  209. end
  210. end
  211. if karta >= 1000000:
  212. act 'Buy a Mitsubishi l200 (1 million.RUB)':
  213. cla
  214. *clr
  215. karta = karta - 1000000
  216. $car = 'Mitsubishi l200'
  217. car = 95
  218. benz = 3
  219. cardrive = 8
  220. teh = 2000
  221. tehcar = 2000
  222. wrek = 0
  223. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  224. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  225. act 'Leave':gt'Nord'
  226. end
  227. end
  228. if karta >= 1100000:
  229. act 'Buy a Toyota Corolla (1,1 million.RUB)':
  230. cla
  231. *clr
  232. karta = karta - 1100000
  233. $car = 'Toyaboutta Corolla'
  234. car = 103
  235. benz = 3
  236. cardrive = 8
  237. teh = 3000
  238. tehcar = 3000
  239. wrek = 0
  240. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  241. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  242. act 'Leave':gt'Nord'
  243. end
  244. end
  245. if karta >= 1200000:
  246. act 'Buy a Mazda 6 (1,2 million.RUB)':
  247. cla
  248. *clr
  249. karta = karta - 1200000
  250. $car = 'Mazda 6'
  251. car = 105
  252. benz = 3
  253. cardrive = 8
  254. teh = 3000
  255. tehcar = 3000
  256. wrek = 0
  257. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  258. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  259. act 'Leave':gt'Nord'
  260. end
  261. end
  262. if karta >= 1700000:
  263. act 'Buy a Mercedes-Benz E 212 (1,7 million.RUB)':
  264. cla
  265. *clr
  266. karta = karta - 1700000
  267. $car = 'Mercedes-Benz E 212'
  268. car = 106
  269. benz = 3
  270. cardrive = 8
  271. teh = 5000
  272. tehcar = 5000
  273. wrek = 0
  274. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  275. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  276. act 'Leave':gt'Nord'
  277. end
  278. end
  279. if karta >= 1900000:
  280. act 'Buy an Audi A6 (1,9 million.RUB)':
  281. cla
  282. *clr
  283. karta = karta - 1900000
  284. $car = 'Audi A6'
  285. car = 109
  286. benz = 3
  287. cardrive = 8
  288. teh = 5000
  289. tehcar = 5000
  290. wrek = 0
  291. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  292. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  293. act 'Leave':gt'Nord'
  294. end
  295. end
  296. if karta >= 2000000:
  297. act 'Buy a Cadillac Escalade (2 million.RUB)':
  298. cla
  299. *clr
  300. karta = karta - 2000000
  301. $car = 'Cadillac Escalade'
  302. car = 97
  303. benz = 3
  304. cardrive = 8
  305. teh = 4000
  306. tehcar = 4000
  307. wrek = 0
  308. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  309. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  310. act 'Leave':gt'Nord'
  311. end
  312. end
  313. if karta >= 3000000:
  314. act 'Buy a BMW Z4 (3 million.RUB)':
  315. cla
  316. *clr
  317. karta = karta - 3000000
  318. $car = 'BMW Z4'
  319. car = 101
  320. benz = 3
  321. cardrive = 8
  322. teh = 4000
  323. tehcar = 4000
  324. wrek = 0
  325. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  326. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  327. act 'Leave':gt'Nord'
  328. end
  329. end
  330. if karta >= 4500000:
  331. act 'Buy a BMW M5 (4,5 million.RUB)':
  332. cla
  333. *clr
  334. karta = karta - 4500000
  335. $car = 'BMW M5'
  336. car = 107
  337. benz = 3
  338. cardrive = 8
  339. teh = 6000
  340. tehcar = 6000
  341. wrek = 0
  342. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  343. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  344. act 'Leave':gt'Nord'
  345. end
  346. end
  347. if karta >= 4500000:
  348. act 'Buy a BMW X6 (4,5 million.RUB)':
  349. cla
  350. *clr
  351. karta = karta - 4500000
  352. $car = 'BMW X6'
  353. car = 99
  354. benz = 3
  355. cardrive = 8
  356. teh = 4000
  357. tehcar = 4000
  358. wrek = 0
  359. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  360. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  361. act 'Leave':gt'Nord'
  362. end
  363. end
  364. if karta >= 5000000:
  365. act 'Buy an Audi Q7 (5 million.RUB)':
  366. cla
  367. *clr
  368. karta = karta - 5000000
  369. $car = 'Audi Q7'
  370. car = 96
  371. benz = 3
  372. cardrive = 8
  373. teh = 5000
  374. tehcar = 5000
  375. wrek = 0
  376. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  377. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  378. act 'Leave':gt'Nord'
  379. end
  380. end
  381. if karta >= 5000000:
  382. act 'Buy a Porsche Cayenne (5 million.RUB)':
  383. cla
  384. *clr
  385. karta = karta - 5000000
  386. $car = 'Porsche Cayenne'
  387. car = 98
  388. benz = 3
  389. cardrive = 8
  390. teh = 3000
  391. tehcar = 3000
  392. wrek = 0
  393. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  394. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  395. act 'Leave':gt'Nord'
  396. end
  397. end
  398. if karta >= 7000000:
  399. act 'Buy a Jaguar XKR-S (7 million.RUB)':
  400. cla
  401. *clr
  402. karta = karta - 7000000
  403. $car = 'Jaguar XKR-S'
  404. car = 108
  405. benz = 3
  406. cardrive = 8
  407. teh = 4000
  408. tehcar = 4000
  409. wrek = 0
  410. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  411. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  412. act 'Leave':gt'Nord'
  413. end
  414. end
  415. if karta >= 8000000:
  416. act 'Buy a Mercedes-Benz S 600 (8 million.RUB)':
  417. cla
  418. *clr
  419. karta = karta - 8000000
  420. $car = 'Mercedes-Benz S 600'
  421. car = 100
  422. benz = 3
  423. cardrive = 8
  424. teh = 8000
  425. tehcar = 8000
  426. wrek = 0
  427. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  428. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  429. act 'Leave':gt'Nord'
  430. end
  431. end
  432. if karta >= 10000000:
  433. act 'Buy a Bentley Continental GT (10 million.RUB)':
  434. cla
  435. *clr
  436. karta = karta - 10000000
  437. $car = 'Bentley Continental GT'
  438. car = 111
  439. benz = 3
  440. cardrive = 8
  441. teh = 8000
  442. tehcar = 8000
  443. wrek = 0
  444. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  445. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  446. act 'Leave':gt'Nord'
  447. end
  448. end
  449. if karta >= 20000000:
  450. act 'Buy a Ferrari 458 Italia (10 million.RUB)':
  451. cla
  452. *clr
  453. karta = karta - 20000000
  454. $car = 'Ferrari 458 Italia'
  455. car = 112
  456. benz = 3
  457. cardrive = 8
  458. teh = 10000
  459. tehcar = 10000
  460. wrek = 0
  461. 'The manager draws up a purchasing contract and you inform the bank of the impending transaction. Once the bank has confirmed the write-off, the manager hands you the key to your new car.'
  462. '"It''s waiting for you outside", she says. "The fuel tank is almost empty, though, so you should stop by the gas station right away."'
  463. act 'Leave':gt'Nord'
  464. end
  465. end
  466. end
  467. --- autosalonF ---------------------------------