autotraidF.qsrc 13 KB

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