1
1

carF.qsrc 11 KB

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