1
1

455_carF 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810
  1. # carF
  2. <<<<<<< 455_carF
  3. $enddrive = {
  4. if cardrive = 1: gt 'street'
  5. if cardrive = 2: gt 'down'
  6. if cardrive = 3: gt 'Nord'
  7. if cardrive = 4: gt 'lake','start'
  8. if cardrive = 5: gt 'park','start'
  9. if cardrive = 6: gt 'zaprF','start'
  10. if cardrive = 7: gt 'autoservisF','start'
  11. if cardrive = 8: gt 'autosalonF','start'
  12. if cardrive = 9: gt 'autotraidF','start'
  13. if cardrive = 10: gt 'park','whore'
  14. if cardrive = 11: gt 'sauna'
  15. if cardrive = 12: gt 'obekt'
  16. if cardrive = 17: gt 'dachi'
  17. if cardrive = 18: gt 'youplace'
  18. if cardrive = 19: gt 'road'
  19. if cardrive = 20: gt 'gorodok'
  20. if cardrive = 21: gt 'zaprF','start'
  21. }
  22. if $ARGS[0] = 'start':
  23. $metka = $ARGS[0]
  24. $loc = $CURLOC
  25. cla
  26. *clr
  27. gs 'stat'
  28. set minut += 1
  29. clr
  30. fcolor = rgb(0,0,0)
  31. bcolor = rgb(255,255,255)
  32. LCOLOR = rgb(106,90,205)
  33. '<center><b><<$car>></b></center>'
  34. *nl
  35. if car = 1: '<center><img src="images\picar\car.jpg"></center>'
  36. if car = 2: '<center><img src="images\picar\car2.jpg"></center>'
  37. if car = 3: '<center><img src="images\picar\car3.jpg"></center>'
  38. if car = 4: '<center><img src="images\picar\car4.jpg"></center>'
  39. if car = 5: '<center><img src="images\picar\car5.jpg"></center>'
  40. if car = 6: '<center><img src="images\picar\car6.jpg"></center>'
  41. if car = 7: '<center><img src="images\picar\car7.jpg"></center>'
  42. if car = 8: '<center><img src="images\picar\car8.jpg"></center>'
  43. if car = 9: '<center><img src="images\picar\car9.jpg"></center>'
  44. if car = 10: '<center><img src="images\picar\car10.jpg"></center>'
  45. if car = 11: '<center><img src="images\picar\car11.jpg"></center>'
  46. if car = 12: '<center><img src="images\picar\car12.jpg"></center>'
  47. if car = 13: '<center><img src="images\picar\car13.jpg"></center>'
  48. if car = 14: '<center><img src="images\picar\car14.jpg"></center>'
  49. if car = 15: '<center><img src="images\picar\car15.jpg"></center>'
  50. if car = 16: '<center><img src="images\picar\car16.jpg"></center>'
  51. if car = 17: '<center><img src="images\picar\car17.jpg"></center>'
  52. if car = 18: '<center><img src="images\picar\car18.jpg"></center>'
  53. if car = 19: '<center><img src="images\picar\car19.jpg"></center>'
  54. if car = 20: '<center><img src="images\picar\car20.jpg"></center>'
  55. if car = 21: '<center><img src="images\picar\car21.jpg"></center>'
  56. if car = 22: '<center><img src="images\picar\car22.jpg"></center>'
  57. if car = 23: '<center><img src="images\picar\car23.jpg"></center>'
  58. if car = 24: '<center><img src="images\picar\car24.jpg"></center>'
  59. if car = 25: '<center><img src="images\picar\car25.jpg"></center>'
  60. if car = 26: '<center><img src="images\picar\car26.jpg"></center>'
  61. if car = 27: '<center><img src="images\picar\car27.jpg"></center>'
  62. if car = 28: '<center><img src="images\picar\car28.jpg"></center>'
  63. if car = 29: '<center><img src="images\picar\car29.jpg"></center>'
  64. if car = 30: '<center><img src="images\picar\car30.jpg"></center>'
  65. if car = 95: '<center><img src="images\picar\car95.jpg"></center>'
  66. if car = 96: '<center><img src="images\picar\car96.jpg"></center>'
  67. if car = 97: '<center><img src="images\picar\car97.jpg"></center>'
  68. if car = 98: '<center><img src="images\picar\car98.jpg"></center>'
  69. if car = 99: '<center><img src="images\picar\car99.jpg"></center>'
  70. if car = 100: '<center><img src="images\picar\car100.jpg"></center>'
  71. act 'Move away from the machine': dynamic $enddrive
  72. if kanistra > 0:
  73. 'In the trunk <<kanistra>> pc. five-liter jerry cans of gasoline.'
  74. if benz <= 35:
  75. act 'Pour canister into the tank':
  76. cla
  77. set benz += 5
  78. set kanistra -= 1
  79. 'You filled canister of gasoline in the tank.'
  80. act 'Move away': gt 'carF','start'
  81. end
  82. end
  83. end
  84. act 'Get in the car': gt 'carF','salon'
  85. =======
  86. $enddrive={
  87. if cardrive = 1:gt'street'
  88. if cardrive = 2:gt'down'
  89. if cardrive = 3:gt'Nord'
  90. if cardrive = 4:gt'lake','start'
  91. if cardrive = 5:gt'park','start'
  92. if cardrive = 6:gt'zaprF','start'
  93. if cardrive = 7:gt'autoservisF','start'
  94. if cardrive = 8:gt'autosalonF','start'
  95. if cardrive = 9:gt'autotraidF','start'
  96. if cardrive = 10:gt'park','whore'
  97. if cardrive = 11:gt'sauna'
  98. if cardrive = 12:gt'obekt'
  99. if cardrive = 18:gt'youplace'
  100. if cardrive = 19:gt'road'
  101. if cardrive = 20:gt'gorodok'
  102. if cardrive = 21:gt'zaprF','start'
  103. }
  104. if $ARGS[0]='start':
  105. $metka = $ARGS[0]
  106. $loc = $CURLOC
  107. cla
  108. *clr
  109. gs'stat'
  110. set minut = minut + 1
  111. clr
  112. fcolor=rgb(0,0,0)
  113. bcolor=rgb(255,255,255)
  114. LCOLOR = rgb(106,90,205)
  115. '<center><B><<$car>></B></center>'
  116. if car = 1:'<center><img src="picar/car.jpg" ></center>'
  117. if car = 2:'<center><img src="picar/car2.jpg" ></center>'
  118. if car = 3:'<center><img src="picar/car3.jpg" ></center>'
  119. if car = 4:'<center><img src="picar/car4.jpg" ></center>'
  120. if car = 5:'<center><img src="picar/car5.jpg" ></center>'
  121. if car = 6:'<center><img src="picar/car6.jpg" ></center>'
  122. if car = 7:'<center><img src="picar/car7.jpg" ></center>'
  123. if car = 8:'<center><img src="picar/car8.jpg" ></center>'
  124. if car = 9:'<center><img src="picar/car9.jpg" ></center>'
  125. if car = 10:'<center><img src="picar/car10.jpg" ></center>'
  126. if car = 11:'<center><img src="picar/car11.jpg" ></center>'
  127. if car = 12:'<center><img src="picar/car12.jpg" ></center>'
  128. if car = 13:'<center><img src="picar/car13.jpg" ></center>'
  129. if car = 14:'<center><img src="picar/car14.jpg" ></center>'
  130. if car = 15:'<center><img src="picar/car15.jpg" ></center>'
  131. if car = 16:'<center><img src="picar/car16.jpg" ></center>'
  132. if car = 17:'<center><img src="picar/car17.jpg" ></center>'
  133. if car = 18:'<center><img src="picar/car18.jpg" ></center>'
  134. if car = 19:'<center><img src="picar/car19.jpg" ></center>'
  135. if car = 20:'<center><img src="picar/car20.jpg" ></center>'
  136. if car = 21:'<center><img src="picar/car21.jpg" ></center>'
  137. if car = 22:'<center><img src="picar/car22.jpg" ></center>'
  138. if car = 23:'<center><img src="picar/car23.jpg" ></center>'
  139. if car = 24:'<center><img src="picar/car24.jpg" ></center>'
  140. if car = 25:'<center><img src="picar/car25.jpg" ></center>'
  141. if car = 26:'<center><img src="picar/car26.jpg" ></center>'
  142. if car = 27:'<center><img src="picar/car27.jpg" ></center>'
  143. if car = 28:'<center><img src="picar/car28.jpg" ></center>'
  144. if car = 29:'<center><img src="picar/car29.jpg" ></center>'
  145. if car = 30:'<center><img src="picar/car30.jpg" ></center>'
  146. if car = 95:'<center><img src="picar/car95.jpg" ></center>'
  147. if car = 96:'<center><img src="picar/car96.jpg" ></center>'
  148. if car = 97:'<center><img src="picar/car97.jpg" ></center>'
  149. if car = 98:'<center><img src="picar/car98.jpg" ></center>'
  150. if car = 99:'<center><img src="picar/car99.jpg" ></center>'
  151. if car = 100:'<center><img src="picar/car100.jpg" ></center>'
  152. act 'Move away from the machine':dynamic $enddrive
  153. if kanistra > 0:
  154. 'In the trunk <<kanistra>> Pieces. five-liter jerry cans of gasoline.'
  155. if benz <= 35:
  156. act 'Pour a can into the tank':
  157. cla
  158. set benz = benz + 5
  159. set kanistra = kanistra - 1
  160. 'You have filled the canister of gasoline in the tank.'
  161. act 'move_away':gt'carF','start'
  162. end
  163. end
  164. end
  165. act 'Get in the car':gt'carF','salon'
  166. >>>>>>> 455_carF
  167. end
  168. <<<<<<< 455_carF
  169. if $ARGS[0] = 'salon':
  170. =======
  171. if $ARGS[0]='salon':
  172. >>>>>>> 455_carF
  173. $metka = $ARGS[0]
  174. $loc = $CURLOC
  175. cla
  176. *clr
  177. <<<<<<< 455_carF
  178. gs 'stat'
  179. set minut += 1
  180. clr
  181. '<center><b><<$car>></b></center>'
  182. *nl
  183. if car = 1: '<center><img src="images\picar\salon.jpg"></center>'
  184. if car = 2: '<center><img src="images\picar\salon2.jpg"></center>'
  185. if car = 3: '<center><img src="images\picar\salon3.jpg"></center>'
  186. if car = 4: '<center><img src="images\picar\salon4.jpg"></center>'
  187. if car = 5: '<center><img src="images\picar\salon5.jpg"></center>'
  188. if car = 6: '<center><img src="images\picar\salon6.jpg"></center>'
  189. if car = 7: '<center><img src="images\picar\salon7.jpg"></center>'
  190. if car = 8: '<center><img src="images\picar\salon8.jpg"></center>'
  191. if car = 9: '<center><img src="images\picar\salon9.jpg"></center>'
  192. if car = 10: '<center><img src="images\picar\salon10.jpg"></center>'
  193. if car = 11: '<center><img src="images\picar\salon11.jpg"></center>'
  194. if car = 12: '<center><img src="images\picar\salon12.jpg"></center>'
  195. if car = 13: '<center><img src="images\picar\salon13.jpg"></center>'
  196. if car = 14: '<center><img src="images\picar\salon14.jpg"></center>'
  197. if car = 15: '<center><img src="images\picar\salon15.jpg"></center>'
  198. if car = 16: '<center><img src="images\picar\salon16.jpg"></center>'
  199. if car = 17: '<center><img src="images\picar\salon17.jpg"></center>'
  200. if car = 18: '<center><img src="images\picar\salon18.jpg"></center>'
  201. if car = 19: '<center><img src="images\picar\salon19.jpg"></center>'
  202. if car = 20: '<center><img src="images\picar\salon20.jpg"></center>'
  203. if car = 21: '<center><img src="images\picar\salon21.jpg"></center>'
  204. if car = 22: '<center><img src="images\picar\salon22.jpg"></center>'
  205. if car = 23: '<center><img src="images\picar\salon23.jpg"></center>'
  206. if car = 24: '<center><img src="images\picar\salon24.jpg"></center>'
  207. if car = 25: '<center><img src="images\picar\salon25.jpg"></center>'
  208. if car = 26: '<center><img src="images\picar\salon26.jpg"></center>'
  209. if car = 27: '<center><img src="images\picar\salon27.jpg"></center>'
  210. if car = 28: '<center><img src="images\picar\salon28.jpg"></center>'
  211. if car = 29: '<center><img src="images\picar\salon29.jpg"></center>'
  212. if car = 30: '<center><img src="images\picar\salon30.jpg"></center>'
  213. if car = 95: '<center><img src="images\picar\salon95.jpg"></center>'
  214. if car = 96: '<center><img src="images\picar\salon96.jpg"></center>'
  215. if car = 97: '<center><img src="images\picar\salon97.jpg"></center>'
  216. if car = 98: '<center><img src="images\picar\salon98.jpg"></center>'
  217. if car = 99: '<center><img src="images\picar\salon99.jpg"></center>'
  218. if car = 100: '<center><img src="images\picar\salon100.jpg"></center>'
  219. 'Gasoline - <<benz>>l, fuel tank capacity of 40 liters.'
  220. if teh <= 0: set teh = 0 & set wrek = 1
  221. if wrek = 1 or teh <= 0: set $teh = 'Car will not start, it needs repairs.'
  222. if teh >= tehcar * 75/100 and wrek = 0: set $teh = 'Machine in excellent condition.'
  223. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0: set $teh = 'When moving the machine you have any noises'
  224. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0: set $teh = 'Car crash and barely rides.'
  225. if teh < tehcar*25/100 and wrek = 0: set $teh = 'As this bowl can still go, is a mystery even to the designers.'
  226. '<<$teh>>'
  227. if cardrive = 1: 'Through the windshield you see the residential area.'
  228. if cardrive = 2: 'Through the windshield you see downtown.'
  229. if cardrive = 3: 'Through the windshield you see the northern region.'
  230. if cardrive = 4: 'Through the windshield you see the lake.'
  231. if cardrive = 5: 'Through the windshield you see the park.'
  232. if cardrive = 17: 'Through the windshield you see a holiday village.'
  233. if cardrive = 20: 'Through the windshield, you can see the town.'
  234. if prava = 0: 'You have no rights.'
  235. act 'Out of the car': dynamic $enddrive
  236. if benz > 0 and wrek = 0 and prava > 0:
  237. if teh >= tehcar * 75/100 and wrek = 0:
  238. set wrekrand = RAND(0,1000)
  239. if wrekrand = 1000: set wrek = 1
  240. end
  241. if teh < tehcar*75/100 and teh >= tehcar * 50/100 and wrek = 0:
  242. set wrekrand = RAND(0,100)
  243. if wrekrand = 100: set wrek = 1
  244. end
  245. if teh < tehcar*50/100 and teh >= tehcar * 25/100 and wrek = 0:
  246. set wrekrand = RAND(0,100)
  247. if wrekrand >= 80: set wrek = 1
  248. end
  249. if teh < tehcar*25/100 and wrek = 0:
  250. set wrekrand = RAND(0,100)
  251. if wrekrand >= 40: set wrek = 1
  252. end
  253. if wrek = 1:
  254. 'Something clattered loudly and the engine stalled.'
  255. act 'Fuck': gt 'carF','salon'
  256. end
  257. if alko > 0:
  258. dpsrand = RAND(0,100)
  259. if dpsrand <= alko:
  260. 'Policeman stops you, he looks at your condition and requests to breath into a tube. You breathe and instrument panel lights red lamochka.'
  261. 'Traffic police snorts and writes something in his cell, and then shows you. There is written sms with the number 50000'
  262. 'Or let´s make the report. Now operates divestment forever for driving not sober.'
  263. if money >= 50000:
  264. act 'Give a bribe of 50 pieces':
  265. cla
  266. money = money - 50000
  267. 'You pay and the policeman warns you that you will not be riding in this state.'
  268. act 'In the salon': gt 'carF','salon'
  269. end
  270. end
  271. act 'Come on, all under the law':
  272. cla
  273. prava = 0
  274. 'Disempower you, not for driving sober.'
  275. act 'In the salon': gt 'carF','salon'
  276. end
  277. exit
  278. end
  279. end
  280. if alko >= 10:
  281. avarand = RAND(0,100)
  282. if avarand >= 50:
  283. teh = teh/2
  284. wrek = 1
  285. 'You with a drunk crashed into a tree, breaking the car into pieces.'
  286. act 'In the salon': gt 'carF','salon'
  287. exit
  288. end
  289. end
  290. if wrek = 0:
  291. if cardrive >= 20:
  292. if cardrive ! 3:
  293. act 'Go to town':
  294. cla
  295. set minut += 75
  296. set benz -= 1
  297. set teh -= RAND(3,6)
  298. set cardrive = 3
  299. 'You are more than an hour drive on the highway that would get here before the city.'
  300. dynamic $enddrive
  301. end
  302. end
  303. if cardrive ! 21:
  304. act 'Go to the gas station':
  305. cla
  306. set minut += 15
  307. set benz -= 1
  308. set teh -= RAND(1,3)
  309. set cardrive = 21
  310. 'You get 15 minutes to the destination.'
  311. dynamic $enddrive
  312. end
  313. end
  314. end
  315. if placeMansion > 0 and cardrive ! 18:
  316. act 'Go to your site':
  317. cla
  318. if cardrive >= 20:
  319. set minut += 60
  320. set benz -= 1
  321. set teh -= RAND(1,3)
  322. set cardrive = 18
  323. else
  324. set minut += 15
  325. set benz -= 1
  326. set teh -= RAND(1,3)
  327. set cardrive = 18
  328. end
  329. 'You drive to the town.'
  330. dynamic $enddrive
  331. end
  332. end
  333. if dachaest > 0 and cardrive ! 17:
  334. act 'Go to the country':
  335. cla
  336. if cardrive >= 20:
  337. set minut += 60
  338. set benz -= 1
  339. set teh -= RAND(1,3)
  340. set cardrive = 17
  341. else
  342. set minut += 20
  343. set benz -= 1
  344. set teh -= RAND(1,3)
  345. set cardrive = 17
  346. end
  347. 'You drive to the village.'
  348. dynamic $enddrive
  349. end
  350. end
  351. if cardrive ! 1:
  352. act 'Go to the residential area':
  353. cla
  354. set minut += 15
  355. set benz -= 1
  356. set teh -= RAND(1,3)
  357. set cardrive = 1
  358. 'You get 15 minutes to the destination.'
  359. dynamic $enddrive
  360. end
  361. end
  362. if cardrive ! 2:
  363. act 'Go to city center':
  364. cla
  365. set minut += 15
  366. set benz -= 1
  367. set teh -= RAND(1,3)
  368. set cardrive = 2
  369. 'You get 15 minutes to the destination.'
  370. dynamic $enddrive
  371. end
  372. end
  373. if cardrive ! 3:
  374. act 'Go to the northern area':
  375. cla
  376. set minut += 15
  377. set benz -= 1
  378. set teh -= RAND(1,3)
  379. set cardrive = 3
  380. 'You get 15 minutes to the destination.'
  381. dynamic $enddrive
  382. end
  383. end
  384. if cardrive ! 4:
  385. act 'Go to the lake':
  386. cla
  387. set minut += 15
  388. set benz -= 1
  389. set teh -= RAND(1,3)
  390. set cardrive = 4
  391. 'You get 15 minutes to the destination.'
  392. dynamic $enddrive
  393. end
  394. end
  395. if cardrive ! 5:
  396. act 'Go to the park':
  397. cla
  398. set minut += 15
  399. set benz -= 1
  400. set teh -= RAND(1,3)
  401. set cardrive = 5
  402. 'You get 15 minutes to the destination.'
  403. dynamic $enddrive
  404. end
  405. end
  406. if cardrive ! 6:
  407. act 'Go to the gas station':
  408. cla
  409. set minut += 15
  410. set benz -= 1
  411. set teh -= RAND(1,3)
  412. set cardrive = 6
  413. 'You get 15 minutes to the destination.'
  414. dynamic $enddrive
  415. end
  416. end
  417. if cardrive ! 7:
  418. act 'Go to the car wash':
  419. cla
  420. set minut += 15
  421. set benz -= 1
  422. set teh -= RAND(1,3)
  423. set cardrive = 7
  424. 'You get 15 minutes to the destination.'
  425. dynamic $enddrive
  426. end
  427. end
  428. if cardrive ! 8:
  429. act 'Go to a car dealership':
  430. cla
  431. set minut += 15
  432. set benz -= 1
  433. set teh -= RAND(1,3)
  434. set cardrive = 8
  435. 'You get 15 minutes to the destination.'
  436. dynamic $enddrive
  437. end
  438. end
  439. if cardrive ! 9:
  440. act 'Go to the car market':
  441. cla
  442. set minut += 15
  443. set benz -= 1
  444. set teh -= RAND(1,3)
  445. set cardrive = 9
  446. 'You get 15 minutes to the destination.'
  447. dynamic $enddrive
  448. end
  449. end
  450. if cardrive ! 12:
  451. act 'Go on to':
  452. cla
  453. set minut += 60
  454. set benz -= 1
  455. set teh -= RAND(2,5)
  456. set cardrive = 12
  457. 'You get 15 minutes to the destination.'
  458. dynamic $enddrive
  459. end
  460. end
  461. if cardrive ! 20:
  462. act 'Go to town':
  463. cla
  464. set minut += 75
  465. set benz -= 1
  466. set teh -= RAND(3,6)
  467. set cardrive = 20
  468. 'You eat more than an hour on the highway to the town.'
  469. dynamic $enddrive
  470. end
  471. end
  472. act 'Go around the track (1:00)':
  473. cla
  474. 'You go on the road.'
  475. numberRoad = input("In which city will stop (from 0 to 20)")
  476. if numberRoad >= 0 and numberRoad <= 20:
  477. set cardrive = 19
  478. set nroad = numberRoad
  479. set ncarroad = numberRoad
  480. end
  481. xgt 'carF','salon'
  482. end
  483. act 'To drive on the track (1:00)':
  484. cla
  485. set minut += 60
  486. set benz -= 4
  487. set teh -= RAND(2,6)
  488. set manna += 20
  489. set wipo += 10
  490. 'You go to the track and having fun Likhachev, then turn back.'
  491. act 'Finish': xgt 'carF','salon'
  492. end
  493. end
  494. end
  495. =======
  496. gs'stat'
  497. set minut = minut + 1
  498. clr
  499. if car = 1:'<center><img src="picar/salon.jpg" ></center>'
  500. if car = 2:'<center><img src="picar/salon2.jpg" ></center>'
  501. if car = 3:'<center><img src="picar/salon3.jpg" ></center>'
  502. if car = 4:'<center><img src="picar/salon4.jpg" ></center>'
  503. if car = 5:'<center><img src="picar/salon5.jpg" ></center>'
  504. if car = 6:'<center><img src="picar/salon6.jpg" ></center>'
  505. if car = 7:'<center><img src="picar/salon7.jpg" ></center>'
  506. if car = 8:'<center><img src="picar/salon8.jpg" ></center>'
  507. if car = 9:'<center><img src="picar/salon9.jpg" ></center>'
  508. if car = 10:'<center><img src="picar/salon10.jpg" ></center>'
  509. if car = 11:'<center><img src="picar/salon11.jpg" ></center>'
  510. if car = 12:'<center><img src="picar/salon12.jpg" ></center>'
  511. if car = 13:'<center><img src="picar/salon13.jpg" ></center>'
  512. if car = 14:'<center><img src="picar/salon14.jpg" ></center>'
  513. if car = 15:'<center><img src="picar/salon15.jpg" ></center>'
  514. if car = 16:'<center><img src="picar/salon16.jpg" ></center>'
  515. if car = 17:'<center><img src="picar/salon17.jpg" ></center>'
  516. if car = 18:'<center><img src="picar/salon18.jpg" ></center>'
  517. if car = 19:'<center><img src="picar/salon19.jpg" ></center>'
  518. if car = 20:'<center><img src="picar/salon20.jpg" ></center>'
  519. if car = 21:'<center><img src="picar/salon21.jpg" ></center>'
  520. if car = 22:'<center><img src="picar/salon22.jpg" ></center>'
  521. if car = 23:'<center><img src="picar/salon23.jpg" ></center>'
  522. if car = 24:'<center><img src="picar/salon24.jpg" ></center>'
  523. if car = 25:'<center><img src="picar/salon25.jpg" ></center>'
  524. if car = 26:'<center><img src="picar/salon26.jpg" ></center>'
  525. if car = 27:'<center><img src="picar/salon27.jpg" ></center>'
  526. if car = 28:'<center><img src="picar/salon28.jpg" ></center>'
  527. if car = 29:'<center><img src="picar/salon29.jpg" ></center>'
  528. if car = 30:'<center><img src="picar/salon30.jpg" ></center>'
  529. if car = 95:'<center><img src="picar/salon95.jpg" ></center>'
  530. if car = 96:'<center><img src="picar/salon96.jpg" ></center>'
  531. if car = 97:'<center><img src="picar/salon97.jpg" ></center>'
  532. if car = 98:'<center><img src="picar/salon98.jpg" ></center>'
  533. if car = 99:'<center><img src="picar/salon99.jpg" ></center>'
  534. if car = 100:'<center><img src="picar/salon100.jpg" ></center>'
  535. 'gasoline - <<benz>>l, Fuel tank capacity 40 liters.'
  536. if teh <= 0:set teh = 0&set wrek = 1
  537. if wrek = 1 or teh <= 0:set $teh = 'Car will not start, it needs repair.'
  538. if teh >= tehcar*75/100 and wrek = 0:set $teh = 'The machine is in excellent condition.'
  539. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:set $teh = 'When moving the machine have any extraneous noise'
  540. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:set $teh = 'Car crash and barely goes.'
  541. if teh < tehcar*25/100 and wrek = 0:set $teh = 'As the toilet can still go, is a mystery even for designers.'
  542. '<<$teh>>'
  543. if cardrive = 1:'Through the windshield you see the sleeping area.'
  544. if cardrive = 2:'Through the windshield you see downtown.'
  545. if cardrive = 3:'Through the windshield you see the northern region.'
  546. if cardrive = 4:'Through the windshield you see the lake.'
  547. if cardrive = 5:'Through the windshield you see the park.'
  548. if prava=0:'You are not authorized.'
  549. act 'Out of the car':dynamic $enddrive
  550. if benz > 0 and wrek = 0 and prava>0:
  551. if teh >= tehcar*75/100 and wrek = 0:
  552. set wrekrand = RAND (0,1000)
  553. if wrekrand = 1000:set wrek = 1
  554. end
  555. if teh < tehcar*75/100 and teh >= tehcar*50/100 and wrek = 0:
  556. set wrekrand = RAND (0,100)
  557. if wrekrand = 100:set wrek = 1
  558. end
  559. if teh < tehcar*50/100 and teh >= tehcar*25/100 and wrek = 0:
  560. set wrekrand = RAND (0,100)
  561. if wrekrand >= 80:set wrek = 1
  562. end
  563. if teh < tehcar*25/100 and wrek = 0:
  564. set wrekrand = RAND (0,100)
  565. if wrekrand >= 40:set wrek = 1
  566. end
  567. if wrek = 1:
  568. 'What is pounding loudly and the engine stalled.'
  569. act 'your mother':gt'carF','salon'
  570. end
  571. if alko >0:
  572. dpsrand=RAND(0,100)
  573. if dpsrand <= alko:
  574. 'Policeman stops you, He looks at your situation and asks to breathe into a tube. You breathe and instrument panel lights red lamochka.'
  575. 'Traffic police snorts and says something in his cell, then shows you. It is written with the number sms 50000'
  576. 'Or let`s make the report. Now all of the exclusion for driving while not sober.'
  577. if money>= 50000:
  578. act 'bribe 50 pcs':
  579. cla
  580. money=money-50000
  581. 'You pay and the police warns you, that you will not be riding in this state.'
  582. act 'In salon':gt'carF','salon'
  583. end
  584. end
  585. act 'Bring_It_On, all under the law':
  586. cla
  587. prava=0
  588. 'You disempower, for driving while not sober.'
  589. act 'In salon':gt'carF','salon'
  590. end
  591. exit
  592. end
  593. end
  594. if alko >= 10:
  595. avarand=RAND(0,100)
  596. if avarand>=50:
  597. teh=teh/2
  598. wrek=1
  599. 'You are a drunken hit a tree, crashed the car into smithereens.'
  600. act 'In salon':gt'carF','salon'
  601. exit
  602. end
  603. end
  604. if wrek = 0:
  605. if cardrive >= 20:
  606. if cardrive ! 3:
  607. act 'Go to town':
  608. cla
  609. set minut = minut + 75
  610. set benz = benz - 1
  611. set teh = teh - RAND(3,6)
  612. set cardrive = 3
  613. 'You drive more than an hour on the highway that would get here before the city.'
  614. dynamic $enddrive
  615. end
  616. end
  617. if cardrive ! 21:
  618. act 'Go to the gas station':
  619. cla
  620. set minut = minut + 15
  621. set benz = benz - 1
  622. set teh = teh - RAND(1,3)
  623. set cardrive = 21
  624. 'Are you in favor 15 minutes get to your destination.'
  625. dynamic $enddrive
  626. end
  627. end
  628. end
  629. if placeMansion>0 and cardrive ! 18:
  630. act 'Go to your site':
  631. cla
  632. if cardrive >= 20:
  633. set minut = minut + 60
  634. set benz = benz - 1
  635. set teh = teh - RAND(1,3)
  636. set cardrive = 18
  637. else
  638. set minut = minut + 15
  639. set benz = benz - 1
  640. set teh = teh - RAND(1,3)
  641. set cardrive = 18
  642. end
  643. 'You got to their land.'
  644. dynamic $enddrive
  645. end
  646. end
  647. if cardrive ! 1:
  648. act 'Go to the sleeping area':
  649. cla
  650. set minut = minut + 15
  651. set benz = benz - 1
  652. set teh = teh - RAND(1,3)
  653. set cardrive = 1
  654. 'Are you in favor 15 minutes get to your destination.'
  655. dynamic $enddrive
  656. end
  657. end
  658. if cardrive ! 2:
  659. act 'Go to the center of the city':
  660. cla
  661. set minut = minut + 15
  662. set benz = benz - 1
  663. set teh = teh - RAND(1,3)
  664. set cardrive = 2
  665. 'Are you in favor 15 minutes get to your destination.'
  666. dynamic $enddrive
  667. end
  668. end
  669. if cardrive ! 3:
  670. act 'Go to the northern region':
  671. cla
  672. set minut = minut + 15
  673. set benz = benz - 1
  674. set teh = teh - RAND(1,3)
  675. set cardrive = 3
  676. 'Are you in favor 15 minutes get to your destination.'
  677. dynamic $enddrive
  678. end
  679. end
  680. if cardrive ! 4:
  681. act 'Go to the lake':
  682. cla
  683. set minut = minut + 15
  684. set benz = benz - 1
  685. set teh = teh - RAND(1,3)
  686. set cardrive = 4
  687. 'Are you in favor 15 minutes get to your destination.'
  688. dynamic $enddrive
  689. end
  690. end
  691. if cardrive ! 5:
  692. act 'Go to the park':
  693. cla
  694. set minut = minut + 15
  695. set benz = benz - 1
  696. set teh = teh - RAND(1,3)
  697. set cardrive = 5
  698. 'Are you in favor 15 minutes get to your destination.'
  699. dynamic $enddrive
  700. end
  701. end
  702. if cardrive ! 6:
  703. act 'Go to the gas station':
  704. cla
  705. set minut = minut + 15
  706. set benz = benz - 1
  707. set teh = teh - RAND(1,3)
  708. set cardrive = 6
  709. 'Are you in favor 15 minutes get to your destination.'
  710. dynamic $enddrive
  711. end
  712. end
  713. if cardrive ! 7:
  714. act 'Go to the car wash':
  715. cla
  716. set minut = minut + 15
  717. set benz = benz - 1
  718. set teh = teh - RAND(1,3)
  719. set cardrive = 7
  720. 'Are you in favor 15 minutes get to your destination.'
  721. dynamic $enddrive
  722. end
  723. end
  724. if cardrive ! 8:
  725. act 'Go to the auto show':
  726. cla
  727. set minut = minut + 15
  728. set benz = benz - 1
  729. set teh = teh - RAND(1,3)
  730. set cardrive = 8
  731. 'Are you in favor 15 minutes get to your destination.'
  732. dynamic $enddrive
  733. end
  734. end
  735. if cardrive ! 9:
  736. act 'Go to the car market':
  737. cla
  738. set minut = minut + 15
  739. set benz = benz - 1
  740. set teh = teh - RAND(1,3)
  741. set cardrive = 9
  742. 'Are you in favor 15 minutes get to your destination.'
  743. dynamic $enddrive
  744. end
  745. end
  746. if cardrive ! 12:
  747. act 'Go to the object':
  748. cla
  749. set minut = minut + 60
  750. set benz = benz - 1
  751. set teh = teh - RAND(2,5)
  752. set cardrive = 12
  753. 'Are you in favor 15 minutes get to your destination.'
  754. dynamic $enddrive
  755. end
  756. end
  757. if cardrive ! 20:
  758. act 'Go to town':
  759. cla
  760. set minut = minut + 75
  761. set benz = benz - 1
  762. set teh = teh - RAND(3,6)
  763. set cardrive = 20
  764. 'You eat more than an hour on the highway to the town.'
  765. dynamic $enddrive
  766. end
  767. end
  768. act 'Ride on the highway (1 h)':
  769. cla
  770. 'You go on the road.'
  771. numberRoad=input("In what city will stop (from 0 prior_to 20)")
  772. if numberRoad>=0 and numberRoad<=20:
  773. set cardrive = 19
  774. set nroad=numberRoad
  775. set ncarroad=numberRoad
  776. end
  777. xgt'carF','salon'
  778. end
  779. act 'Drive on the highway (1 h)':
  780. cla
  781. set minut = minut + 60
  782. set benz = benz - 4
  783. set teh = teh - RAND(2,6)
  784. set manna = manna + 20
  785. set wipo=wipo+10
  786. 'You go on the road and having fun scorcher, then turn back.'
  787. act'End_Up':xgt'carF','salon'
  788. end
  789. end
  790. end
  791. >>>>>>> 455_carF
  792. end
  793. --- carF ---------------------------------