autosalonF 9.5 KB

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