1
0

carF 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453
  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 machine':dynamic $enddrive
  39. if kanistra > 0:
  40. 'In the trunk <<kanistra>> pc. five-liter jerry cans of gasoline.'
  41. if benz <= 35:
  42. act 'Pour canister into the tank':
  43. cla
  44. benz += 5
  45. kanistra -= 1
  46. 'You filled 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, fuel tank capacity of 40 liters.'
  64. if teh <= 0:teh = 0 & wrek = 1
  65. if teh <= 0 or wrek = 1:$teh = 'Car will not start, it needs repairs.'
  66. if teh >= tehcar * 75 / 100 and wrek = 0:$teh = 'Machine in excellent condition.'
  67. if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:$teh = 'When moving the machine you have any noises'
  68. if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:$teh = 'Car crash and barely rides.'
  69. if teh < tehcar * 25 / 100 and wrek = 0:$teh = 'As this bowl can still go, 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 Station.'
  78. if cardrive = 23:'Through the windshield you see huts of the village Gadyukino.'
  79. if cardrive = 24:'Through the windshield, you can see the Old Town.'
  80. if prava = 0:'You have no rights.'
  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 clattered loudly and the engine stalled.'
  97. act 'Fuck':gt 'carF', 'salon'
  98. end
  99. if alko > 0:
  100. dpsrand = rand(0, 100)
  101. if dpsrand <= alko:
  102. 'Policeman stops you, he looks at your condition and requests to breath into a tube. You breathe and instrument panel lights red lamochka.'
  103. 'Traffic police snorts and writes something in his cell, and then shows you. There is written sms with the number 50000'
  104. 'Or let''s make the report. Now operates divestment forever for driving not sober.'
  105. if money >= 50000:
  106. act 'Give a bribe (50,000 <b>₽</b>)':
  107. cla
  108. money = money - 50000
  109. 'You pay and the policeman warns you that you will not be riding in this state.'
  110. act 'In the salon':gt 'carF', 'salon'
  111. end
  112. end
  113. act 'Come on, all under the law':
  114. cla
  115. prava = 0
  116. 'Disempower you, not for 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 /= 2
  125. wrek = 1
  126. 'You with a drunk crashed into a tree, breaking the car into pieces.'
  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 are more than an hour drive on the highway that would get here before 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. 'You get 15 minutes to the destination.'
  152. dynamic $enddrive
  153. end
  154. end
  155. end
  156. if placeMansion > 0 and cardrive ! 18:
  157. act 'Go to your site':
  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 the town.'
  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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'For you 15 minutes, get to 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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'You get 15 minutes to the 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. 'You get an hour to your destination.'
  290. else
  291. minut += 15
  292. 'For you 15 minutes, get to 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 eat more than an hour on the highway in Pavlovsk.'
  341. else
  342. minut += 15
  343. 'For you 15 minutes, get to 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 on the road.'
  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 'To 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 Likhachev, then turn back.'
  383. act 'Finish':xgt 'carF', 'salon'
  384. end
  385. end
  386. end
  387. end
  388. --- carF ---------------------------------