088_rinwork 19 KB

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