088_rinwork 18 KB

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