1
0

carF.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334
  1. # carF
  2. $enddrive = {
  3. if cardrive = 1:gt 'city_residential'
  4. if cardrive = 2:gt 'city_center'
  5. if cardrive = 3:gt 'city_industrial'
  6. if cardrive = 4:gt 'city_lake', 'start'
  7. if cardrive = 5:gt 'city_park', 'start'
  8. if cardrive = 6:gt 'zaprF', 'start'
  9. if cardrive = 7:gt 'autoservisF', 'start'
  10. if cardrive = 9:gt 'autotraidF', 'start'
  11. if cardrive = 10:gt 'city_park', 'whore'
  12. if cardrive = 11:gt 'city_sauna'
  13. if cardrive = 12:gt 'obekt'
  14. if cardrive = 13:gt 'dachi'
  15. if cardrive = 14:gt 'liam'
  16. if cardrive = 18:gt 'youplace'
  17. if cardrive = 19:gt 'city_industrial_train', 'outside'
  18. if cardrive = 20:gt 'pav_residential'
  19. if cardrive = 21:gt 'zaprF','start'
  20. if cardrive = 22:gt 'road'
  21. if cardrive = 23:gt 'gadukino'
  22. if cardrive = 24:gt 'pav_commercial'
  23. if cardrive = 25:gt 'city_island'
  24. if cardrive = 26:gt 'pav_industrial'
  25. if cardrive = 27:gt 'city_industrial', 'redlight'
  26. }
  27. if $ARGS[0] = 'start':
  28. $menu_loc = 'carF'
  29. $menu_arg = 'start'
  30. menu_off = 0
  31. $loc_arg = $ARGS[0]
  32. $loc = 'carF'
  33. CLOSE ALL
  34. *clr & cla
  35. minut += 1
  36. gs 'stat'
  37. gs 'themes', 'indoors'
  38. '<center><b><<$car>></b></center>'
  39. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car<<car>>.jpg"></center>'
  40. act 'Move away from the car':dynamic $enddrive
  41. if kanistra > 0:
  42. 'In the trunk there ' + iif(kanistra = 1, 'is 1 cannister', 'are <<kanistra>> canisters') + ' of gasoline. Each canister contains 5 liters of gasoline.'
  43. if benz <= 45:
  44. act 'Pour gasoline into the tank':
  45. cla
  46. menu_off = 1
  47. benz += 5
  48. kanistra -= 1
  49. 'You empty the canister of gasoline into the tank.'
  50. act 'Move away':gt 'carF', 'start'
  51. end
  52. end
  53. end
  54. act 'Get in the car':gt 'carF', 'salon'
  55. end
  56. if $ARGS[0] = 'salon':
  57. menu_off = 1
  58. $loc_arg = $ARGS[0]
  59. $loc = 'carF'
  60. *clr & cla
  61. minut += 1
  62. gs 'stat'
  63. '<center><b><<$car>></b></center>'
  64. '<center><img <<$set_imgh>> src="images/shared/accessories/car/salon<<car>>.jpg"></center>'
  65. 'Gasoline - <<benz>> ' + iif(benz = 1, 'liter', 'liters') + ', the fuel tank has a capacity of 40 liters.'
  66. if teh <= 0:teh = 0 & wrek = 1
  67. if teh <= 0 or wrek = 1:$teh = 'The car is in need of repairs and won''t start.'
  68. if teh >= tehcar * 75 / 100 and wrek = 0:$teh = 'The car is in excellent condition.'
  69. if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:$teh = 'While driving, you occasionally hear some troubling noises.'
  70. if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:$teh = 'The car seems broken and barely drives.'
  71. if teh < tehcar * 25 / 100 and wrek = 0:$teh = 'How this car still runs is a mystery, even to its designers.'
  72. '<<$teh>>'
  73. if cardrive = 1:'Through the windshield, you see St. Petersburg''s residential area.'
  74. if cardrive = 2:'Through the windshield, you see St. Petersburg''s city center.'
  75. if cardrive = 3:'Through the windshield, you see St. Petersburg''s industrial region.'
  76. if cardrive = 4:'Through the windshield, you see the lake.'
  77. if cardrive = 5:'Through the windshield, you can see the park.'
  78. if cardrive = 6:'Through the windshield, you can see the gas station in the city industrial region.'
  79. if cardrive = 7:'Through the windshield, you can see the car service centre.'
  80. if cardrive = 9:'Through the windshield, you can see many of the cars for sale outside the showroom.'
  81. if cardrive = 10:'Through the windshield, you can see hookers outside the park.'
  82. if cardrive = 11:'Through the windshield, you can see the sauna.'
  83. if cardrive = 12:'Through the windshield, you see a construction site.'
  84. if cardrive = 13:'Through the windshield, you can see the suburban cooperative.'
  85. if cardrive = 14:'Through the windshield, you see the Old Town district of Pavlovsk.'
  86. if cardrive = 18:'Through the windshield, you can see your mansion.'
  87. if cardrive = 19:'Through the windshield, you see the city industrial region train station.'
  88. if cardrive = 20:'Through the windshield, you can see Pavlovsk''s residential area.'
  89. if cardrive = 21:'Through the windshield, you can see the gas station near Pavlovsk.'
  90. if cardrive = 22:'Through the windshield, you can see the highway.'
  91. if cardrive = 23:'Through the windshield, you see the huts of the village of Gadukino.'
  92. if cardrive = 24:'Through the windshield, you can see Pavlovsk''s commercial region.'
  93. if cardrive = 25:'You cross one of the bridges that leads to the island.'
  94. if cardrive = 26:'Through the windshield, you can see Pavlovsk''s industrial region.'
  95. if cardrive = 27:'Through the windshield, you see St. Petersburg''s red light district.'
  96. if prava = 0:'You don''t have a driver''s license.'
  97. act 'Get out of the car':dynamic $enddrive
  98. if benz > 0 and wrek = 0 and prava > 0:
  99. if teh >= tehcar * 75 / 100:
  100. if rand(0, 1000) = 1000:wrek = 1
  101. elseif teh >= tehcar * 50 / 100:
  102. if rand(0, 100) = 100:wrek = 1
  103. elseif teh >= tehcar * 25 / 100:
  104. if rand(0, 100) >= 80:wrek = 1
  105. else
  106. if rand(0, 100) >= 40:wrek = 1
  107. end
  108. if wrek = 1:
  109. 'Something clatters loudly, and the engine stalls.'
  110. act 'Fuck':gt 'carF', 'salon'
  111. else
  112. if alko > 0 and rand(0, 100) <= alko:
  113. 'A policeman stops you. He looks at your condition and requests you breathe into a tube. You breathe, and a red light brightens up on the instrument panel.'
  114. 'The officer snorts and writes something down. He hands you a slip of paper with the number 50,000 on it'
  115. '"Or I can write a report. But you will get a permanent record for driving drunk."'
  116. if money >= 50000:
  117. act 'Bribe him (50,000 <b>₽</b>)':
  118. cla
  119. money = money - 50000
  120. 'You pay, and the policeman warns you that you can not keep driving in your drunken state.'
  121. act 'In the salon':gt 'carF', 'salon'
  122. end
  123. end
  124. act 'Come on, this is within the law':
  125. cla
  126. prava = 0
  127. '"I can take your license for not driving sober."'
  128. act 'In the salon':gt 'carF', 'salon'
  129. end
  130. elseif alko >= 10 and rand(0, 100) >= 50:
  131. teh = teh/2
  132. wrek = 1
  133. 'Driving drunk, you crash into a tree and wreck your car.'
  134. act 'In the salon':gt 'carF', 'salon'
  135. else
  136. if (cardrive = 22 and nroad >= 18) or cardrive = 14 or cardrive = 20 or cardrive = 21 or cardrive = 24 or cardrive = 26:
  137. car_town = 0
  138. act 'Go to local destination': gs 'carF', 'pav'
  139. act 'Go to the city':
  140. minut += 65
  141. *nl
  142. 'You drive for more than an hour on the highway before you get to the city.'
  143. gs 'carF', 'city'
  144. end
  145. act 'Go to another destination':
  146. minut += 30
  147. *nl
  148. 'You drive out of Pavlovsk.'
  149. gs 'carF', 'other'
  150. end
  151. elseif cardrive <= 11 or cardrive = 19 or cardrive = 25 or cardrive = 27:
  152. car_town = 1
  153. act 'Go to another city destination': gs 'carF', 'city'
  154. act 'Go to Pavlovsk':
  155. minut += 65
  156. *nl
  157. 'You drive for more than an hour on the highway before you get to the town of Pavlovsk.'
  158. gs 'carF', 'pav'
  159. end
  160. act 'Go to another destination':
  161. minut += 30
  162. *nl
  163. 'You drive out of the city.'
  164. gs 'carF', 'other'
  165. end
  166. else
  167. car_town = 2
  168. act 'Go to a city destination':
  169. minut += 30
  170. *nl
  171. 'You drive for half an hour on the highway before you get to the city.'
  172. gs 'carF', 'city'
  173. end
  174. act 'Go to a Pavlovsk destination':
  175. minut += 30
  176. *nl
  177. 'You drive for half an hour on the highway before you get to the town of Pavlovsk.'
  178. gs 'carF', 'pav'
  179. end
  180. act 'Go to another destination': gs 'carF', 'other'
  181. end
  182. end
  183. end
  184. end
  185. end
  186. if $ARGS[0] = 'other':
  187. cla
  188. if home_owned[5] > 0 and cardrive ! 18:
  189. act 'Go to your mansion':
  190. cla
  191. if car_town ! 1:
  192. minut += 60
  193. benz -= 1
  194. teh -= rand(1, 3)
  195. cardrive = 18
  196. else
  197. minut += 10
  198. benz -= 1
  199. teh -= rand(1, 3)
  200. cardrive = 18
  201. end
  202. 'You drive to your mansion.'
  203. dynamic $enddrive
  204. end
  205. end
  206. if cardrive ! 12:
  207. act 'Go to the construction site':
  208. cla
  209. if car_town ! 1:
  210. minut += 55
  211. 'It takes nearly an hour to get to your destination.'
  212. else
  213. minut += 15
  214. '15 minutes later, you arrive at your destination.'
  215. end
  216. benz -= 1
  217. teh -= rand(2, 5)
  218. cardrive = 12
  219. dynamic $enddrive
  220. end
  221. end
  222. if cardrive ! 13:
  223. act 'Go to the Suburban Cooperative':
  224. cla
  225. if car_town ! 1:
  226. minut += 45
  227. 'It takes three quarters of an hour to get to your destination.'
  228. else
  229. minut += 25
  230. '25 minutes later, you arrive at your destination.'
  231. end
  232. benz -= 1
  233. teh -= rand(2, 5)
  234. cardrive = 13
  235. dynamic $enddrive
  236. end
  237. end
  238. if cardrive ! 23:
  239. act 'Go to the village of Gadukino':
  240. cla
  241. benz = benz - 1
  242. teh = teh - RAND(3,6)
  243. cardrive = 23
  244. if car_town ! 0:
  245. minut += 55
  246. 'You spend about an hour on the highway going to Gadukino.'
  247. else
  248. minut += 15
  249. '15 minutes later, you reach your destination.'
  250. end
  251. dynamic $enddrive
  252. end
  253. end
  254. act 'Drive around the local track (1:00)':
  255. cla
  256. minut += 60
  257. benz -= 4
  258. teh -= rand(2, 6)
  259. pcs_mood += 20
  260. wipo += 10
  261. 'You go to the track and have fun driving around before leaving.'
  262. act 'Finish':xgt 'carF', 'salon'
  263. end
  264. end
  265. if $ARGS[0] = 'pav':
  266. cla
  267. if cardrive ! 26:act 'Go to Pavlovsk''s Industrial Region':gs 'carF', 'nearby', 26
  268. if cardrive ! 20:act 'Go to Pavlovsk''s Residential Area':gs 'carF', 'nearby', 20
  269. if cardrive ! 24:act 'Go to Pavlovsk''s Commercial Region':gs 'carF', 'nearby', 24
  270. if cardrive ! 14:act 'Go to Old Town district of Pavlovsk':gs 'carF', 'nearby', 14
  271. if cardrive ! 21:act 'Go to the gas station':gs 'carF', 'nearby', 21
  272. end
  273. if $ARGS[0] = 'city':
  274. cla
  275. if cardrive ! 3:act 'Go to St. Petersburg''s Industrial Region':gs 'carF', 'nearby', 3
  276. if cardrive ! 1:act 'Go to St. Petersburg''s residential area':gs 'carF', 'nearby', 1
  277. if cardrive ! 2:act 'Go to St. Petersburg city center':gs 'carF', 'nearby', 2
  278. if cardrive ! 19:act 'Go to the city train station':gs 'carF', 'nearby', 19
  279. if cardrive ! 4:act 'Go to the city lake':gs 'carF', 'nearby', 4
  280. if cardrive ! 5:act 'Go to the city park':gs 'carF', 'nearby', 5
  281. if cardrive ! 6:act 'Go to the gas station':gs 'carF', 'nearby', 6
  282. if cardrive ! 7 and func('autoservisF', 'is_open'):act 'Go to the auto repair shop':gs 'carF', 'nearby', 7
  283. if cardrive ! 9 and func('autotraidF', 'is_open'):act 'Go to the car dealership':gs 'carF', 'nearby', 9
  284. if cardrive ! 25:act 'Go to the island':gs 'carF', 'nearby', 25
  285. if cardrive ! 27:act 'Go to the red light district':gs 'carF', 'nearby', 27
  286. end
  287. if $ARGS[0] = 'nearby':
  288. cla
  289. minut += 5
  290. benz -= 1
  291. teh -= rand(1, 3)
  292. cardrive = ARGS[1]
  293. '5 minutes later, you arrive at your destination.'
  294. dynamic $enddrive
  295. end
  296. --- carF ---------------------------------