carF.qsrc 12 KB

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