12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424 |
- # shop
- if $ARGS[0] = 'start':
- cla
- *clr
- set minut += 1
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- $icecreem = {
- if hour >= 8 and hour <= 20:
- cls
- set minut += 3
- 'Ice cream offer for 50 rubles.'
- act 'Get out of the department': gt 'shop','start'
- if money >= 50:
- act 'Buy ice cream':
- cls
- money -= 50
- fat += 50
- manna += 500
- water = 20
- energy = 20
- perkice += 1
- gs 'stat'
- !icecreem
- '<center><img src="images\etogame\icecreem.jpg"></center>'
- 'You bought ice cream and ate it not going far.'
- act 'Get out of the department': gt 'shop','start'
- end
- end
- else
- 'Ice cream counter with closed'
- end
- }
- $sofood = {
- if hour >= 8 and hour <= 20:
- minut += 3
- gt 'shop','food'
- else
- 'Section closed'
- end
- }
- $socosm = {
- if hour >= 8 and hour <= 20:
- minut += 3
- gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
- $sohos = {
- if hour >= 8 and hour <= 20:
- minut += 3
- gt 'shop','hos'
- else
- 'Section closed'
- end
- }
- $soclo = {
- if hour >= 8 and hour <= 20:
- minut += 3
- gt 'shop','clo'
- else
- 'Section closed'
- end
- }
- $soteh = {
- if hour >= 8 and hour <= 20:
- minut += 3
- gt 'shop','teh'
- else
- 'Section closed'
- end
- }
- $sobank = {
- if hour >= 8 and hour <= 20:
- if karta > 0:
- act 'Withdrawing money':
- cla
- set minut += 5
- kartaOUT = input ("How much money you want to withdraw?")
- if kartaOUT <= 0 or kartaOUT > karta:
- 'Invalid operation.'
- else
- set karta -= kartaOUT
- set money += kartaOUT
- 'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
- end
- act 'Move away': gt 'shop','start'
- end
- else
- 'You do not have a bank card'
- end
- else
- 'ATM disabled'
- end
- }
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- '<center><B><font color = maroon>Supermarket</font></B></center>'
- '<center><img src="images\etogame\shop.jpg"></center>'
- 'The hall stands <a href="exec: dynamic $sobank ">ATM</a>, from which you can withdraw the money unless you have it in the bank.'
- 'The greatest place in the supermarket takes <a href="exec: dynamic $sofood ">food hall</a>, but the store has more divisions <a href="exec: dynamic $socosm ">cosmetics</a>, <a href="exec: dynamic $sohos ">hardware</a>, <a href="exec: dynamic $soclo ">Clothing</a>, and department <a href="exec: dynamic $soteh ">household appliances</a>. Not far from the entrance stands <a href="exec: dynamic $icecreem ">counter with ice cream</a>'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- if $loc = 'gorodok':
- if week < 6:
- if hour >= 8 and hour < 16:
- 'Your sister <a href="exec:SiSonWork = 1 & GT ''sister''">Anne</a> sits at the checkout.'
- end
- end
- end
- if $loc = 'street':
- set evrand = RAND(1,100)
- if evrand >= 95 and dimaQW = 0:
- 'In the lobby of the store looks at you appreciatively what that man.'
- act 'See it': gt 'event','dima'
- end
- if evrand >= 95 and dimaQW = 1:
- 'In the lobby of the store you notice Dima and binds you fear, you can not move.'
- act 'See it': gt 'event','scoreslut1'
- end
- if evrand >= 95 and dimaqw = 2:
- 'You met the same Dima who boyfriend fucking amuse you. Dima cocky grin came to you and said hello.'
- act 'Hello':
- cla
- 'Come to me, I have no wife at home said Dima.'
- act 'No': gt 'shop','start'
- act 'Come':
- cla
- *clr
- Set gostrand = RAND(1,2)
- if gostrand = 1:
- cla
- Set sex += 1
- Set oral += 1
- Set throat += 1
- Set cumlip += 1
- set swallow += 1
- Set horny = 0
- 'Dima took you to his house and there has ordered you to kneel. You got on his knees and he calling you a bitch and fuck you cocksucker began in the mouth.'
- '<center><img src="images\pics\gostDT2.jpg"></center>'
- 'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'
- act 'Go home': gt 'street'
- end
- if gostrand = 2:
- cla
- Set sex += 1
- Set anal += 1
- Set cumass += 1
- Set spank += 1
- Set boom = 5
- Set horny = 0
- 'Dima has brought you to my house and right in the corridor began to kiss you and undress. After he stripped you he took you to the bathroom. There he sat in the bathroom and you unscrewing the showerhead put a water hose you in the ass. Quickly the feeling of fullness and Dima put you on the toilet. After an enema, he made you cancer and put you in the ass his big dick.'
- '<center><img src="images\pics\gostAnal2.jpg"></center>'
- 'Dima long you fucked in the ass and beat his hands, you first it was painful, but gradually you got the taste and began to catch the buzz finally your ass filled with hot liquid and Dima moan grabbed your buttocks.'
- act 'Go home': gt 'street'
- end
- end
- end
- end
- end
- if hour >= 8 and hour <= 20:
- 'In store crowd of buyers.'
- if TorgPredZ > 0:
- if $loc = 'street':
- if StreetShopTPday ! day:
- act 'Arrange products':
- cls
- mtprand = RAND(40,130)
- minut += mtprand
- TorgPredZ -= 1
- TorgPredZV += 1
- StreetShopTPday = day
- gs 'stat'
- '<center><img src="images\etogame\shop.jpg"></center>'
- 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
- act 'Exit': gt 'shop','start'
- end
- end
- end
- if $loc = 'Nord':
- if nordShopTPday ! day:
- act 'Arrange products':
- cls
- mtprand = RAND(40,130)
- minut += mtprand
- TorgPredZ -= 1
- TorgPredZV += 1
- nordShopTPday = day
- gs 'stat'
- '<center><img src="images\etogame\shop.jpg"></center>'
- 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
- act 'Exit': gt 'shop','start'
- end
- end
- end
- if $loc = 'down':
- if downShopTPday ! day:
- act 'Arrange products':
- cls
- mtprand = RAND(40,130)
- minut += mtprand
- TorgPredZ -= 1
- TorgPredZV += 1
- downShopTPday = day
- gs 'stat'
- '<center><img src="images\etogame\shop.jpg"></center>'
- 'You arranged the products for quite a while and when I finally managed, then went to the cashier and you check it struck.'
- act 'Exit': gt 'shop','start'
- end
- end
- end
- end
- else
- 'The store is closed.'
- end
- act 'Leave the store': gt $loc
- end
- if $ARGS[0] = 'food':
- cla
- *clr
- set minut += 1
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- $buyfood = {
- if hour >= 8 and hour <= 20:
- if money >= 50:
- cla
- *clr
- set minut += 15
- portion = input ("How many servings you want to buy?")
- if portion <= 0: portion = 1
- if portion * 50 > money:
- 'You do not have enough money.'
- else
- set eda += portion
- set money -= portion*50
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You bought food and paid the money to the cashier.'
- end
- act 'Move away from the counter': gt 'shop','food'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buyfood2 = {
- if hour >= 8 and hour <= 20:
- if money >= 250:
- cla
- *clr
- set minut += 15
- portion = input ("How many servings you want to buy?")
- if portion <= 0: portion = 1
- if portion * 250 > money:
- 'You do not have enough money.'
- else
- set edaD += portion
- set money -= portion*250
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You bought food and paid the money to the cashier.'
- end
- act 'Move away from the counter': gt 'shop','food'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- '<center><B><font color = maroon>Food Division</font></B></center>'
- '<center><img src="images\etogame\shop1.jpg"></center>'
- '<a href="exec: dynamic $buyfood ">One serving of food - 50 rubles</a>'
- '<a href="exec: dynamic $buyfood2 ">One serving of diet food - 250 rubles</a>'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- act 'Get out of the department': gt 'shop','start'
- if money >= 300:
- act 'Buy tea biscuits - 300 rubles':
- cls
- money -= 300
- pranik += 10
- 'You bought a bag of cookies that will last you for ten times.'
- act 'Get out of the department': gt 'shop','food'
- end
- end
- if money >= 50 and bottle = 0 and bag > 0:
- act 'Buy a bottle of water - 50 rubles':
- cls
- money -= 50
- bottle = 1
- 'You bought a bottle of water and put it in her purse.'
- act 'Get out of the department': gt 'shop','food'
- end
- end
- if money >= 100 and buterbrod = 0 and bag > 0:
- act 'Buy a sandwich - 100 rubles':
- cls
- money -= 100
- buterbrod = 1
- 'You bought a sandwich and put it in her purse.'
- act 'Get out of the department': gt 'shop','food'
- end
- end
- end
- if $ARGS[0] = 'cosm':
- cla
- *clr
- set minut += 1
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- $buykosm = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*1000 > money:
- 'You do not have enough money.'
- else
- set kosmetica += portion * 50
- set money -= portion * 1000
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought cosmetics.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
- $buystanok = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*500 > money:
- 'You do not have enough money.'
- else
- set stanok += portion * 10
- set money -= portion * 500
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought razor.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
- $buykrem = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*500 > money:
- 'You do not have enough money.'
- else
- set krem += portion * 20
- set money -= portion * 500
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought sunblock.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
- $buytampon = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*200 > money:
- 'You do not have enough money.'
- else
- set tampon += portion * 20
- set money -= portion * 200
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought tampons.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
- $buyshampoo = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*500 > money:
- 'You do not have enough money.'
- else
- set shampoo += portion * 30
- set money -= portion * 500
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought shampoo.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
-
- !!! Maruda Hair Mod
- $buyhscrunch = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*80 > money:
- 'You do not have enough money.'
- else
- set hscrunch = portion * 10
- set money -= portion * 80
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought the small box.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
-
- $buyhpingrip = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*100 > money:
- 'You do not have enough money.'
- else
- set hpingrip = portion * 12
- set money -= portion * 100
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought the small box.'
- end
- act 'Move away from the counter': gt 'shop','cosm'
- else
- 'Section closed'
- end
- }
- !!! Maruda Hair Mod
-
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- '<center><B><font color = maroon>Department cosmetics</font></B></center>'
- '<center><img src="images\etogame\shop2.jpg"></center>'
- '<a href="exec: dynamic $buykosm ">Cosmetics - 1,000 rubles</a>'
- '<a href="exec: dynamic $buystanok ">Razor - 500 rubles</a>'
- '<a href="exec: dynamic $buykrem ">Sunblock - 500 rubles</a>'
- '<a href="exec: dynamic $buytampon ">Tampons - 200 rubles</a>'
- '<a href="exec: dynamic $buyshampoo ">Shampoo - 500 rubles</a>'
- !!! Maruda Hair Mod
- '<a href="exec: dynamic $buyhscrunch ">A Box of 10 Hairscrunchies - 80 rubles</a>'
- '<a href="exec: dynamic $buyhpingrip ">A Box of 12 Hairpins, -clips and -grips - 100 rubles</a>'
- !!! Maruda Hair Mod
- 'Handbag - 5,000 rubles'
- 'Wipes - 100 rubles'
- 'Portable Makeup - 1,000 rubles'
- 'Comb - 150 rubles'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- act 'Get out of the department': gt 'shop','start'
- if money >= 100 and bag > 0:
- act 'Buy wipes - 100 rubles':
- cls
- money -= 100
- salfetka += 10
- 'You bought wipes and put them in her purse.'
- act 'Get out of the department': gt 'shop','cosm'
- end
- end
- if money >= 1000 and bag > 0:
- act 'Buy a portable makeup - 1,000 rubles':
- cls
- money -= 1000
- kosmetitka += 10
- 'You bought a portable makeup bag and put it in her purse.'
- act 'Get out of the department': gt 'shop','cosm'
- end
- end
- if money >= 80 and greben = 0 and bag > 0:
- act 'Buy a comb - 150 rubles':
- cls
- money -= 150
- greben = 1
- 'You bought a comb and put it in her purse.'
- act 'Get out of the department': gt 'shop','cosm'
- end
- end
-
- if money >= 5000 and bag = 0:
- act 'Buy a handbag - 5,000 rubles':
- cls
- money -= 5000
- bag = 1
- 'You bought a handbag.'
- act 'Get out of the department': gt 'shop','cosm'
- end
- end
- end
- if $ARGS[0] = 'hos':
- cla
- *clr
- set minut += 1
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- $buyfairy = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*100 > money:
- 'You do not have enough money.'
- else
- set fairy += portion * 20
- set money -= portion * 100
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought dishwashing detergent.'
- end
- act 'Move away from the counter': gt 'shop','hos'
- else
- 'Section closed'
- end
- }
- $buyporoshok = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*250 > money:
- 'You do not have enough money.'
- else
- set poroshok += portion * 30
- set money -= portion * 250
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought detergent.'
- end
- act 'Move away from the counter': gt 'shop','hos'
- else
- 'Section closed'
- end
- }
- $buycltarelka = {
- if hour >= 8 and hour <= 20:
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion*300 > money:
- 'You do not have enough money.'
- else
- set cltarelka += portion * 5
- set money -= portion * 300
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought a set of the 5-plates.'
- end
- act 'Move away from the counter': gt 'shop','hos'
- else
- 'Section closed'
- end
- }
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- '<center><B><font color = maroon>Division of household goods</font></B></center>'
- '<center><img src="images\etogame\shop3.jpg"></center>'
- '<a href="exec: dynamic $buyfairy ">Dishwashing detergent - 100 rubles</a>'
- '<a href="exec: dynamic $buyporoshok ">Washing powder - 250 rubles</a>'
- '<a href="exec: dynamic $buycltarelka ">Set of 5 plates - 300 rubles</a>'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- act 'Get out of the department': gt 'shop','start'
- end
- if $ARGS[0] = 'clo':
- cla
- *clr
- set minut += 5
- '<center><B><font color = maroon>Department of Women´s Clothing</font></B></center>'
- '<center><img src="images\etogame\shop4.jpg"></center>'
- 'Lingerie - 300 rubles'
- 'All women´s clothing for 2500 rubles'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- act 'WITHDRAW FROM THE DIVISION': gt 'shop','start'
- if money >= 300:
- act 'Buy lingerie 300 rubles.':
- cla
- *clr
- portion = input ("How much you want to buy?")
- if portion <= 0: portion = 1
- if portion * 300 > money: 'You do not have enough money.'
- if portion*300 <= money:
- set clrbelo += portion
- set money -= portion * 300
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought clothes.'
- end
- act 'Move away from the counter': gt 'shop','clo'
- end
- end
- if money >= 2000:
- act 'Buy a set of underwear "Nedelka" 2000 rubles.':
- cla
- *clr
- set money -= 2000
- set clrbelo += 7
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought clothes.'
- act 'Move away from the counter': gt 'shop','clo'
- end
- end
- if palto < 2:
- 'The store sells a winter coat. 10000 rubles'
- if money >= 10000:
- act 'Buy a winter coat':
- cla
- money -= 10000
- palto = 2
- $palto = 'winter coat'
- 'You bought a coat.'
- act 'QUIT': gt 'shop','clo'
- end
- end
- end
- if money >= 1000 and bikini < 1:
- act 'Buy swimsuit 1000 rubles.':
- cla
- *clr
- set money -= 1000
- set bikini = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You pay the cashier and bought a swimsuit.'
- act 'Move away from the counter': gt 'shop','clo'
- end
- end
- if money >= 2500:
- if profi[1] = 0:
- act 'Inspect office clothes number 1':
- cla
- *clr
- '<center><img src="images\clothes\profi1.jpg"></center>'
- 'Office clothes.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set profi[1] = 1
- set profiH[1] = 60
- set profiB[1] = bedra
- gt 'shop','clo'
- end
- end
- end
- if profi[2] = 0:
- act 'Inspect office clothes number 2':
- cla
- *clr
- '<center><img src="images\clothes\profi2.jpg"></center>'
- 'Office clothes.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set profi[2] = 1
- set profiH[2] = 60
- set profiB[2] = bedra
- gt 'shop','clo'
- end
- end
- end
- if sarafan[1] = 0:
- act 'Inspect colorful sundress':
- cla
- *clr
- '<center><img src="images\clothes\sarafan1.jpg"></center>'
- 'Simple sundress, its main advantage is its dimensionless.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set sarafan[1] = 1
- set sarafanH[1] = 60
- gt 'shop','clo'
- end
- end
- end
- if sarafan[2] = 0:
- act 'Inspect light sundress':
- cla
- *clr
- '<center><img src="images\clothes\sarafan2.jpg"></center>'
- 'Simple sundress, its main advantage is its dimensionless.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set sarafan[2] = 1
- set sarafanH[2] = 60
- gt 'shop','clo'
- end
- end
- end
- if short[1] = 0:
- act 'Inspect Black shorts with a purple T-shirt':
- cla
- *clr
- '<center><img src="images\clothes\short1.jpg"></center>'
- 'Black shorts with a purple jersey.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set short[1] = 1
- set shortH[1] = 60
- set shortB[1] = bedra
- gt 'shop','clo'
- end
- end
- end
- if short[2] = 0:
- act 'Inspect Black shorts with a striped T-shirt':
- cla
- *clr
- '<center><img src="images\clothes\short2.jpg"></center>'
- 'Black shorts with striped jersey.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set short[2] = 1
- set shortH[2] = 60
- set shortB[2] = bedra
- gt 'shop','clo'
- end
- end
- end
- if short[3] = 0:
- act 'Inspect Black shorts with black jersey':
- cla
- *clr
- '<center><img src="images\clothes\short3.jpg"></center>'
- 'Black shorts with a black T-shirt.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set short[3] = 1
- set shortH[3] = 60
- set shortB[3] = bedra
- gt 'shop','clo'
- end
- end
- end
- if short[4] = 0:
- act 'Inspect pink shorts with pink jersey':
- cla
- *clr
- '<center><img src="images\clothes\short4.jpg"></center>'
- 'pink shorts with the pink jersey.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set short[4] = 1
- set shortH[4] = 60
- set shortB[4] = bedra
- gt 'shop','clo'
- end
- end
- end
- if short[5] = 0:
- act 'Inspect the white shorts with a white bodice':
- cla
- *clr
- '<center><img src="images\clothes\short5.jpg"></center>'
- 'white shorts with a white bodice.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set short[5] = 1
- set shortH[5] = 60
- set shortB[5] = bedra
- gt 'shop','clo'
- end
- end
- end
- if skirt[1] = 0:
- act 'Inspect the white skirt with a colorful blouse.':
- cla
- *clr
- '<center><img src="images\clothes\skirt1.jpg"></center>'
- 'White skirt with a colorful blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set skirt[1] = 1
- set skirtH[1] = 60
- set skirtB[1] = bedra
- gt 'shop','clo'
- end
- end
- end
- if skirt[2] = 0:
- act 'Inspect the black skirt with a red sweater.':
- cla
- *clr
- '<center><img src="images\clothes\skirt2.jpg"></center>'
- 'Black skirt with a red sweater.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set skirt[2] = 1
- set skirtH[2] = 60
- set skirtB[2] = bedra
- gt 'shop','clo'
- end
- end
- end
- if skirt[3] = 0:
- act 'Inspect the white skirt with a striped shirt.':
- cla
- *clr
- '<center><img src="images\clothes\skirt3.jpg"></center>'
- 'White skirt with a striped shirt.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set skirt[3] = 1
- set skirtH[3] = 60
- set skirtB[3] = bedra
- gt 'shop','clo'
- end
- end
- end
- if skirt[4] = 0:
- act 'Inspect the skin black skirt with a red blouse.':
- cla
- *clr
- '<center><img src="images\clothes\skirt4.jpg"></center>'
- 'Black skirt under the skin with a red blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set skirt[4] = 1
- set skirtH[4] = 60
- set skirtB[4] = bedra
- gt 'shop','clo'
- end
- end
- end
- if skirt[5] = 0:
- act 'Inspect the black skirt with a white blouse.':
- cla
- *clr
- '<center><img src="images\clothes\skirt5.jpg"></center>'
- 'Black skirt with a white blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set skirt[5] = 1
- set skirtH[5] = 60
- set skirtB[5] = bedra
- gt 'shop','clo'
- end
- end
- end
- if pants[1] = 0:
- act 'Inspect the pants with a blouse. Number 1':
- cla
- *clr
- '<center><img src="images\clothes\pants1.jpg"></center>'
- 'Pants with a blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set pants[1] = 1
- set pantsH[1] = 60
- set pantsB[1] = bedra
- gt 'shop','clo'
- end
- end
- end
- if pants[2] = 0:
- act 'Inspect the pants with a blouse. Number 2':
- cla
- *clr
- '<center><img src="images\clothes\pants2.jpg"></center>'
- 'Pants with a blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set pants[2] = 1
- set pantsH[2] = 60
- set pantsB[2] = bedra
- gt 'shop','clo'
- end
- end
- end
- if pants[3] = 0:
- act 'Inspect the pants with a blouse. Number 3':
- cla
- *clr
- '<center><img src="images\clothes\pants3.jpg"></center>'
- 'Pants with a blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set pants[3] = 1
- set pantsH[3] = 60
- set pantsB[3] = bedra
- gt 'shop','clo'
- end
- end
- end
- if pants[4] = 0:
- act 'Inspect the pants with a blouse. Number 4':
- cla
- *clr
- '<center><img src="images\clothes\pants4.jpg"></center>'
- 'Pants with a blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set pants[4] = 1
- set pantsH[4] = 60
- set pantsB[4] = bedra
- gt 'shop','clo'
- end
- end
- end
- if pants[5] = 0:
- act 'Inspect the pants with a blouse. Number 5':
- cla
- *clr
- '<center><img src="images\clothes\pants5.jpg"></center>'
- 'Pants with a blouse.'
- 'Costs 2500 rubles.'
- act 'Leave': gt 'shop','clo'
- act 'Buy':
- cla
- set money -= 2500
- set pants[5] = 1
- set pantsH[5] = 60
- set pantsB[5] = bedra
- gt 'shop','clo'
- end
- end
- end
- end
- end
- if $ARGS[0] = 'teh':
- cla
- *clr
- set minut += 1
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- $buytv = {
- if hour >= 8 and hour <= 20:
- if money >= 5000 and TV < 1:
- cla
- *clr
- set money -= 5000
- set TV = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You paid the money to the cashier and bought TV'
- act 'Leave': gt 'shop','teh'
- elseif TV > 0:
- 'Do you already have a TV'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buytv2 = {
- if hour >= 8 and hour <= 20:
- if money >= 35000 and TV < 2:
- cla
- *clr
- set money -= 35000
- set TV = 2
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You paid the money to the cashier and bought TV'
- act 'Leave': gt 'shop','teh'
- elseif TV > 1:
- 'Do you already have a TV'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buykomp = {
- if hour >= 8 and hour <= 20:
- if money >= 25000 and komp =0:
- cla
- *clr
- set money -= 25000
- set komp = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought a computer'
- act 'Leave': gt 'shop','teh'
- elseif komp > 0:
- 'Do you already have a computer'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buycd = {
- if hour >= 8 and hour <= 20:
- if money >= 500 and komp > 0 and GameCD = 0:
- cla
- *clr
- set money -= 500
- GameCD = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought the game'
- act 'Leave': gt 'shop','teh'
- elseif komp = 0:
- 'You do not have computer'
- elseif GameCD > 0:
- 'You already have this game'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buycd2 = {
- if hour >= 8 and hour <= 20:
- if money >= 500 and komp > 0 and GameCD2 = 0:
- cla
- *clr
- set money -= 500
- GameCD2 = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought the game'
- act 'Leave': gt 'shop','teh'
- elseif komp = 0:
- 'You do not have computer'
- elseif GameCD2 > 0:
- 'You already have this game'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buycd3 = {
- if hour >= 8 and hour <= 20:
- if money >= 500 and komp > 0 and GameCD3 = 0:
- cla
- *clr
- set money -= 500
- GameCD3 = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought the game'
- act 'Leave': gt 'shop','teh'
- elseif komp = 0:
- 'You do not have computer'
- elseif GameCD3 > 0:
- 'You already have this game'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buyposudmoi = {
- if hour >= 8 and hour <= 20:
- if money >= 50000 and posudomashina = 0:
- cla
- *clr
- set money -= 50000
- posudomashina = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought a dishwasher'
- act 'Leave': gt 'shop','teh'
- elseif posudomashina > 0:
- 'You already have a dishwasher'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buystiralka = {
- if hour >= 8 and hour <= 20:
- if money >= 50000 and stiralka = 0:
- cla
- *clr
- set money -= 50000
- stiralka = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought a washing machine'
- act 'Leave': gt 'shop','teh'
- elseif stiralka > 0:
- 'You already have a washing machine'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buyzenit = {
- if hour >= 8 and hour <= 20:
- if money >= 10000 and zenit = 0:
- cla
- *clr
- set money -= 10000
- zenit = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought a camera'
- act 'Leave': gt 'shop','teh'
- elseif zenit > 0:
- 'Do you already have a camera'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buyminifoto = {
- if hour >= 8 and hour <= 20:
- if money >= 40000 and minifoto = 0:
- cla
- *clr
- set money -= 40000
- minifoto = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought a mini camera'
- act 'Leave': gt 'shop','teh'
- elseif minifoto > 0:
- 'You already have a mini camera'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buyWebCam = {
- if hour >= 8 and hour <= 20:
- if money >= 80000 and webCam = 0:
- cla
- *clr
- set money -= 80000
- webCam = 1
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought a web-camera'
- act 'Leave': gt 'shop','teh'
- elseif webCam > 0:
- 'You already have a web-camera'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- $buyDVDDisk = {
- if hour >= 8 and hour <= 20:
- if money >= 4000 :
- cla
- *clr
- set money -= 4000
- set DVDDisk += 20
- '<center><img src="images\etogame\kassa.jpg"></center>'
- 'You get paid in cash and bought 20 burnable DVD disks.'
- act 'Leave': gt 'shop','teh'
- else
- 'You do not have enough money'
- end
- else
- 'Section closed'
- end
- }
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- '<center><B><font color = maroon>Division of household appliances</font></B></center>'
- '<center><img src="images\etogame\shop5.jpg"></center>'
- clr
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- if TV = 0: '<a href="exec: dynamic $buytv ">Not a big TV with a picture tube can be bought for 5,000 rubles</a>'
- if TV ! 2: '<a href="exec: dynamic $buytv2 ">Large plasma TV can be bought for 35,000 rubles</a>'
- if komp = 0: '<a href="exec: dynamic $buykomp ">Computer worth 25,000 rubles</a>'
- !'<a href="exec: dynamic $buycd ">Computer game Disopl 500 rubles</a>'
- if GameCD2 = 0: '<a href="exec: dynamic $buycd2 ">Computer game Dead Sunset 500 rubles</a>'
- !'<a href="exec: dynamic $buycd3 ">Computer game Albida 500 rubles</a>'
- if webCam = 0: '<a href="exec: dynamic $buyWebCam ">Computer webcam 80,000 rubles</a>'
- if DVDDisk >= 0: '<a href="exec: dynamic $buyDVDDisk ">Burnable DVDs 4,000 rubles</a>'
- if posudomashina = 0: '<a href="exec: dynamic $buyposudmoi ">The dishwasher can be bought for 50,000 rubles</a>'
- if stiralka = 0: '<a href="exec: dynamic $buystiralka ">washing machine can be bought for 50,000 rubles</a>'
- if zenit = 0: '<a href="exec: dynamic $buyzenit ">The camera can be bought for 10,000 rubles</a>'
- if minifoto = 0: '<a href="exec: dynamic $buyminifoto ">Mini camera disguised as a cigarette pack can be purchased for 40,000 rubles</a>'
- act 'Get out of the department': gt 'shop','start'
- end
- --- shop ---------------------------------
|