1
0

carF 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359
  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. *clr
  26. minut += 1
  27. gs 'stat'
  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. '<center><img src="images/picar/car<<car>>.jpg"></center>'
  33. act 'Move away from the machine':dynamic $enddrive
  34. if kanistra > 0:
  35. 'In the trunk <<kanistra>> pc. five-liter jerry cans of gasoline.'
  36. if benz <= 35:
  37. act 'Pour canister into the tank':
  38. cla
  39. benz += 5
  40. kanistra -= 1
  41. 'You filled canister of gasoline in the tank.'
  42. act 'Move away':gt 'carF', 'start'
  43. end
  44. end
  45. end
  46. act 'Get in the car':gt 'carF', 'salon'
  47. end
  48. if $ARGS[0] = 'salon':
  49. $metka = $ARGS[0]
  50. $loc = $CURLOC
  51. cla
  52. clr
  53. *clr
  54. minut += 1
  55. gs 'stat'
  56. '<center><b><<$car>></b></center>'
  57. '<center><img src="images/picar/salon<<car>>.jpg"></center>'
  58. 'Gasoline - <<benz>> liters, fuel tank capacity of 40 liters.'
  59. if teh <= 0:teh = 0 & wrek = 1
  60. if teh <= 0 or wrek = 1:$teh = 'Car will not start, it needs repairs.'
  61. if teh >= tehcar * 75 / 100 and wrek = 0:$teh = 'Machine in excellent condition.'
  62. if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:$teh = 'When moving the machine you have any noises'
  63. if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:$teh = 'Car crash and barely rides.'
  64. if teh < tehcar * 25 / 100 and wrek = 0:$teh = 'As this bowl can still go, is a mystery even to the designers.'
  65. '<<$teh>>'
  66. if cardrive = 1:'Through the windshield you see the residential area.'
  67. if cardrive = 2:'Through the windshield you see downtown.'
  68. if cardrive = 3:'Through the windshield you see the northern region.'
  69. if cardrive = 4:'Through the windshield you see the lake.'
  70. if cardrive = 5:'Through the windshield you see the park.'
  71. if prava = 0:'You have no rights.'
  72. act 'Out of the car':dynamic $enddrive
  73. if benz > 0 and wrek = 0 and prava > 0:
  74. if teh >= tehcar * 75 / 100 and wrek = 0:
  75. wrekrand = rand(0, 1000)
  76. if wrekrand = 1000:wrek = 1
  77. elseif teh < tehcar * 75 / 100 and teh >= tehcar * 50/100 and wrek = 0:
  78. wrekrand = rand(0, 100)
  79. if wrekrand = 100:wrek = 1
  80. elseif teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:
  81. wrekrand = rand(0, 100)
  82. if wrekrand >= 80:wrek = 1
  83. elseif teh < tehcar * 25 / 100 and wrek = 0:
  84. wrekrand = rand(0, 100)
  85. if wrekrand >= 40:wrek = 1
  86. elseif wrek = 1:
  87. 'Something clattered loudly and the engine stalled.'
  88. act 'Fuck':gt 'carF', 'salon'
  89. end
  90. if alko > 0:
  91. dpsrand = rand(0, 100)
  92. if dpsrand <= alko:
  93. 'Policeman stops you, he looks at your condition and requests to breath into a tube. You breathe and instrument panel lights red lamochka.'
  94. 'Traffic police snorts and writes something in his cell, and then shows you. There is written sms with the number 50000'
  95. 'Or let''s make the report. Now operates divestment forever for driving not sober.'
  96. if money >= 50000:
  97. act 'Give a bribe (50,000 rubles)':
  98. cla
  99. money = money - 50000
  100. 'You pay and the policeman warns you that you will not be riding in this state.'
  101. act 'In the salon':gt 'carF', 'salon'
  102. end
  103. end
  104. act 'Come on, all under the law':
  105. cla
  106. prava = 0
  107. 'Disempower you, not for driving sober.'
  108. act 'In the salon':gt 'carF', 'salon'
  109. end
  110. exit
  111. end
  112. elseif alko >= 10:
  113. avarand = rand(0, 100)
  114. if avarand >= 50:
  115. teh /= 2
  116. wrek = 1
  117. 'You with a drunk crashed into a tree, breaking the car into pieces.'
  118. act 'In the salon':gt 'carF', 'salon'
  119. exit
  120. end
  121. end
  122. if wrek = 0:
  123. if cardrive >= 20:
  124. if cardrive ! 3:
  125. act 'Go to town':
  126. cla
  127. minut += 75
  128. benz -= 1
  129. teh -= rand(3, 6)
  130. cardrive = 3
  131. 'You are more than an hour drive on the highway that would get here before the city.'
  132. dynamic $enddrive
  133. end
  134. end
  135. if cardrive ! 21:
  136. act 'Go to the gas station':
  137. cla
  138. minut += 15
  139. benz -= 1
  140. teh -= rand(1, 3)
  141. cardrive = 21
  142. 'You get 15 minutes to the destination.'
  143. dynamic $enddrive
  144. end
  145. end
  146. end
  147. if placeMansion > 0 and cardrive ! 18:
  148. act 'Go to your site':
  149. cla
  150. if cardrive >= 20:
  151. minut += 60
  152. benz -= 1
  153. teh -= rand(1, 3)
  154. cardrive = 18
  155. else
  156. minut += 15
  157. benz -= 1
  158. teh -= rand(1, 3)
  159. cardrive = 18
  160. end
  161. 'You drive to the town.'
  162. dynamic $enddrive
  163. end
  164. end
  165. if cardrive ! 1:
  166. act 'Go to the residential area':
  167. cla
  168. minut += 15
  169. benz -= 1
  170. teh -= rand(1, 3)
  171. cardrive = 1
  172. 'You get 15 minutes to the destination.'
  173. dynamic $enddrive
  174. end
  175. end
  176. if cardrive ! 2:
  177. act 'Go to city center':
  178. cla
  179. minut += 15
  180. benz -= 1
  181. teh -= rand(1, 3)
  182. cardrive = 2
  183. 'You get 15 minutes to the destination.'
  184. dynamic $enddrive
  185. end
  186. end
  187. if cardrive ! 3:
  188. act 'Go to the northern area':
  189. cla
  190. minut += 15
  191. benz -= 1
  192. teh -= rand(1, 3)
  193. cardrive = 3
  194. 'You get 15 minutes to the destination.'
  195. dynamic $enddrive
  196. end
  197. end
  198. if cardrive ! 4:
  199. act 'Go to the lake':
  200. cla
  201. minut += 15
  202. benz -= 1
  203. teh -= rand(1, 3)
  204. cardrive = 4
  205. 'You get 15 minutes to the destination.'
  206. dynamic $enddrive
  207. end
  208. end
  209. if cardrive ! 5:
  210. act 'Go to the park':
  211. cla
  212. minut += 15
  213. benz -= 1
  214. teh -= rand(1, 3)
  215. cardrive = 5
  216. 'You get 15 minutes to the destination.'
  217. dynamic $enddrive
  218. end
  219. end
  220. if cardrive ! 6:
  221. act 'Go to the gas station':
  222. cla
  223. minut += 15
  224. benz -= 1
  225. teh -= rand(1, 3)
  226. cardrive = 6
  227. 'You get 15 minutes to the destination.'
  228. dynamic $enddrive
  229. end
  230. end
  231. if cardrive ! 7:
  232. act 'Go to the car wash':
  233. cla
  234. minut += 15
  235. benz -= 1
  236. teh -= rand(1, 3)
  237. cardrive = 7
  238. 'You get 15 minutes to the destination.'
  239. dynamic $enddrive
  240. end
  241. end
  242. if cardrive ! 8:
  243. act 'Go to a car dealership':
  244. cla
  245. minut += 15
  246. benz -= 1
  247. teh -= rand(1, 3)
  248. cardrive = 8
  249. 'You get 15 minutes to the destination.'
  250. dynamic $enddrive
  251. end
  252. end
  253. if cardrive ! 9:
  254. act 'Go to the car market':
  255. cla
  256. minut += 15
  257. benz -= 1
  258. teh -= rand(1, 3)
  259. cardrive = 9
  260. 'You get 15 minutes to the destination.'
  261. dynamic $enddrive
  262. end
  263. end
  264. if cardrive ! 12:
  265. act 'Go on to':
  266. cla
  267. minut += 60
  268. benz -= 1
  269. teh -= rand(2, 5)
  270. cardrive = 12
  271. 'You get 15 minutes to the destination.'
  272. dynamic $enddrive
  273. end
  274. end
  275. if cardrive ! 20:
  276. act 'Go to town':
  277. cla
  278. minut += 75
  279. benz -= 1
  280. teh -= rand(3, 6)
  281. cardrive = 20
  282. 'You eat more than an hour on the highway to the town.'
  283. dynamic $enddrive
  284. end
  285. end
  286. act 'Go around the track (1:00)':
  287. cla
  288. 'You go on the road.'
  289. numberRoad = input("In which city will stop (from 0 to 20)")
  290. if numberRoad >= 0 and numberRoad <= 20:
  291. cardrive = 19
  292. nroad = numberRoad
  293. ncarroad = numberRoad
  294. end
  295. xgt 'carF', 'salon'
  296. end
  297. act 'To drive on the track (1:00)':
  298. cla
  299. minut += 60
  300. benz -= 4
  301. teh -= rand(2, 6)
  302. manna += 20
  303. wipo += 10
  304. 'You go to the track and having fun Likhachev, then turn back.'
  305. act 'Finish':xgt 'carF', 'salon'
  306. end
  307. end
  308. end
  309. end
  310. --- carF ---------------------------------