1
0

carF.qsrc 12 KB

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