1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303 |
- # rinwork
- <<<<<<< 088_rinwork
- if $ARGS[0] = 'start':
- $answerrin = {
- if tipred = pokti:
- if pokvnirand = 0:
- pokpay = RAND(1000,1200)
- end
- if pokvnirand = 1:
- pokpay = RAND(1200,1500)
- end
- if pokvnirand = 2:
- pokpay = RAND(1500,2000)
- end
- else
- $rinitog = '<<$poktip>> puts the thing in place and leaves'
- pokupatel = 0
- end
- }
- $answerrin2 = {
- act 'Name the price':
- cla
- prodpay = input ("Enter the selling price")
- if prodpay < 1000: prodpay = prodpayum
- 'You set a price in <<prodpay>> rubles'
- if prodpay <= pokpay:
- poknorand = RAND(1,100 + vnesh)
- if poknorand >= 10:
- rinmon += prodpay
- rinvesh += 1
- 'Buyer collected and paid item <<prodpay>> rubles'
- act 'Trading on': gt 'rinwork','start'
- else
- 'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
- dynamic $answerrin3
- act 'Less I can not (take the thing)': gt 'rinwork','start'
- end
- end
- if prodpay > pokpay and prodpay <= pokpay + 100:
- poknorand = RAND(1,100 + vnesh)
- if poknorand >= 10:
- 'Buyer twirls thing in your hands <<prodpay>> RR is too expensive'
- dynamic $answerrin3
- act 'Less I can not (take the thing)': gt 'rinwork','start'
- else
- 'Buyer puts thing into place and leaves'
- act 'Trading on': gt 'rinwork','start'
- end
- end
- if prodpay > pokpay+100:
- 'Buyer puts thing into place and leaves'
- act 'Trading on': gt 'rinwork','start'
- end
- end
- }
- $answerrin3 = {
- if prodpay >= 1100:
- act 'Reduce the price of 100 rubles':
- cla
- 'You have reduced the price to 100 rubles.'
- poknorand = RAND(1,100 + vnesh)
- if poknorand >= 10:
- rinmon += prodpay - 100
- rinvesh += 1
- 'Buyer collected and paid item <<prodpay-100>> rubles'
- act 'Trading on': gt 'rinwork','start'
- else
- 'Buyer puts thing into place and leaves'
- act 'Trading on': gt 'rinwork','start'
- end
- end
- =======
- if $ARGS[0]='start':
- $answerrin={
- if tipred=pokti:
- if pokvnirand=0:
- pokpay=RAND(1000,1200)
- end
- if pokvnirand=1:
- pokpay=RAND(1200,1500)
- end
- if pokvnirand=2:
- pokpay=RAND(1500,2000)
- end
- else
- $rinitog='<<$poktip>> puts thing into place and leaves'
- pokupatel=0
- end
- }
- $answerrin2={
- act 'call price':
- cla
- prodpay = input ("Enter the price of things")
- if prodpay<1000:prodpay=prodpayum
- 'You set a price in <<prodpay>> rubles'
- if prodpay<=pokpay:
- poknorand=RAND(1,100+vnesh)
- if poknorand>=10:
- rinmon+=prodpay
- rinvesh+=1
- 'The buyer took the thing and paid <<prodpay>> rubles'
- act 'trading on':gt'rinwork','start'
- else
- 'The buyer turns the thing in his hands, <<prodpay>> rubles is too expensive'
- dynamic $answerrin3
- act 'I can not less, (pick up a thing)':gt'rinwork','start'
- end
- end
- if prodpay>pokpay and prodpay<=pokpay+100:
- poknorand=RAND(1,100+vnesh)
- if poknorand>=10:
- 'The buyer turns the thing in his hands, <<prodpay>> rubles is too expensive'
- dynamic $answerrin3
- act 'I can not less, (pick up a thing)':gt'rinwork','start'
- else
- 'The buyer puts thing into place and leaves'
- act 'trading on':gt'rinwork','start'
- end
- end
- if prodpay>pokpay+100:
- 'The buyer puts thing into place and leaves'
- act 'trading on':gt'rinwork','start'
- end
- end
- }
- $answerrin3={
- if prodpay>=1100:
- act 'Reduce the price 100 RUB':
- cla
- 'You have reduced the price to 100 rubles.'
- poknorand=RAND(1,100+vnesh)
- if poknorand>=10:
- rinmon+=prodpay-100
- rinvesh+=1
- 'The buyer took the thing and paid <<prodpay-100>> rubles'
- act 'trading on':gt'rinwork','start'
- else
- 'The buyer puts thing into place and leaves'
- act 'trading on':gt'rinwork','start'
- end
- end
- >>>>>>> 088_rinwork
- end
- <<<<<<< 088_rinwork
- if prodpay >= 1050:
- act 'Reduce the price of 50 rubles':
- cla
- 'You have reduced the price to 50 rubles.'
- poknorand = RAND(1,100 + vnesh)
- if poknorand >= 30:
- rinmon += prodpay - 50
- rinvesh += 1
- 'Buyer collected and paid item <<prodpay-50>> rubles'
- act 'Trading on': gt 'rinwork','start'
- else
- 'Buyer puts thing into place and leaves'
- act 'Trading on': gt 'rinwork','start'
- end
- end
- =======
- if prodpay>=1050:
- act 'Reduce the price 50 RUB':
- cla
- 'You have reduced the price to 50 rubles.'
- poknorand=RAND(1,100+vnesh)
- if poknorand>=30:
- rinmon+=prodpay-50
- rinvesh+=1
- 'The buyer took the thing and paid <<prodpay-50>> rubles'
- act 'trading on':gt'rinwork','start'
- else
- 'The buyer puts thing into place and leaves'
- act 'trading on':gt'rinwork','start'
- end
- end
- >>>>>>> 088_rinwork
- end
- }
- cla
- *clr
- <<<<<<< 088_rinwork
- gs 'stat'
- '<center><B><font color = maroon>Trade</font></B></center>'
- '<center><img src="images\etogame\rinok.jpg"></center>'
- 'You stand in the tray with the clothes in anticipation of buyers.'
- 'At the box office <<rinmon>> rubles, Sales <<rinvesh>> things.'
- 'The average price on the market <<prodpayum>>'
- if hour = 14:
- 'Arthur came to you and you started to calculate how much you should give to Arthur.'
- act 'Giving money to Arthur':
- cla
- *clr
- rinart = rinvesh * 1000
- rinmon = rinmon - rinart
- money += rinmon
- 'You gave Arthur <<rinart>> per sold <<rinvesh>> things.'
- 'Today you have earned <<rinmon>> rubles'
- gs 'stat'
- if rinart < arturplan:
- arturnoo += 1
- 'Uh, Svetka, bad work, not enough money. You´re so razorish me completely.'
- else
- arturyes += 1
- 'Maladets Svetik, good job.'
- end
- if arturnoo > arturyes: arturnoo = arturnoo - arturyes & arturyes = 0
- if arturyes > arturnoo: arturyes = arturyes - arturnoo & arturnoo = 0
- if arturnoo = arturyes: arturnoo = 0 & arturyes = 0
- rinmon = 0
- rinvesh = 0
- if arturnoo > 10:
- arturnoo = 0
- work = 0
- workrin = 0
- 'Uh, you´ve fucked savsem. Here´s your labor. Hit the road that I did not see you anymore!'
- act 'Leave': gt 'street'
- exit
- end
- Set rinrand = RAND(1,100)
- if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
- '(Arthur) - Wai Svetik, you and I have not even met properly. Come into the container, ate barbecue, drink and get acquainted.'
- act 'Refuse':
- cla
- '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.'
- act 'Okay, let´s go have a drink': gt 'RynokHoz','start'
- act 'No.':
- cla
- arturplan += 1000
- if money >= 1000:
- money -= 1000
- 'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
- else
- 'Okay, go already.'
- end
- act 'Leave.': gt 'street'
- end
- end
- act 'Come': gt 'RynokHoz','start'
- exit
- end
- if rinrand < vnesh and palevorin = 0 and rinhoz = 1:
- '(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.'
- act 'Refuse':
- cla
- '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.'
- act 'Okay, let´s go have a drink': gt 'RynokHoz','start'
- act 'No.':
- cla
- arturplan += 1000
- if money >= 1000:
- money -= 1000
- 'Wai, you dirty things, to give a thousand rubles, which is fine. Arthur gave you money.'
- else
- 'Okay, go already.'
- end
- act 'Leave.': gt 'street'
- end
- end
- act 'Come': gt 'RynokHoz','start'
- exit
- end
- act 'Leave work': gt 'street'
- end
- exit
- end
- if hour < 14:
- pokrand = RAND(0,1)
- if pokrand = 0:
- $pokup = 'Buyers can not see.'
- pokupatel = 0
- ''
- 'Market is Aunt Katya with trolley in which it carries cakes and coffee.'
- end
- if pokrand = 1:
- poktiprand = RAND(0,7)
- pokupatel = 1
- if poktiprand = 0:$pokup = 'To the tray approached middle-aged man.' & $poktip = 'Man'&pokti = 1
- if poktiprand = 1:$pokup = 'To the tray approached by a young man.' & $poktip = 'Guy'&pokti = 2
- if poktiprand = 2:$pokup = 'Guy came to the tray teenager.' & $poktip = 'Boy'&pokti = 3
- if poktiprand = 3:$pokup = 'A woman came up to the tray.' & $poktip = 'Woman'&pokti = 1
- if poktiprand = 4:$pokup = 'Girl came to the tray.' & $poktip = 'Girl'&pokti = 2
- if poktiprand = 5:$pokup = 'To the tray approached teen girl.' & $poktip = 'Girlfriend'&pokti = 3
- if poktiprand = 6:$pokup = 'Approached the old man to the tray.' & $poktip = 'Old man'&pokti = 0
- if poktiprand = 7:$pokup = 'Grandma went to the tray.' & $poktip = 'Granny'&pokti = 0
- end
- '<b><<$pokup>></B>'
- if pokupatel = 1:
- act 'What do you want?':
- cla
- minut += 15
- pokvnirand = RAND(0,2)
- if pokvnirand = 0:
- '<<$poktip>> without interest examines selling things.'
- end
- if pokvnirand = 1:
- '<<$poktip>> with interest examining selling things.'
- end
- if pokvnirand = 2:
- '<<$poktip>> picks up the item.'
- end
- !dynamic $answerrin
- act 'Now it is very fashionable':
- cla
- tipred = 3
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel = 0: act 'Further': gt 'rinwork','start'
- if pokupatel = 1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
- act 'Thing is very high quality and reliable':
- cla
- tipred = 1
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel = 0: act 'Further': gt 'rinwork','start'
- if pokupatel = 1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
- act 'Give not expensive':
- cla
- tipred = 0
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel = 0: act 'Further': gt 'rinwork','start'
- if pokupatel = 1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
- act 'You are very':
- cla
- tipred = 2
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel = 0: act 'Further': gt 'rinwork','start'
- if pokupatel = 1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
- end
- end
- act 'Laze around (0:15)':
- minut += 15
- gt 'rinwork','start'
- end
- if hour = 9:
- rintakrand = RAND(0,5)
- if rintakrand = 0:
- $rintak = 'The tray in front of Hassan unloads clothes saleswoman Nadia.'
- act 'See Hassan and Nadia':
- cla
- minut += 15
- talkrand = RAND(0,2)
- if talkrand = 0: 'Nadia Hassan utters. "Today you will sell more, and then the fine ladies, I need the money."'
- if talkrand = 1: 'Hassan opens trunks and puts clothes on the counter.'
- if talkrand = 2: 'Hassan drags trunks to his tray.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 1:
- $rintak = 'In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
- act 'Look at Abdul and Anna':
- cla
- minut += 15
- talkrand = RAND(0,2)
- 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."'
- if talkrand = 1: 'Abdul slapped ass Anna, she pretended that nothing happened.'
- if talkrand = 2: 'Abdul drags trunks to his tray.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 2:
- $rintak = 'Abdul Hassan and stand beside your tray and about something guttural talking.'
- act 'View on Caucasians':
- cla
- minut += 15
- talkrand = RAND(0,2)
- if talkrand = 0: 'Abdul Hassan and continue to talk about something, you do not know the language, and what they say can not understand.'
- if talkrand = 1: 'Abdul Hassan pyalyatsya you and discussing what is yuk.'
- if talkrand = 2: 'Abdul looks at you and says Hassan, "Look what a girl, sponges persik, wah."'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 3:
- $rintak = 'Anna hanging clothes in the tray and shouting with Nadia.'
- act 'Chat with sex':
- cla
- annaQW += 1
- NadiaQW += 1
- minut += 15
- talkrand = RAND(0,2)
- if talkrand = 0:
- 'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
- if clener = 0: clener = 1
- end
- if talkrand = 1: 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 4:
- $rintak = 'Arthur is talking about something with Abdullah.'
- act 'View on Caucasians':
- cla
- minut += 15
- talkrand = RAND(0,2)
- if talkrand = 0: 'Abdul and Arthur continue to talk about something, you do not know the language, and what they say can not understand.'
- if talkrand = 1: 'Abdul and Arthur pyalyatsya you and discussing what is yuk.'
- if talkrand = 2: 'Abdul looks at you and says Arthur, "Look what a girl, sponges persik, wah."'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 5:
- $rintak = 'Arthur, Abdul Hassan and neighing loudly and talk about something not on the plain language.'
- act 'View on Caucasians':
- cla
- minut += 15
- talkrand = RAND(0,2)
- if talkrand = 0: 'Caucasians continue to talk about something, you do not know the language, and what they say can not understand.'
- if talkrand = 1: 'Caucasians pyalyatsya you and discussing what is yuk.'
- if talkrand = 2: 'Abdul looks at you and says other Caucasians, "Look what a girl, sponges persik, wah."'
- act 'Further': gt 'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour = 10:
- rintakrand = RAND(0,5)
- if rintakrand = 0:
- $rintak = 'Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
- act 'See Hasan':
- cla
- minut += 15
- 'Hassan says Nadia "Nadia, zachem ti refuse? Encroach Shlyk, have some wine."'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 1:
- $rintak = 'The tray is sitting in front of Nadia and crossword puzzles.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW += 1
- minut += 15
- 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
- if clener = 0:
- clener = 1
- 'Nadia tells about a Jew tailor working in an office building.'
- end
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 2:
- $rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW -= 1
- minut += 15
- 'Nadia is not happy, light, no distractions, I have buyers.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 3:
- $rintak = 'In the next tray Anna drinking coffee.'
- act 'Chat with Anna':
- cla
- annaQW += 1
- !NadiaQW -= 1
- minut += 15
- 'Anya support chat with you and tells you what nonsense.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 4:
- $rintak = 'In the next tray Anna tries vtyuhat buyers stale goods.'
- act 'Chat with Anna':
- cla
- annaQW -= 1
- !NadiaQW -= 1
- minut += 15
- 'Anya is not happy, light, no distractions, I have buyers.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 5:
- $rintak = 'Anna talks about trifles with Aunt Katya.'
- act 'Chat with Anna and Aunt Katya':
- cla
- annaQW += 1
- !NadiaQW += 1
- tetaKataQW += 1
- minut += 15
- 'Aunt Katya praises pies and Anya complains that it currently has on these patties Naela ass twice more than it was ..'
- act 'Further': gt 'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour = 11:
- rintakrand = RAND(0,5)
- if rintakrand = 0:
- $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.'
- act 'Look at Nadia and Caucasians.':
- cla
- !annaQW += 1
- !NadiaQW += 1
- !tetaKataQW += 1
- minut += 15
- 'Caucasians seem to be leaning toward sex Nadia.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 1:
- $rintak = 'The tray is sitting in front of Nadia and eating cake.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW += 1
- minut += 15
- 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
- if clener = 0:
- clener = 1
- 'Nadia tells about a Jew tailor working in an office building.'
- end
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 2:
- $rintak = 'The tray in front of buyers came to Nadia and she fusses before laying them goods.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW -= 1
- minut += 15
- 'Nadia is not happy, light, no distractions, I have buyers.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 3:
- $rintak = 'In the next tray Anna reading the newspaper.'
- act 'Chat with Anna':
- cla
- annaQW += 1
- !NadiaQW -= 1
- minut += 15
- 'Anya support chat with you and tells you what nonsense.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 4:
- $rintak = 'By Ana from a nearby tray approached buyers.'
- act 'Chat with Anna':
- cla
- annaQW -= 1
- !NadiaQW -= 1
- minut += 15
- 'Anya is not happy, light, no distractions, I have buyers.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 5:
- $rintak = 'By Ana approached by three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly scared silent.'
- act 'Look at Anya and Caucasians.':
- cla
- !annaQW += 1
- !NadiaQW += 1
- !tetaKataQW += 1
- minut += 15
- 'Caucasians seem to be leaning toward sex Anya.'
- act 'Further': gt 'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour = 12:
- rintakrand = RAND(0,5)
- if rintakrand = 0:
- $rintak = 'Hasan bought cheburek and eating it while sitting behind Nadi in the tray.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW -= 1
- minut += 15
- 'Nadia shy to talk with Hassan.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 1:
- $rintak = 'Nadia Thorog with buyers.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW -= 1
- minut += 15
- 'Nadia is not happy, light, no distractions, I have buyers.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 2:
- $rintak = 'Nadia talks with Anna.'
- act 'Chat with sex':
- cla
- annaQW += 1
- NadiaQW += 1
- minut += 15
- talkrand = RAND(0,2)
- if talkrand = 0:
- 'Anya raskazyvaet that her skirt had to alter, so here is a Jew great tailor, he works in an office building.'
- if clener = 0: clener = 1
- end
- if talkrand = 1: 'Nadia tells her how the subway molested what that pervert ass rubbed against a member.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 3:
- $rintak = 'Anya sells clothing buyers.'
- act 'Chat with Anna':
- cla
- annaQW -= 1
- !NadiaQW -= 1
- minut += 15
- 'Anya is not happy, light, no distractions, I have buyers.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 4:
- $rintak = 'Anya drinking coffee sitting at his tray.'
- act 'Chat with Anna':
- cla
- annaQW += 1
- !NadiaQW -= 1
- minut += 15
- 'Anya support chat with you and tells you what nonsense.'
- act 'Further': gt 'rinwork','start'
- end
- end
- if rintakrand = 5:
- $rintak = 'Nadia idleness catches flies.'
- act 'Chat with Nadia':
- cla
- !annaQW += 1
- NadiaQW += 2
- minut += 15
- 'Nadia glad though what that entertainment and fun to chat with you.'
- act 'Further': gt 'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour = 13:
- rintakrand = RAND(0,5)
- if rintakrand = 0:
- $rintak = 'Hassan began to slowly collect the goods from Nadi.'
- end
- if rintakrand = 1:
- $rintak = 'Anya sits and calculates profit per day.'
- end
- if rintakrand = 2:
- $rintak = 'Nadia calculates profit per day.'
- end
- if rintakrand = 3:
- $rintak = 'Abdul began to collect the goods from Ani.'
- end
- if rintakrand = 4:
- $rintak = 'Past your tray was Arthur.'
- end
- if rintakrand = 5:
- $rintak = 'Aunt Katya ends trade pies and seems to leave.'
- end
- '<<$rintak>>'
- end
- if money >= 200:
- act 'Buy snack for 200 rubles (0:15)':
- cla
- *clr
- gs 'stat'
- tetaKataQW += 1
- '<center><img src="images\pics\food.jpg"></center>'
- set minut += 15
- set health += 10
- set manna += 20
- money -= 200
- if energy >= 30:
- set fat += 5
- 'You can no longer have.'
- end
- if energy >= 20 and energy < 30:
- set fat += 3
- set energy += 10
- 'You pushed through the power of a meal.'
- end
- if energy < 20:
- set energy += 20
- !set fat += 1
- 'You gladly ate cooked food.'
- end
- if water >= 20:
- 'Coffee you no longer climbs.'
- end
- if water < 20:
- 'You gladly drank a mug of coffee.'
- set water += 20
- end
- act 'Throw leftovers': gt 'rinwork','start'
- end
- end
- end
- =======
- gs'stat'
- '<center><B><font color=maroon>market</font></B></center>'
- '<center><img src="pic/rinok.jpg" ></center>'
- 'You stand for the tray with clothes in anticipation of buyers.'
- 'At the checkout <<rinmon>> rubles, sold_out <<rinvesh>> things.'
- 'The average price in the market <<prodpayum>>'
- if hour=14:
- 'Arthur came to you and you have started to calculate how much you should give Arthur.'
- act 'Give Arthur money':
- cla
- *clr
- rinart=rinvesh*1000
- rinmon=rinmon-rinart
- money+=rinmon
- 'You gave Arthur <<rinart>> rubles sold <<rinvesh>> things.'
- 'Today you have earned <<rinmon>> rubles'
- gs'stat'
- if rinart<arturplan:
- arturnoo+=1
- 'uh, Svetka, bad work, not enough money. You`re so razorish me at all.'
- else
- arturyes+=1
- 'Maladets Svetik, good job.'
- end
- if arturnoo>arturyes:arturnoo=arturnoo-arturyes&arturyes=0
- if arturyes>arturnoo:arturyes=arturyes-arturnoo&arturnoo=0
- if arturnoo=arturyes:arturnoo=0&arturyes=0
- rinmon=0
- rinvesh=0
- if arturnoo>10:
- arturnoo=0
- work=0
- workrin=0
- 'uh, Jam you already savsem. Here`s your work. get_out, that I did not see you anymore!'
- act 'Get_Away':gt'street'
- exit
- end
- Set rinrand = RAND (1,100)
- if rinrand < vnesh and palevorin = 0 and rinhoz = 0:
- '(Arthur) - Wai, Svetik, you and I have not even met good. Come into the container, encroach barbecue, drink, get_acquainted.'
- act 'Opt_Out':
- cla
- '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.'
- act 'Fair_Enough, let`s go have a drink':gt 'RynokHoz','beginning'
- act 'No.':
- cla
- arturplan+=1000
- if money>=1000:
- money-=1000
- 'Wai, you dirty things, lend a thousand rubles, it is fine. You gave Arthur money.'
- else
- 'Fair_Enough, go already.'
- end
- act 'Get_Away.':gt 'street'
- end
- end
- act 'Let`S_Go':gt 'RynokHoz','beginning'
- exit
- end
-
- if rinrand < vnesh and palevorin = 0 and rinhoz = 1:
- '(Arthur) - Wai, Svetik. Come into the container, encroach barbecue, drink, rest. He walked right up to you and slapped his hand on the pope.'
- act 'Opt_Out':
- cla
- '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.'
- act 'Fair_Enough, let`s go have a drink':gt 'RynokHoz','beginning'
- act 'No.':
- cla
- arturplan+=1000
- if money>=1000:
- money-=1000
- 'Wai, you dirty things, lend a thousand rubles, it is fine. You gave Arthur money.'
- else
- 'Fair_Enough, go already.'
- end
- act 'Get_Away.':gt 'street'
- end
- end
- act 'Let`S_Go':gt 'RynokHoz','beginning'
- exit
- end
-
-
-
- act 'Leave work':gt'street'
- end
- exit
- end
-
- if hour<14:
- pokrand=RAND(0,1)
- if pokrand=0:
- $pokup='Buyers can not see.'
- pokupatel=0
- ''
- 'Market is Aunt Kate with a trolley in which it carries cakes and coffee.'
- end
-
- if pokrand=1:
- poktiprand=RAND(0,7)
- pokupatel=1
- if poktiprand=0:$pokup='By tray approached middle-aged man.'&$poktip='The_Man'&pokti=1
- if poktiprand=1:$pokup='By tray approached by a young man.'&$poktip='guy'&pokti=2
- if poktiprand=2:$pokup='By tray guy came up teenager.'&$poktip='boy'&pokti=3
- if poktiprand=3:$pokup='By tray woman came.'&$poktip='woman'&pokti=1
- if poktiprand=4:$pokup='To the girl came trough.'&$poktip='girl'&pokti=2
- if poktiprand=5:$pokup='By tray approached teen girl.'&$poktip='Devchenka'&pokti=3
- if poktiprand=6:$pokup='By tray approached the old man.'&$poktip='old_man'&pokti=0
- if poktiprand=7:$pokup='Grandma went to the tray.'&$poktip='granny'&pokti=0
- end
- '<b><<$pokup>></B>'
- if pokupatel=1:
- act 'what would you like?':
- cla
- minut+=15
- pokvnirand=RAND(0,2)
- if pokvnirand=0:
- '<<$poktip>> without interest examines Sell items.'
-
- end
- if pokvnirand=1:
- '<<$poktip>> with interest examines Sell items.'
-
- end
- if pokvnirand=2:
- '<<$poktip>> picks up a thing.'
-
- end
-
-
- !dynamic $answerrin
-
- act 'Now it is very fashionable':
- cla
- tipred=3
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel=0:act 'further':gt'rinwork','start'
- if pokupatel=1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
-
- act 'Thing is very high-quality and reliable':
- cla
- tipred=1
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel=0:act 'further':gt'rinwork','start'
- if pokupatel=1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
-
- act 'Give not expensive':
- cla
- tipred=0
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel=0:act 'further':gt'rinwork','start'
- if pokupatel=1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
-
- act 'You really are':
- cla
- tipred=2
- dynamic $answerrin
- '<<$rinitog>>'
- if pokupatel=0:act 'further':gt'rinwork','start'
- if pokupatel=1:
- '<<$poktip>> asks you for a price'
- dynamic $answerrin2
- end
- end
- end
- end
-
- act 'laze 15 minutes':
- minut+=15
- gt'rinwork','start'
- end
-
- if hour=9:
- rintakrand=RAND(0,5)
- if rintakrand=0:
- $rintak='The tray in front of Hassan unload clothes saleswoman Nadia.'
- act 'See Hassan and Nadia':
- cla
- minut+=15
- talkrand=RAND(0,2)
- if talkrand=0:'Nadia Hassan pronounces. "Today, and then the fine ladies, I need money."'
- if talkrand=1:'Hassan opens trunks and puts clothes on the counter.'
- if talkrand=2:'Hassan drags trunks to its tray.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=1:
- $rintak='In the next tray Abdul talking loudly gives clothes saleswoman Anna.'
- act 'Look at Abdul and Anna':
- cla
- minut+=15
- talkrand=RAND(0,2)
- 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."'
- if talkrand=1:'Abdul slapped ass Anna, she pretended that nothing had happened.'
- if talkrand=2:'Abdul drags trunks to its tray.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=2:
- $rintak='Abdul Hassan and stand next to your tray and guttural than talking.'
- act 'Look at Caucasians':
- cla
- minut+=15
- talkrand=RAND(0,2)
- if talkrand=0:'Abdul Hassan and continue to talk about something, language and you do not know what they say can not understand.'
- if talkrand=1:'Abdul Hassan pyalyatsya you and discussing something gogochut.'
- if talkrand=2:'Abdul looks at you and says Hasan, "Look what a girl, sponge persik, Islands."'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=3:
- $rintak='Anna hanging clothes in the tray and shouting with Nadia.'
- act 'Chat with sex!':
- cla
- annaQW+=1
- NadiaQW+=1
- minut+=15
- talkrand=RAND(0,2)
- if talkrand=0:
- 'Anya raskazyvaet, that her skirt had to alter, so here is a Jew excellent tailor, He works in an office building.'
- if clener=0:clener=1
- end
- if talkrand=1:'Nadia tells how her subway molested a pervert, rubbed on the back member.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=4:
- $rintak='Arthur talking about something with Abdullah.'
- act 'Look at Caucasians':
- cla
- minut+=15
- talkrand=RAND(0,2)
- if talkrand=0:'Abdul and Arthur continue to talk about something, language and you do not know what they say can not understand.'
- if talkrand=1:'Abdul and Arthur pyalyatsya you and discussing something gogochut.'
- if talkrand=2:'Abdul looks at you and says Arthur, "Look what a girl, sponge persik, Islands."'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=5:
- $rintak='Arthur, Abdul Hassan and neighing loudly and what you do not speak the language they understand.'
- act 'Look at Caucasians':
- cla
- minut+=15
- talkrand=RAND(0,2)
- if talkrand=0:'Caucasians continue to talk about something, language and you do not know what they say can not understand.'
- if talkrand=1:'Caucasians pyalyatsya you and discussing something gogochut.'
- if talkrand=2:'Abdul looks at you and says other Caucasians, "Look what a girl, sponge persik, Islands."'
- act 'further':gt'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour=10:
- rintakrand=RAND(0,5)
- if rintakrand=0:
- $rintak='Hassan sitting on a chair dejectedly cheburek chews and talks with his mouth full with a saleswoman Nadia.'
- act 'See Hasan':
- cla
- minut+=15
- 'Hassan said Nadia "Nadia, zachem minute refuse? encroach Shlikov, drink wine".'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=1:
- $rintak='The tray sitting in front of Nadia and crossword puzzles.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW+=1
- minut+=15
- 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
- if clener=0:
- clener=1
- 'Nadia tells the story of a Jew tailor working in an office building.'
- end
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=2:
- $rintak='The tray in front of buyers came to Nadia and she fusses before laying them goods.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW-=1
- minut+=15
- 'Nadia is not happy, light, do not distract, I have buyers.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=3:
- $rintak='In the next tray Anna drinks coffee.'
- act 'Chat with Anna':
- cla
- annaQW+=1
- !NadiaQW-=1
- minut+=15
- 'Anya support a conversation with you and tells you what nonsense.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=4:
- $rintak='In the next tray Anna tries vtyuhat buyers stale goods.'
- act 'Chat with Anna':
- cla
- annaQW-=1
- !NadiaQW-=1
- minut+=15
- 'Anya is not happy, light, do not distract, I have buyers.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=5:
- $rintak='Anna talks about trifles with Aunt Katya.'
- act 'Chat with Anna and Aunt Katya':
- cla
- annaQW+=1
- !NadiaQW+=1
- tetaKataQW+=1
- minut+=15
- 'Aunt Kate praises cakes, and Anya complains, it currently has on these pies ass Naela twice more than was..'
- act 'further':gt'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour=11:
- rintakrand=RAND(0,5)
- if rintakrand=0:
- $rintak='By Nadia came three Caucasian, Aslan, Camille and Mukhtar and began to molest her, and she swore at them and tried to dodge.'
- act 'Look at Nadia and Caucasians.':
- cla
- !annaQW+=1
- !NadiaQW+=1
- !tetaKataQW+=1
- minut+=15
- 'Caucasians seem to be leaning towards sex Nadia.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=1:
- $rintak='The tray in front of Nadia sits and eats pie.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW+=1
- minut+=15
- 'Nadia leaves the crossword and willingly support the conversation about any nonsense.'
- if clener=0:
- clener=1
- 'Nadia tells the story of a Jew tailor working in an office building.'
- end
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=2:
- $rintak='The tray in front of buyers came to Nadia and she fusses before laying them goods.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW-=1
- minut+=15
- 'Nadia is not happy, light, do not distract, I have buyers.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=3:
- $rintak='In the next tray Anna reads the newspaper.'
- act 'Chat with Anna':
- cla
- annaQW+=1
- !NadiaQW-=1
- minut+=15
- 'Anya support a conversation with you and tells you what nonsense.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=4:
- $rintak='By Anya from a nearby tray came buyers.'
- act 'Chat with Anna':
- cla
- annaQW-=1
- !NadiaQW-=1
- minut+=15
- 'Anya is not happy, light, do not distract, I have buyers.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=5:
- $rintak='By Anya came three Caucasian, Aslan, Camille and Mukhtar and began to molest her, she excuses and mostly silent fright.'
- act 'Look at Anya and Caucasians.':
- cla
- !annaQW+=1
- !NadiaQW+=1
- !tetaKataQW+=1
- minut+=15
- 'Caucasians seem to be leaning towards sex Anya.'
- act 'further':gt'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour=12:
- rintakrand=RAND(0,5)
- if rintakrand=0:
- $rintak='Hasan bought cheburek and eat it sitting behind Nadia tray.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW-=1
- minut+=15
- 'Nadia shy to talk with Hassan.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=1:
- $rintak='Nadia Thorog with customers.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW-=1
- minut+=15
- 'Nadia is not happy, light, do not distract, I have buyers.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=2:
- $rintak='Nadia talks with Anna.'
- act 'Chat with sex!':
- cla
- annaQW+=1
- NadiaQW+=1
- minut+=15
- talkrand=RAND(0,2)
- if talkrand=0:
- 'Anya raskazyvaet, that her skirt had to alter, so here is a Jew excellent tailor, He works in an office building.'
- if clener=0:clener=1
- end
- if talkrand=1:'Nadia tells how her subway molested a pervert, rubbed on the back member.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=3:
- $rintak='Anya sells clothing buyers.'
- act 'Chat with Anna':
- cla
- annaQW-=1
- !NadiaQW-=1
- minut+=15
- 'Anya is not happy, light, do not distract, I have buyers.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=4:
- $rintak='Anya drinking coffee sitting at his tray.'
- act 'Chat with Anna':
- cla
- annaQW+=1
- !NadiaQW-=1
- minut+=15
- 'Anya support a conversation with you and tells you what nonsense.'
- act 'further':gt'rinwork','start'
- end
- end
- if rintakrand=5:
- $rintak='Nagy from idleness catches flies.'
- act 'Chat with Nadia':
- cla
- !annaQW+=1
- NadiaQW+=2
- minut+=15
- 'Nadia was glad that at least some entertainment and fun to hang out with you.'
- act 'further':gt'rinwork','start'
- end
- end
- '<<$rintak>>'
- end
- if hour=13:
- rintakrand=RAND(0,5)
- if rintakrand=0:
- $rintak='Hassan began to slowly collect the goods from Nadi.'
- end
- if rintakrand=1:
- $rintak='Anya sits and counts the profit per day.'
- end
- if rintakrand=2:
- $rintak='Nadia calculates profit per day.'
- end
- if rintakrand=3:
- $rintak='Abdul began to collect the goods from Ani.'
- end
- if rintakrand=4:
- $rintak='Past your tray was Arthur.'
- end
- if rintakrand=5:
- $rintak='Aunt Katya finishes trade pies and seems about to leave.'
- end
- '<<$rintak>>'
- end
-
-
- if money>=200:
- act 'have_a_bite 15 minutes (200 RUB)':
- cla
- *clr
- gs'stat'
- tetaKataQW+=1
- '<center><img src="pics/food.jpg" ></center>'
- set minut = minut + 15
- set health = health + 10
- set manna = manna + 20
- money-=200
- if energy >= 30:
- set fat = fat + 5
- 'You can no longer have.'
- end
- if energy >= 20 and energy < 30:
- set fat = fat + 3
- set energy = energy + 10
- 'You pushed through the power of a meal.'
- end
- if energy < 20:
- set energy = energy +20
- !set fat = fat + 1
- 'You gladly ate cooked food.'
- end
- if water >= 20:
- 'Coffee you no longer climbs.'
- end
- if water < 20:
- 'You gladly drank a mug of coffee.'
- set water = water +20
- end
- act 'throw leftovers':gt'rinwork','start'
- end
- end
- end
- >>>>>>> 088_rinwork
- end
- --- rinwork ---------------------------------
|