rinwork 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794
  1. # rinwork
  2. $location_type = 'event_outdoors'
  3. if $ARGS[0] = 'start':
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $metka = $ARGS[0]
  7. $loc = $CURLOC
  8. cls
  9. gs 'stat'
  10. '<center><b><font color="maroon">Marketplace</font></b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/city/residential/market/rinok.jpg"></center>'
  12. 'You stand at your clothes stall waiting for buyers.'
  13. 'Cash taken <<rinmon>> <b>₽</b>, You have sold <<rinvesh>> items.'
  14. 'The average price on the market <<prodpayum>>'
  15. if hour = 14:
  16. 'Arthur comes to you and you start to calculate how much you should give him.'
  17. act 'Give money to Arthur':
  18. cla
  19. *clr
  20. rinart = rinvesh * 1000
  21. rinmon -= rinart
  22. money += rinmon
  23. gs 'stat'
  24. 'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
  25. 'Today you have earned <<rinmon>> <b>₽</b>'
  26. if rinart < arturplan:
  27. arturnoo += 1
  28. 'Uh, <<$pcs_nickname>>, this is bad, you haven''t made enough money. You will completely ruin me.'
  29. else
  30. arturyes += 1
  31. 'Well done <<$pcs_nickname>>, good job.'
  32. end
  33. if arturnoo > arturyes:arturnoo = arturnoo - arturyes & arturyes = 0
  34. if arturyes > arturnoo:arturyes = arturyes - arturnoo & arturnoo = 0
  35. if arturnoo = arturyes:arturnoo = 0 & arturyes = 0
  36. rinmon = 0
  37. rinvesh = 0
  38. if arturnoo > 10:
  39. arturnoo = 0
  40. work = 0
  41. workrin = 0
  42. 'Uh, you''re fucking useless. Here''s your papers. Hit the road, I do not want to see you ever again!'
  43. act 'Leave':gt 'street'
  44. exit
  45. end
  46. rinrand = rand(1, 400)
  47. if rinrand < pcs_apprnc:
  48. if palevorin = 0 and rinhoz = 0:
  49. '"Hey <<$pcs_nickname>>, you and I have not even met properly. Come into the warehouse, eat barbecue, drink and get acquainted.'
  50. act 'Refuse':
  51. cla
  52. 'You start making excuses. Arthur says to you, "Hey, don''t insult me, your stall is dirty, it has dust and dirt all over it. I should fine you, but if you''re nice I will let you off.'
  53. act 'Goto warehouse':gt 'RynokHoz', 'the_beginning'
  54. act 'No':
  55. cla
  56. arturplan += 1000
  57. if money >= 1000:
  58. money -= 1000
  59. '"Hey, your stall is dirty, you owe a thousand <b>₽</b>, in fine." Arthur takes the money.'
  60. else
  61. 'Go with him, before it gets worse'
  62. end
  63. act 'Leave':gt 'street'
  64. end
  65. end
  66. act 'Go to warehouse':gt 'RynokHoz', 'the_beginning'
  67. elseif palevorin = 0 and rinhoz > 0:
  68. '"Hey <<$pcs_nickname>>, want to Come to the warehouse again, eat barbecue, drink and have some fun.'
  69. act 'Refuse':
  70. cla
  71. 'You start making excuses. Arthur says to you, "Hey, don''t insult me, your stall is dirty, it has dust and dirt all over it. I should fine you, but if you''re nice I will let you off.'
  72. act 'Goto warehouse':gt 'RynokHoz', 'the_beginning'
  73. act 'No':
  74. cla
  75. arturplan += 1000
  76. if money >= 1000:
  77. money -= 1000
  78. '"Hey, your stall is dirty, you owe a thousand <b>₽</b>, in fine." Arthur takes the money.'
  79. else
  80. 'Go with him, before it gets worse'
  81. end
  82. act 'Leave':gt 'street'
  83. end
  84. end
  85. act 'Go to warehouse':gt 'RynokHoz', 'the_beginning'
  86. elseif palevorin = 1:
  87. if rinhoz = 1:
  88. 'Artur goes behind you into the stall carrying some stuff, then he comes up behind you are working and gives your ass a slap and squeeze. "I am glad you turned Abdul and Hasan down. I like having you all to myself."'
  89. 'You turn your head to look at him and smile. "I like that too, but maybe from now on you can lock the door first?"'
  90. 'He laughs and nods. "Of course of course, anything for you my sweet. If you wish the door to be locked from now on the door will be locked from now on. Speaking of which, come let us go try locking the door to make sure it works and have lunch."'
  91. act 'Go with Artur':palevorin = 3 & gt 'RynokHoz', 'the_beginning'
  92. else
  93. 'Artur goes behind you into the stall carrying some stuff. He comes up behind you are working and gives your ass a slap and squeeze, with one hand while the other one snakes around and roughly grabs your tit, as he whispers in your ear. "So you like cock, I didn''t think you was a little slut but that is ok, I like dirty sluts."'
  94. 'He cuts you off before you can make any protest about being slut. "No it is good, I can use this. Now come let us go to the warehouse so I can fuck you."'
  95. act 'Go with him':gt 'RynokHoz', 'sex'
  96. act 'Refuse':
  97. 'You shake your head and pull out of his grasp. "I am not a slut Artur and I am not going with you."'
  98. 'You see the anger flare up in his eyes. "So you think you are to good for me whore? I gave you a job, I treated you nice and then you fuck those two and now I am not good enough?" He shakes his head. "No get your ass in the warehouse now or you are fired and I will tell Abdul and Hasan they are free to tell everyone about how you greedily took their cocks like the little slut you are."'
  99. 'You are a bit shocked at this level of anger and the ultimatum. You are unsure what to do, go with him, keep your job, and your rep. Or refuse and find a new job and hope no one believes them.'
  100. act 'Go with him':gt 'RynokHoz', 'sex'
  101. act 'Get fired':
  102. 'You shake your head no. "No I won''t go with you."'
  103. 'Before you notice him raising his hand, you feel the burning on your cheek as he slaps you. "Then get out of her whore, your fired and I don''t want to see you back here!" He says very loudly as he pushes you out from behind his stall, loud enough that many people are looking your direction now at what is going on.'
  104. 'With shame and a burning cheek you walk away.'
  105. act 'Leave':gt 'street'
  106. end
  107. end
  108. end
  109. elseif palevorin > 2 and rinhoz = 1:
  110. '"Hey <<$pcs_nickname>>. Come into the warehouse, eat barbecue, drink, rest." He walks right up to you and slaps you on the ass.'
  111. act 'Refuse':
  112. cla
  113. 'You start making excuses. Arthur says to you, "Hey, don''t insult me, your stall is dirty, it has dust and dirt all over it. I should fine you, but if you''re nice I will let you off.'
  114. act 'Go to warehouse':gt 'RynokHoz', 'the_beginning'
  115. act 'No':
  116. cla
  117. arturplan += 1000
  118. if money >= 1000:
  119. money -= 1000
  120. '"Hey, your stall is dirty, you owe a thousand <b>₽</b>, in fine." Arthur takes the money.'
  121. else
  122. 'Go with him, before it gets worse'
  123. end
  124. act 'Leave':gt 'street'
  125. end
  126. end
  127. act 'Go with him':gt 'RynokHoz', 'the_beginning'
  128. elseif palevorin = 2 and rinhoz = 2:
  129. if rand(0,1) = 0:
  130. 'Artur walks up and slaps your ass hard and grabs you roughly by one arm. "Bitch get your fucking ass in the warehouse."'
  131. act 'Refuse':
  132. cla
  133. 'You start making excuses. Arthur says to you, "Hey, don''t insult me you fucking slut, I was there. I know what a whore you are. Now get your fucking ass in the warehouse or the whole town will know what a whore you are."'
  134. act 'Go to warehouse':gt 'RynokHoz', 'sex'
  135. act 'No':
  136. cla
  137. arturnoo = 0
  138. work = 0
  139. workrin = 0
  140. if repa < 6:repa = 6
  141. 'Then fuck you, you little fucking whore, your fired and by tomorrow the whole town will know what a whore you are."'
  142. act 'Leave':gt 'street'
  143. end
  144. end
  145. act 'Go with him':gt 'RynokHoz', 'sex'
  146. else
  147. 'Artur walks up and slaps your ass hard and grabs you roughly by one arm. "Hey bitch, how would you like to make some extra money? My friends need company."'
  148. act 'Refuse':
  149. cla
  150. 'You start making excuses. Arthur says to you, "Hey, don''t insult me you fucking slut, I was there. I know what a whore you are. Now get your fucking ass in the warehouse or the whole town will know what a whore you are."'
  151. act 'Go to warehouse':gt 'RynokHoz', 'group'
  152. act 'No':
  153. cla
  154. arturnoo = 0
  155. work = 0
  156. workrin = 0
  157. if repa < 6:repa = 6
  158. 'Then fuck you, you little fucking whore, your fired and by tomorrow the whole town will know what a whore you are."'
  159. act 'Leave':gt 'street'
  160. end
  161. end
  162. act 'Go with him':gt 'RynokHoz', 'group'
  163. end
  164. else
  165. act 'Leave work':gt 'street'
  166. end
  167. else
  168. act 'Leave work':gt 'street'
  169. end
  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 'How can I help you?':
  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. act 'Now this is very fashionable':
  205. cla
  206. tipred = 3
  207. gs 'rinwork', 'answerrin'
  208. '<<$rinitog>>'
  209. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  210. if pokupatel = 1:
  211. '<<$poktip>> asks you for a price'
  212. gs 'rinwork', 'answerrin2'
  213. end
  214. end
  215. act 'This item is very high quality and reliable':
  216. cla
  217. tipred = 1
  218. gs 'rinwork', 'answerrin'
  219. '<<$rinitog>>'
  220. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  221. if pokupatel = 1:
  222. '<<$poktip>> asks you for a price'
  223. gs 'rinwork', 'answerrin2'
  224. end
  225. end
  226. act 'You''ll find this very reasonable':
  227. cla
  228. tipred = 0
  229. gs 'rinwork', 'answerrin'
  230. '<<$rinitog>>'
  231. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  232. if pokupatel = 1:
  233. '<<$poktip>> asks you for a price'
  234. gs 'rinwork', 'answerrin2'
  235. end
  236. end
  237. act 'That is so you':
  238. cla
  239. tipred = 2
  240. gs 'rinwork', 'answerrin'
  241. '<<$rinitog>>'
  242. if pokupatel = 0:act 'Further':gt 'rinwork', 'start'
  243. if pokupatel = 1:
  244. '<<$poktip>> asks you for a price'
  245. gs 'rinwork', 'answerrin2'
  246. end
  247. end
  248. end
  249. end
  250. act 'Laze around (0:15)':
  251. minut += 15
  252. gt 'rinwork', 'start'
  253. end
  254. if hour = 9:
  255. rintakrand = rand(0, 5)
  256. if rintakrand = 0:
  257. $rintak = ' Hassan unloads clothes in front of saleswoman Nadias stall.'
  258. act 'See Hassan and Nadia':
  259. cla
  260. minut += 15
  261. talkrand = rand(0, 2)
  262. if talkrand = 0:'Hassan utters to Nadia. "Today you will sell more, and to the rich ladies, I need the money."'
  263. if talkrand = 1:'Hassan opens trunks and puts clothes on the counter.'
  264. if talkrand = 2:'Hassan drags trunks to his stall.'
  265. act 'Further':gt 'rinwork', 'start'
  266. end
  267. elseif rintakrand = 1:
  268. $rintak = 'On the next stall Abdul is talking loudly and giving clothes to saleswoman Anna.'
  269. act 'Look at Abdul and Anna':
  270. cla
  271. minut += 15
  272. talkrand = rand(0, 2)
  273. 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."'
  274. if talkrand = 1:'Abdul slaps Annas ass, she pretends that nothing happened.'
  275. if talkrand = 2:'Abdul drags trunks to his stall.'
  276. act 'Further':gt 'rinwork', 'start'
  277. end
  278. elseif rintakrand = 2:
  279. $rintak = 'Abdul and Hassan stand beside your stall and saying something guttural.'
  280. act 'View the Armenians':
  281. cla
  282. minut += 15
  283. talkrand = rand(0, 2)
  284. if talkrand = 0:'Abdul and Hassan continue to talk about something, you do not know the language, and can not understand what they are saying.'
  285. if talkrand = 1:'Abdul and Hassan ignore you and discuss what sounds like clothes prices.'
  286. if talkrand = 2:'Abdul looks at you and says to Hassan, "Look at that a girl, she looks like a good fuck, yeah."'
  287. act 'Further':gt 'rinwork', 'start'
  288. end
  289. elseif rintakrand = 3:
  290. $rintak = 'Anna hangs clothes on her stall shouting at Nadia.'
  291. act 'Chat with girls':
  292. cla
  293. annaQW += 1
  294. NadiaQW += 1
  295. minut += 15
  296. talkrand = rand(0, 2)
  297. if talkrand = 0:
  298. 'Anna tells you that her skirt needed altering, there is a great Jewish tailor, his shop is nearby.'
  299. else
  300. 'Nadia tells her how some pervert molested her on the subway rubbing his dick on her ass.'
  301. end
  302. act 'Further':gt 'rinwork', 'start'
  303. end
  304. elseif rintakrand = 4:
  305. $rintak = 'Arthur is talking about something with Abdullah.'
  306. act 'View the Armenians':
  307. cla
  308. minut += 15
  309. talkrand = rand(0, 2)
  310. if talkrand = 0:'Abdul and Hassan continue to talk about something, you do not know the language, and can not understand what they are saying.'
  311. if talkrand = 1:'Abdul and Arthur ignore you and discuss what sounds like clothes prices.'
  312. if talkrand = 2:'Abdul looks at you and says to Arthur, "Nice girl you got there, you fucking her?."'
  313. act 'Further':gt 'rinwork', 'start'
  314. end
  315. elseif rintakrand = 5:
  316. $rintak = 'Arthur, Abdul Hassan are talking loudly, about something in foreign language.'
  317. act 'View the Armenians':
  318. cla
  319. minut += 15
  320. talkrand = rand(0, 2)
  321. if talkrand = 0:'Abdul and Hassan continue to talk about something, you do not know the language, and can not understand what they are saying.'
  322. if talkrand = 1:'Armenians ignore you and discuss what sounds like clothes prices.'
  323. if talkrand = 2:'Abdul looks at you and says to the other Armenians, "Pretty little girl, can i have her?"'
  324. act 'Further':gt 'rinwork', 'start'
  325. end
  326. end
  327. '<<$rintak>>'
  328. elseif hour = 10:
  329. rintakrand = rand(0, 5)
  330. if rintakrand = 0:
  331. $rintak = 'Hassan sits on a chair dejectedly chewing food and talking with his mouth full to his saleswoman Nadia.'
  332. act 'Watch Hasan':
  333. cla
  334. minut += 15
  335. 'Hassan says to Nadia "Nadia, why you refuse? Come here, have some wine."'
  336. act 'Further':gt 'rinwork', 'start'
  337. end
  338. elseif rintakrand = 1:
  339. $rintak = 'At the stall in front of you sits Nadia doing crossword puzzles.'
  340. act 'Chat with Nadia':
  341. cla
  342. !!annaQW += 1
  343. NadiaQW += 1
  344. minut += 15
  345. 'Nadia leaves the crossword and willingly gossips with you.'
  346. act 'Further':gt 'rinwork', 'start'
  347. end
  348. elseif rintakrand = 2:
  349. $rintak = 'Nadias stall in front of you has many buyers and she fusses before them laying out goods.'
  350. act 'Chat with Nadia':
  351. cla
  352. !!annaQW += 1
  353. NadiaQW -= 1
  354. minut += 15
  355. 'Nadia is not happy, "Shoo, no distractions, I have buyers."'
  356. act 'Further':gt 'rinwork', 'start'
  357. end
  358. elseif rintakrand = 3:
  359. $rintak = 'At the next stall Anna is drinking coffee.'
  360. act 'Chat with Anna':
  361. cla
  362. annaQW += 1
  363. !!NadiaQW -= 1
  364. minut += 15
  365. 'Anna is happy to chat with you about any old nonsense.'
  366. act 'Further':gt 'rinwork', 'start'
  367. end
  368. elseif rintakrand = 4:
  369. $rintak = 'At the next stall Anna tries to interest buyers in her goods.'
  370. act 'Chat with Anna':
  371. cla
  372. annaQW -= 1
  373. !!NadiaQW -= 1
  374. minut += 15
  375. 'Anya is not happy, "Shoo, no distractions, I have buyers."'
  376. act 'Further':gt 'rinwork', 'start'
  377. end
  378. elseif rintakrand = 5:
  379. $rintak = 'Anna is gossiping with Aunt Katya.'
  380. act 'Chat with Anna and Aunt Katya':
  381. cla
  382. annaQW += 1
  383. !!NadiaQW += 1
  384. tetaKataQW += 1
  385. minut += 15
  386. '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.'
  387. act 'Further':gt 'rinwork', 'start'
  388. end
  389. end
  390. '<<$rintak>>'
  391. elseif hour = 11:
  392. rintakrand = rand(0, 5)
  393. if rintakrand = 0:
  394. $rintak = 'Nadia is approached by three Armenians, Aslan, Camille and Mukhtar and they begin to molest her, she swears at them and tries to dodge.'
  395. act 'Look at Nadia and Armenians.':
  396. cla
  397. !!annaQW += 1
  398. !!NadiaQW += 1
  399. !!tetaKataQW += 1
  400. minut += 15
  401. 'The Armenians seem to be trying to persuade Nadia to have sex with them.'
  402. act 'Further':gt 'rinwork', 'start'
  403. end
  404. elseif rintakrand = 1:
  405. $rintak = 'At the stall in front of you sits Nadia eating cake.'
  406. act 'Chat with Nadia':
  407. cla
  408. !!annaQW += 1
  409. NadiaQW += 1
  410. minut += 15
  411. 'Nadia finishes the cake and mumbles about the usual nonsense with you.'
  412. if clener = 0:
  413. clener = 1
  414. 'Nadia tells you about an office building not too far away that is looking for a cleaner.'
  415. end
  416. act 'Further':gt 'rinwork', 'start'
  417. end
  418. elseif rintakrand = 2:
  419. $rintak = 'Nadias stall in front of you has many buyers and she fusses before laying out goods.'
  420. act 'Chat with Nadia':
  421. cla
  422. !!annaQW += 1
  423. NadiaQW -= 1
  424. minut += 15
  425. 'Nadia is not happy, "Shoo, no distractions, I have buyers."'
  426. act 'Further':gt 'rinwork', 'start'
  427. end
  428. elseif rintakrand = 3:
  429. $rintak = 'At the next stall Anna is reading a newspaper.'
  430. act 'Chat with Anna':
  431. cla
  432. annaQW += 1
  433. !!NadiaQW -= 1
  434. minut += 15
  435. 'Anna is happy to chat with you about any old nonsense.'
  436. act 'Further':gt 'rinwork', 'start'
  437. end
  438. elseif rintakrand = 4:
  439. $rintak = 'At the next stall Anna tries to interest buyers in her goods.'
  440. act 'Chat with Anna':
  441. cla
  442. annaQW -= 1
  443. !!NadiaQW -= 1
  444. minut += 15
  445. 'Anya is not happy, "Shoo, no distractions, I have buyers."'
  446. act 'Further':gt 'rinwork', 'start'
  447. end
  448. elseif rintakrand = 5:
  449. $rintak = 'Nadia is approached by three Armenians, Aslan, Camille and Mukhtar and they begin to molest her, she swears at them and tries to dodge.'
  450. act 'Look at Nadia and Armenians.':
  451. cla
  452. !!annaQW += 1
  453. !!NadiaQW += 1
  454. !!tetaKataQW += 1
  455. minut += 15
  456. 'The Armenians seem to be trying to persuade Nadia to have sex with them.'
  457. act 'Further':gt 'rinwork', 'start'
  458. end
  459. end
  460. '<<$rintak>>'
  461. elseif hour = 12:
  462. rintakrand = rand(0, 5)
  463. if rintakrand = 0:
  464. $rintak = 'Hasan has bought chebureki and is eating it while sitting behind Nadia in the stall.'
  465. act 'Chat with Nadia':
  466. cla
  467. !!annaQW += 1
  468. NadiaQW -= 1
  469. minut += 15
  470. 'Nadia shies away from talking in front of Hassan.'
  471. act 'Further':gt 'rinwork', 'start'
  472. end
  473. elseif rintakrand = 1:
  474. $rintak = 'Nadia is surrounded by customers.'
  475. act 'Chat with Nadia':
  476. cla
  477. !!annaQW += 1
  478. NadiaQW -= 1
  479. minut += 15
  480. 'Nadia is not happy, "Shoo, no distractions, I have buyers."'
  481. act 'Further':gt 'rinwork', 'start'
  482. end
  483. elseif rintakrand = 2:
  484. $rintak = 'Nadia talks with Anna.'
  485. act 'Chat with girls':
  486. cla
  487. annaQW += 1
  488. NadiaQW += 1
  489. minut += 15
  490. talkrand = rand(0, 2)
  491. if talkrand = 0:
  492. '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.'
  493. if clener = 0:clener = 1
  494. elseif talkrand = 1:
  495. 'Nadia tells her how some pervert molested her on the subway rubbing his dick on her ass.'
  496. end
  497. act 'Further':gt 'rinwork', 'start'
  498. end
  499. elseif rintakrand = 3:
  500. $rintak = 'Anna is selling clothing to customers.'
  501. act 'Chat with Anna':
  502. cla
  503. annaQW -= 1
  504. !!NadiaQW -= 1
  505. minut += 15
  506. 'Anna is not happy, "Shoo, no distractions, I have buyers."'
  507. act 'Further':gt 'rinwork', 'start'
  508. end
  509. elseif rintakrand = 4:
  510. $rintak = 'Anna is drinking coffee sitting at her stall.'
  511. act 'Chat with Anna':
  512. cla
  513. annaQW += 1
  514. !!NadiaQW -= 1
  515. minut += 15
  516. 'Anna happily chats with you about nonsense.'
  517. act 'Further':gt 'rinwork', 'start'
  518. end
  519. elseif rintakrand = 5:
  520. $rintak = 'Nadia is idly trying to catch flies.'
  521. act 'Chat with Nadia':
  522. cla
  523. !!annaQW += 1
  524. NadiaQW += 2
  525. minut += 15
  526. 'Nadia glad for the distraction and has fun chatting with you.'
  527. act 'Further':gt 'rinwork', 'start'
  528. end
  529. end
  530. '<<$rintak>>'
  531. elseif hour = 13:
  532. rintakrand = rand(0, 5)
  533. if rintakrand = 0:
  534. $rintak = 'Hassan begins to slowly collect goods from Nadia.'
  535. elseif rintakrand = 1:
  536. $rintak = 'Anya sits and calculates her profit for the day.'
  537. elseif rintakrand = 2:
  538. $rintak = 'Nadia calculates her days profit.'
  539. elseif rintakrand = 3:
  540. $rintak = 'Abdul begins collecting goods from Anna.'
  541. elseif rintakrand = 4:
  542. $rintak = 'Arthur walks past your stall.'
  543. else
  544. $rintak = 'Aunt Katya stops trading pies and leaves.'
  545. end
  546. '<<$rintak>>'
  547. end
  548. if money >= 200:
  549. act 'Buy a snack (200 <b>₽</b>) (0:15)':
  550. tetaKataQW += 1
  551. money -= 200
  552. gs 'kit_din'
  553. dynamic $snack
  554. end
  555. end
  556. end
  557. end
  558. if $ARGS[0] = 'answerrin':
  559. if tipred = pokti:
  560. $rinitog = ''
  561. if pokvnirand = 0:
  562. pokpay = rand(1000, 1200)
  563. elseif pokvnirand = 1:
  564. pokpay = rand(1200, 1500)
  565. elseif pokvnirand = 2:
  566. pokpay = rand(1500, 2000)
  567. end
  568. else
  569. $rinitog = '<<$poktip>> puts the item back and leaves.'
  570. pokupatel = 0
  571. end
  572. end
  573. if $ARGS[0] = 'answerrin2':
  574. act 'Name the price':
  575. cla
  576. prodpay = input ("Enter the selling price")
  577. if prodpay < 1000:prodpay = prodpayum
  578. 'You tell them <<prodpay>> <b>₽</b>'
  579. if prodpay <= pokpay:
  580. poknorand = rand(1, 100 + pcs_apprnc/4)
  581. if poknorand >= 10:
  582. rinmon += prodpay
  583. rinvesh += 1
  584. 'The buyer takes the item and pays <<prodpay>> <b>₽</b>.'
  585. act 'Sell it':gt 'rinwork', 'start'
  586. else
  587. 'The buyer twirls clothing in their hands <<prodpay>> <b>₽</b> is too expensive.'
  588. gs 'rinwork', 'answerrin3'
  589. act 'You can not take less, take the item back':gt 'rinwork', 'start'
  590. end
  591. elseif prodpay > pokpay and prodpay <= pokpay + 100:
  592. poknorand = rand(1, 100 + pcs_apprnc/4)
  593. if poknorand >= 10:
  594. 'The buyer twirls clothing in their hands <<prodpay>> <b>₽</b> is too expensive.'
  595. gs 'rinwork', 'answerrin3'
  596. act 'I can not take less, take the item back.':gt 'rinwork', 'start'
  597. else
  598. 'Buyer puts the item back and leaves'
  599. act 'Return':gt 'rinwork', 'start'
  600. end
  601. elseif prodpay > pokpay + 100:
  602. 'The buyer puts the item back and leaves.'
  603. act 'Return':gt 'rinwork', 'start'
  604. end
  605. end
  606. end
  607. if $ARGS[0] = 'answerrin3':
  608. if prodpay >= 1100:
  609. act 'Reduce the price by 100 <b>₽</b>':
  610. cla
  611. 'You have reduced the price by 100 <b>₽</b>.'
  612. poknorand = rand(1, 100 + pcs_apprnc/4)
  613. if poknorand >= 10:
  614. rinmon += prodpay - 100
  615. rinvesh += 1
  616. 'The buyer takes the item and pays <<prodpay - 100>> <b>₽</b>'
  617. act 'Haggle':gt 'rinwork', 'start'
  618. else
  619. 'The buyer puts the item back and leaves.'
  620. act 'Haggle':gt 'rinwork', 'start'
  621. end
  622. end
  623. elseif prodpay >= 1050:
  624. act 'Reduce the price by 50 <b>₽</b>':
  625. cla
  626. 'You have reduced the price by 50 <b>₽</b>.'
  627. poknorand = rand(1, 100 + pcs_apprnc/4)
  628. if poknorand >= 30:
  629. rinmon += prodpay - 50
  630. rinvesh += 1
  631. 'The buyer takes the item and pays <<prodpay - 50>> <b>₽</b>'
  632. act 'Haggle':gt 'rinwork', 'start'
  633. else
  634. 'The buyer puts the item back and leaves.'
  635. act 'Haggle':gt 'rinwork', 'start'
  636. end
  637. end
  638. end
  639. end
  640. --- rinwork ---------------------------------