1
0

rinwork 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694
  1. # rinwork
  2. if $ARGS[0] = 'start':
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. $answerrin = {
  8. if tipred = pokti:
  9. if pokvnirand = 0:
  10. pokpay = rand(1000, 1200)
  11. elseif pokvnirand = 1:
  12. pokpay = rand(1200, 1500)
  13. elseif pokvnirand = 2:
  14. pokpay = rand(1500, 2000)
  15. end
  16. else
  17. $rinitog = '<<$poktip>> puts the item back and leaves.'
  18. pokupatel = 0
  19. end
  20. }
  21. $answerrin2 = {
  22. act 'Name the price':
  23. cla
  24. prodpay = input ("Enter the selling price")
  25. if prodpay < 1000:prodpay = prodpayum
  26. 'You tell them <<prodpay>> <b>₽</b>'
  27. if prodpay <= pokpay:
  28. poknorand = rand(1, 100 + vnesh/4)
  29. if poknorand >= 10:
  30. rinmon += prodpay
  31. rinvesh += 1
  32. 'The buyer takes the item and pays <<prodpay>> <b>₽</b>.'
  33. act 'Trading on':gt 'rinwork', 'start'
  34. else
  35. 'The buyer twirls clothing in thier hands <<prodpay>> <b>₽</b> is too expensive.'
  36. dynamic $answerrin3
  37. act 'I can not take less (take the item)':gt 'rinwork', 'start'
  38. end
  39. elseif prodpay > pokpay and prodpay <= pokpay + 100:
  40. poknorand = rand(1, 100 + vnesh/4)
  41. if poknorand >= 10:
  42. 'The buyer twirls clothing in thier hands <<prodpay>> <b>₽</b> is too expensive.'
  43. dynamic $answerrin3
  44. act 'I can not take less (take the item)':gt 'rinwork', 'start'
  45. else
  46. 'Buyer puts thing into place and leaves'
  47. act 'Trading on':gt 'rinwork', 'start'
  48. end
  49. elseif prodpay > pokpay + 100:
  50. 'The buyer puts the item back 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 by 100 <b>₽</b>':
  58. cla
  59. 'You have reduced the price by 100 <b>₽</b>.'
  60. poknorand = rand(1, 100 + vnesh/4)
  61. if poknorand >= 10:
  62. rinmon += prodpay - 100
  63. rinvesh += 1
  64. 'The buyer takes the item and pays <<prodpay - 100>> <b>₽</b>'
  65. act 'Trading on':gt 'rinwork', 'start'
  66. else
  67. 'The buyer puts the item back and leaves.'
  68. act 'Trading on':gt 'rinwork', 'start'
  69. end
  70. end
  71. elseif prodpay >= 1050:
  72. act 'Reduce the price by 50 <b>₽</b>':
  73. cla
  74. 'You have reduced the price by 50 <b>₽</b>.'
  75. poknorand = rand(1, 100 + vnesh/4)
  76. if poknorand >= 30:
  77. rinmon += prodpay - 50
  78. rinvesh += 1
  79. 'The buyer takes the item and pays <<prodpay - 50>> <b>₽</b>'
  80. act 'Trading on':gt 'rinwork', 'start'
  81. else
  82. 'The buyer puts the item back and leaves.'
  83. act 'Trading on':gt 'rinwork', 'start'
  84. end
  85. end
  86. end
  87. }
  88. cla
  89. *clr
  90. gs 'stat'
  91. '<center><b><font color="maroon">Marketplace</font></b></center>'
  92. '<center><img src="images/etogame/rinok.jpg"></center>'
  93. 'You stand at your clothes stall waiting for buyers.'
  94. 'Cash taken <<rinmon>> <b>₽</b>, You have sold <<rinvesh>> items.'
  95. 'The average price on the market <<prodpayum>>'
  96. if hour = 14:
  97. 'Arthur cames to you and you start to calculate how much you should give him.'
  98. act 'Give money to Arthur':
  99. cla
  100. *clr
  101. rinart = rinvesh * 1000
  102. rinmon -= rinart
  103. money += rinmon
  104. gs 'stat'
  105. 'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
  106. 'Today you have earned <<rinmon>> <b>₽</b>'
  107. if rinart < arturplan:
  108. arturnoo += 1
  109. 'Uh, <<$name>>, this is bad, you haven''t made enough money. You will completely ruin me.'
  110. else
  111. arturyes += 1
  112. 'Well done <<$name>>, good job.'
  113. end
  114. if arturnoo > arturyes:arturnoo = arturnoo - arturyes & arturyes = 0
  115. if arturyes > arturnoo:arturyes = arturyes - arturnoo & arturnoo = 0
  116. if arturnoo = arturyes:arturnoo = 0 & arturyes = 0
  117. rinmon = 0
  118. rinvesh = 0
  119. if arturnoo > 10:
  120. arturnoo = 0
  121. work = 0
  122. workrin = 0
  123. 'Uh, you''re fucking useless. Here''s your papers. Hit the road, I do not want to see you ever again!'
  124. act 'Leave':gt 'street'
  125. exit
  126. end
  127. rinrand = rand(1, 400)
  128. if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
  129. '"Hey <<$name>>, you and I have not even met properly. Come into the warehouse, eat barbecue, drink and get acquainted.'
  130. act 'Refuse':
  131. cla
  132. 'You start making excuses. Arthur says to you, "Hey, don''t insult me, your stall have is dirty, it has dust and dirt all over it. I should fine you, but if you''re nice I let you off.'
  133. act 'Goto warehouse':gt 'RynokHoz', 'the_beginning'
  134. act 'No':
  135. cla
  136. arturplan += 1000
  137. if money >= 1000:
  138. money -= 1000
  139. 'Hey, your stall is dirty, you owe a thousand <b>₽</b>, in fine. Arthur takes the money.'
  140. else
  141. 'Go with him, before it gets worse'
  142. end
  143. act 'Leave.':gt 'street'
  144. end
  145. end
  146. act 'Goto warehouse':gt 'RynokHoz', 'the_beginning'
  147. exit
  148. elseif rinrand < vnesh and palevorin = 0 and rinhoz = 1:
  149. '"Hey <<$name>>. Come into the warehouse, eat barbecue, drink, rest." He walks right up to you and slaps you on the ass.'
  150. act 'Refuse':
  151. cla
  152. 'You start making excuses. Arthur says to you, "Hey, don''t insult me, your stall have is dirty, it has dust and dirt all over it. I should fine you, but if you''re nice I let you off.'
  153. act 'Goto warehouse':gt 'RynokHoz', 'the_beginning'
  154. act 'No':
  155. cla
  156. arturplan += 1000
  157. if money >= 1000:
  158. money -= 1000
  159. 'Hey, your stall is dirty, you owe a thousand <b>₽</b>, in fine. Arthur takes the money.'
  160. else
  161. 'Go with him, before it gets worse'
  162. end
  163. act 'Leave.':gt 'street'
  164. end
  165. end
  166. act 'Come':gt 'RynokHoz', 'the_beginning'
  167. exit
  168. end
  169. act 'Leave work':gt 'street'
  170. end
  171. exit
  172. elseif hour < 14:
  173. pokrand = rand(0, 1)
  174. if pokrand = 0:
  175. $pokup = 'You have no customers.'
  176. pokupatel = 0
  177. ''
  178. 'Aunt Katya pushes her trolley through the market carrying cakes and coffee.'
  179. else
  180. pokupatel = 1
  181. poktiprand = rand(0, 7)
  182. if poktiprand = 0:$pokup = 'A middle-aged man approaches your stall.' & $poktip = 'Man' & pokti = 1
  183. if poktiprand = 1:$pokup = 'A young man approaches your stall.' & $poktip = 'Guy' & pokti = 2
  184. if poktiprand = 2:$pokup = 'A teenage boy approaches your stall.' & $poktip = 'Boy' & pokti = 3
  185. if poktiprand = 3:$pokup = 'A woman approaches your stall.' & $poktip = 'Woman' & pokti = 1
  186. if poktiprand = 4:$pokup = 'A girl approaches your stall.' & $poktip = 'Girl' & pokti = 2
  187. if poktiprand = 5:$pokup = 'A teen girl approaches your stall.' & $poktip = 'Girlfriend' & pokti = 3
  188. if poktiprand = 6:$pokup = 'An old man approaches your stall.' & $poktip = 'Old man' & pokti = 0
  189. if poktiprand = 7:$pokup = 'A Grandma approaches your stall.' & $poktip = 'Granny' & pokti = 0
  190. end
  191. '<b><<$pokup>></b>'
  192. if pokupatel = 1:
  193. act 'What do you want?':
  194. cla
  195. minut += 15
  196. pokvnirand = rand(0, 2)
  197. if pokvnirand = 0:
  198. '<<$poktip>> with little interest examines your wares.'
  199. elseif pokvnirand = 1:
  200. '<<$poktip>> with interest looks through the clothes for sale.'
  201. elseif pokvnirand = 2:
  202. '<<$poktip>> picks up the item.'
  203. end
  204. !!dynamic $answerrin
  205. act 'Now this is very fashionable':
  206. cla
  207. tipred = 3
  208. dynamic $answerrin
  209. '<<$rinitog>>'
  210. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  211. if pokupatel = 1:
  212. '<<$poktip>> asks you for a price'
  213. dynamic $answerrin2
  214. end
  215. end
  216. act 'This item is very high quality and reliable':
  217. cla
  218. tipred = 1
  219. dynamic $answerrin
  220. '<<$rinitog>>'
  221. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  222. if pokupatel = 1:
  223. '<<$poktip>> asks you for a price'
  224. dynamic $answerrin2
  225. end
  226. end
  227. act 'You''ll find this very reasonable':
  228. cla
  229. tipred = 0
  230. dynamic $answerrin
  231. '<<$rinitog>>'
  232. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  233. if pokupatel = 1:
  234. '<<$poktip>> asks you for a price'
  235. dynamic $answerrin2
  236. end
  237. end
  238. act 'That is so you':
  239. cla
  240. tipred = 2
  241. dynamic $answerrin
  242. '<<$rinitog>>'
  243. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  244. if pokupatel = 1:
  245. '<<$poktip>> asks you for a price'
  246. dynamic $answerrin2
  247. end
  248. end
  249. end
  250. end
  251. act 'Laze around (0:15)':
  252. minut += 15
  253. gt 'rinwork', 'start'
  254. end
  255. if hour = 9:
  256. rintakrand = rand(0, 5)
  257. if rintakrand = 0:
  258. $rintak = ' Hassan unloads clothes in front of saleswoman Nadias stall.'
  259. act 'See Hassan and Nadia':
  260. cla
  261. minut += 15
  262. talkrand = rand(0, 2)
  263. if talkrand = 0:'Hassan utters to Nadia. "Today you will sell more, and to the rich ladies, I need the money."'
  264. if talkrand = 1:'Hassan opens trunks and puts clothes on the counter.'
  265. if talkrand = 2:'Hassan drags trunks to his stall.'
  266. act 'Further':gt 'rinwork', 'start'
  267. end
  268. elseif rintakrand = 1:
  269. $rintak = 'On the next stall Abdul is talking loudly aand giving clothes to saleswoman Anna.'
  270. act 'Look at Abdul and Anna':
  271. cla
  272. minut += 15
  273. talkrand = rand(0, 2)
  274. if talkrand = 0:'Abdul swears. "We''re fucked, you can not sell anything!" Anna retorts, "You give me this rotten shit to sell, take it nobody wants it."'
  275. if talkrand = 1:'Abdul slaps Annas ass, she pretends that nothing happened.'
  276. if talkrand = 2:'Abdul drags trunks to his stall.'
  277. act 'Further':gt 'rinwork', 'start'
  278. end
  279. elseif rintakrand = 2:
  280. $rintak = 'Abdul and Hassan stand beside your stall and saying something guttural.'
  281. act 'View the Caucasians':
  282. cla
  283. minut += 15
  284. talkrand = rand(0, 2)
  285. if talkrand = 0:'Abdul and Hassan continue to talk about something, you do not know the language, and can not understand what they say.'
  286. if talkrand = 1:'Abdul and Hassan ignore you and discuss what sounds like clothes prices.'
  287. if talkrand = 2:'Abdul looks at you and says to Hassan, "Look at that a girl, good fuck, yeah."'
  288. act 'Further':gt 'rinwork', 'start'
  289. end
  290. elseif rintakrand = 3:
  291. $rintak = 'Anna hangs clothes on her stall shouting at Nadia.'
  292. act 'Chat with girls':
  293. cla
  294. annaQW += 1
  295. NadiaQW += 1
  296. minut += 15
  297. talkrand = rand(0, 2)
  298. if talkrand = 0:
  299. 'Anna tells you that her skirt needed altering, there is a great Jewish tailor, his shop is nearby.'
  300. else
  301. 'Nadia tells her how some pervert molested her on the subway rubbing his dick on her ass.'
  302. end
  303. act 'Further':gt 'rinwork', 'start'
  304. end
  305. elseif rintakrand = 4:
  306. $rintak = 'Arthur is talking about something with Abdullah.'
  307. act 'View the Caucasians':
  308. cla
  309. minut += 15
  310. talkrand = rand(0, 2)
  311. if talkrand = 0:'Abdul and Arthur continue to talk about something, you do not know the language, and can not understand what they say.'
  312. if talkrand = 1:'Abdul and Arthur ignore you and discuss what sounds like clothes prices.'
  313. if talkrand = 2:'Abdul looks at you and says to Arthur, "Nice girl you got there, you fucking her?."'
  314. act 'Further':gt 'rinwork', 'start'
  315. end
  316. elseif rintakrand = 5:
  317. $rintak = 'Arthur, Abdul Hassan are neighing loudly and talk about something in foreign language.'
  318. act 'View the Caucasians':
  319. cla
  320. minut += 15
  321. talkrand = rand(0, 2)
  322. if talkrand = 0:'Caucasians continue to talk about something, you do not know the language, and can not understand what they say.'
  323. if talkrand = 1:'Caucasians ignore you and discuss what sounds like clothes prices.'
  324. if talkrand = 2:'Abdul looks at you and says to the other Caucasians, "Pretty little girl, can i have her?"'
  325. act 'Further':gt 'rinwork', 'start'
  326. end
  327. end
  328. '<<$rintak>>'
  329. elseif hour = 10:
  330. rintakrand = rand(0, 5)
  331. if rintakrand = 0:
  332. $rintak = 'Hassan sits on a chair dejectedly chewing food and talking with his mouth full with saleswoman Nadia.'
  333. act 'Watch Hasan':
  334. cla
  335. minut += 15
  336. 'Hassan says to Nadia "Nadia, why you refuse? Come here, have some wine."'
  337. act 'Further':gt 'rinwork', 'start'
  338. end
  339. elseif rintakrand = 1:
  340. $rintak = 'At the stall in front of you sits Nadia doing crossword puzzles.'
  341. act 'Chat with Nadia':
  342. cla
  343. !!annaQW += 1
  344. NadiaQW += 1
  345. minut += 15
  346. 'Nadia leaves the crossword and willingly gossips with you.'
  347. act 'Further':gt 'rinwork', 'start'
  348. end
  349. elseif rintakrand = 2:
  350. $rintak = 'Nadias stall in front of you has many buyers and she fusses before them laying out goods.'
  351. act 'Chat with Nadia':
  352. cla
  353. !!annaQW += 1
  354. NadiaQW -= 1
  355. minut += 15
  356. 'Nadia is not happy, "Shoo, no distractions, I have buyers."'
  357. act 'Further':gt 'rinwork', 'start'
  358. end
  359. elseif rintakrand = 3:
  360. $rintak = 'At the next stall Anna is drinking coffee.'
  361. act 'Chat with Anna':
  362. cla
  363. annaQW += 1
  364. !!NadiaQW -= 1
  365. minut += 15
  366. 'Anna is happy to chat with you about any old nonsense.'
  367. act 'Further':gt 'rinwork', 'start'
  368. end
  369. elseif rintakrand = 4:
  370. $rintak = 'At the next stall Anna tries to interest buyers in her goods.'
  371. act 'Chat with Anna':
  372. cla
  373. annaQW -= 1
  374. !!NadiaQW -= 1
  375. minut += 15
  376. 'Anya is not happy, "Shoo, no distractions, I have buyers."'
  377. act 'Further':gt 'rinwork', 'start'
  378. end
  379. elseif rintakrand = 5:
  380. $rintak = 'Anna is gossiping with Aunt Katya.'
  381. act 'Chat with Anna and Aunt Katya':
  382. cla
  383. annaQW += 1
  384. !!NadiaQW += 1
  385. tetaKataQW += 1
  386. minut += 15
  387. 'Aunt Katya is talking about her pies and Anya complains that it because of her bloody pies that her ass is twice as big as it was...'
  388. act 'Further':gt 'rinwork', 'start'
  389. end
  390. end
  391. '<<$rintak>>'
  392. elseif hour = 11:
  393. rintakrand = rand(0, 5)
  394. if rintakrand = 0:
  395. $rintak = 'Nadia is approached by three Caucasian, Aslan, Camille and Mukhtar and they begin to molest her, she swears at them and tries to dodge.'
  396. act 'Look at Nadia and Caucasians.':
  397. cla
  398. !!annaQW += 1
  399. !!NadiaQW += 1
  400. !!tetaKataQW += 1
  401. minut += 15
  402. 'The Caucasians seem to be trying to persude Nadia to have sex with them.'
  403. act 'Further':gt 'rinwork', 'start'
  404. end
  405. elseif rintakrand = 1:
  406. $rintak = 'At the stall in front of you sits Nadia eating cake.'
  407. act 'Chat with Nadia':
  408. cla
  409. !!annaQW += 1
  410. NadiaQW += 1
  411. minut += 15
  412. 'Nadia finishes the cake and mubbles about the usual nonsense with you.'
  413. if clener = 0:
  414. clener = 1
  415. 'Nadia tells you about an office building not too far away that is looking for a cleaner.'
  416. end
  417. act 'Further':gt 'rinwork', 'start'
  418. end
  419. elseif rintakrand = 2:
  420. $rintak = 'Nadias stall in front of you has many buyers and she fusses before them laying out goods.'
  421. act 'Chat with Nadia':
  422. cla
  423. !!annaQW += 1
  424. NadiaQW -= 1
  425. minut += 15
  426. 'Nadia is not happy, "Shoo, no distractions, I have buyers."'
  427. act 'Further':gt 'rinwork', 'start'
  428. end
  429. elseif rintakrand = 3:
  430. $rintak = 'At the next stall Anna is reading a newspaper.'
  431. act 'Chat with Anna':
  432. cla
  433. annaQW += 1
  434. !!NadiaQW -= 1
  435. minut += 15
  436. 'Anna is happy to chat with you about any old nonsense.'
  437. act 'Further':gt 'rinwork', 'start'
  438. end
  439. elseif rintakrand = 4:
  440. $rintak = 'At the next stall Anna tries to interest buyers in her goods.'
  441. act 'Chat with Anna':
  442. cla
  443. annaQW -= 1
  444. !!NadiaQW -= 1
  445. minut += 15
  446. 'Anya is not happy, "Shoo, no distractions, I have buyers."'
  447. act 'Further':gt 'rinwork', 'start'
  448. end
  449. elseif rintakrand = 5:
  450. $rintak = 'Nadia is approached by three Caucasian, Aslan, Camille and Mukhtar and they begin to molest her, she swears at them and tries to dodge.'
  451. act 'Look at Nadia and Caucasians.':
  452. cla
  453. !!annaQW += 1
  454. !!NadiaQW += 1
  455. !!tetaKataQW += 1
  456. minut += 15
  457. 'The Caucasians seem to be trying to persude Nadia to have sex with them.'
  458. act 'Further':gt 'rinwork', 'start'
  459. end
  460. end
  461. '<<$rintak>>'
  462. elseif hour = 12:
  463. rintakrand = rand(0, 5)
  464. if rintakrand = 0:
  465. $rintak = 'Hasan has bought chebureki and is eating it while sitting behind Nadia in the stall.'
  466. act 'Chat with Nadia':
  467. cla
  468. !!annaQW += 1
  469. NadiaQW -= 1
  470. minut += 15
  471. 'Nadia shies away from talking in front of Hassan.'
  472. act 'Further':gt 'rinwork', 'start'
  473. end
  474. elseif rintakrand = 1:
  475. $rintak = 'Nadia is surrounded by customers.'
  476. act 'Chat with Nadia':
  477. cla
  478. !!annaQW += 1
  479. NadiaQW -= 1
  480. minut += 15
  481. 'Nadia is not happy, "Shoo, no distractions, I have buyers."'
  482. act 'Further':gt 'rinwork', 'start'
  483. end
  484. elseif rintakrand = 2:
  485. $rintak = 'Nadia talks with Anna.'
  486. act 'Chat with girls':
  487. cla
  488. annaQW += 1
  489. NadiaQW += 1
  490. minut += 15
  491. talkrand = rand(0, 2)
  492. if talkrand = 0:
  493. 'Anna tells you that her friend used to clean an office building not far from here, they are looking for a new cleaner if you need to make some extra cash.'
  494. if clener = 0:clener = 1
  495. elseif talkrand = 1:
  496. 'Nadia tells her how some pervert molested her on the subway rubbing his dick on her ass.'
  497. end
  498. act 'Further':gt 'rinwork', 'start'
  499. end
  500. elseif rintakrand = 3:
  501. $rintak = 'Anna is selling clothing to customers.'
  502. act 'Chat with Anna':
  503. cla
  504. annaQW -= 1
  505. !!NadiaQW -= 1
  506. minut += 15
  507. 'Anna is not happy, "Shoo, no distractions, I have buyers."'
  508. act 'Further':gt 'rinwork', 'start'
  509. end
  510. elseif rintakrand = 4:
  511. $rintak = 'Anna is drinking coffee sitting at her stall.'
  512. act 'Chat with Anna':
  513. cla
  514. annaQW += 1
  515. !!NadiaQW -= 1
  516. minut += 15
  517. 'Anna happily chats with you about nonsense.'
  518. act 'Further':gt 'rinwork', 'start'
  519. end
  520. elseif rintakrand = 5:
  521. $rintak = 'Nadia is idly trying to catch flies.'
  522. act 'Chat with Nadia':
  523. cla
  524. !!annaQW += 1
  525. NadiaQW += 2
  526. minut += 15
  527. 'Nadia glad for the distraction and has fun chatting with you.'
  528. act 'Further':gt 'rinwork', 'start'
  529. end
  530. end
  531. '<<$rintak>>'
  532. elseif hour = 13:
  533. rintakrand = rand(0, 5)
  534. if rintakrand = 0:
  535. $rintak = 'Hassan begins to slowly collect goods from Nadia.'
  536. elseif rintakrand = 1:
  537. $rintak = 'Anya sits and calculates her profit for the day.'
  538. elseif rintakrand = 2:
  539. $rintak = 'Nadia calculates her days profit.'
  540. elseif rintakrand = 3:
  541. $rintak = 'Abdul begins collecting goods from Anna.'
  542. elseif rintakrand = 4:
  543. $rintak = 'Past your stall walks Arthur.'
  544. else
  545. $rintak = 'Aunt Katya stops trading pies and leaves.'
  546. end
  547. '<<$rintak>>'
  548. end
  549. if money >= 200:
  550. act 'Buy a snack (200 <b>₽</b>) (0:15)':
  551. tetaKataQW += 1
  552. money -= 200
  553. gs 'kit_din'
  554. dynamic $snack
  555. end
  556. end
  557. end
  558. end
  559. --- rinwork ---------------------------------