carF 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441
  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 = 18:gt 'youplace'
  16. if cardrive = 19:gt 'road'
  17. if cardrive = 20:gt 'gorodok'
  18. if cardrive = 21:gt 'zaprF', 'start'
  19. }
  20. if $ARGS[0] = 'start':
  21. $metka = $ARGS[0]
  22. $loc = $CURLOC
  23. cla
  24. *clr
  25. gs 'stat'
  26. set minut += 1
  27. clr
  28. fcolor = rgb(0, 0, 0)
  29. bcolor = rgb(255, 255, 255)
  30. lcolor = rgb(106, 90, 205)
  31. '<center><b><<$car>></b></center>'
  32. if car = 1:'<center><img src="images/picar/car.jpg"></center>'
  33. if car = 2:'<center><img src="images/picar/car2.jpg"></center>'
  34. if car = 3:'<center><img src="images/picar/car3.jpg"></center>'
  35. if car = 4:'<center><img src="images/picar/car4.jpg"></center>'
  36. if car = 5:'<center><img src="images/picar/car5.jpg"></center>'
  37. if car = 6:'<center><img src="images/picar/car6.jpg"></center>'
  38. if car = 7:'<center><img src="images/picar/car7.jpg"></center>'
  39. if car = 8:'<center><img src="images/picar/car8.jpg"></center>'
  40. if car = 9:'<center><img src="images/picar/car9.jpg"></center>'
  41. if car = 10:'<center><img src="images/picar/car10.jpg"></center>'
  42. if car = 11:'<center><img src="images/picar/car11.jpg"></center>'
  43. if car = 12:'<center><img src="images/picar/car12.jpg"></center>'
  44. if car = 13:'<center><img src="images/picar/car13.jpg"></center>'
  45. if car = 14:'<center><img src="images/picar/car14.jpg"></center>'
  46. if car = 15:'<center><img src="images/picar/car15.jpg"></center>'
  47. if car = 16:'<center><img src="images/picar/car16.jpg"></center>'
  48. if car = 17:'<center><img src="images/picar/car17.jpg"></center>'
  49. if car = 18:'<center><img src="images/picar/car18.jpg"></center>'
  50. if car = 19:'<center><img src="images/picar/car19.jpg"></center>'
  51. if car = 20:'<center><img src="images/picar/car20.jpg"></center>'
  52. if car = 21:'<center><img src="images/picar/car21.jpg"></center>'
  53. if car = 22:'<center><img src="images/picar/car22.jpg"></center>'
  54. if car = 23:'<center><img src="images/picar/car23.jpg"></center>'
  55. if car = 24:'<center><img src="images/picar/car24.jpg"></center>'
  56. if car = 25:'<center><img src="images/picar/car25.jpg"></center>'
  57. if car = 26:'<center><img src="images/picar/car26.jpg"></center>'
  58. if car = 27:'<center><img src="images/picar/car27.jpg"></center>'
  59. if car = 28:'<center><img src="images/picar/car28.jpg"></center>'
  60. if car = 29:'<center><img src="images/picar/car29.jpg"></center>'
  61. if car = 30:'<center><img src="images/picar/car30.jpg"></center>'
  62. if car = 95:'<center><img src="images/picar/car95.jpg"></center>'
  63. if car = 96:'<center><img src="images/picar/car96.jpg"></center>'
  64. if car = 97:'<center><img src="images/picar/car97.jpg"></center>'
  65. if car = 98:'<center><img src="images/picar/car98.jpg"></center>'
  66. if car = 99:'<center><img src="images/picar/car99.jpg"></center>'
  67. if car = 100:'<center><img src="images/picar/car100.jpg"></center>'
  68. act 'Move away from the machine':dynamic $enddrive
  69. if kanistra > 0:
  70. 'In the trunk <<kanistra>> pc. five-liter jerry cans of gasoline.'
  71. if benz <= 35:
  72. act 'Pour canister into the tank':
  73. cla
  74. set benz += 5
  75. set kanistra -= 1
  76. 'You filled canister of gasoline in the tank.'
  77. act 'Move away':gt 'carF', 'start'
  78. end
  79. end
  80. end
  81. act 'Get in the car':gt 'carF', 'salon'
  82. end
  83. if $ARGS[0] = 'salon':
  84. $metka = $ARGS[0]
  85. $loc = $CURLOC
  86. cla
  87. *clr
  88. gs 'stat'
  89. set minut += 1
  90. clr
  91. '<center><b><<$car>></b></center>'
  92. if car = 1:'<center><img src="images/picar/salon.jpg"></center>'
  93. if car = 2:'<center><img src="images/picar/salon2.jpg"></center>'
  94. if car = 3:'<center><img src="images/picar/salon3.jpg"></center>'
  95. if car = 4:'<center><img src="images/picar/salon4.jpg"></center>'
  96. if car = 5:'<center><img src="images/picar/salon5.jpg"></center>'
  97. if car = 6:'<center><img src="images/picar/salon6.jpg"></center>'
  98. if car = 7:'<center><img src="images/picar/salon7.jpg"></center>'
  99. if car = 8:'<center><img src="images/picar/salon8.jpg"></center>'
  100. if car = 9:'<center><img src="images/picar/salon9.jpg"></center>'
  101. if car = 10:'<center><img src="images/picar/salon10.jpg"></center>'
  102. if car = 11:'<center><img src="images/picar/salon11.jpg"></center>'
  103. if car = 12:'<center><img src="images/picar/salon12.jpg"></center>'
  104. if car = 13:'<center><img src="images/picar/salon13.jpg"></center>'
  105. if car = 14:'<center><img src="images/picar/salon14.jpg"></center>'
  106. if car = 15:'<center><img src="images/picar/salon15.jpg"></center>'
  107. if car = 16:'<center><img src="images/picar/salon16.jpg"></center>'
  108. if car = 17:'<center><img src="images/picar/salon17.jpg"></center>'
  109. if car = 18:'<center><img src="images/picar/salon18.jpg"></center>'
  110. if car = 19:'<center><img src="images/picar/salon19.jpg"></center>'
  111. if car = 20:'<center><img src="images/picar/salon20.jpg"></center>'
  112. if car = 21:'<center><img src="images/picar/salon21.jpg"></center>'
  113. if car = 22:'<center><img src="images/picar/salon22.jpg"></center>'
  114. if car = 23:'<center><img src="images/picar/salon23.jpg"></center>'
  115. if car = 24:'<center><img src="images/picar/salon24.jpg"></center>'
  116. if car = 25:'<center><img src="images/picar/salon25.jpg"></center>'
  117. if car = 26:'<center><img src="images/picar/salon26.jpg"></center>'
  118. if car = 27:'<center><img src="images/picar/salon27.jpg"></center>'
  119. if car = 28:'<center><img src="images/picar/salon28.jpg"></center>'
  120. if car = 29:'<center><img src="images/picar/salon29.jpg"></center>'
  121. if car = 30:'<center><img src="images/picar/salon30.jpg"></center>'
  122. if car = 95:'<center><img src="images/picar/salon95.jpg"></center>'
  123. if car = 96:'<center><img src="images/picar/salon96.jpg"></center>'
  124. if car = 97:'<center><img src="images/picar/salon97.jpg"></center>'
  125. if car = 98:'<center><img src="images/picar/salon98.jpg"></center>'
  126. if car = 99:'<center><img src="images/picar/salon99.jpg"></center>'
  127. if car = 100:'<center><img src="images/picar/salon100.jpg"></center>'
  128. 'Gasoline - <<benz>>l, fuel tank capacity of 40 liters.'
  129. if teh <= 0:set teh = 0 & set wrek = 1
  130. if wrek = 1 or teh <= 0:set $teh = 'Car will not start, it needs repairs.'
  131. if teh >= tehcar * 75 / 100 and wrek = 0:set $teh = 'Machine in excellent condition.'
  132. if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:set $teh = 'When moving the machine you have any noises'
  133. if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:set $teh = 'Car crash and barely rides.'
  134. if teh < tehcar * 25 / 100 and wrek = 0:set $teh = 'As this bowl can still go, is a mystery even to the designers.'
  135. '<<$teh>>'
  136. if cardrive = 1:'Through the windshield you see the residential area.'
  137. if cardrive = 2:'Through the windshield you see downtown.'
  138. if cardrive = 3:'Through the windshield you see the northern region.'
  139. if cardrive = 4:'Through the windshield you see the lake.'
  140. if cardrive = 5:'Through the windshield you see the park.'
  141. if prava = 0:'You have no rights.'
  142. act 'Out of the car':dynamic $enddrive
  143. if benz > 0 and wrek = 0 and prava > 0:
  144. if teh >= tehcar * 75/100 and wrek = 0:
  145. set wrekrand = rand(0, 1000)
  146. if wrekrand = 1000:set wrek = 1
  147. end
  148. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0:
  149. set wrekrand = rand(0, 100)
  150. if wrekrand = 100:set wrek = 1
  151. end
  152. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0:
  153. set wrekrand = rand(0, 100)
  154. if wrekrand >= 80:set wrek = 1
  155. end
  156. if teh < tehcar*25/100 and wrek = 0:
  157. set wrekrand = rand(0, 100)
  158. if wrekrand >= 40:set wrek = 1
  159. end
  160. if wrek = 1:
  161. 'Something clattered loudly and the engine stalled.'
  162. act 'Fuck':gt 'carF', 'salon'
  163. end
  164. if alko > 0:
  165. dpsrand = rand(0, 100)
  166. if dpsrand <= alko:
  167. 'Policeman stops you, he looks at your condition and requests to breath into a tube. You breathe and instrument panel lights red lamochka.'
  168. 'Traffic police snorts and writes something in his cell, and then shows you. There is written sms with the number 50000'
  169. 'Or let´s make the report. Now operates divestment forever for driving not sober.'
  170. if money >= 50000:
  171. act 'Give a bribe (50,000 rubles)':
  172. cla
  173. money = money - 50000
  174. 'You pay and the policeman warns you that you will not be riding in this state.'
  175. act 'In the salon':gt 'carF', 'salon'
  176. end
  177. end
  178. act 'Come on, all under the law':
  179. cla
  180. prava = 0
  181. 'Disempower you, not for driving sober.'
  182. act 'In the salon':gt 'carF', 'salon'
  183. end
  184. exit
  185. end
  186. end
  187. if alko >= 10:
  188. avarand = rand(0, 100)
  189. if avarand >= 50:
  190. teh = teh / 2
  191. wrek = 1
  192. 'You with a drunk crashed into a tree, breaking the car into pieces.'
  193. act 'In the salon':gt 'carF', 'salon'
  194. exit
  195. end
  196. end
  197. if wrek = 0:
  198. if cardrive >= 20:
  199. if cardrive ! 3:
  200. act 'Go to town':
  201. cla
  202. set minut += 75
  203. set benz -= 1
  204. set teh -= rand(3, 6)
  205. set cardrive = 3
  206. 'You are more than an hour drive on the highway that would get here before the city.'
  207. dynamic $enddrive
  208. end
  209. end
  210. if cardrive ! 21:
  211. act 'Go to the gas station':
  212. cla
  213. set minut += 15
  214. set benz -= 1
  215. set teh -= rand(1, 3)
  216. set cardrive = 21
  217. 'You get 15 minutes to the destination.'
  218. dynamic $enddrive
  219. end
  220. end
  221. end
  222. if placeMansion > 0 and cardrive ! 18:
  223. act 'Go to your site':
  224. cla
  225. if cardrive >= 20:
  226. set minut += 60
  227. set benz -= 1
  228. set teh -= rand(1, 3)
  229. set cardrive = 18
  230. else
  231. set minut += 15
  232. set benz -= 1
  233. set teh -= rand(1, 3)
  234. set cardrive = 18
  235. end
  236. 'You drive to the town.'
  237. dynamic $enddrive
  238. end
  239. end
  240. if cardrive ! 1:
  241. act 'Go to the residential area':
  242. cla
  243. set minut += 15
  244. set benz -= 1
  245. set teh -= rand(1, 3)
  246. set cardrive = 1
  247. 'You get 15 minutes to the destination.'
  248. dynamic $enddrive
  249. end
  250. end
  251. if cardrive ! 2:
  252. act 'Go to city center':
  253. cla
  254. set minut += 15
  255. set benz -= 1
  256. set teh -= rand(1, 3)
  257. set cardrive = 2
  258. 'You get 15 minutes to the destination.'
  259. dynamic $enddrive
  260. end
  261. end
  262. if cardrive ! 3:
  263. act 'Go to the northern area':
  264. cla
  265. set minut += 15
  266. set benz -= 1
  267. set teh -= rand(1, 3)
  268. set cardrive = 3
  269. 'You get 15 minutes to the destination.'
  270. dynamic $enddrive
  271. end
  272. end
  273. if cardrive ! 4:
  274. act 'Go to the lake':
  275. cla
  276. set minut += 15
  277. set benz -= 1
  278. set teh -= rand(1, 3)
  279. set cardrive = 4
  280. 'You get 15 minutes to the destination.'
  281. dynamic $enddrive
  282. end
  283. end
  284. if cardrive ! 5:
  285. act 'Go to the park':
  286. cla
  287. set minut += 15
  288. set benz -= 1
  289. set teh -= rand(1, 3)
  290. set cardrive = 5
  291. 'You get 15 minutes to the destination.'
  292. dynamic $enddrive
  293. end
  294. end
  295. if cardrive ! 6:
  296. act 'Go to the gas station':
  297. cla
  298. set minut += 15
  299. set benz -= 1
  300. set teh -= rand(1, 3)
  301. set cardrive = 6
  302. 'You get 15 minutes to the destination.'
  303. dynamic $enddrive
  304. end
  305. end
  306. if cardrive ! 7:
  307. act 'Go to the car wash':
  308. cla
  309. set minut += 15
  310. set benz -= 1
  311. set teh -= rand(1, 3)
  312. set cardrive = 7
  313. 'You get 15 minutes to the destination.'
  314. dynamic $enddrive
  315. end
  316. end
  317. if cardrive ! 8:
  318. act 'Go to a car dealership':
  319. cla
  320. set minut += 15
  321. set benz -= 1
  322. set teh -= rand(1, 3)
  323. set cardrive = 8
  324. 'You get 15 minutes to the destination.'
  325. dynamic $enddrive
  326. end
  327. end
  328. if cardrive ! 9:
  329. act 'Go to the car market':
  330. cla
  331. set minut += 15
  332. set benz -= 1
  333. set teh -= rand(1, 3)
  334. set cardrive = 9
  335. 'You get 15 minutes to the destination.'
  336. dynamic $enddrive
  337. end
  338. end
  339. if cardrive ! 12:
  340. act 'Go on to':
  341. cla
  342. set minut += 60
  343. set benz -= 1
  344. set teh -= rand(2, 5)
  345. set cardrive = 12
  346. 'You get 15 minutes to the destination.'
  347. dynamic $enddrive
  348. end
  349. end
  350. if cardrive ! 20:
  351. act 'Go to town':
  352. cla
  353. set minut += 75
  354. set benz -= 1
  355. set teh -= rand(3, 6)
  356. set cardrive = 20
  357. 'You eat more than an hour on the highway to the town.'
  358. dynamic $enddrive
  359. end
  360. end
  361. act 'Go around the track (1:00)':
  362. cla
  363. 'You go on the road.'
  364. numberRoad = input("In which city will stop (from 0 to 20)")
  365. if numberRoad >= 0 and numberRoad <= 20:
  366. set cardrive = 19
  367. set nroad = numberRoad
  368. set ncarroad = numberRoad
  369. end
  370. xgt 'carF', 'salon'
  371. end
  372. act 'To drive on the track (1:00)':
  373. cla
  374. set minut += 60
  375. set benz -= 4
  376. set teh -= rand(2, 6)
  377. set manna += 20
  378. set wipo += 10
  379. 'You go to the track and having fun Likhachev, then turn back.'
  380. act 'Finish':xgt 'carF', 'salon'
  381. end
  382. end
  383. end
  384. end
  385. --- carF ---------------------------------