carF.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512
  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. }
  26. if $ARGS[0] = 'start':
  27. $menu_loc = 'carF'
  28. $menu_arg = 'start'
  29. menu_off = 0
  30. $loc_arg = $ARGS[0]
  31. $loc = 'carF'
  32. CLOSE ALL
  33. *clr & cla
  34. minut += 1
  35. gs 'stat'
  36. gs 'themes', 'indoors'
  37. '<center><b><<$car>></b></center>'
  38. '<center><img <<$set_imgh>> src="images/shared/accessories/car/car<<car>>.jpg"></center>'
  39. act 'Move away from the car':dynamic $enddrive
  40. if kanistra > 0:
  41. 'In the trunk there is <<kanistra>> canister/s of gasoline. Each canister contains 5 liters of gasoline.'
  42. if benz <= 45:
  43. act 'Pour gasoline into the tank':
  44. cla
  45. menu_off = 1
  46. benz += 5
  47. kanistra -= 1
  48. 'You emptied the canister of gasoline into the tank.'
  49. act 'Move away':gt 'carF', 'start'
  50. end
  51. end
  52. end
  53. act 'Get in the car':gt 'carF', 'salon'
  54. end
  55. if $ARGS[0] = 'salon':
  56. menu_off = 1
  57. $loc_arg = $ARGS[0]
  58. $loc = 'carF'
  59. *clr & cla
  60. minut += 1
  61. gs 'stat'
  62. '<center><b><<$car>></b></center>'
  63. '<center><img <<$set_imgh>> src="images/shared/accessories/car/salon<<car>>.jpg"></center>'
  64. 'Gasoline - <<benz>> liters, the fuel tank has a capacity of 40 liters.'
  65. if teh <= 0:teh = 0 & wrek = 1
  66. if teh <= 0 or wrek = 1:$teh = 'The car is in need of repairs and won''t start.'
  67. if teh >= tehcar * 75 / 100 and wrek = 0:$teh = 'The car is in excellent condition.'
  68. if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:$teh = 'While driving, you occasionally hear some troubling noises'
  69. if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:$teh = 'The car seems broken and barely drives.'
  70. if teh < tehcar * 25 / 100 and wrek = 0:$teh = 'How this car still runs is a mystery, even to its designers.'
  71. '<<$teh>>'
  72. if cardrive = 1:'Through the windshield, you see St. Petersburg''s residential area.'
  73. if cardrive = 2:'Through the windshield, you see St. Petersburg''s city center.'
  74. if cardrive = 3:'Through the windshield, you see St. Petersburg''s industrial region.'
  75. if cardrive = 4:'Through the windshield, you see the lake.'
  76. if cardrive = 5:'Through the windshield, you can see the park.'
  77. if cardrive = 6:'Through the windshield, you can see the gas station in the city industrial region.'
  78. if cardrive = 7:'Through the windshield, you can see the car service centre.'
  79. if cardrive = 9:'Through the windshield, you can see many of the cars for sale outside the showroom.'
  80. if cardrive = 10:'Through the windshield, you can see hookers outside the park.'
  81. if cardrive = 11:'Through the windshield, you can see the sauna.'
  82. if cardrive = 12:'Through the windshield, you see a construction site.'
  83. if cardrive = 13:'Through the windshield, you can see the suburban cooperative.'
  84. if cardrive = 14:'Through the windshield, you see the Old Town district of Pavlovsk.'
  85. if cardrive = 18:'Through the windshield, you can see your mansion.'
  86. if cardrive = 19:'Through the windshield, you see the city industrial region train station.'
  87. if cardrive = 20:'Through the windshield, you can see Pavlovsk''s residential area.'
  88. if cardrive = 21:'Through the windshield, you can see the gas station near Pavlovsk.'
  89. if cardrive = 22:'Through the windshield, you can see the highway.'
  90. if cardrive = 23:'Through the windshield, you see the huts of the village of Gadukino.'
  91. if cardrive = 24:'Through the windshield, you can see Pavlovsk''s commercial region.'
  92. if cardrive = 25:'You cross one of the bridges that leads to the island.'
  93. if cardrive = 26:'Through the windshield, you can see Pavlovsk''s industrial region.'
  94. if prava = 0:'You don''t have a driver''s license.'
  95. act 'Get out of the car':dynamic $enddrive
  96. if benz > 0 and wrek = 0 and prava > 0:
  97. if teh >= tehcar * 75 / 100 and wrek = 0:
  98. wrekrand = rand(0, 1000)
  99. if wrekrand = 1000:wrek = 1
  100. elseif teh < tehcar * 75 / 100 and teh >= tehcar * 50/100 and wrek = 0:
  101. wrekrand = rand(0, 100)
  102. if wrekrand = 100:wrek = 1
  103. elseif teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:
  104. wrekrand = rand(0, 100)
  105. if wrekrand >= 80:wrek = 1
  106. elseif teh < tehcar * 25 / 100 and wrek = 0:
  107. wrekrand = rand(0, 100)
  108. if wrekrand >= 40:wrek = 1
  109. elseif wrek = 1:
  110. 'Something clatters loudly, and the engine stalls.'
  111. act 'Fuck':gt 'carF', 'salon'
  112. end
  113. if alko > 0:
  114. dpsrand = rand(0, 100)
  115. if dpsrand <= 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. exit
  134. end
  135. elseif alko >= 10:
  136. avarand = rand(0, 100)
  137. if avarand >= 50:
  138. teh = teh/2
  139. wrek = 1
  140. 'Driving drunken, you crash into a tree and wreck your car.'
  141. act 'In the salon':gt 'carF', 'salon'
  142. exit
  143. end
  144. end
  145. if wrek = 0:
  146. if (cardrive = 22 and nroad >= 18) or cardrive = 14 or cardrive = 20 or cardrive = 21 or cardrive = 24 or cardrive = 26:
  147. car_town = 0
  148. act 'Go to local destination': gs 'carF', 'pav'
  149. act 'Go to the city':
  150. minut += 65
  151. *nl
  152. 'You drive for more than an hour on the highway before you get to the city.'
  153. gs 'carF', 'city'
  154. end
  155. act 'Go to another destination':
  156. minut += 30
  157. *nl
  158. 'You drive out of Pavlovsk.'
  159. gs 'carF', 'other'
  160. end
  161. elseif cardrive <= 11 or cardrive = 25:
  162. car_town = 1
  163. act 'Go to another city destination': gs 'carF', 'city'
  164. act 'Go to Pavlosvsk':
  165. minut += 65
  166. *nl
  167. 'You drive for more than an hour on the highway before you get to the town of Pavlovsk.'
  168. gs 'carF', 'pav'
  169. end
  170. act 'Go to another destination':
  171. minut += 30
  172. *nl
  173. 'You drive out of the city.'
  174. gs 'carF', 'other'
  175. end
  176. else
  177. car_town = 2
  178. act 'Go to a city destination':
  179. minut += 30
  180. *nl
  181. 'You drive for half an hour on the highway before you get to the city.'
  182. gs 'carF', 'city'
  183. end
  184. act 'Go to a Pavlosvsk destination':
  185. minut += 30
  186. *nl
  187. 'You drive for half an hour on the highway before you get to the town of Pavlovsk.'
  188. gs 'carF', 'pav'
  189. end
  190. act 'Go to another destination': gs 'carF', 'other'
  191. end
  192. end
  193. end
  194. end
  195. if $ARGS[0] = 'other':
  196. cla
  197. if home_owned[5] > 0 and cardrive ! 18:
  198. act 'Go to your mansion':
  199. cla
  200. if car_town ! 1:
  201. minut += 60
  202. benz -= 1
  203. teh -= rand(1, 3)
  204. cardrive = 18
  205. else
  206. minut += 10
  207. benz -= 1
  208. teh -= rand(1, 3)
  209. cardrive = 18
  210. end
  211. 'You drive to your mansion.'
  212. dynamic $enddrive
  213. end
  214. end
  215. if cardrive ! 12:
  216. act 'Go to the construction site':
  217. cla
  218. if car_town ! 1:
  219. minut += 55
  220. 'It takes nearly an hour to get to your destination.'
  221. else
  222. minut += 15
  223. '15 minutes later, you arrive at your destination.'
  224. end
  225. benz -= 1
  226. teh -= rand(2, 5)
  227. cardrive = 12
  228. dynamic $enddrive
  229. end
  230. end
  231. if cardrive ! 13:
  232. act 'Go to the Suburban Cooperative':
  233. cla
  234. if car_town ! 1:
  235. minut += 45
  236. 'It takes three quarters of an hour to get to your destination.'
  237. else
  238. minut += 25
  239. '25 minutes later, you arrive at your destination.'
  240. end
  241. benz -= 1
  242. teh -= rand(2, 5)
  243. cardrive = 13
  244. dynamic $enddrive
  245. end
  246. end
  247. if cardrive ! 23:
  248. act 'Go to the village of Gadukino':
  249. cla
  250. benz = benz - 1
  251. teh = teh - RAND(3,6)
  252. cardrive = 23
  253. if car_town ! 0:
  254. minut += 55
  255. 'You spend about an hour on the highway going to Gadukino.'
  256. else
  257. minut += 15
  258. '15 minutes later, you reach your destination.'
  259. end
  260. dynamic $enddrive
  261. end
  262. end
  263. act 'Drive around the local track (1:00)':
  264. cla
  265. minut += 60
  266. benz -= 4
  267. teh -= rand(2, 6)
  268. pcs_mood += 20
  269. wipo += 10
  270. 'You go to the track and have fun driving around before leaving.'
  271. act 'Finish':xgt 'carF', 'salon'
  272. end
  273. end
  274. if $ARGS[0] = 'pav':
  275. cla
  276. if cardrive ! 26:
  277. act 'Go to Pavlovsk''s Industrial Region':
  278. cla
  279. minut += 5
  280. benz -= 1
  281. teh -= rand(1, 3)
  282. cardrive = 26
  283. '5 minutes later, you reach your destination.'
  284. dynamic $enddrive
  285. end
  286. end
  287. if cardrive ! 20:
  288. act 'Go to Pavlovsk''s Residential Area':
  289. cla
  290. minut += 5
  291. benz -= 1
  292. teh -= rand(1, 3)
  293. cardrive = 20
  294. '5 minutes later, you reach your destination.'
  295. dynamic $enddrive
  296. end
  297. end
  298. if cardrive ! 24:
  299. act 'Go to Pavlovsk''s Commercial Region':
  300. cla
  301. minut += 5
  302. benz -= 1
  303. teh -= rand(1, 3)
  304. cardrive = 24
  305. '5 minutes later, you reach your destination.'
  306. dynamic $enddrive
  307. end
  308. end
  309. if cardrive ! 14:
  310. act 'Go to Old Town district of Pavlovsk':
  311. cla
  312. benz -= 1
  313. teh -= rand(2, 5)
  314. cardrive = 14
  315. minut += 5
  316. '5 minutes later, you reach Old Town district of Pavlovsk.'
  317. dynamic $enddrive
  318. end
  319. end
  320. if cardrive ! 21:
  321. act 'Go to the gas station':
  322. cla
  323. minut += 5
  324. benz -= 1
  325. teh -= rand(1, 3)
  326. cardrive = 21
  327. '5 minutes later, you reach your destination.'
  328. dynamic $enddrive
  329. end
  330. end
  331. end
  332. if $ARGS[0] = 'city':
  333. cla
  334. if cardrive ! 3:
  335. act 'Go to St. Petersburg''s Industrial Region':
  336. cla
  337. minut += 5
  338. benz -= 1
  339. teh -= rand(1, 3)
  340. cardrive = 3
  341. 'You drive for more than an hour on the highway before you get to the city.'
  342. dynamic $enddrive
  343. end
  344. end
  345. if cardrive ! 1:
  346. act 'Go to St. Petersburg''s residential area':
  347. cla
  348. minut += 5
  349. benz -= 1
  350. teh -= rand(1, 3)
  351. cardrive = 1
  352. 'You drive for more than an hour on the highway before you get to St. Petersburg''s residential area.'
  353. dynamic $enddrive
  354. end
  355. end
  356. if cardrive ! 2:
  357. act 'Go to St. Petersburg city center':
  358. cla
  359. minut += 5
  360. benz -= 1
  361. teh -= rand(1, 3)
  362. cardrive = 2
  363. 'You drive for more than an hour on the highway before you get to St. Petersburg city center.'
  364. dynamic $enddrive
  365. end
  366. end
  367. if cardrive ! 19 and cardrive < 20:
  368. act 'Go to the city train station':
  369. cla
  370. minut += 5
  371. benz -= 1
  372. teh -= rand(1, 3)
  373. cardrive = 19
  374. '5 minutes later, you arrive at your destination.'
  375. dynamic $enddrive
  376. end
  377. end
  378. if cardrive ! 4 and cardrive < 20:
  379. act 'Go to the city lake':
  380. cla
  381. minut += 5
  382. benz -= 1
  383. teh -= rand(1, 3)
  384. cardrive = 4
  385. '5 minutes later, you arrive at your destination.'
  386. dynamic $enddrive
  387. end
  388. end
  389. if cardrive ! 5 and cardrive < 20:
  390. act 'Go to the city park':
  391. cla
  392. minut += 5
  393. benz -= 1
  394. teh -= rand(1, 3)
  395. cardrive = 5
  396. '5 minutes later, you arrive at your destination.'
  397. dynamic $enddrive
  398. end
  399. end
  400. if cardrive ! 6 and cardrive < 20:
  401. act 'Go to the gas station':
  402. cla
  403. minut += 5
  404. benz -= 1
  405. teh -= rand(1, 3)
  406. cardrive = 6
  407. '5 minutes later, you arrive at your destination.'
  408. dynamic $enddrive
  409. end
  410. end
  411. if cardrive ! 7 and cardrive < 20:
  412. act 'Go to the auto repair shop':
  413. cla
  414. minut += 5
  415. benz -= 1
  416. teh -= rand(1, 3)
  417. cardrive = 7
  418. '5 minutes later, you arrive at your destination.'
  419. dynamic $enddrive
  420. end
  421. end
  422. if cardrive ! 8 and cardrive < 20:
  423. act 'Go to the car dealership':
  424. cla
  425. minut += 5
  426. benz -= 1
  427. teh -= rand(1, 3)
  428. cardrive = 8
  429. '5 minutes later, you arrive at your destination.'
  430. dynamic $enddrive
  431. end
  432. end
  433. if cardrive ! 25 and cardrive < 20:
  434. act 'Go to the island':
  435. cla
  436. minut += 5
  437. benz -= 1
  438. teh -= rand(1, 3)
  439. cardrive = 25
  440. '5 minutes later, you arrive at your destination.'
  441. dynamic $enddrive
  442. end
  443. end
  444. end
  445. --- carF ---------------------------------