1
1

autotraidF.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344
  1. # autotraidF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $location_type = 'event'
  6. cla
  7. *clr
  8. gs 'stat'
  9. '<center><b>Car Dealership</b></center>'
  10. '<center><img <<$set_imgh>> src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  11. 'Upon entering the yard, you see a laminated piece of paper pinned to a wall near the entrance:'
  12. '- We only sell to people with valid driver''s licenses.'
  13. '- New State law: No sale if you already own a car.'
  14. if hour <= 17:
  15. if car > 0:act 'Ask about selling your car':gt 'autotraidF', 'manager1'
  16. act 'Look at the new cars for sale': gt 'autosalonF', 'start'
  17. act 'Look at the used cars for sale':gt 'autotraidF', 'car'
  18. end
  19. act 'Leave': minut += 5 & gt 'Nord'
  20. end
  21. if $ARGS[0] = 'manager1':
  22. $metka = $ARGS[0]
  23. $loc = $CURLOC
  24. cla
  25. *clr
  26. gs 'stat'
  27. '<center><b>Used Car Dealership</b></center>'
  28. '<center><img <<$set_imgh>> src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  29. gs 'avb'
  30. if cardrive = 9 and car > 0:
  31. '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.'
  32. act 'No way, not at that price - Leave': minut += 5 & gt 'Nord'
  33. act 'Sell ​your car (<<bupay>> <b>₽</b>) (1:00)':
  34. cla
  35. minut += 60
  36. money += bupay
  37. car = 0
  38. '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.'
  39. '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.'
  40. '"Maybe you see something you like."'
  41. act 'Leave': minut += 5 & gt 'Nord'
  42. end
  43. elseif cardrive ! 9:
  44. '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!"'
  45. if money >= 3000:
  46. act 'Pay for towing service to the car market (3,000 <b>₽</b>) (1:00)':
  47. cla
  48. minut += 60
  49. cardrive = 9
  50. money -= 3000
  51. '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.'
  52. act 'Talk to the car salesman again':gt 'autotraidF', 'manager1'
  53. end
  54. end
  55. end
  56. act 'Leave': minut += 5 & gt 'Nord'
  57. end
  58. if $ARGS[0] = 'car':
  59. $metka = $ARGS[0]
  60. $loc = $CURLOC
  61. cla
  62. *clr
  63. minut += 5
  64. carT = 0
  65. gs 'stat'
  66. '<center><b>Used Car Dealership</b></center>'
  67. '<center><img <<$set_imgh>> src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  68. '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.'
  69. ''
  70. '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.'
  71. if hour <= 17:
  72. act 'Inspect a 2107':
  73. cla
  74. *clr
  75. '<center><b>2107</b></center>'
  76. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car.jpg"></center>'
  77. tehNT = 200
  78. tehT = rand(10, tehNT)
  79. carT = 1
  80. gs 'avt'
  81. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  82. act 'Look around some more':gt 'autotraidF', 'car'
  83. if car = 0 and prava = 1 and money >= bupay:
  84. act 'Buy the car (<<bupay>> <b>₽</b>)':
  85. cla
  86. money -= bupay
  87. $car = '2107'
  88. car = 1
  89. benz = 3
  90. cardrive = 9
  91. teh = tehT
  92. tehcar = 200
  93. wrek = 0
  94. '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.'
  95. '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.'
  96. act 'Leave': minut += 5 & gt 'Nord'
  97. end
  98. end
  99. end
  100. act 'Inspect another 2107 (Broken Engine)':
  101. cla
  102. *clr
  103. '<center><b>2107 (Broken engine)</b></center>'
  104. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car.jpg"></center>'
  105. tehNT = 200
  106. tehT = rand(10, tehNT)
  107. bupay = rand(10000, 50000)
  108. '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.'
  109. act 'Look around some more':gt 'autotraidf', 'car'
  110. if car = 0 and prava = 1 and money >= bupay:
  111. act 'Buy it for <<bupay>><b>₽</b>':
  112. cla
  113. money -= bupay
  114. $car = '2107'
  115. car = 1
  116. benz = 3
  117. cardrive = 9
  118. teh = tehT
  119. tehcar = 200
  120. wrek = 1
  121. '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.'
  122. '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.'
  123. 'If you want to get the car to a garage, you''ll have to go there and have it towed.'
  124. act 'Leave': minut += 5 & gt 'Nord'
  125. end
  126. end
  127. end
  128. act 'Inspect a VAZ 2115':
  129. cla
  130. *clr
  131. tehNT = 300
  132. tehT = RAND(10,tehNT)
  133. carT = 1
  134. '<center><b>VAZ 2115</b></center>'
  135. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car2.jpg"></center>'
  136. gs'avt'
  137. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  138. act 'Look around some more':gt'autotraidF','car'
  139. if car = 0 and prava = 1 and money >= bupay:
  140. act 'Buy for <<bupay>> <b>₽</b>':
  141. cla
  142. money = money - bupay
  143. $car = 'VAZ 2115'
  144. car = 2
  145. benz = 3
  146. cardrive = 9
  147. teh = tehT
  148. tehcar = 300
  149. wrek = 0
  150. '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.'
  151. '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.'
  152. act 'Leave': minut += 5 & gt'Nord'
  153. end
  154. end
  155. end
  156. act 'Inspect a VAZ 2113':
  157. cla
  158. *clr
  159. tehNT = 290
  160. tehT = RAND(10,tehNT)
  161. carT = 1
  162. '<center><b>VAZ 2113</b></center>'
  163. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car3.jpg"></center>'
  164. gs'avt'
  165. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  166. act 'Look around some more':gt'autotraidF','car'
  167. if car = 0 and prava = 1 and money >= bupay:
  168. act 'Buy for <<bupay>> <b>₽</b>':
  169. cla
  170. money = money - bupay
  171. $car = 'VAZ 2113'
  172. car = 3
  173. benz = 3
  174. cardrive = 9
  175. teh = tehT
  176. tehcar = 290
  177. wrek = 0
  178. '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.'
  179. '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.'
  180. act 'Leave': minut += 5 & gt'Nord'
  181. end
  182. end
  183. end
  184. act 'Inspect a VAZ 2114':
  185. cla
  186. *clr
  187. tehNT = 300
  188. tehT = RAND(10,tehNT)
  189. carT = 1
  190. '<center><b>VAZ 2114</b></center>'
  191. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car4.jpg"></center>'
  192. gs'avt'
  193. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  194. act 'Look around some more':gt'autotraidF','car'
  195. if car = 0 and prava = 1 and money >= bupay:
  196. act 'Buy for <<bupay>> <b>₽</b>':
  197. cla
  198. money = money - bupay
  199. $car = 'VAZ 2114'
  200. car = 4
  201. benz = 3
  202. cardrive = 9
  203. teh = tehT
  204. tehcar = 300
  205. wrek = 0
  206. '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.'
  207. '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.'
  208. act 'Leave': minut += 5 & gt'Nord'
  209. end
  210. end
  211. end
  212. act 'Inspect a VAZ 2110':
  213. cla
  214. *clr
  215. tehNT = 350
  216. tehT = RAND(10,tehNT)
  217. carT = 1
  218. '<center><b>VAZ 2110</b></center>'
  219. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car5.jpg"></center>'
  220. gs'avt'
  221. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  222. act 'Look around some more':gt'autotraidF','car'
  223. if car = 0 and prava = 1 and money >= bupay:
  224. act 'Buy for <<bupay>> <b>₽</b>':
  225. cla
  226. money = money - bupay
  227. $car = 'VAZ 2110'
  228. car = 5
  229. benz = 3
  230. cardrive = 9
  231. teh = tehT
  232. tehcar = 350
  233. wrek = 0
  234. '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.'
  235. '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.'
  236. act 'Leave': minut += 5 & gt'Nord'
  237. end
  238. end
  239. end
  240. act 'Inspect a GAZ 3102':
  241. cla
  242. *clr
  243. '<center><b>3102 GAS</b></center>'
  244. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car11.jpg"></center>'
  245. tehNT = 1000
  246. tehT = rand(10, tehNT)
  247. carT = 2
  248. gs 'avt'
  249. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  250. act 'Look around some more':gt 'autotraidf', 'car'
  251. if car = 0 and prava = 1 and money >= bupay:
  252. act 'Buy <<bupay>><b>₽</b>':
  253. cla
  254. money -= bupay
  255. $car = 'GAZ 3102'
  256. car = 11
  257. benz = 5
  258. cardrive = 9
  259. teh = tehT
  260. tehcar = 1000
  261. wrek = 0
  262. '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.'
  263. '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.'
  264. act 'Leave': minut += 5 & gt 'Nord'
  265. end
  266. end
  267. end
  268. act 'Inspect a 3110':
  269. cla
  270. *clr
  271. '<center><b>3110</b></center>'
  272. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car12.jpg"></center>'
  273. tehNT = 800
  274. tehT = rand(10, tehNT)
  275. carT = 2
  276. gs 'avt'
  277. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  278. act 'Look around some more':gt 'autotraidF', 'car'
  279. if car = 0 and prava = 1 and money >= bupay:
  280. act 'Buy (<<bupay>> <b>₽</b>)':
  281. cla
  282. money -= bupay
  283. $car = '3110'
  284. car = 12
  285. benz = 5
  286. cardrive = 9
  287. teh = tehT
  288. tehcar = 800
  289. wrek = 0
  290. '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.'
  291. '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.'
  292. act 'Leave': minut += 5 & gt 'Nord'
  293. end
  294. end
  295. end
  296. end
  297. act 'Return': gt 'autotraidF', 'start'
  298. end
  299. --- autotraidF ---------------------------------