# shop if $ARGS[0] = 'start': cla *clr set minut += 1 $icecreem = { if hour >= 8 and hour <= 20: cls set minut += 3 'Ice cream, sold 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 '
' '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 'Withdraw money from the ATM': 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 withdraw <> rubles. You have <> rubles left in your bank account.' end act 'Move away':gt 'shop', 'start' end else 'You do not have a bank card' end else 'ATM disabled' end } !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '
Supermarket
' '
' 'In the hall stands ATM, from which you can withdraw money if you have it in the bank.' '
Most of the space in the supermarket is taken by the grocery department, but the store has many smaller departments as well. Cosmetics, hardware, clothing and the department of household appliances. Not far from the entrance is a counter selling ice cream' 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 Anne 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.' '
' '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.' '
' '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 is crowd of shoppers.' 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' '
' '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' '
' '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' '
' '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 '
' '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 'Department 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 '
' '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 'Department closed' end } !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '
Grocery deparment
' '
' 'One serving of food - 50 rubles' 'One serving of diet food - 250 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 >= 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 'Leave 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 'Leave 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 'Leave the department':gt 'shop', 'food' end end if money >= 500 and wine = 0 and bag > 0: act 'Buy a bottle of wine (500 rubles)': cls money -= 500 wine = 1 'You bought a bottle of wine 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 '
' '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 '
' '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 '
' '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 '
' '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 '
' '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 '
' '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 '
' '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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '
Cosmetics Department
' '
' 'Cosmetics - 1,000 rubles' 'A box of razors - 500 rubles' 'A bottle of sunblock - 500 rubles' 'A box of tampons - 200 rubles' 'A bottle of shampoo - 500 rubles' !!! Maruda Hair Mod 'A Box of 10 Hairscrunchies (80 rubles)' 'A Box of 12 Hairpins, -clips and -grips (100 rubles)' !!! 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 >= 150 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 '
' '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 '
' '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 '
' '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 } !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '
Division of household goods
' '
' 'Dishwashing detergent - 100 rubles' 'Washing powder - 250 rubles' 'set of 5 plates - 300 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' end if $ARGS[0] = 'clo': cla *clr set minut += 5 '
Department of Women''s Clothing
' '
' 'Underwear - 300 rubles' 'All women´s clothing for 2,500 rubles' clr gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) act 'Leave the department':gt 'shop', 'start' if money >= 300: act 'Buy underwear (300 rubles)': cla *clr portion = input ("How many 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 '
' '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" (2,000 rubles)': cla *clr set money -= 2000 set clrbelo += 7 '
' 'You pay the cashier and bought clothes.' act 'Move away from the counter':gt 'shop', 'clo' end end if palto < 2: 'Winter coats (10,000 rubles)' if money >= 10000: act 'Buy a winter coat': cla money -= 10000 palto = 2 $palto = 'winter coat' 'You bought a coat.' act 'Move away from the counter':gt 'shop', 'clo' end end end if money >= 1000 and bikini < 1: 'Swimsuit (1,000 rubles)' act 'Buy swimsuit (1,000 rubles)': cla *clr set money -= 1000 set bikini = 1 '
' '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 '
' 'Office clothes.' 'Costs 2,500 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 '
' 'Office clothes.' 'Costs 2,500 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 '
' 'Simple sundress, its main advantage is its dimensionless.' 'Costs 2,500 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 '
' 'Simple sundress, its main advantage is its dimensionless.' 'Costs 2,500 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 '
' 'Black shorts with a purple jersey.' 'Costs 2,500 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 '
' 'Black shorts with striped jersey.' 'Costs 2,500 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 '
' 'Black shorts with a black T-shirt.' 'Costs 2,500 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 '
' 'pink shorts with the pink jersey.' 'Costs 2,500 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 '
' 'white shorts with a white bodice.' 'Costs 2,500 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 '
' 'White skirt with a colorful blouse.' 'Costs 2,500 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 '
' 'Black skirt with a red sweater.' 'Costs 2,500 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 '
' 'White skirt with a striped shirt.' 'Costs 2,500 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 '
' 'Black skirt under the skin with a red blouse.' 'Costs 2,500 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 '
' 'Black skirt with a white blouse.' 'Costs 2,500 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 '
' 'Pants with a blouse.' 'Costs 2,500 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 '
' 'Pants with a blouse.' 'Costs 2,500 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 '
' 'Pants with a blouse.' 'Costs 2,500 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 '
' 'Pants with a blouse.' 'Costs 2,500 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 '
' 'Pants with a blouse.' 'Costs 2,500 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 '
' 'You the money to the cashier and bought the TV' act 'Leave':gt 'shop', 'teh' elseif TV > 0: 'Do you already have a TV' else 'You do not have enough money' end else 'Department closed' end } $buytv2 = { if hour >= 8 and hour <= 20: if money >= 35000 and TV < 2: cla *clr set money -= 35000 set TV = 2 '
' 'You the money to the cashier and bought the TV' act 'Leave':gt 'shop', 'teh' elseif TV > 1: 'Do you already have a TV' else 'You do not have enough money' end else 'Department closed' end } $buykomp = { if hour >= 8 and hour <= 20: if money >= 25000 and komp =0: cla *clr set money -= 25000 set komp = 1 '
' 'You paid in cash and bought the computer' act 'Leave':gt 'shop', 'teh' elseif komp > 0: 'Do you already have a computer' else 'You do not have enough money' end else 'Department 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 '
' 'You 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 'Department 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 '
' 'You 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 'Department 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 '
' 'You 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 'Department closed' end } $buyposudmoi = { if hour >= 8 and hour <= 20: if money >= 50000 and posudomashina = 0: cla *clr set money -= 50000 posudomashina = 1 '
' 'You 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 'Department closed' end } $buystiralka = { if hour >= 8 and hour <= 20: if money >= 50000 and stiralka = 0: cla *clr set money -= 50000 stiralka = 1 '
' 'You 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 'Department closed' end } $buyzenit = { if hour >= 8 and hour <= 20: if money >= 10000 and zenit = 0: cla *clr set money -= 10000 zenit = 1 '
' 'You 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 'Department closed' end } $buyminifoto = { if hour >= 8 and hour <= 20: if money >= 40000 and minifoto = 0: cla *clr set money -= 40000 minifoto = 1 '
' 'You 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 'Department closed' end } !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '
Department of household appliances
' '
' clr gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) if TV = 0:'A small TV with a picture tube (5,000 rubles)' if TV ! 2:'Large plasma TV (35,000 rubles)' if komp = 0:'Computer - (25,000 rubles)' !!'Computer game Disopl (500 rubles)' if GameCD2 = 0:'Computer game Dead Sunset (500 rubles)' !!'Computer game Albida (500 rubles)' if posudomashina = 0:'A dishwasher (50,000 rubles)' if stiralka = 0:'Washing machine (50,000 rubles)' if zenit = 0:'Camera can be bought (10,000 rubles)' if minifoto = 0:'Mini camera disguised as a cigarette pack (40,000 rubles)' act 'Leave the department':gt 'shop', 'start' end --- shop ---------------------------------