autotraidF 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345
  1. # autotraidF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $location_type = 'event'
  6. cla
  7. *clr
  8. minut += 5
  9. gs 'stat'
  10. '<center><b>Used Car Dealership</b></center>'
  11. '<center><img src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  12. 'Upon entering the yard, you see a laminated piece of paper pinned to a wall near the entrance:'
  13. '- We accept cash.'
  14. '- We only sell to people with valid driver''s licenses.'
  15. '- New Oblast law: No sale if you already own a car.'
  16. if hour <= 17:
  17. if car > 0:act 'Approach the car salesman':gt 'autotraidF', 'manager1'
  18. act 'See what cars are for sale':gt 'autotraidF', 'car'
  19. end
  20. act 'Leave':gt 'Nord'
  21. end
  22. if $ARGS[0] = 'manager1':
  23. $metka = $ARGS[0]
  24. $loc = $CURLOC
  25. cla
  26. *clr
  27. minut += 5
  28. gs 'stat'
  29. '<center><b>Used Car Dealership</b></center>'
  30. '<center><img src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  31. gs 'avb'
  32. if cardrive = 9 and car > 0:
  33. 'The shifty-looking salesman circles around your car a couple of times, making exaggerated displeased noises all the while and pointing out practically every speck of dust as if it was a huge damage. When he turns to you, he states that the best he can do is <<bupay>> <b>₽</b> - while he claims that he''s taking a risk with that price, you''re pretty sure he''s ripping you off.'
  34. act 'No way, not at that price - Leave':gt 'Nord'
  35. act 'Sell ​your car (<<bupay>> <b>₽</b>) (1:00)':
  36. cla
  37. minut += 60
  38. money += bupay
  39. car = 0
  40. 'While you are almost certain that he''s offering less than the car is actually worth, you doubt that you''re gonna find somebody who''s gonna offer you more for it and your attempts at haggling with the fence fall flat - he''s just too experienced at this.'
  41. 'So, as much as you hate it, you give your car one last look before you shake hands with him and follow him into the tiny shed he calls his "office" to sign the papers. He hands you the money in cash and, with a nasty grin, suggests that you look around the yard.'
  42. '"Maybe you see something you like."'
  43. act 'Leave':gt 'Nord'
  44. end
  45. elseif cardrive ! 9:
  46. 'The salesman tells you, his smile sneering rather than friendly, that he needs to look at you car before he can tell you how much it''s worth. "But if you want, I can have somebody tow it here. It only costs 3000 <b>₽</b>. Very cheap!"'
  47. if money >= 3000:
  48. act 'Pay for towing service to the car market (3,000 <b>₽</b>) (1:00)':
  49. cla
  50. minut += 60
  51. cardrive = 9
  52. money -= 3000
  53. 'You give him the money - certain that he''s ripping you off - and wait for an hour until the tow truck finally drives into the yard and your car.'
  54. act 'Talk to the car salesman again':gt 'autotraidF', 'manager1'
  55. end
  56. end
  57. end
  58. act 'Leave':gt 'Nord'
  59. end
  60. if $ARGS[0] = 'car':
  61. $metka = $ARGS[0]
  62. $loc = $CURLOC
  63. cla
  64. *clr
  65. minut += 5
  66. carT = 0
  67. gs 'stat'
  68. '<center><b>Used Car Dealership</b></center>'
  69. '<center><img src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  70. 'There are so many cars on the parking lot that you could spend a lifetime looking around without ever seeing all of them. And according to the salesman, several cars are currently being test-driven or maintained. You doubt that there''s actually any maintenance going on, though: Several of the cars are visibly damaged or make awful sounds when they are started.'
  71. ''
  72. 'It''s obvious that most, if not all of them have sustained some visible or invisible damage. Buying a car here could be a fantastic bargain... or a complete waste of money. If you are to buy any of them, you know that the first place to visit should be a service center.'
  73. if hour <= 17:
  74. act 'Inspect a 2107':
  75. cla
  76. *clr
  77. '<center><b>2107</b></center>'
  78. '<center><img src="images/shared/accessories/car/car.jpg"></center>'
  79. tehNT = 200
  80. tehT = rand(10, tehNT)
  81. carT = 1
  82. gs 'avt'
  83. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  84. act 'Look around some more':gt 'autotraidF', 'car'
  85. if car = 0 and prava = 1 and money >= bupay:
  86. act 'Buy the car (<<bupay>> <b>₽</b>)':
  87. cla
  88. money -= bupay
  89. $car = '2107'
  90. car = 1
  91. benz = 3
  92. cardrive = 9
  93. teh = tehT
  94. tehcar = 200
  95. wrek = 0
  96. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  97. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  98. act 'Leave':gt 'Nord'
  99. end
  100. end
  101. end
  102. act 'Inspect another 2107 (Broken Engine)':
  103. cla
  104. *clr
  105. '<center><b>2107 (Broken engine)</b></center>'
  106. '<center><img src="images/shared/accessories/car/car.jpg"></center>'
  107. tehNT = 200
  108. tehT = rand(10, tehNT)
  109. bupay = rand(10000, 50000)
  110. 'The car is basically a wreck. It doesn''t even start. When you ask the salesman how much it costs, he tells you "<<bupay>> <b>₽</b>" without hesitation.'
  111. act 'Look around some more':gt 'autotraidf', 'car'
  112. if car = 0 and prava = 1 and money >= bupay:
  113. act 'Buy it for <<bupay>><b>₽</b>':
  114. cla
  115. money -= bupay
  116. $car = '2107'
  117. car = 1
  118. benz = 3
  119. cardrive = 9
  120. teh = tehT
  121. tehcar = 200
  122. wrek = 1
  123. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  124. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you... and that''s it.'
  125. 'If you want to get the car to a garage, you''ll have to go there and have it towed.'
  126. act 'Leave':gt 'Nord'
  127. end
  128. end
  129. end
  130. act 'Inspect a VAZ 2115':
  131. cla
  132. *clr
  133. tehNT = 300
  134. tehT = RAND(10,tehNT)
  135. carT = 1
  136. '<center><b>VAZ 2115</b></center>'
  137. '<center><img src="images/shared/accessories/car/car2.jpg"></center>'
  138. gs'avt'
  139. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  140. act 'Look around some more':gt'autotraidF','car'
  141. if car = 0 and prava = 1 and money >= bupay:
  142. act 'Buy for <<bupay>> <b>₽</b>':
  143. cla
  144. money = money - bupay
  145. $car = 'VAZ 2115'
  146. car = 2
  147. benz = 3
  148. cardrive = 9
  149. teh = tehT
  150. tehcar = 300
  151. wrek = 0
  152. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  153. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  154. act 'Leave':gt'Nord'
  155. end
  156. end
  157. end
  158. act 'Inspect a VAZ 2113':
  159. cla
  160. *clr
  161. tehNT = 290
  162. tehT = RAND(10,tehNT)
  163. carT = 1
  164. '<center><b>VAZ 2113</b></center>'
  165. '<center><img src="images/shared/accessories/car/car3.jpg"></center>'
  166. gs'avt'
  167. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  168. act 'Look around some more':gt'autotraidF','car'
  169. if car = 0 and prava = 1 and money >= bupay:
  170. act 'Buy for <<bupay>> <b>₽</b>':
  171. cla
  172. money = money - bupay
  173. $car = 'VAZ 2113'
  174. car = 3
  175. benz = 3
  176. cardrive = 9
  177. teh = tehT
  178. tehcar = 290
  179. wrek = 0
  180. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  181. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  182. act 'Leave':gt'Nord'
  183. end
  184. end
  185. end
  186. act 'Inspect a VAZ 2114':
  187. cla
  188. *clr
  189. tehNT = 300
  190. tehT = RAND(10,tehNT)
  191. carT = 1
  192. '<center><b>VAZ 2114</b></center>'
  193. '<center><img src="images/shared/accessories/car/car4.jpg"></center>'
  194. gs'avt'
  195. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  196. act 'Look around some more':gt'autotraidF','car'
  197. if car = 0 and prava = 1 and money >= bupay:
  198. act 'Buy for <<bupay>> <b>₽</b>':
  199. cla
  200. money = money - bupay
  201. $car = 'VAZ 2114'
  202. car = 4
  203. benz = 3
  204. cardrive = 9
  205. teh = tehT
  206. tehcar = 300
  207. wrek = 0
  208. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  209. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  210. act 'Leave':gt'Nord'
  211. end
  212. end
  213. end
  214. act 'Inspect a VAZ 2110':
  215. cla
  216. *clr
  217. tehNT = 350
  218. tehT = RAND(10,tehNT)
  219. carT = 1
  220. '<center><b>VAZ 2110</b></center>'
  221. '<center><img src="images/shared/accessories/car/car5.jpg"></center>'
  222. gs'avt'
  223. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  224. act 'Look around some more':gt'autotraidF','car'
  225. if car = 0 and prava = 1 and money >= bupay:
  226. act 'Buy for <<bupay>> <b>₽</b>':
  227. cla
  228. money = money - bupay
  229. $car = 'VAZ 2110'
  230. car = 5
  231. benz = 3
  232. cardrive = 9
  233. teh = tehT
  234. tehcar = 350
  235. wrek = 0
  236. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  237. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  238. act 'Leave':gt'Nord'
  239. end
  240. end
  241. end
  242. act 'Inspect a GAZ 3102':
  243. cla
  244. *clr
  245. '<center><b>3102 GAS</b></center>'
  246. '<center><img src="images/shared/accessories/car/car11.jpg"></center>'
  247. tehNT = 1000
  248. tehT = rand(10, tehNT)
  249. carT = 2
  250. gs 'avt'
  251. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  252. act 'Look around some more':gt 'autotraidf', 'car'
  253. if car = 0 and prava = 1 and money >= bupay:
  254. act 'Buy <<bupay>><b>₽</b>':
  255. cla
  256. money -= bupay
  257. $car = 'GAZ 3102'
  258. car = 11
  259. benz = 5
  260. cardrive = 9
  261. teh = tehT
  262. tehcar = 1000
  263. wrek = 0
  264. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  265. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  266. act 'Leave':gt 'Nord'
  267. end
  268. end
  269. end
  270. act 'Inspect a 3110':
  271. cla
  272. *clr
  273. '<center><b>3110</b></center>'
  274. '<center><img src="images/shared/accessories/car/car12.jpg"></center>'
  275. tehNT = 800
  276. tehT = rand(10, tehNT)
  277. carT = 2
  278. gs 'avt'
  279. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  280. act 'Look around some more':gt 'autotraidF', 'car'
  281. if car = 0 and prava = 1 and money >= bupay:
  282. act 'Buy (<<bupay>> <b>₽</b>)':
  283. cla
  284. money -= bupay
  285. $car = '3110'
  286. car = 12
  287. benz = 5
  288. cardrive = 9
  289. teh = tehT
  290. tehcar = 800
  291. wrek = 0
  292. 'You agree. Before you know it, the car salesman and you have signed all the necessary documents, you hand over the <<bupay>> <b>₽</b> in cash and the car is yours.'
  293. 'Since it''s crammed in between about a million other vehicles, the car salesman moves it outside near the yard''s entrance for you and warns you that there is very little gas in the tank.'
  294. act 'Leave':gt 'Nord'
  295. end
  296. end
  297. end
  298. end
  299. act 'Leave':gt 'Nord'
  300. end
  301. --- autotraidF ---------------------------------