rinwork 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720
  1. # rinwork
  2. if $ARGS[0] = 'start':
  3. $answerrin = {
  4. if tipred = pokti:
  5. if pokvnirand = 0:
  6. pokpay = rand(1000, 1200)
  7. elseif pokvnirand = 1:
  8. pokpay = rand(1200, 1500)
  9. elseif pokvnirand = 2:
  10. pokpay = rand(1500, 2000)
  11. end
  12. else
  13. $rinitog = '<<$poktip>> puts the thing in place and leaves'
  14. pokupatel = 0
  15. end
  16. }
  17. $answerrin2 = {
  18. act 'Name the price':
  19. cla
  20. prodpay = input ("Enter the selling price")
  21. if prodpay < 1000:prodpay = prodpayum
  22. 'You a price in <<prodpay>> rubles'
  23. if prodpay <= pokpay:
  24. poknorand = rand(1, 100 + vnesh)
  25. if poknorand >= 10:
  26. rinmon += prodpay
  27. rinvesh += 1
  28. 'Buyer collected and paid item <<prodpay>> rubles'
  29. act 'Trading on':gt 'rinwork', 'start'
  30. else
  31. 'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
  32. dynamic $answerrin3
  33. act 'Less I can not (take the thing)':gt 'rinwork', 'start'
  34. end
  35. elseif prodpay > pokpay and prodpay <= pokpay + 100:
  36. poknorand = rand(1, 100 + vnesh)
  37. if poknorand >= 10:
  38. 'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
  39. dynamic $answerrin3
  40. act 'Less I can not (take the thing)':gt 'rinwork', 'start'
  41. else
  42. 'Buyer puts thing into place and leaves'
  43. act 'Trading on':gt 'rinwork', 'start'
  44. end
  45. elseif prodpay > pokpay + 100:
  46. 'Buyer puts thing into place and leaves'
  47. act 'Trading on':gt 'rinwork', 'start'
  48. end
  49. end
  50. }
  51. $answerrin3 = {
  52. if prodpay >= 1100:
  53. act 'Reduce the price by 100 rubles':
  54. cla
  55. 'You have reduced the price by 100 rubles.'
  56. poknorand = rand(1, 100 + vnesh)
  57. if poknorand >= 10:
  58. rinmon += prodpay - 100
  59. rinvesh += 1
  60. 'Buyer collected and paid item <<prodpay - 100>> rubles'
  61. act 'Trading on':gt 'rinwork', 'start'
  62. else
  63. 'Buyer puts thing into place and leaves'
  64. act 'Trading on':gt 'rinwork', 'start'
  65. end
  66. end
  67. elseif prodpay >= 1050:
  68. act 'Reduce the price by 50 rubles':
  69. cla
  70. 'You have reduced the price by 50 rubles.'
  71. poknorand = rand(1, 100 + vnesh)
  72. if poknorand >= 30:
  73. rinmon += prodpay - 50
  74. rinvesh += 1
  75. 'Buyer collected and paid item <<prodpay - 50>> rubles'
  76. act 'Trading on':gt 'rinwork', 'start'
  77. else
  78. 'Buyer puts thing into place and leaves'
  79. act 'Trading on':gt 'rinwork', 'start'
  80. end
  81. end
  82. end
  83. }
  84. cla
  85. *clr
  86. gs 'stat'
  87. '<center><b><font color="maroon">Trade</font></b></center>'
  88. '<center><img src="images/etogame/rinok.jpg"></center>'
  89. 'You stand in the tray with the clothes in anticipation of buyers.'
  90. 'At the box office <<rinmon>> rubles, Sales <<rinvesh>> things.'
  91. 'The average price on the market <<prodpayum>>'
  92. if hour = 14:
  93. 'Arthur came to you and you started to calculate how much you should give to Arthur.'
  94. act 'Giving money to Arthur':
  95. cla
  96. *clr
  97. rinart = rinvesh * 1000
  98. rinmon -= rinart
  99. money += rinmon
  100. gs 'stat'
  101. 'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
  102. 'Today you have earned <<rinmon>> rubles'
  103. if rinart < arturplan:
  104. arturnoo += 1
  105. 'Uh, <<$name>>, bad work, not enough money. You''re so razorish me completely.'
  106. else
  107. arturyes += 1
  108. 'Maladets <<$name>>, good job.'
  109. end
  110. if arturnoo > arturyes:arturnoo = arturnoo - arturyes & arturyes = 0
  111. if arturyes > arturnoo:arturyes = arturyes - arturnoo & arturnoo = 0
  112. if arturnoo = arturyes:arturnoo = 0 & arturyes = 0
  113. rinmon = 0
  114. rinvesh = 0
  115. if arturnoo > 10:
  116. arturnoo = 0
  117. work = 0
  118. workrin = 0
  119. 'Uh, you''ve fucked savsem. Here''s your labor. Hit the road that I did not see you anymore!'
  120. act 'Leave':gt 'street'
  121. exit
  122. end
  123. rinrand = rand(1, 100)
  124. if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
  125. '(Arthur) - Wai <<$name>>, you and I have not even met properly. Come into the container, ate barbecue, drink and get acquainted.'
  126. act 'Refuse':
  127. cla
  128. 'You have become excuses Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I''m fine and I can take you.'
  129. act 'Okay, let''s go have a drink':gt 'RynokHoz', 'the_beginning'
  130. act 'No.':
  131. cla
  132. arturplan += 1000
  133. if money >= 1000:
  134. money -= 1000
  135. 'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
  136. else
  137. 'Okay, go already.'
  138. end
  139. act 'Leave.':gt 'street'
  140. end
  141. end
  142. act 'Come':gt 'RynokHoz', 'the_beginning'
  143. exit
  144. elseif rinrand < vnesh and palevorin = 0 and rinhoz = 1:
  145. '(Arthur) - Wai <<$name>>. Come into the container, ate barbecue, drink, rest. He walked right up to you and slapped on the ass with his hand.'
  146. act 'Refuse':
  147. cla
  148. 'You become otnekivatsya Arthur told you. Wai, why insult, you have here the tray is not cleaned, dust, dirt, I''m fine and I can take you.'
  149. act 'Okay, let''s go have a drink':gt 'RynokHoz', 'the_beginning'
  150. act 'No':
  151. cla
  152. arturplan += 1000
  153. if money >= 1000:
  154. money -= 1000
  155. 'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
  156. else
  157. 'Okay, go already.'
  158. end
  159. act 'Leave.':gt 'street'
  160. end
  161. end
  162. act 'Come':gt 'RynokHoz', 'the_beginning'
  163. exit
  164. end
  165. act 'Leave work':gt 'street'
  166. end
  167. exit
  168. elseif hour < 14:
  169. pokrand = rand(0, 1)
  170. if pokrand = 0:
  171. $pokup = 'Buyers can not see.'
  172. pokupatel = 0
  173. ''
  174. 'Market is Aunt Katya with trolley in which it carries cakes and coffee.'
  175. else
  176. pokupatel = 1
  177. poktiprand = rand(0, 7)
  178. if poktiprand = 0:$pokup = 'To the tray approached middle-aged man.' & $poktip = 'Man' & pokti = 1
  179. if poktiprand = 1:$pokup = 'To the tray approached by a young man.' & $poktip = 'Guy' & pokti = 2
  180. if poktiprand = 2:$pokup = 'Guy came to the tray teenager.' & $poktip = 'Boy' & pokti = 3
  181. if poktiprand = 3:$pokup = 'A woman came up to the tray.' & $poktip = 'Woman' & pokti = 1
  182. if poktiprand = 4:$pokup = 'Girl came to the tray.' & $poktip = 'Girl' & pokti = 2
  183. if poktiprand = 5:$pokup = 'To the tray approached teen girl.' & $poktip = 'Girlfriend' & pokti = 3
  184. if poktiprand = 6:$pokup = 'Approached the old man to the tray.' & $poktip = 'Old man' & pokti = 0
  185. if poktiprand = 7:$pokup = 'Grandma went to the tray.' & $poktip = 'Granny' & pokti = 0
  186. end
  187. '<b><<$pokup>></b>'
  188. if pokupatel = 1:
  189. act 'What do you want?':
  190. cla
  191. minut += 15
  192. pokvnirand = rand(0, 2)
  193. if pokvnirand = 0:
  194. '<<$poktip>> without interest examines selling things.'
  195. elseif pokvnirand = 1:
  196. '<<$poktip>> with interest examining selling things.'
  197. elseif pokvnirand = 2:
  198. '<<$poktip>> picks up the item.'
  199. end
  200. !!dynamic $answerrin
  201. act 'Now it is very fashionable':
  202. cla
  203. tipred = 3
  204. dynamic $answerrin
  205. '<<$rinitog>>'
  206. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  207. if pokupatel = 1:
  208. '<<$poktip>> asks you for a price'
  209. dynamic $answerrin2
  210. end
  211. end
  212. act 'Thing is very high quality and reliable':
  213. cla
  214. tipred = 1
  215. dynamic $answerrin
  216. '<<$rinitog>>'
  217. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  218. if pokupatel = 1:
  219. '<<$poktip>> asks you for a price'
  220. dynamic $answerrin2
  221. end
  222. end
  223. act 'Give not expensive':
  224. cla
  225. tipred = 0
  226. dynamic $answerrin
  227. '<<$rinitog>>'
  228. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  229. if pokupatel = 1:
  230. '<<$poktip>> asks you for a price'
  231. dynamic $answerrin2
  232. end
  233. end
  234. act 'You are very':
  235. cla
  236. tipred = 2
  237. dynamic $answerrin
  238. '<<$rinitog>>'
  239. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  240. if pokupatel = 1:
  241. '<<$poktip>> asks you for a price'
  242. dynamic $answerrin2
  243. end
  244. end
  245. end
  246. end
  247. act 'Laze around (0:15)':
  248. minut += 15
  249. gt 'rinwork', 'start'
  250. end
  251. if hour = 9:
  252. rintakrand = rand(0, 5)
  253. if rintakrand = 0:
  254. $rintak = 'The tray in front of Hassan unloads clothes saleswoman Nadia.'
  255. act 'See Hassan and Nadia':
  256. cla
  257. minut += 15
  258. talkrand = rand(0, 2)
  259. if talkrand = 0:'Nadia Hassan utters. "Today you will sell more, and then the fine ladies, I need the money."'
  260. if talkrand = 1:'Hassan opens trunks and puts clothes on the counter.'
  261. if talkrand = 2:'Hassan drags trunks to his tray.'
  262. act 'Further':gt 'rinwork', 'start'
  263. end
  264. elseif rintakrand = 1:
  265. $rintak = 'In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
  266. act 'Look at Abdul and Anna':
  267. cla
  268. minut += 15
  269. talkrand = rand(0, 2)
  270. if talkrand = 0:'Abdul swears. "You''re fucked, you can not sell anything!" Anna retorts, "you told me so rotten shit for sale give, take it nobody wants."'
  271. if talkrand = 1:'Abdul slapped ass Anna, she pretended that nothing happened.'
  272. if talkrand = 2:'Abdul drags trunks to his tray.'
  273. act 'Further':gt 'rinwork', 'start'
  274. end
  275. elseif rintakrand = 2:
  276. $rintak = 'Abdul Hassan and stand beside your tray and about something guttural talking.'
  277. act 'View on Caucasians':
  278. cla
  279. minut += 15
  280. talkrand = rand(0, 2)
  281. if talkrand = 0:'Abdul Hassan and continue to talk about something, you do not know the language, and what they say can not understand.'
  282. if talkrand = 1:'Abdul Hassan pyalyatsya you and discussing what is yuk.'
  283. if talkrand = 2:'Abdul looks at you and says Hassan, "Look what a girl, sponges persik, wah."'
  284. act 'Further':gt 'rinwork', 'start'
  285. end
  286. elseif rintakrand = 3:
  287. $rintak = 'Anna hanging clothes in the tray and shouting with Nadia.'
  288. act 'Chat with sex':
  289. cla
  290. annaQW += 1
  291. NadiaQW += 1
  292. minut += 15
  293. talkrand = rand(0, 2)
  294. if talkrand = 0:
  295. 'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
  296. if clener = 0:clener = 1
  297. else
  298. 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
  299. end
  300. act 'Further':gt 'rinwork', 'start'
  301. end
  302. elseif rintakrand = 4:
  303. $rintak = 'Arthur is talking about something with Abdullah.'
  304. act 'View on Caucasians':
  305. cla
  306. minut += 15
  307. talkrand = rand(0, 2)
  308. if talkrand = 0:'Abdul and Arthur continue to talk about something, you do not know the language, and what they say can not understand.'
  309. if talkrand = 1:'Abdul and Arthur pyalyatsya you and discussing what is yuk.'
  310. if talkrand = 2:'Abdul looks at you and says Arthur, "Look what a girl, sponges persik, wah."'
  311. act 'Further':gt 'rinwork', 'start'
  312. end
  313. elseif rintakrand = 5:
  314. $rintak = 'Arthur, Abdul Hassan and neighing loudly and talk about something not on the plain language.'
  315. act 'View on Caucasians':
  316. cla
  317. minut += 15
  318. talkrand = rand(0, 2)
  319. if talkrand = 0:'Caucasians continue to talk about something, you do not know the language, and what they say can not understand.'
  320. if talkrand = 1:'Caucasians pyalyatsya you and discussing what is yuk.'
  321. if talkrand = 2:'Abdul looks at you and says other Caucasians, "Look what a girl, sponges persik, wah."'
  322. act 'Further':gt 'rinwork', 'start'
  323. end
  324. end
  325. '<<$rintak>>'
  326. elseif hour = 10:
  327. rintakrand = rand(0, 5)
  328. if rintakrand = 0:
  329. $rintak = 'Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
  330. act 'See Hasan':
  331. cla
  332. minut += 15
  333. 'Hassan says Nadia "Nadia, zachem ti refuse? Encroach Shlyk, have some wine."'
  334. act 'Further':gt 'rinwork', 'start'
  335. end
  336. elseif rintakrand = 1:
  337. $rintak = 'The tray is sitting in front of Nadia and crossword puzzles.'
  338. act 'Chat with Nadia':
  339. cla
  340. !!annaQW += 1
  341. NadiaQW += 1
  342. minut += 15
  343. 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
  344. if clener = 0:
  345. clener = 1
  346. 'Nadia tells about a Jew tailor working in an office building.'
  347. end
  348. act 'Further':gt 'rinwork', 'start'
  349. end
  350. elseif rintakrand = 2:
  351. $rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
  352. act 'Chat with Nadia':
  353. cla
  354. !!annaQW += 1
  355. NadiaQW -= 1
  356. minut += 15
  357. 'Nadia is not happy, light, no distractions, I have buyers.'
  358. act 'Further':gt 'rinwork', 'start'
  359. end
  360. elseif rintakrand = 3:
  361. $rintak = 'In the next tray Anna drinking coffee.'
  362. act 'Chat with Anna':
  363. cla
  364. annaQW += 1
  365. !!NadiaQW -= 1
  366. minut += 15
  367. 'Anya support chat with you and tells you what nonsense.'
  368. act 'Further':gt 'rinwork', 'start'
  369. end
  370. elseif rintakrand = 4:
  371. $rintak = 'In the next tray Anna tries vtyuhat buyers stale goods.'
  372. act 'Chat with Anna':
  373. cla
  374. annaQW -= 1
  375. !!NadiaQW -= 1
  376. minut += 15
  377. 'Anya is not happy, light, no distractions, I have buyers.'
  378. act 'Further':gt 'rinwork', 'start'
  379. end
  380. elseif rintakrand = 5:
  381. $rintak = 'Anna talks about trifles with Aunt Katya.'
  382. act 'Chat with Anna and Aunt Katya':
  383. cla
  384. annaQW += 1
  385. !!NadiaQW += 1
  386. tetaKataQW += 1
  387. minut += 15
  388. 'Aunt Katya praises pies and Anya complains that it currently has on these patties Naela ass twice more than it was ..'
  389. act 'Further':gt 'rinwork', 'start'
  390. end
  391. end
  392. '<<$rintak>>'
  393. elseif hour = 11:
  394. rintakrand = rand(0, 5)
  395. if rintakrand = 0:
  396. $rintak = 'By Nadia approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, and she swore at them and tried to dodge.'
  397. act 'Look at Nadia and Caucasians.':
  398. cla
  399. !!annaQW += 1
  400. !!NadiaQW += 1
  401. !!tetaKataQW += 1
  402. minut += 15
  403. 'Caucasians seem to be leaning toward sex Nadia.'
  404. act 'Further':gt 'rinwork', 'start'
  405. end
  406. elseif rintakrand = 1:
  407. $rintak = 'The tray is sitting in front of Nadia and eating cake.'
  408. act 'Chat with Nadia':
  409. cla
  410. !!annaQW += 1
  411. NadiaQW += 1
  412. minut += 15
  413. 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
  414. if clener = 0:
  415. clener = 1
  416. 'Nadia tells about a Jew tailor working in an office building.'
  417. end
  418. act 'Further':gt 'rinwork', 'start'
  419. end
  420. elseif rintakrand = 2:
  421. $rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
  422. act 'Chat with Nadia':
  423. cla
  424. !!annaQW += 1
  425. NadiaQW -= 1
  426. minut += 15
  427. 'Nadia is not happy, light, no distractions, I have buyers.'
  428. act 'Further':gt 'rinwork', 'start'
  429. end
  430. elseif rintakrand = 3:
  431. $rintak = 'In the next tray Anna reading the newspaper.'
  432. act 'Chat with Anna':
  433. cla
  434. annaQW += 1
  435. !!NadiaQW -= 1
  436. minut += 15
  437. 'Anya support chat with you and tells you what nonsense.'
  438. act 'Further':gt 'rinwork', 'start'
  439. end
  440. elseif rintakrand = 4:
  441. $rintak = 'By Ana from a nearby tray approached buyers.'
  442. act 'Chat with Anna':
  443. cla
  444. annaQW -= 1
  445. !!NadiaQW -= 1
  446. minut += 15
  447. 'Anya is not happy, light, no distractions, I have buyers.'
  448. act 'Further':gt 'rinwork', 'start'
  449. end
  450. elseif rintakrand = 5:
  451. $rintak = 'By Ana approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly scared silent.'
  452. act 'Look at Anya and Caucasians.':
  453. cla
  454. !!annaQW += 1
  455. !!NadiaQW += 1
  456. !!tetaKataQW += 1
  457. minut += 15
  458. 'Caucasians seem to be leaning toward sex Anya.'
  459. act 'Further':gt 'rinwork', 'start'
  460. end
  461. end
  462. '<<$rintak>>'
  463. elseif hour = 12:
  464. rintakrand = rand(0, 5)
  465. if rintakrand = 0:
  466. $rintak = 'Hasan bought cheburek and eating it while sitting behind Nadi in the tray.'
  467. act 'Chat with Nadia':
  468. cla
  469. !!annaQW += 1
  470. NadiaQW -= 1
  471. minut += 15
  472. 'Nadia shy to talk with Hassan.'
  473. act 'Further':gt 'rinwork', 'start'
  474. end
  475. elseif rintakrand = 1:
  476. $rintak = 'Nadia Thorog with buyers.'
  477. act 'Chat with Nadia':
  478. cla
  479. !!annaQW += 1
  480. NadiaQW -= 1
  481. minut += 15
  482. 'Nadia is not happy, light, no distractions, I have buyers.'
  483. act 'Further':gt 'rinwork', 'start'
  484. end
  485. elseif rintakrand = 2:
  486. $rintak = 'Nadia talks with Anna.'
  487. act 'Chat with girls':
  488. cla
  489. annaQW += 1
  490. NadiaQW += 1
  491. minut += 15
  492. talkrand = rand(0, 2)
  493. if talkrand = 0:
  494. 'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
  495. if clener = 0:clener = 1
  496. elseif talkrand = 1:'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
  497. act 'Further':gt 'rinwork', 'start'
  498. end
  499. elseif rintakrand = 3:
  500. $rintak = 'Anya sells clothing buyers.'
  501. act 'Chat with Anna':
  502. cla
  503. annaQW -= 1
  504. !!NadiaQW -= 1
  505. minut += 15
  506. 'Anya is not happy, light, no distractions, I have buyers.'
  507. act 'Further':gt 'rinwork', 'start'
  508. end
  509. elseif rintakrand = 4:
  510. $rintak = 'Anya drinking coffee sitting at his tray.'
  511. act 'Chat with Anna':
  512. cla
  513. annaQW += 1
  514. !!NadiaQW -= 1
  515. minut += 15
  516. 'Anya support chat with you and tells you what nonsense.'
  517. act 'Further':gt 'rinwork', 'start'
  518. end
  519. elseif rintakrand = 5:
  520. $rintak = 'Nadia idleness catches flies.'
  521. act 'Chat with Nadia':
  522. cla
  523. !!annaQW += 1
  524. NadiaQW += 2
  525. minut += 15
  526. 'Nadia glad though what that entertainment and fun to chat with you.'
  527. act 'Further':gt 'rinwork', 'start'
  528. end
  529. end
  530. '<<$rintak>>'
  531. elseif hour = 13:
  532. rintakrand = rand(0, 5)
  533. if rintakrand = 0:
  534. $rintak = 'Hassan began to slowly collect the goods from Nadi.'
  535. elseif rintakrand = 1:
  536. $rintak = 'Anya sits and calculates profit per day.'
  537. elseif rintakrand = 2:
  538. $rintak = 'Nadia calculates profit per day.'
  539. elseif rintakrand = 3:
  540. $rintak = 'Abdul began to collect the goods from Ani.'
  541. elseif rintakrand = 4:
  542. $rintak = 'Past your tray was Arthur.'
  543. else
  544. $rintak = 'Aunt Katya ends trade pies and seems to leave.'
  545. end
  546. '<<$rintak>>'
  547. end
  548. if money >= 200:
  549. act 'Buy a snack (200 rubles) (0:15)':
  550. cla
  551. *clr
  552. gs 'stat'
  553. tetaKataQW += 1
  554. minut += 15
  555. health += 10
  556. manna += 20
  557. money -= 200
  558. '<center><img src="images/pics/food.jpg"></center>'
  559. if energy >= 30:
  560. fat += 5
  561. 'You can no longer eat.'
  562. elseif energy >= 20 and energy < 30:
  563. fat += 3
  564. energy += 10
  565. 'You pushed through the power of a meal.'
  566. elseif energy < 20:
  567. energy += 20
  568. !!fat += 1
  569. 'You gladly ate cooked food.'
  570. end
  571. if water >= 20:
  572. 'Coffee you no longer climbs.'
  573. elseif water < 20:
  574. water += 20
  575. 'You gladly drank a mug of coffee.'
  576. end
  577. act 'Throw leftovers':gt 'rinwork', 'start'
  578. end
  579. end
  580. end
  581. end
  582. --- rinwork ---------------------------------