1
0

carF 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454
  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 = 18:gt 'youplace'
  17. if cardrive = 19:gt'vokzal'
  18. if cardrive = 20:gt 'pavResidential'
  19. if cardrive = 21:gt'zaprF','start'
  20. if cardrive = 22:gt'road'
  21. if cardrive = 23:gt'Gaddvor'
  22. if cardrive = 24:gt'pavCommercial'
  23. }
  24. if $ARGS[0] = 'start':
  25. $metka = $ARGS[0]
  26. $loc = $CURLOC
  27. CLOSE ALL
  28. cla
  29. clr
  30. *clr
  31. minut += 1
  32. gs 'stat'
  33. fcolor = rgb(0, 0, 0)
  34. bcolor = rgb(255, 255, 255)
  35. lcolor = rgb(106, 90, 205)
  36. '<center><b><<$car>></b></center>'
  37. '<center><img src="images/picar/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 liter of gasoline.'
  41. if benz <= 35:
  42. act 'Pour the 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 src="images/picar/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 won''t start, it needs to be repaired.'
  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 the car you can hear some 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 works is a mystery even to the 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 northern 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 = 5:'Through the windshield, you can see the park.'
  77. if cardrive = 19:'Through the windshield you see the Station.'
  78. if cardrive = 23:'Through the windshield you see the huts of the village Gadyukino.'
  79. if cardrive = 24:'Through the windshield, you can see the Old Town.'
  80. if prava = 0:'You don''t have a driving license.'
  81. act 'Out of the car':dynamic $enddrive
  82. if benz > 0 and wrek = 0 and prava > 0:
  83. if teh >= tehcar * 75 / 100 and wrek = 0:
  84. wrekrand = rand(0, 1000)
  85. if wrekrand = 1000:wrek = 1
  86. elseif teh < tehcar * 75 / 100 and teh >= tehcar * 50/100 and wrek = 0:
  87. wrekrand = rand(0, 100)
  88. if wrekrand = 100:wrek = 1
  89. elseif teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:
  90. wrekrand = rand(0, 100)
  91. if wrekrand >= 80:wrek = 1
  92. elseif teh < tehcar * 25 / 100 and wrek = 0:
  93. wrekrand = rand(0, 100)
  94. if wrekrand >= 40:wrek = 1
  95. elseif wrek = 1:
  96. 'Something clatters loudly and the engine stalls.'
  97. act 'Fuck':gt 'carF', 'salon'
  98. end
  99. if alko > 0:
  100. dpsrand = rand(0, 100)
  101. if dpsrand <= alko:
  102. 'A policeman stops you, he looks at your condition and requests you to breath into a tube. You breathe and a red light lights up on the instrument panel.'
  103. 'The traffic policeman snorts and writes something down. He hand you a paper with the number 50000 on it'
  104. '"Or I can write a report. But you will get a permanent record for driving drunk."'
  105. if money >= 50000:
  106. act 'Bribe him (50,000 <b>₽</b>)':
  107. cla
  108. money = money - 50000
  109. 'You pay and the policeman warns you that you can not keep driving in your drunken state.'
  110. act 'In the salon':gt 'carF', 'salon'
  111. end
  112. end
  113. act 'Come on, this is within the law':
  114. cla
  115. prava = 0
  116. '"I can take your license, for not driving sober."'
  117. act 'In the salon':gt 'carF', 'salon'
  118. end
  119. exit
  120. end
  121. elseif alko >= 10:
  122. avarand = rand(0, 100)
  123. if avarand >= 50:
  124. teh = teh/2
  125. wrek = 1
  126. 'Driving drunk you crash into a tree, wrecking your car.'
  127. act 'In the salon':gt 'carF', 'salon'
  128. exit
  129. end
  130. end
  131. if wrek = 0:
  132. if cardrive >= 20:
  133. if cardrive ! 3:
  134. act 'Go to town':
  135. cla
  136. minut += 75
  137. benz -= 1
  138. teh -= rand(3, 6)
  139. cardrive = 3
  140. 'You drive for more than an hour on the highway before you get to the city.'
  141. dynamic $enddrive
  142. end
  143. end
  144. if cardrive ! 21:
  145. act 'Go to the gas station':
  146. cla
  147. minut += 15
  148. benz -= 1
  149. teh -= rand(1, 3)
  150. cardrive = 21
  151. '15 minutes later, you arrive at your destination.'
  152. dynamic $enddrive
  153. end
  154. end
  155. end
  156. if placeMansion > 0 and cardrive ! 18:
  157. act 'Go to your mansion':
  158. cla
  159. if cardrive >= 20:
  160. minut += 60
  161. benz -= 1
  162. teh -= rand(1, 3)
  163. cardrive = 18
  164. else
  165. minut += 15
  166. benz -= 1
  167. teh -= rand(1, 3)
  168. cardrive = 18
  169. end
  170. 'You drive to your mansion.'
  171. dynamic $enddrive
  172. end
  173. end
  174. if cardrive ! 1 and cardrive < 20:
  175. act 'Go to the residential area':
  176. cla
  177. minut += 15
  178. benz -= 1
  179. teh -= rand(1, 3)
  180. cardrive = 1
  181. '15 minutes later, you arrive at your destination.'
  182. dynamic $enddrive
  183. end
  184. end
  185. if cardrive ! 2 and cardrive < 20:
  186. act 'Go to city center':
  187. cla
  188. minut += 15
  189. benz -= 1
  190. teh -= rand(1, 3)
  191. cardrive = 2
  192. '15 minutes later, you arrive at your destination.'
  193. dynamic $enddrive
  194. end
  195. end
  196. if cardrive ! 3 and cardrive < 20:
  197. act 'Go to the northern area':
  198. cla
  199. minut += 15
  200. benz -= 1
  201. teh -= rand(1, 3)
  202. cardrive = 3
  203. '15 minutes later, you arrive at your destination.'
  204. dynamic $enddrive
  205. end
  206. end
  207. if cardrive ! 19 and cardrive < 20:
  208. act 'Go to the station':
  209. cla
  210. minut = minut + 15
  211. benz = benz - 1
  212. teh = teh - RAND(1,3)
  213. cardrive = 19
  214. '15 minutes later, you arrive at your destination.'
  215. dynamic $enddrive
  216. end
  217. end
  218. if cardrive ! 4 and cardrive < 20:
  219. act 'Go to the lake':
  220. cla
  221. minut += 15
  222. benz -= 1
  223. teh -= rand(1, 3)
  224. cardrive = 4
  225. '15 minutes later, you arrive at your destination.'
  226. dynamic $enddrive
  227. end
  228. end
  229. if cardrive ! 5 and cardrive < 20:
  230. act 'Go to the park':
  231. cla
  232. minut += 15
  233. benz -= 1
  234. teh -= rand(1, 3)
  235. cardrive = 5
  236. '15 minutes later, you arrive at your destination.'
  237. dynamic $enddrive
  238. end
  239. end
  240. if cardrive ! 6 and cardrive < 20:
  241. act 'Go to the gas station':
  242. cla
  243. minut += 15
  244. benz -= 1
  245. teh -= rand(1, 3)
  246. cardrive = 6
  247. '15 minutes later, you arrive at your destination.'
  248. dynamic $enddrive
  249. end
  250. end
  251. if cardrive ! 7 and cardrive < 20:
  252. act 'Go to the car wash':
  253. cla
  254. minut += 15
  255. benz -= 1
  256. teh -= rand(1, 3)
  257. cardrive = 7
  258. '15 minutes later, you arrive at your destination.'
  259. dynamic $enddrive
  260. end
  261. end
  262. if cardrive ! 8 and cardrive < 20:
  263. act 'Go to a car dealership':
  264. cla
  265. minut += 15
  266. benz -= 1
  267. teh -= rand(1, 3)
  268. cardrive = 8
  269. '15 minutes later, you arrive at your destination.'
  270. dynamic $enddrive
  271. end
  272. end
  273. if cardrive ! 9 and cardrive < 20:
  274. act 'Go to the car market':
  275. cla
  276. minut += 15
  277. benz -= 1
  278. teh -= rand(1, 3)
  279. cardrive = 9
  280. '15 minutes later, you arrive at your destination.'
  281. dynamic $enddrive
  282. end
  283. end
  284. if cardrive ! 12:
  285. act 'Go to the construction site':
  286. cla
  287. if cardrive < 20:
  288. minut += 60
  289. 'It takes an hour to get to your destination.'
  290. else
  291. minut += 15
  292. '15 minutes later, you arrive at your destination.'
  293. end
  294. benz -= 1
  295. teh -= rand(2, 5)
  296. cardrive = 12
  297. dynamic $enddrive
  298. end
  299. end
  300. if cardrive ! 13:
  301. act 'Go to the Suburban Cooperative':
  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 = 13
  313. dynamic $enddrive
  314. end
  315. end
  316. if cardrive ! 20:
  317. act 'Go to pavResidential':
  318. cla
  319. benz -= 1
  320. teh -= rand(3, 6)
  321. cardrive = 20
  322. if cardrive < 20:
  323. minut += 75
  324. 'You spend more than an hour on the highway going to Pavlovsk.'
  325. else
  326. minut += 15
  327. '15 minutes later, you reach your destination.'
  328. end
  329. dynamic $enddrive
  330. end
  331. end
  332. if cardrive ! 23:
  333. act 'To go to the countryside Gadyukino':
  334. cla
  335. benz = benz - 1
  336. teh = teh - RAND(3,6)
  337. cardrive = 23
  338. if cardrive < 20:
  339. minut += 75
  340. 'You spend more than an hour on the highway going to Gadyukino.'
  341. else
  342. minut += 15
  343. '15 minutes later, you reach your destination.'
  344. end
  345. dynamic $enddrive
  346. end
  347. end
  348. if cardrive ! 24:
  349. act 'Go to pavCommercial':
  350. cla
  351. benz -= 1
  352. teh -= rand(3, 6)
  353. cardrive = 24
  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. act 'Go around the track (1:00)':
  365. cla
  366. 'You go around the track.'
  367. numberRoad = input("In which city will stop (from 0 to 20)")
  368. if numberRoad >= 0 and numberRoad <= 20:
  369. cardrive = 22
  370. nroad = numberRoad
  371. ncarroad = numberRoad
  372. end
  373. xgt 'carF', 'salon'
  374. end
  375. act 'Drive on the track (1:00)':
  376. cla
  377. minut += 60
  378. benz -= 4
  379. teh -= rand(2, 6)
  380. manna += 20
  381. wipo += 10
  382. 'You go to the track and having fun driving around before you turn back.'
  383. act 'Finish':xgt 'carF', 'salon'
  384. end
  385. end
  386. end
  387. end
  388. --- carF ---------------------------------