autotraidF 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340
  1. # autotraidF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. *clr
  7. minut += 5
  8. gs 'stat'
  9. '<center><b>Car</b></center>'
  10. '<center><img src="images/etogame/autotraid.jpg"></center>'
  11. 'Machine can only be bought if you have permission. And you can not have two cars.'
  12. if hour <= 17:
  13. if car > 0:act 'Approach the car salesman':gt 'autotraidF', 'manager1'
  14. act 'View cars put up for sale':gt 'autotraidF', 'car'
  15. end
  16. act 'Leave':gt 'Nord'
  17. end
  18. if $ARGS[0] = 'manager1':
  19. $metka = $ARGS[0]
  20. $loc = $CURLOC
  21. cla
  22. *clr
  23. minut += 5
  24. gs 'stat'
  25. '<center><b>Car</b></center>'
  26. '<center><img src="images/etogame/autotraid.jpg"></center>'
  27. gs 'avb'
  28. if cardrive = 9 and car > 0:
  29. 'Fence walked around the car and offered you for it <<bupay>> <b>₽</b>'
  30. act 'Sell ​​for (<<bupay>> <b>₽</b>) (1:00)':
  31. cla
  32. minut += 60
  33. money = money + bupay
  34. car = 0
  35. 'You sold your car.'
  36. act 'Leave':gt 'Nord'
  37. end
  38. elseif cardrive ! 9:
  39. 'Fence says that he needs to look at the car before you a price, and if you want, it will call a tow truck for 2500 that would take your car to the market.'
  40. if money >= 2500:
  41. act 'Pay for towing service to the car market (2,500 <b>₽</b>) (1:00)':
  42. cla
  43. minut += 60
  44. cardrive = 9
  45. money -= 2500
  46. 'You gave the money and waited for an hour and when you bring a car, you will finally see her tow truck unloaded near the market.'
  47. act 'Go to car salesman':gt 'autotraidF', 'manager1'
  48. end
  49. end
  50. end
  51. act 'Leave':gt 'Nord'
  52. end
  53. if $ARGS[0] = 'car':
  54. $metka = $ARGS[0]
  55. $loc = $CURLOC
  56. cla
  57. *clr
  58. minut += 5
  59. carT = 0
  60. gs 'stat'
  61. '<center><b>Car</b></center>'
  62. '<center><img src="images/etogame/autotraid.jpg"></center>'
  63. 'So many cars in the parking lot that you can spend a lifetime and never osmotrish all machines, even if the machines on the go, you can understand their technical condition, the machine moves is not a cat in a bag can be a bargain, and can be a waste money, and do not forget, you still deliver it to the service will need.'
  64. if hour <= 17:
  65. act 'Inspect 2107 (on the go)':
  66. cla
  67. *clr
  68. '<center><b>2107 (on the move)</b></center>'
  69. '<center><img src="images/picar/car.jpg"></center>'
  70. tehNT = 200
  71. tehT = rand(10, tehNT)
  72. carT = 1
  73. gs 'avt'
  74. '<<$tehT>> The dealer wants <<bupay>> <b>₽</b>'
  75. act 'Leave':gt 'autotraidF', 'car'
  76. if car = 0 and prava = 1 and money >= bupay:
  77. act 'Buy (<<bupay>> <b>₽</b>)':
  78. cla
  79. money -= bupay
  80. $car = '2107'
  81. car = 1
  82. benz = 3
  83. cardrive = 9
  84. teh = tehT
  85. tehcar = 200
  86. wrek = 0
  87. 'You pay <<bupay>> <b>₽</b> and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  88. act 'Leave':gt 'Nord'
  89. end
  90. end
  91. end
  92. act 'Inspect 2107 (doesn''t move)':
  93. cla
  94. *clr
  95. tehNT = 200
  96. tehT = rand(10, tehNT)
  97. bupay = rand(10000, 50000)
  98. 'The machine is not on the move. Merchant wants to <<bupay>> <b>₽</b>'
  99. act 'Leave':gt 'autotraidf', 'car'
  100. if car = 0 and prava = 1 and money >= bupay:
  101. act 'Buy <<bupay>><b>₽</b>':
  102. cla
  103. money -= bupay
  104. $car = '2107'
  105. car = 1
  106. benz = 3
  107. cardrive = 9
  108. teh = tehT
  109. tehcar = 200
  110. wrek = 1
  111. 'You pay <<bupay>> <b>₽</b> and bought a car. Merchant put her near the market.'
  112. act 'Leave':gt 'Nord'
  113. end
  114. end
  115. end
  116. act 'Inspect VAZ 2115 (underway)':
  117. cla
  118. *clr
  119. tehNT = 300
  120. tehT = RAND(10,tehNT)
  121. carT = 1
  122. '<center><b>VAZ 2115 (underway)</b></center>'
  123. '<center><img src="images/picar/car2.jpg"></center>'
  124. gs'avt'
  125. '<<$tehT>> Merchant wants <<bupay>> <b>₽</b>'
  126. act 'Escape':gt'autotraidF','car'
  127. if car = 0 and prava = 1 and money >= bupay:
  128. act 'Buy for <<bupay>> <b>₽</b>':
  129. cla
  130. money = money - bupay
  131. $car = 'VAZ 2115'
  132. car = 2
  133. benz = 3
  134. cardrive = 9
  135. teh = tehT
  136. tehcar = 300
  137. wrek = 0
  138. 'You paid <<bupay>> <b>₽</b> and bought a car. The merchant put it near the market and warned, that there is little petrol.'
  139. act 'Escape':gt'Nord'
  140. end
  141. end
  142. end
  143. act 'Inspect VAZ 2113 (underway)':
  144. cla
  145. *clr
  146. tehNT = 290
  147. tehT = RAND(10,tehNT)
  148. carT = 1
  149. '<center><b>VAZ 2113 (underway)</b></center>'
  150. '<center><img src="images/picar/car3.jpg"></center>'
  151. gs'avt'
  152. '<<$tehT>> Merchant wants <<bupay>> <b>₽</b>'
  153. act 'Escape':gt'autotraidF','car'
  154. if car = 0 and prava = 1 and money >= bupay:
  155. act 'Buy for <<bupay>> <b>₽</b>':
  156. cla
  157. money = money - bupay
  158. $car = 'VAZ 2113'
  159. car = 3
  160. benz = 3
  161. cardrive = 9
  162. teh = tehT
  163. tehcar = 290
  164. wrek = 0
  165. 'You paid <<bupay>> <b>₽</b> and bought a car. The merchant put it near the market and warned, that there is little petrol.'
  166. act 'Escape':gt'Nord'
  167. end
  168. end
  169. end
  170. act 'Inspect VAZ 2114 (underway)':
  171. cla
  172. *clr
  173. tehNT = 300
  174. tehT = RAND(10,tehNT)
  175. carT = 1
  176. '<center><b>VAZ 2114 (underway)</b></center>'
  177. '<center><img src="images/picar/car4.jpg"></center>'
  178. gs'avt'
  179. '<<$tehT>> Merchant wants <<bupay>> <b>₽</b>'
  180. act 'Escape':gt'autotraidF','car'
  181. if car = 0 and prava = 1 and money >= bupay:
  182. act 'Buy for <<bupay>> <b>₽</b>':
  183. cla
  184. money = money - bupay
  185. $car = 'VAZ 2114'
  186. car = 4
  187. benz = 3
  188. cardrive = 9
  189. teh = tehT
  190. tehcar = 300
  191. wrek = 0
  192. 'You paid <<bupay>> <b>₽</b> and bought a car. The merchant put it near the market and warned, that there is little petrol.'
  193. act 'Escape':gt'Nord'
  194. end
  195. end
  196. end
  197. act 'Inspect VAZ 2110 (underway)':
  198. cla
  199. *clr
  200. tehNT = 350
  201. tehT = RAND(10,tehNT)
  202. carT = 1
  203. '<center><b>VAZ 2110 (underway)</b></center>'
  204. '<center><img src="images/picar/car5.jpg"></center>'
  205. gs'avt'
  206. '<<$tehT>> Merchant wants <<bupay>> <b>₽</b>'
  207. act 'Escape':gt'autotraidF','car'
  208. if car = 0 and prava = 1 and money >= bupay:
  209. act 'Buy for <<bupay>> <b>₽</b>':
  210. cla
  211. money = money - bupay
  212. $car = 'VAZ 2110'
  213. car = 5
  214. benz = 3
  215. cardrive = 9
  216. teh = tehT
  217. tehcar = 350
  218. wrek = 0
  219. 'You paid <<bupay>> <b>₽</b> and bought a car. The merchant put it near the market and warned, that there is little petrol.'
  220. act 'Escape':gt'Nord'
  221. end
  222. end
  223. end
  224. act 'Inspect GAZ 3102 (on the go)':
  225. cla
  226. *clr
  227. '<center><b>3102 GAS (on the move)</b></center>'
  228. '<center><img src="images/picar/car11.jpg"></center>'
  229. tehNT = 1000
  230. tehT = rand(10, tehNT)
  231. carT = 2
  232. gs 'avt'
  233. '<<$tehT>> The dealer wants <<bupay>> <b>₽</b>'
  234. act 'Leave':gt 'autotraidf', 'car'
  235. if car = 0 and prava = 1 and money >= bupay:
  236. act 'Buy <<bupay>><b>₽</b>':
  237. cla
  238. money -= bupay
  239. $car = 'GAZ 3102'
  240. car = 11
  241. benz = 5
  242. cardrive = 9
  243. teh = tehT
  244. tehcar = 1000
  245. wrek = 0
  246. 'You pay <<bupay>> <b>₽</b> and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  247. act 'Leave':gt 'Nord'
  248. end
  249. end
  250. end
  251. act 'Inspect 3110 (on the go)':
  252. cla
  253. *clr
  254. '<center><b>3110 (on the move)</b></center>'
  255. '<center><img src="images/picar/car12.jpg"></center>'
  256. tehNT = 800
  257. tehT = rand(10, tehNT)
  258. carT = 2
  259. gs 'avt'
  260. '<<$tehT>> The dealer wants <<bupay>> <b>₽</b>'
  261. act 'Leave':gt 'autotraidF', 'car'
  262. if car = 0 and prava = 1 and money >= bupay:
  263. act 'Buy (<<bupay>> <b>₽</b>)':
  264. cla
  265. money -= bupay
  266. $car = '3110'
  267. car = 12
  268. benz = 5
  269. cardrive = 9
  270. teh = tehT
  271. tehcar = 800
  272. wrek = 0
  273. 'You pay <<bupay>> <b>₽</b> and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  274. act 'Leave':gt 'Nord'
  275. end
  276. end
  277. end
  278. end
  279. act 'Leave':gt 'Nord'
  280. end
  281. --- autotraidF ---------------------------------