1
0

carF.qsrc 11 KB

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