1
0

autotraidF.qsrc 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196
  1. # autotraidF
  2. !2021/04/26
  3. if $ARGS[0] = 'start':
  4. $loc_arg = $ARGS[0]
  5. $loc = 'autotraidF'
  6. $location_type = 'event'
  7. $menu_arg = 'start'
  8. $menu_loc = 'autotraidF'
  9. menu_off = 0
  10. *clr & cla
  11. gs 'stat'
  12. '<center><b>Car Dealership</b></center>'
  13. '<center><img <<$set_imgh>> src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  14. 'Upon entering the yard, you see a laminated piece of paper pinned to a wall near the entrance:'
  15. '- We only sell to people with valid driver''s licenses.'
  16. '- New State law: No sale if you already own a car.'
  17. if car > 0 and cardrive = 9:'Your <a href="exec:gs ''carF'', ''start''"><<$car>></a> is parked just inside.'
  18. act 'Leave': minut += 5 & gt 'city_industrial'
  19. if func('autotraidF', 'is_open'):
  20. if car > 0:act 'Ask about selling your car':gt 'autotraidF', 'manager1'
  21. act 'Look at the new cars for sale': gt 'autosalonF', 'start'
  22. act 'Look at the used cars for sale':gt 'autotraidF', 'car'
  23. end
  24. end
  25. if $ARGS[0] = 'is_open':
  26. RESULT = hour >= 9 and hour < 18 and week > 1
  27. end
  28. if $ARGS[0] = 'manager1':
  29. $loc_arg = $ARGS[0]
  30. $loc = 'autotraidF'
  31. $menu_arg = 'manager1'
  32. $menu_loc = 'autotraidF'
  33. menu_off = 0
  34. *clr & cla
  35. gs 'stat'
  36. '<center><b>Used Car Dealership</b></center>'
  37. '<center><img <<$set_imgh>> src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  38. gs 'avb'
  39. act 'Leave': killvar 'bupay' & minut += 5 & gt 'city_industrial'
  40. if cardrive = 9 and car > 0:
  41. '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 is major 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.'
  42. act 'No way, not at that price - Leave': killvar 'bupay' & minut += 5 & gt 'city_industrial'
  43. act 'Sell ​your car (<<bupay>> <b>₽</b>) (1:00)':
  44. cla
  45. menu_off = 1
  46. minut += 60
  47. money += bupay
  48. car = 0
  49. 'While you are almost certain that he''s offering less than the car is actually worth, you doubt that you''re going to find somebody who''s going to offer you more for it, and your attempts at haggling with the fence fall flat - he''s just too experienced at this.'
  50. '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.'
  51. '"Maybe you''ll see something you like?"'
  52. act 'Leave': killvar 'bupay' & minut += 5 & gt 'city_industrial'
  53. end
  54. elseif cardrive ! 9:
  55. 'The salesman tells you, his smile sneering rather than friendly, that he needs to look at your car before he can tell you how much it''s worth. "If you want, I can have somebody tow it here. It only costs 3000 <b>₽</b>. Very cheap!"'
  56. if money >= 3000:
  57. act 'Pay for towing service to the car market (3,000 <b>₽</b>) (1:00)':
  58. cla
  59. menu_off = 1
  60. minut += 60
  61. cardrive = 9
  62. money -= 3000
  63. '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, your car hooked up to the rear of it.'
  64. act 'Talk to the car salesman again': killvar 'bupay' & gt 'autotraidF', 'manager1'
  65. end
  66. end
  67. end
  68. end
  69. if $ARGS[0] = 'car':
  70. $loc_arg = $ARGS[0]
  71. $loc = 'autotraidF'
  72. $menu_arg = 'car'
  73. $menu_loc = 'autotraidF'
  74. menu_off = 0
  75. *clr & cla
  76. minut += 5
  77. carT = 0
  78. gs 'stat'
  79. '<center><b>Used Car Dealership</b></center>'
  80. '<center><img <<$set_imgh>> src="images/locations/city/industrial/usedcar/autotraid.jpg"></center>'
  81. 'There are so many cars on the parking lot that you could spend a lifetime looking around without ever seeing all of them. 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.'
  82. *nl
  83. '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.'
  84. act 'Return': killvar 'carT' & killvar 'bupay' & gt 'autotraidF', 'start'
  85. if hour <= 17:
  86. act 'Inspect a 2107':gt 'autotraidF', 'inspect', '2107', 1, 200, 1, 3
  87. act 'Inspect another 2107 (Broken Engine)':
  88. cla
  89. *clr
  90. menu_off = 1
  91. '<center><b>2107 (Broken engine)</b></center>'
  92. '<center><img <<$set_imgh>> src="images/pc/items/accessories/car/car.jpg"></center>'
  93. bupay = rand(10000, 50000)
  94. '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.'
  95. act 'Look around some more':gt 'autotraidf', 'car'
  96. if car = 0 and prava = 1 and money >= bupay:
  97. act 'Buy it for <<bupay>><b>₽</b>':
  98. cla
  99. money -= bupay
  100. $car = '2107'
  101. car = 1
  102. benz = 3
  103. cardrive = 9
  104. tehcar = 200
  105. teh = rand(10, tehcar)
  106. wrek = 1
  107. 'You agree and 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.'
  108. '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.'
  109. 'If you want to get the car to a garage, you''ll have to go there and have it towed.'
  110. killvar 'bupay'
  111. act 'Leave': minut += 5 & gt 'city_industrial'
  112. end
  113. end
  114. end
  115. act 'Inspect a VAZ 2115':gt 'autotraidF', 'inspect', 'VAZ 2115', 2, 300, 1, 3
  116. act 'Inspect a VAZ 2113':gt 'autotraidF', 'inspect', 'VAZ 2113', 3, 290, 1, 3
  117. act 'Inspect a VAZ 2114':gt 'autotraidF', 'inspect', 'VAZ 2114', 4, 300, 1, 3
  118. act 'Inspect a VAZ 2110':gt 'autotraidF', 'inspect', 'VAZ 2110', 5, 350, 1, 3
  119. act 'Inspect a GAZ 3102':gt 'autotraidF', 'inspect', '3102 GAS', 11, 1000, 2, 5
  120. act 'Inspect a 3110':gt 'autotraidF', 'inspect', '3110', 12, 800, 2, 5
  121. end
  122. end
  123. if $ARGS[0] = 'inspect':
  124. cla
  125. *clr
  126. menu_off = 1
  127. $autotraidF_carname = $ARGS[1]
  128. autotraidF_carnum = ARGS[2]
  129. tehNT = ARGS[3]
  130. carT = ARGS[4]
  131. autotraidF_benz = ARGS[5]
  132. '<center><b><<$autotraidF_carname>></b></center>'
  133. '<center><img <<$set_imgh>> src="images/pc/items/accessories/car/car<<iif(autotraidF_carnum = 1, '''', autotraidF_carnum)>>.jpg"></center>'
  134. gs 'avt'
  135. '<<$tehT>> The car salesman wants <<bupay>> <b>₽</b> for it.'
  136. act 'Look around some more':
  137. killvar 'bupay'
  138. killvar 'tehT'
  139. killvar 'tehNT'
  140. killvar '$autotraidF_carname'
  141. killvar 'autotraidF_carnum'
  142. killvar 'autotraidF_benz'
  143. gt 'autotraidF', 'car'
  144. end
  145. if car = 0 and prava = 1 and money >= bupay:
  146. act 'Buy (<<bupay>> <b>₽</b>)':
  147. cla
  148. money -= bupay
  149. $car = $autotraidF_carname
  150. car = autotraidF_carnum
  151. benz = autotraidF_benz
  152. cardrive = 9
  153. teh = tehT
  154. tehcar = tehNT
  155. wrek = 0
  156. 'You agree and 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.'
  157. '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.'
  158. killvar 'bupay'
  159. killvar 'tehT'
  160. killvar 'tehNT'
  161. killvar '$autotraidF_carname'
  162. killvar 'autotraidF_carnum'
  163. killvar 'autotraidF_benz'
  164. act 'Leave': minut += 5 & gt 'city_industrial'
  165. end
  166. end
  167. end
  168. --- autotraidF ---------------------------------