carF 11 KB

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