088_rinwork 38 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303
  1. # rinwork
  2. <<<<<<< 088_rinwork
  3. if $ARGS[0] = 'start':
  4. $answerrin = {
  5. if tipred = pokti:
  6. if pokvnirand = 0:
  7. pokpay = RAND(1000,1200)
  8. end
  9. if pokvnirand = 1:
  10. pokpay = RAND(1200,1500)
  11. end
  12. if pokvnirand = 2:
  13. pokpay = RAND(1500,2000)
  14. end
  15. else
  16. $rinitog = '<<$poktip>> puts the thing in place and leaves'
  17. pokupatel = 0
  18. end
  19. }
  20. $answerrin2 = {
  21. act 'Name the price':
  22. cla
  23. prodpay = input ("Enter the selling price")
  24. if prodpay < 1000: prodpay = prodpayum
  25. 'You set a price in <<prodpay>> rubles'
  26. if prodpay <= pokpay:
  27. poknorand = RAND(1,100 + vnesh)
  28. if poknorand >= 10:
  29. rinmon += prodpay
  30. rinvesh += 1
  31. 'Buyer collected and paid item <<prodpay>> rubles'
  32. act 'Trading on': gt 'rinwork','start'
  33. else
  34. 'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
  35. dynamic $answerrin3
  36. act 'Less I can not (take the thing)': gt 'rinwork','start'
  37. end
  38. end
  39. if prodpay > pokpay and prodpay <= pokpay + 100:
  40. poknorand = RAND(1,100 + vnesh)
  41. if poknorand >= 10:
  42. 'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
  43. dynamic $answerrin3
  44. act 'Less I can not (take the thing)': gt 'rinwork','start'
  45. else
  46. 'Buyer puts thing into place and leaves'
  47. act 'Trading on': gt 'rinwork','start'
  48. end
  49. end
  50. if prodpay > pokpay+100:
  51. 'Buyer puts thing into place and leaves'
  52. act 'Trading on': gt 'rinwork','start'
  53. end
  54. end
  55. }
  56. $answerrin3 = {
  57. if prodpay >= 1100:
  58. act 'Reduce the price of 100 rubles':
  59. cla
  60. 'You have reduced the price to 100 rubles.'
  61. poknorand = RAND(1,100 + vnesh)
  62. if poknorand >= 10:
  63. rinmon += prodpay - 100
  64. rinvesh += 1
  65. 'Buyer collected and paid item <<prodpay-100>> rubles'
  66. act 'Trading on': gt 'rinwork','start'
  67. else
  68. 'Buyer puts thing into place and leaves'
  69. act 'Trading on': gt 'rinwork','start'
  70. end
  71. end
  72. =======
  73. if $ARGS[0]='start':
  74. $answerrin={
  75. if tipred=pokti:
  76. if pokvnirand=0:
  77. pokpay=RAND(1000,1200)
  78. end
  79. if pokvnirand=1:
  80. pokpay=RAND(1200,1500)
  81. end
  82. if pokvnirand=2:
  83. pokpay=RAND(1500,2000)
  84. end
  85. else
  86. $rinitog='<<$poktip>> puts thing into place and leaves'
  87. pokupatel=0
  88. end
  89. }
  90. $answerrin2={
  91. act 'call price':
  92. cla
  93. prodpay = input ("Enter the price of things")
  94. if prodpay<1000:prodpay=prodpayum
  95. 'You set a price in <<prodpay>> rubles'
  96. if prodpay<=pokpay:
  97. poknorand=RAND(1,100+vnesh)
  98. if poknorand>=10:
  99. rinmon+=prodpay
  100. rinvesh+=1
  101. 'The buyer took the thing and paid <<prodpay>> rubles'
  102. act 'trading on':gt'rinwork','start'
  103. else
  104. 'The buyer turns the thing in his hands, <<prodpay>> rubles is too expensive'
  105. dynamic $answerrin3
  106. act 'I can not less, (pick up a thing)':gt'rinwork','start'
  107. end
  108. end
  109. if prodpay>pokpay and prodpay<=pokpay+100:
  110. poknorand=RAND(1,100+vnesh)
  111. if poknorand>=10:
  112. 'The buyer turns the thing in his hands, <<prodpay>> rubles is too expensive'
  113. dynamic $answerrin3
  114. act 'I can not less, (pick up a thing)':gt'rinwork','start'
  115. else
  116. 'The buyer puts thing into place and leaves'
  117. act 'trading on':gt'rinwork','start'
  118. end
  119. end
  120. if prodpay>pokpay+100:
  121. 'The buyer puts thing into place and leaves'
  122. act 'trading on':gt'rinwork','start'
  123. end
  124. end
  125. }
  126. $answerrin3={
  127. if prodpay>=1100:
  128. act 'Reduce the price 100 RUB':
  129. cla
  130. 'You have reduced the price to 100 rubles.'
  131. poknorand=RAND(1,100+vnesh)
  132. if poknorand>=10:
  133. rinmon+=prodpay-100
  134. rinvesh+=1
  135. 'The buyer took the thing and paid <<prodpay-100>> rubles'
  136. act 'trading on':gt'rinwork','start'
  137. else
  138. 'The buyer puts thing into place and leaves'
  139. act 'trading on':gt'rinwork','start'
  140. end
  141. end
  142. >>>>>>> 088_rinwork
  143. end
  144. <<<<<<< 088_rinwork
  145. if prodpay >= 1050:
  146. act 'Reduce the price of 50 rubles':
  147. cla
  148. 'You have reduced the price to 50 rubles.'
  149. poknorand = RAND(1,100 + vnesh)
  150. if poknorand >= 30:
  151. rinmon += prodpay - 50
  152. rinvesh += 1
  153. 'Buyer collected and paid item <<prodpay-50>> rubles'
  154. act 'Trading on': gt 'rinwork','start'
  155. else
  156. 'Buyer puts thing into place and leaves'
  157. act 'Trading on': gt 'rinwork','start'
  158. end
  159. end
  160. =======
  161. if prodpay>=1050:
  162. act 'Reduce the price 50 RUB':
  163. cla
  164. 'You have reduced the price to 50 rubles.'
  165. poknorand=RAND(1,100+vnesh)
  166. if poknorand>=30:
  167. rinmon+=prodpay-50
  168. rinvesh+=1
  169. 'The buyer took the thing and paid <<prodpay-50>> rubles'
  170. act 'trading on':gt'rinwork','start'
  171. else
  172. 'The buyer puts thing into place and leaves'
  173. act 'trading on':gt'rinwork','start'
  174. end
  175. end
  176. >>>>>>> 088_rinwork
  177. end
  178. }
  179. cla
  180. *clr
  181. <<<<<<< 088_rinwork
  182. gs 'stat'
  183. '<center><B><font color = maroon>Trade</font></B></center>'
  184. '<center><img src="images\etogame\rinok.jpg"></center>'
  185. 'You stand in the tray with the clothes in anticipation of buyers.'
  186. 'At the box office <<rinmon>> rubles, Sales <<rinvesh>> things.'
  187. 'The average price on the market <<prodpayum>>'
  188. if hour = 14:
  189. 'Arthur came to you and you started to calculate how much you should give to Arthur.'
  190. act 'Giving money to Arthur':
  191. cla
  192. *clr
  193. rinart = rinvesh * 1000
  194. rinmon = rinmon - rinart
  195. money += rinmon
  196. 'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
  197. 'Today you have earned <<rinmon>> rubles'
  198. gs 'stat'
  199. if rinart < arturplan:
  200. arturnoo += 1
  201. 'Uh, Svetka, bad work, not enough money. You´re so razorish me completely.'
  202. else
  203. arturyes += 1
  204. 'Maladets Svetik, good job.'
  205. end
  206. if arturnoo > arturyes: arturnoo = arturnoo - arturyes & arturyes = 0
  207. if arturyes > arturnoo: arturyes = arturyes - arturnoo & arturnoo = 0
  208. if arturnoo = arturyes: arturnoo = 0 & arturyes = 0
  209. rinmon = 0
  210. rinvesh = 0
  211. if arturnoo > 10:
  212. arturnoo = 0
  213. work = 0
  214. workrin = 0
  215. 'Uh, you´ve fucked savsem. Here´s your labor. Hit the road that I did not see you anymore!'
  216. act 'Leave': gt 'street'
  217. exit
  218. end
  219. Set rinrand = RAND(1,100)
  220. if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
  221. '(Arthur) - Wai Svetik, you and I have not even met properly. Come into the container, ate barbecue, drink and get acquainted.'
  222. act 'Refuse':
  223. cla
  224. '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.'
  225. act 'Okay, let´s go have a drink': gt 'RynokHoz','start'
  226. act 'No.':
  227. cla
  228. arturplan += 1000
  229. if money >= 1000:
  230. money -= 1000
  231. 'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
  232. else
  233. 'Okay, go already.'
  234. end
  235. act 'Leave.': gt 'street'
  236. end
  237. end
  238. act 'Come': gt 'RynokHoz','start'
  239. exit
  240. end
  241. if rinrand < vnesh and palevorin = 0 and rinhoz = 1:
  242. '(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.'
  243. act 'Refuse':
  244. cla
  245. '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.'
  246. act 'Okay, let´s go have a drink': gt 'RynokHoz','start'
  247. act 'No.':
  248. cla
  249. arturplan += 1000
  250. if money >= 1000:
  251. money -= 1000
  252. 'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
  253. else
  254. 'Okay, go already.'
  255. end
  256. act 'Leave.': gt 'street'
  257. end
  258. end
  259. act 'Come': gt 'RynokHoz','start'
  260. exit
  261. end
  262. act 'Leave work': gt 'street'
  263. end
  264. exit
  265. end
  266. if hour < 14:
  267. pokrand = RAND(0,1)
  268. if pokrand = 0:
  269. $pokup = 'Buyers can not see.'
  270. pokupatel = 0
  271. ''
  272. 'Market is Aunt Katya with trolley in which it carries cakes and coffee.'
  273. end
  274. if pokrand = 1:
  275. poktiprand = RAND(0,7)
  276. pokupatel = 1
  277. if poktiprand = 0:$pokup = 'To the tray approached middle-aged man.' & $poktip = 'Man'&pokti = 1
  278. if poktiprand = 1:$pokup = 'To the tray approached by a young man.' & $poktip = 'Guy'&pokti = 2
  279. if poktiprand = 2:$pokup = 'Guy came to the tray teenager.' & $poktip = 'Boy'&pokti = 3
  280. if poktiprand = 3:$pokup = 'A woman came up to the tray.' & $poktip = 'Woman'&pokti = 1
  281. if poktiprand = 4:$pokup = 'Girl came to the tray.' & $poktip = 'Girl'&pokti = 2
  282. if poktiprand = 5:$pokup = 'To the tray approached teen girl.' & $poktip = 'Girlfriend'&pokti = 3
  283. if poktiprand = 6:$pokup = 'Approached the old man to the tray.' & $poktip = 'Old man'&pokti = 0
  284. if poktiprand = 7:$pokup = 'Grandma went to the tray.' & $poktip = 'Granny'&pokti = 0
  285. end
  286. '<b><<$pokup>></B>'
  287. if pokupatel = 1:
  288. act 'What do you want?':
  289. cla
  290. minut += 15
  291. pokvnirand = RAND(0,2)
  292. if pokvnirand = 0:
  293. '<<$poktip>> without interest examines selling things.'
  294. end
  295. if pokvnirand = 1:
  296. '<<$poktip>> with interest examining selling things.'
  297. end
  298. if pokvnirand = 2:
  299. '<<$poktip>> picks up the item.'
  300. end
  301. !dynamic $answerrin
  302. act 'Now it is very fashionable':
  303. cla
  304. tipred = 3
  305. dynamic $answerrin
  306. '<<$rinitog>>'
  307. if pokupatel = 0: act 'Further': gt 'rinwork','start'
  308. if pokupatel = 1:
  309. '<<$poktip>> asks you for a price'
  310. dynamic $answerrin2
  311. end
  312. end
  313. act 'Thing is very high quality and reliable':
  314. cla
  315. tipred = 1
  316. dynamic $answerrin
  317. '<<$rinitog>>'
  318. if pokupatel = 0: act 'Further': gt 'rinwork','start'
  319. if pokupatel = 1:
  320. '<<$poktip>> asks you for a price'
  321. dynamic $answerrin2
  322. end
  323. end
  324. act 'Give not expensive':
  325. cla
  326. tipred = 0
  327. dynamic $answerrin
  328. '<<$rinitog>>'
  329. if pokupatel = 0: act 'Further': gt 'rinwork','start'
  330. if pokupatel = 1:
  331. '<<$poktip>> asks you for a price'
  332. dynamic $answerrin2
  333. end
  334. end
  335. act 'You are very':
  336. cla
  337. tipred = 2
  338. dynamic $answerrin
  339. '<<$rinitog>>'
  340. if pokupatel = 0: act 'Further': gt 'rinwork','start'
  341. if pokupatel = 1:
  342. '<<$poktip>> asks you for a price'
  343. dynamic $answerrin2
  344. end
  345. end
  346. end
  347. end
  348. act 'Laze around (0:15)':
  349. minut += 15
  350. gt 'rinwork','start'
  351. end
  352. if hour = 9:
  353. rintakrand = RAND(0,5)
  354. if rintakrand = 0:
  355. $rintak = 'The tray in front of Hassan unloads clothes saleswoman Nadia.'
  356. act 'See Hassan and Nadia':
  357. cla
  358. minut += 15
  359. talkrand = RAND(0,2)
  360. if talkrand = 0: 'Nadia Hassan utters. "Today you will sell more, and then the fine ladies, I need the money."'
  361. if talkrand = 1: 'Hassan opens trunks and puts clothes on the counter.'
  362. if talkrand = 2: 'Hassan drags trunks to his tray.'
  363. act 'Further': gt 'rinwork','start'
  364. end
  365. end
  366. if rintakrand = 1:
  367. $rintak = 'In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
  368. act 'Look at Abdul and Anna':
  369. cla
  370. minut += 15
  371. talkrand = RAND(0,2)
  372. 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."'
  373. if talkrand = 1: 'Abdul slapped ass Anna, she pretended that nothing happened.'
  374. if talkrand = 2: 'Abdul drags trunks to his tray.'
  375. act 'Further': gt 'rinwork','start'
  376. end
  377. end
  378. if rintakrand = 2:
  379. $rintak = 'Abdul Hassan and stand beside your tray and about something guttural talking.'
  380. act 'View on Caucasians':
  381. cla
  382. minut += 15
  383. talkrand = RAND(0,2)
  384. if talkrand = 0: 'Abdul Hassan and continue to talk about something, you do not know the language, and what they say can not understand.'
  385. if talkrand = 1: 'Abdul Hassan pyalyatsya you and discussing what is yuk.'
  386. if talkrand = 2: 'Abdul looks at you and says Hassan, "Look what a girl, sponges persik, wah."'
  387. act 'Further': gt 'rinwork','start'
  388. end
  389. end
  390. if rintakrand = 3:
  391. $rintak = 'Anna hanging clothes in the tray and shouting with Nadia.'
  392. act 'Chat with sex':
  393. cla
  394. annaQW += 1
  395. NadiaQW += 1
  396. minut += 15
  397. talkrand = RAND(0,2)
  398. if talkrand = 0:
  399. 'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
  400. if clener = 0: clener = 1
  401. end
  402. if talkrand = 1: 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
  403. act 'Further': gt 'rinwork','start'
  404. end
  405. end
  406. if rintakrand = 4:
  407. $rintak = 'Arthur is talking about something with Abdullah.'
  408. act 'View on Caucasians':
  409. cla
  410. minut += 15
  411. talkrand = RAND(0,2)
  412. if talkrand = 0: 'Abdul and Arthur continue to talk about something, you do not know the language, and what they say can not understand.'
  413. if talkrand = 1: 'Abdul and Arthur pyalyatsya you and discussing what is yuk.'
  414. if talkrand = 2: 'Abdul looks at you and says Arthur, "Look what a girl, sponges persik, wah."'
  415. act 'Further': gt 'rinwork','start'
  416. end
  417. end
  418. if rintakrand = 5:
  419. $rintak = 'Arthur, Abdul Hassan and neighing loudly and talk about something not on the plain language.'
  420. act 'View on Caucasians':
  421. cla
  422. minut += 15
  423. talkrand = RAND(0,2)
  424. if talkrand = 0: 'Caucasians continue to talk about something, you do not know the language, and what they say can not understand.'
  425. if talkrand = 1: 'Caucasians pyalyatsya you and discussing what is yuk.'
  426. if talkrand = 2: 'Abdul looks at you and says other Caucasians, "Look what a girl, sponges persik, wah."'
  427. act 'Further': gt 'rinwork','start'
  428. end
  429. end
  430. '<<$rintak>>'
  431. end
  432. if hour = 10:
  433. rintakrand = RAND(0,5)
  434. if rintakrand = 0:
  435. $rintak = 'Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
  436. act 'See Hasan':
  437. cla
  438. minut += 15
  439. 'Hassan says Nadia "Nadia, zachem ti refuse? Encroach Shlyk, have some wine."'
  440. act 'Further': gt 'rinwork','start'
  441. end
  442. end
  443. if rintakrand = 1:
  444. $rintak = 'The tray is sitting in front of Nadia and crossword puzzles.'
  445. act 'Chat with Nadia':
  446. cla
  447. !annaQW += 1
  448. NadiaQW += 1
  449. minut += 15
  450. 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
  451. if clener = 0:
  452. clener = 1
  453. 'Nadia tells about a Jew tailor working in an office building.'
  454. end
  455. act 'Further': gt 'rinwork','start'
  456. end
  457. end
  458. if rintakrand = 2:
  459. $rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
  460. act 'Chat with Nadia':
  461. cla
  462. !annaQW += 1
  463. NadiaQW -= 1
  464. minut += 15
  465. 'Nadia is not happy, light, no distractions, I have buyers.'
  466. act 'Further': gt 'rinwork','start'
  467. end
  468. end
  469. if rintakrand = 3:
  470. $rintak = 'In the next tray Anna drinking coffee.'
  471. act 'Chat with Anna':
  472. cla
  473. annaQW += 1
  474. !NadiaQW -= 1
  475. minut += 15
  476. 'Anya support chat with you and tells you what nonsense.'
  477. act 'Further': gt 'rinwork','start'
  478. end
  479. end
  480. if rintakrand = 4:
  481. $rintak = 'In the next tray Anna tries vtyuhat buyers stale goods.'
  482. act 'Chat with Anna':
  483. cla
  484. annaQW -= 1
  485. !NadiaQW -= 1
  486. minut += 15
  487. 'Anya is not happy, light, no distractions, I have buyers.'
  488. act 'Further': gt 'rinwork','start'
  489. end
  490. end
  491. if rintakrand = 5:
  492. $rintak = 'Anna talks about trifles with Aunt Katya.'
  493. act 'Chat with Anna and Aunt Katya':
  494. cla
  495. annaQW += 1
  496. !NadiaQW += 1
  497. tetaKataQW += 1
  498. minut += 15
  499. 'Aunt Katya praises pies and Anya complains that it currently has on these patties Naela ass twice more than it was ..'
  500. act 'Further': gt 'rinwork','start'
  501. end
  502. end
  503. '<<$rintak>>'
  504. end
  505. if hour = 11:
  506. rintakrand = RAND(0,5)
  507. if rintakrand = 0:
  508. $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.'
  509. act 'Look at Nadia and Caucasians.':
  510. cla
  511. !annaQW += 1
  512. !NadiaQW += 1
  513. !tetaKataQW += 1
  514. minut += 15
  515. 'Caucasians seem to be leaning toward sex Nadia.'
  516. act 'Further': gt 'rinwork','start'
  517. end
  518. end
  519. if rintakrand = 1:
  520. $rintak = 'The tray is sitting in front of Nadia and eating cake.'
  521. act 'Chat with Nadia':
  522. cla
  523. !annaQW += 1
  524. NadiaQW += 1
  525. minut += 15
  526. 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
  527. if clener = 0:
  528. clener = 1
  529. 'Nadia tells about a Jew tailor working in an office building.'
  530. end
  531. act 'Further': gt 'rinwork','start'
  532. end
  533. end
  534. if rintakrand = 2:
  535. $rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
  536. act 'Chat with Nadia':
  537. cla
  538. !annaQW += 1
  539. NadiaQW -= 1
  540. minut += 15
  541. 'Nadia is not happy, light, no distractions, I have buyers.'
  542. act 'Further': gt 'rinwork','start'
  543. end
  544. end
  545. if rintakrand = 3:
  546. $rintak = 'In the next tray Anna reading the newspaper.'
  547. act 'Chat with Anna':
  548. cla
  549. annaQW += 1
  550. !NadiaQW -= 1
  551. minut += 15
  552. 'Anya support chat with you and tells you what nonsense.'
  553. act 'Further': gt 'rinwork','start'
  554. end
  555. end
  556. if rintakrand = 4:
  557. $rintak = 'By Ana from a nearby tray approached buyers.'
  558. act 'Chat with Anna':
  559. cla
  560. annaQW -= 1
  561. !NadiaQW -= 1
  562. minut += 15
  563. 'Anya is not happy, light, no distractions, I have buyers.'
  564. act 'Further': gt 'rinwork','start'
  565. end
  566. end
  567. if rintakrand = 5:
  568. $rintak = 'By Ana approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly scared silent.'
  569. act 'Look at Anya and Caucasians.':
  570. cla
  571. !annaQW += 1
  572. !NadiaQW += 1
  573. !tetaKataQW += 1
  574. minut += 15
  575. 'Caucasians seem to be leaning toward sex Anya.'
  576. act 'Further': gt 'rinwork','start'
  577. end
  578. end
  579. '<<$rintak>>'
  580. end
  581. if hour = 12:
  582. rintakrand = RAND(0,5)
  583. if rintakrand = 0:
  584. $rintak = 'Hasan bought cheburek and eating it while sitting behind Nadi in the tray.'
  585. act 'Chat with Nadia':
  586. cla
  587. !annaQW += 1
  588. NadiaQW -= 1
  589. minut += 15
  590. 'Nadia shy to talk with Hassan.'
  591. act 'Further': gt 'rinwork','start'
  592. end
  593. end
  594. if rintakrand = 1:
  595. $rintak = 'Nadia Thorog with buyers.'
  596. act 'Chat with Nadia':
  597. cla
  598. !annaQW += 1
  599. NadiaQW -= 1
  600. minut += 15
  601. 'Nadia is not happy, light, no distractions, I have buyers.'
  602. act 'Further': gt 'rinwork','start'
  603. end
  604. end
  605. if rintakrand = 2:
  606. $rintak = 'Nadia talks with Anna.'
  607. act 'Chat with sex':
  608. cla
  609. annaQW += 1
  610. NadiaQW += 1
  611. minut += 15
  612. talkrand = RAND(0,2)
  613. if talkrand = 0:
  614. 'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
  615. if clener = 0: clener = 1
  616. end
  617. if talkrand = 1: 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
  618. act 'Further': gt 'rinwork','start'
  619. end
  620. end
  621. if rintakrand = 3:
  622. $rintak = 'Anya sells clothing buyers.'
  623. act 'Chat with Anna':
  624. cla
  625. annaQW -= 1
  626. !NadiaQW -= 1
  627. minut += 15
  628. 'Anya is not happy, light, no distractions, I have buyers.'
  629. act 'Further': gt 'rinwork','start'
  630. end
  631. end
  632. if rintakrand = 4:
  633. $rintak = 'Anya drinking coffee sitting at his tray.'
  634. act 'Chat with Anna':
  635. cla
  636. annaQW += 1
  637. !NadiaQW -= 1
  638. minut += 15
  639. 'Anya support chat with you and tells you what nonsense.'
  640. act 'Further': gt 'rinwork','start'
  641. end
  642. end
  643. if rintakrand = 5:
  644. $rintak = 'Nadia idleness catches flies.'
  645. act 'Chat with Nadia':
  646. cla
  647. !annaQW += 1
  648. NadiaQW += 2
  649. minut += 15
  650. 'Nadia glad though what that entertainment and fun to chat with you.'
  651. act 'Further': gt 'rinwork','start'
  652. end
  653. end
  654. '<<$rintak>>'
  655. end
  656. if hour = 13:
  657. rintakrand = RAND(0,5)
  658. if rintakrand = 0:
  659. $rintak = 'Hassan began to slowly collect the goods from Nadi.'
  660. end
  661. if rintakrand = 1:
  662. $rintak = 'Anya sits and calculates profit per day.'
  663. end
  664. if rintakrand = 2:
  665. $rintak = 'Nadia calculates profit per day.'
  666. end
  667. if rintakrand = 3:
  668. $rintak = 'Abdul began to collect the goods from Ani.'
  669. end
  670. if rintakrand = 4:
  671. $rintak = 'Past your tray was Arthur.'
  672. end
  673. if rintakrand = 5:
  674. $rintak = 'Aunt Katya ends trade pies and seems to leave.'
  675. end
  676. '<<$rintak>>'
  677. end
  678. if money >= 200:
  679. act 'Buy snack for 200 rubles (0:15)':
  680. cla
  681. *clr
  682. gs 'stat'
  683. tetaKataQW += 1
  684. '<center><img src="images\pics\food.jpg"></center>'
  685. set minut += 15
  686. set health += 10
  687. set manna += 20
  688. money -= 200
  689. if energy >= 30:
  690. set fat += 5
  691. 'You can no longer have.'
  692. end
  693. if energy >= 20 and energy < 30:
  694. set fat += 3
  695. set energy += 10
  696. 'You pushed through the power of a meal.'
  697. end
  698. if energy < 20:
  699. set energy += 20
  700. !set fat += 1
  701. 'You gladly ate cooked food.'
  702. end
  703. if water >= 20:
  704. 'Coffee you no longer climbs.'
  705. end
  706. if water < 20:
  707. 'You gladly drank a mug of coffee.'
  708. set water += 20
  709. end
  710. act 'Throw leftovers': gt 'rinwork','start'
  711. end
  712. end
  713. end
  714. =======
  715. gs'stat'
  716. '<center><B><font color=maroon>market</font></B></center>'
  717. '<center><img src="pic/rinok.jpg" ></center>'
  718. 'You stand for the tray with clothes in anticipation of buyers.'
  719. 'At the checkout <<rinmon>> rubles, sold_out <<rinvesh>> things.'
  720. 'The average price in the market <<prodpayum>>'
  721. if hour=14:
  722. 'Arthur came to you and you have started to calculate how much you should give Arthur.'
  723. act 'Give Arthur money':
  724. cla
  725. *clr
  726. rinart=rinvesh*1000
  727. rinmon=rinmon-rinart
  728. money+=rinmon
  729. 'You gave Arthur <<rinart>> rubles sold <<rinvesh>> things.'
  730. 'Today you have earned <<rinmon>> rubles'
  731. gs'stat'
  732. if rinart<arturplan:
  733. arturnoo+=1
  734. 'uh, Svetka, bad work, not enough money. You`re so razorish me at all.'
  735. else
  736. arturyes+=1
  737. 'Maladets Svetik, good job.'
  738. end
  739. if arturnoo>arturyes:arturnoo=arturnoo-arturyes&arturyes=0
  740. if arturyes>arturnoo:arturyes=arturyes-arturnoo&arturnoo=0
  741. if arturnoo=arturyes:arturnoo=0&arturyes=0
  742. rinmon=0
  743. rinvesh=0
  744. if arturnoo>10:
  745. arturnoo=0
  746. work=0
  747. workrin=0
  748. 'uh, Jam you already savsem. Here`s your work. get_out, that I did not see you anymore!'
  749. act 'Get_Away':gt'street'
  750. exit
  751. end
  752. Set rinrand = RAND (1,100)
  753. if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
  754. '(Arthur) - Wai, Svetik, you and I have not even met good. Come into the container, encroach barbecue, drink, get_acquainted.'
  755. act 'Opt_Out':
  756. cla
  757. 'You became otnekivatsya, Arthur told you. Wai, why insult, Here you have the tray removed, dust, dirt, I`m fine and I can take you.'
  758. act 'Fair_Enough, let`s go have a drink':gt 'RynokHoz','beginning'
  759. act 'No.':
  760. cla
  761. arturplan+=1000
  762. if money>=1000:
  763. money-=1000
  764. 'Wai, you dirty things, lend a thousand rubles, it is fine. You gave Arthur money.'
  765. else
  766. 'Fair_Enough, go already.'
  767. end
  768. act 'Get_Away.':gt 'street'
  769. end
  770. end
  771. act 'Let`S_Go':gt 'RynokHoz','beginning'
  772. exit
  773. end
  774. if rinrand < vnesh and palevorin = 0 and rinhoz = 1:
  775. '(Arthur) - Wai, Svetik. Come into the container, encroach barbecue, drink, rest. He walked right up to you and slapped his hand on the pope.'
  776. act 'Opt_Out':
  777. cla
  778. 'You became otnekivatsya, Arthur told you. Wai, why insult, Here you have the tray removed, dust, dirt, I`m fine and I can take you.'
  779. act 'Fair_Enough, let`s go have a drink':gt 'RynokHoz','beginning'
  780. act 'No.':
  781. cla
  782. arturplan+=1000
  783. if money>=1000:
  784. money-=1000
  785. 'Wai, you dirty things, lend a thousand rubles, it is fine. You gave Arthur money.'
  786. else
  787. 'Fair_Enough, go already.'
  788. end
  789. act 'Get_Away.':gt 'street'
  790. end
  791. end
  792. act 'Let`S_Go':gt 'RynokHoz','beginning'
  793. exit
  794. end
  795. act 'Leave work':gt'street'
  796. end
  797. exit
  798. end
  799. if hour<14:
  800. pokrand=RAND(0,1)
  801. if pokrand=0:
  802. $pokup='Buyers can not see.'
  803. pokupatel=0
  804. ''
  805. 'Market is Aunt Kate with a trolley in which it carries cakes and coffee.'
  806. end
  807. if pokrand=1:
  808. poktiprand=RAND(0,7)
  809. pokupatel=1
  810. if poktiprand=0:$pokup='By tray approached middle-aged man.'&$poktip='The_Man'&pokti=1
  811. if poktiprand=1:$pokup='By tray approached by a young man.'&$poktip='guy'&pokti=2
  812. if poktiprand=2:$pokup='By tray guy came up teenager.'&$poktip='boy'&pokti=3
  813. if poktiprand=3:$pokup='By tray woman came.'&$poktip='woman'&pokti=1
  814. if poktiprand=4:$pokup='To the girl came trough.'&$poktip='girl'&pokti=2
  815. if poktiprand=5:$pokup='By tray approached teen girl.'&$poktip='Devchenka'&pokti=3
  816. if poktiprand=6:$pokup='By tray approached the old man.'&$poktip='old_man'&pokti=0
  817. if poktiprand=7:$pokup='Grandma went to the tray.'&$poktip='granny'&pokti=0
  818. end
  819. '<b><<$pokup>></B>'
  820. if pokupatel=1:
  821. act 'what would you like?':
  822. cla
  823. minut+=15
  824. pokvnirand=RAND(0,2)
  825. if pokvnirand=0:
  826. '<<$poktip>> without interest examines Sell items.'
  827. end
  828. if pokvnirand=1:
  829. '<<$poktip>> with interest examines Sell items.'
  830. end
  831. if pokvnirand=2:
  832. '<<$poktip>> picks up a thing.'
  833. end
  834. !dynamic $answerrin
  835. act 'Now it is very fashionable':
  836. cla
  837. tipred=3
  838. dynamic $answerrin
  839. '<<$rinitog>>'
  840. if pokupatel=0:act 'further':gt'rinwork','start'
  841. if pokupatel=1:
  842. '<<$poktip>> asks you for a price'
  843. dynamic $answerrin2
  844. end
  845. end
  846. act 'Thing is very high-quality and reliable':
  847. cla
  848. tipred=1
  849. dynamic $answerrin
  850. '<<$rinitog>>'
  851. if pokupatel=0:act 'further':gt'rinwork','start'
  852. if pokupatel=1:
  853. '<<$poktip>> asks you for a price'
  854. dynamic $answerrin2
  855. end
  856. end
  857. act 'Give not expensive':
  858. cla
  859. tipred=0
  860. dynamic $answerrin
  861. '<<$rinitog>>'
  862. if pokupatel=0:act 'further':gt'rinwork','start'
  863. if pokupatel=1:
  864. '<<$poktip>> asks you for a price'
  865. dynamic $answerrin2
  866. end
  867. end
  868. act 'You really are':
  869. cla
  870. tipred=2
  871. dynamic $answerrin
  872. '<<$rinitog>>'
  873. if pokupatel=0:act 'further':gt'rinwork','start'
  874. if pokupatel=1:
  875. '<<$poktip>> asks you for a price'
  876. dynamic $answerrin2
  877. end
  878. end
  879. end
  880. end
  881. act 'laze 15 minutes':
  882. minut+=15
  883. gt'rinwork','start'
  884. end
  885. if hour=9:
  886. rintakrand=RAND(0,5)
  887. if rintakrand=0:
  888. $rintak='The tray in front of Hassan unload clothes saleswoman Nadia.'
  889. act 'See Hassan and Nadia':
  890. cla
  891. minut+=15
  892. talkrand=RAND(0,2)
  893. if talkrand=0:'Nadia Hassan pronounces. "Today, and then the fine ladies, I need money."'
  894. if talkrand=1:'Hassan opens trunks and puts clothes on the counter.'
  895. if talkrand=2:'Hassan drags trunks to its tray.'
  896. act 'further':gt'rinwork','start'
  897. end
  898. end
  899. if rintakrand=1:
  900. $rintak='In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
  901. act 'Look at Abdul and Anna':
  902. cla
  903. minut+=15
  904. talkrand=RAND(0,2)
  905. if talkrand=0:'Abdul swears. "You already Jam, can not sell anything!" Anna parries, "so you tell me rotten crap for sale give, take it no one wants."'
  906. if talkrand=1:'Abdul slapped ass Anna, she pretended that nothing had happened.'
  907. if talkrand=2:'Abdul drags trunks to its tray.'
  908. act 'further':gt'rinwork','start'
  909. end
  910. end
  911. if rintakrand=2:
  912. $rintak='Abdul Hassan and stand next to your tray and guttural than talking.'
  913. act 'Look at Caucasians':
  914. cla
  915. minut+=15
  916. talkrand=RAND(0,2)
  917. if talkrand=0:'Abdul Hassan and continue to talk about something, language and you do not know what they say can not understand.'
  918. if talkrand=1:'Abdul Hassan pyalyatsya you and discussing something gogochut.'
  919. if talkrand=2:'Abdul looks at you and says Hasan, "Look what a girl, sponge persik, Islands."'
  920. act 'further':gt'rinwork','start'
  921. end
  922. end
  923. if rintakrand=3:
  924. $rintak='Anna hanging clothes in the tray and shouting with Nadia.'
  925. act 'Chat with sex!':
  926. cla
  927. annaQW+=1
  928. NadiaQW+=1
  929. minut+=15
  930. talkrand=RAND(0,2)
  931. if talkrand=0:
  932. 'Anya raskazyvaet, that her skirt had to alter, so here is a Jew excellent tailor, He works in an office building.'
  933. if clener=0:clener=1
  934. end
  935. if talkrand=1:'Nadia tells how her subway molested a pervert, rubbed on the back member.'
  936. act 'further':gt'rinwork','start'
  937. end
  938. end
  939. if rintakrand=4:
  940. $rintak='Arthur talking about something with Abdullah.'
  941. act 'Look at Caucasians':
  942. cla
  943. minut+=15
  944. talkrand=RAND(0,2)
  945. if talkrand=0:'Abdul and Arthur continue to talk about something, language and you do not know what they say can not understand.'
  946. if talkrand=1:'Abdul and Arthur pyalyatsya you and discussing something gogochut.'
  947. if talkrand=2:'Abdul looks at you and says Arthur, "Look what a girl, sponge persik, Islands."'
  948. act 'further':gt'rinwork','start'
  949. end
  950. end
  951. if rintakrand=5:
  952. $rintak='Arthur, Abdul Hassan and neighing loudly and what you do not speak the language they understand.'
  953. act 'Look at Caucasians':
  954. cla
  955. minut+=15
  956. talkrand=RAND(0,2)
  957. if talkrand=0:'Caucasians continue to talk about something, language and you do not know what they say can not understand.'
  958. if talkrand=1:'Caucasians pyalyatsya you and discussing something gogochut.'
  959. if talkrand=2:'Abdul looks at you and says other Caucasians, "Look what a girl, sponge persik, Islands."'
  960. act 'further':gt'rinwork','start'
  961. end
  962. end
  963. '<<$rintak>>'
  964. end
  965. if hour=10:
  966. rintakrand=RAND(0,5)
  967. if rintakrand=0:
  968. $rintak='Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
  969. act 'See Hasan':
  970. cla
  971. minut+=15
  972. 'Hassan said Nadia "Nadia, zachem minute refuse? encroach Shlikov, drink wine".'
  973. act 'further':gt'rinwork','start'
  974. end
  975. end
  976. if rintakrand=1:
  977. $rintak='The tray sitting in front of Nadia and crossword puzzles.'
  978. act 'Chat with Nadia':
  979. cla
  980. !annaQW+=1
  981. NadiaQW+=1
  982. minut+=15
  983. 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
  984. if clener=0:
  985. clener=1
  986. 'Nadia tells the story of a Jew tailor working in an office building.'
  987. end
  988. act 'further':gt'rinwork','start'
  989. end
  990. end
  991. if rintakrand=2:
  992. $rintak='The tray in front of buyers came to Nadia and she fusses before laying them goods.'
  993. act 'Chat with Nadia':
  994. cla
  995. !annaQW+=1
  996. NadiaQW-=1
  997. minut+=15
  998. 'Nadia is not happy, light, do not distract, I have buyers.'
  999. act 'further':gt'rinwork','start'
  1000. end
  1001. end
  1002. if rintakrand=3:
  1003. $rintak='In the next tray Anna drinks coffee.'
  1004. act 'Chat with Anna':
  1005. cla
  1006. annaQW+=1
  1007. !NadiaQW-=1
  1008. minut+=15
  1009. 'Anya support a conversation with you and tells you what nonsense.'
  1010. act 'further':gt'rinwork','start'
  1011. end
  1012. end
  1013. if rintakrand=4:
  1014. $rintak='In the next tray Anna tries vtyuhat buyers stale goods.'
  1015. act 'Chat with Anna':
  1016. cla
  1017. annaQW-=1
  1018. !NadiaQW-=1
  1019. minut+=15
  1020. 'Anya is not happy, light, do not distract, I have buyers.'
  1021. act 'further':gt'rinwork','start'
  1022. end
  1023. end
  1024. if rintakrand=5:
  1025. $rintak='Anna talks about trifles with Aunt Katya.'
  1026. act 'Chat with Anna and Aunt Katya':
  1027. cla
  1028. annaQW+=1
  1029. !NadiaQW+=1
  1030. tetaKataQW+=1
  1031. minut+=15
  1032. 'Aunt Kate praises cakes, and Anya complains, it currently has on these pies ass Naela twice more than was..'
  1033. act 'further':gt'rinwork','start'
  1034. end
  1035. end
  1036. '<<$rintak>>'
  1037. end
  1038. if hour=11:
  1039. rintakrand=RAND(0,5)
  1040. if rintakrand=0:
  1041. $rintak='By Nadia came three Caucasian, Aslan, Camille and Mukhtar and began to molest her, and she swore at them and tried to dodge.'
  1042. act 'Look at Nadia and Caucasians.':
  1043. cla
  1044. !annaQW+=1
  1045. !NadiaQW+=1
  1046. !tetaKataQW+=1
  1047. minut+=15
  1048. 'Caucasians seem to be leaning towards sex Nadia.'
  1049. act 'further':gt'rinwork','start'
  1050. end
  1051. end
  1052. if rintakrand=1:
  1053. $rintak='The tray in front of Nadia sits and eats pie.'
  1054. act 'Chat with Nadia':
  1055. cla
  1056. !annaQW+=1
  1057. NadiaQW+=1
  1058. minut+=15
  1059. 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
  1060. if clener=0:
  1061. clener=1
  1062. 'Nadia tells the story of a Jew tailor working in an office building.'
  1063. end
  1064. act 'further':gt'rinwork','start'
  1065. end
  1066. end
  1067. if rintakrand=2:
  1068. $rintak='The tray in front of buyers came to Nadia and she fusses before laying them goods.'
  1069. act 'Chat with Nadia':
  1070. cla
  1071. !annaQW+=1
  1072. NadiaQW-=1
  1073. minut+=15
  1074. 'Nadia is not happy, light, do not distract, I have buyers.'
  1075. act 'further':gt'rinwork','start'
  1076. end
  1077. end
  1078. if rintakrand=3:
  1079. $rintak='In the next tray Anna reads the newspaper.'
  1080. act 'Chat with Anna':
  1081. cla
  1082. annaQW+=1
  1083. !NadiaQW-=1
  1084. minut+=15
  1085. 'Anya support a conversation with you and tells you what nonsense.'
  1086. act 'further':gt'rinwork','start'
  1087. end
  1088. end
  1089. if rintakrand=4:
  1090. $rintak='By Anya from a nearby tray came buyers.'
  1091. act 'Chat with Anna':
  1092. cla
  1093. annaQW-=1
  1094. !NadiaQW-=1
  1095. minut+=15
  1096. 'Anya is not happy, light, do not distract, I have buyers.'
  1097. act 'further':gt'rinwork','start'
  1098. end
  1099. end
  1100. if rintakrand=5:
  1101. $rintak='By Anya came three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly silent fright.'
  1102. act 'Look at Anya and Caucasians.':
  1103. cla
  1104. !annaQW+=1
  1105. !NadiaQW+=1
  1106. !tetaKataQW+=1
  1107. minut+=15
  1108. 'Caucasians seem to be leaning towards sex Anya.'
  1109. act 'further':gt'rinwork','start'
  1110. end
  1111. end
  1112. '<<$rintak>>'
  1113. end
  1114. if hour=12:
  1115. rintakrand=RAND(0,5)
  1116. if rintakrand=0:
  1117. $rintak='Hasan bought cheburek and eat it sitting behind Nadia tray.'
  1118. act 'Chat with Nadia':
  1119. cla
  1120. !annaQW+=1
  1121. NadiaQW-=1
  1122. minut+=15
  1123. 'Nadia shy to talk with Hassan.'
  1124. act 'further':gt'rinwork','start'
  1125. end
  1126. end
  1127. if rintakrand=1:
  1128. $rintak='Nadia Thorog with customers.'
  1129. act 'Chat with Nadia':
  1130. cla
  1131. !annaQW+=1
  1132. NadiaQW-=1
  1133. minut+=15
  1134. 'Nadia is not happy, light, do not distract, I have buyers.'
  1135. act 'further':gt'rinwork','start'
  1136. end
  1137. end
  1138. if rintakrand=2:
  1139. $rintak='Nadia talks with Anna.'
  1140. act 'Chat with sex!':
  1141. cla
  1142. annaQW+=1
  1143. NadiaQW+=1
  1144. minut+=15
  1145. talkrand=RAND(0,2)
  1146. if talkrand=0:
  1147. 'Anya raskazyvaet, that her skirt had to alter, so here is a Jew excellent tailor, He works in an office building.'
  1148. if clener=0:clener=1
  1149. end
  1150. if talkrand=1:'Nadia tells how her subway molested a pervert, rubbed on the back member.'
  1151. act 'further':gt'rinwork','start'
  1152. end
  1153. end
  1154. if rintakrand=3:
  1155. $rintak='Anya sells clothing buyers.'
  1156. act 'Chat with Anna':
  1157. cla
  1158. annaQW-=1
  1159. !NadiaQW-=1
  1160. minut+=15
  1161. 'Anya is not happy, light, do not distract, I have buyers.'
  1162. act 'further':gt'rinwork','start'
  1163. end
  1164. end
  1165. if rintakrand=4:
  1166. $rintak='Anya drinking coffee sitting at his tray.'
  1167. act 'Chat with Anna':
  1168. cla
  1169. annaQW+=1
  1170. !NadiaQW-=1
  1171. minut+=15
  1172. 'Anya support a conversation with you and tells you what nonsense.'
  1173. act 'further':gt'rinwork','start'
  1174. end
  1175. end
  1176. if rintakrand=5:
  1177. $rintak='Nagy from idleness catches flies.'
  1178. act 'Chat with Nadia':
  1179. cla
  1180. !annaQW+=1
  1181. NadiaQW+=2
  1182. minut+=15
  1183. 'Nadia was glad that at least some entertainment and fun to hang out with you.'
  1184. act 'further':gt'rinwork','start'
  1185. end
  1186. end
  1187. '<<$rintak>>'
  1188. end
  1189. if hour=13:
  1190. rintakrand=RAND(0,5)
  1191. if rintakrand=0:
  1192. $rintak='Hassan began to slowly collect the goods from Nadi.'
  1193. end
  1194. if rintakrand=1:
  1195. $rintak='Anya sits and counts the profit per day.'
  1196. end
  1197. if rintakrand=2:
  1198. $rintak='Nadia calculates profit per day.'
  1199. end
  1200. if rintakrand=3:
  1201. $rintak='Abdul began to collect the goods from Ani.'
  1202. end
  1203. if rintakrand=4:
  1204. $rintak='Past your tray was Arthur.'
  1205. end
  1206. if rintakrand=5:
  1207. $rintak='Aunt Katya finishes trade pies and seems about to leave.'
  1208. end
  1209. '<<$rintak>>'
  1210. end
  1211. if money>=200:
  1212. act 'have_a_bite 15 minutes (200 RUB)':
  1213. cla
  1214. *clr
  1215. gs'stat'
  1216. tetaKataQW+=1
  1217. '<center><img src="pics/food.jpg" ></center>'
  1218. set minut = minut + 15
  1219. set health = health + 10
  1220. set manna = manna + 20
  1221. money-=200
  1222. if energy >= 30:
  1223. set fat = fat + 5
  1224. 'You can no longer have.'
  1225. end
  1226. if energy >= 20 and energy < 30:
  1227. set fat = fat + 3
  1228. set energy = energy + 10
  1229. 'You pushed through the power of a meal.'
  1230. end
  1231. if energy < 20:
  1232. set energy = energy +20
  1233. !set fat = fat + 1
  1234. 'You gladly ate cooked food.'
  1235. end
  1236. if water >= 20:
  1237. 'Coffee you no longer climbs.'
  1238. end
  1239. if water < 20:
  1240. 'You gladly drank a mug of coffee.'
  1241. set water = water +20
  1242. end
  1243. act 'throw leftovers':gt'rinwork','start'
  1244. end
  1245. end
  1246. end
  1247. >>>>>>> 088_rinwork
  1248. end
  1249. --- rinwork ---------------------------------