1
0

carF.qsrc 11 KB

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