# shop !! This is the supermarket, located in several places !! Main entrance if $ARGS[0] = 'start': CLOSE ALL if sound = 0:PLAY 'sound/shop.mp3',30 $shoplocation = 'main' end if $ARGS[0] = 'start' or $ARGS[0] = 'move': minut += 1 end !! Main area if $shoplocation = 'main': cla *clr '
Supermarket
' '
' if hour < 8 or hour > 20: 'The supermarket is currently closed.' act 'Leave the store':gt $loc exit end 'In the hall stands an ATM, from which you can withdraw money from your bank account.' 'There is a branch of communication giants Bullhorn.' '
Most of the space in the supermarket is taken up 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' if night_mode = 1: fcolor = rgb(255, 255, 255) bcolor = rgb(0, 0, 0) lcolor = rgb(106, 90, 205) else fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) end !! The store in the town and in the altstart only if $loc = 'pavCommercial' and StoryLine = 1: if week < 6 and hour >= 8 and hour < 16: 'Your sister Anya is sitting at the cash register.' end end !! Store in the residential district if $loc = 'street': if rand(1, 20) = 20: if dimaQW = 0: 'By the store entrance a man is looking at you appreciatively.' act 'Return the look':gt 'event', 'dima' elseif dimaQW = 1: 'In the lobby of the store you notice Dima and you are frozen with fear, you want to run, but your legs wont respond.' 'Your heart is thumping in your chest, your vision narrows, you feel faint.' act 'Pass out':gt 'event', 'scoreslut1' else 'You meet the same Dima whos friend fucked and abused you. Dima grins confidently and says, "Hello."' act 'Hello': cla '"Come with me, My wife''s away", says Dima.' act 'Fuck no':gt 'shop', 'start' act 'I deserve this': cla *clr if rand(1, 2) = 1: cla stat['vaginal'] += 1 oral += 1 pcs_throat += 1 spafinloc = 12 gs 'cum_manage' swallow += 1 pcs_horny = 0 minut += 10 'Dima takes you to his house and orders you to lie across the sofa. You get on into position, he calls you a bitch and a starts fucking you in the mouth.' '
' 'Dima finally finishes in your mouth, you obediently swallow and lick the remnants of sperm off his big cock.' act 'Leave':gt 'street' else cla stat['vaginal'] += 1 stat['anal'] += 1 spafinloc = 4 gs 'cum_manage' spank += 1 boom = 5 pcs_horny = 0 minut += 30 'Dima has brings you to his house and right in the corridor begins to kiss and undress you. When you are naked he takes you to the bathroom.' 'There he unscrews the showerhead and puts the hose in your ass. Quickly you feel the fullness and Dima sits you on the toilet. After he rough enema, he bends you over and puts his big dick in your ass.' '
' 'Dima fucks you in the ass whilst slapping your butt, at first it is painful, but gradually you get it and it feels amazing. Finally, your ass fills with hot liquid and Dima moans and grabs your buttocks.' act 'Leave':gt 'street' end end end end end end '
The store is crowded with shoppers.' !! This is connected to the trade mission if TorgPredZ > 0: !! the location of the shop hasn''t been done today if ($loc = 'street' and StreetShopTPday ! daystart) or ($loc = 'Nord' and nordShopTPday ! daystart) or ($loc = 'torgcentr' and downShopTPday ! daystart): act 'Arrange products': if $loc = 'street':StreetShopTPday = daystart if $loc = 'Nord':nordShopTPday = daystart if $loc = 'torgcentr':downShopTPday = daystart cls mtprand = rand(40, 130) minut += mtprand TorgPredZ -= 1 TorgPredZV += 1 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 act 'Leave the store':gt $loc exit end !! ATM if $shoplocation = 'ATM': '
ATM
' '
' if bankAccount = 1: if karta >= 0: 'You have <> in your account.' 'You have an overdraft limit of <>!' else 'You are overdrawn by <<-1 * karta>> .' 'You have a remaining credit limit of <>!' end '
ATM Deposit Fee: 100 ' if atmDeposit = 0: act 'Deposit money': cla minut += 5 kartaINATM = input ("How much money you want to deposit into the account? Note: A service charge of 100 will be deducted from the amount deposited.") if kartaINATM < 100 or kartaINATM > money: 'This is not a valid input.' else atmDeposit += kartaINATM - 100 atmDepositDate = daystart + 2 money -= kartaINATM '
You deposited <> into your account.' 'It will take 2 days for funds to be available. Your new balance will be <> .' end gs 'stat' act 'Move away': gt 'shop' end else '
★ Processing deposit of <> in <> days.' end if karta + bankDebtLimit > 0: act 'Withdraw money from the ATM': cla minut += 5 kartaOUT = input ("How much money you want to withdraw?") if kartaOUT <= 0 or kartaOUT > karta + bankDebtLimit: '
Invalid operation.' else karta -= kartaOUT money += kartaOUT if karta > 0: '
You withdraw <> . You have <> left in your bank account.' elseif karta = 0: '
You withdraw <> . You have no money left in your bank account.' else '
You withdraw <> . Your bank account is overdrawn by <> ₽.' end end gs 'stat' act 'Move away': gt 'shop' end else 'You have maxed out your overdraft.' end else 'You don''t have a bank account yet!' end act 'Move away':gt 'shop', 'start' end !! Grocery if $shoplocation = 'grocery': cla *clr '
Grocery
' '
' if hour < 8 or hour > 20: 'The grocery is currently closed.' act 'Leave the grocery':gt 'shop', 'start' exit end !! output from purchase if $message ! '': '
'+$message+'
' killvar '$message' else '' end *pl '
' *P FUNC ('$stock_item', 1, 'Regular food', 50, 'eda', $CURLOC) *P FUNC ('$stock_item', 10, 'Regular food', 500, 'eda', $CURLOC) *P FUNC ('$stock_item', 1, 'Diet food', 250, 'edaD', $CURLOC) *P FUNC ('$stock_item', 10, 'Diet food', 2500, 'edaD', $CURLOC) *P FUNC ('$stock_item', 10, 'Tea biscuits', 300, 'pranik', $CURLOC) *P iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of water', 50, 'bottle', $CURLOC), '') *P iif(bag > 0, FUNC ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', $CURLOC), '') *P iif(bag > 0, FUNC ('$single_stock_item', 1, 'Bottle of wine', 500, 'wine', $CURLOC), '') *P '
Bottle of waterYou need a handbagfor 50
SandwichYou need a handbagfor 100
Bottle of wineYou need a handbagfor 500
' gs 'stat' if night_mode = 1: fcolor = rgb(255, 255, 255) bcolor = rgb(0, 0, 0) lcolor = rgb(106, 90, 205) else fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) end act 'Leave the grocery':gt 'shop', 'start' end !! Cosmetics !! The scrunchies and hairpins sold here are from the Maruda Hair Mod if $shoplocation= 'cosmetics': cla *clr '
Cosmetics Department
' '
' if hour < 8 or hour > 20: 'The cosmetics department is currently closed.' act 'Leave the cosmetics department':gt 'shop', 'start' exit end !! output from purchase if $message ! '': '
'+$message+'
' killvar '$message' else '' end *pl '
' *P FUNC ('$stock_item', 50, 'Cosmetics', 1000, 'kosmetica', $CURLOC) *P FUNC ('$stock_item', 10, 'Razors', 500, 'stanok', $CURLOC) *P FUNC ('$stock_item', 20, 'Sunblock', 500, 'krem', $CURLOC) *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC) *P FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC) *P FUNC ('$stock_item', 30, 'Shampoo', 500, 'shampoo', $CURLOC) *P FUNC ('$stock_item', 10, 'Hair scrunchies', 80, 'hscrunch', $CURLOC) *P FUNC ('$stock_item', 12, 'Hair pins', 100, 'hpingrip', $CURLOC) *P FUNC ('$stock_item', 10, 'Wipes', 100, 'salfetka', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag') *P FUNC ('$stock_item', 10, 'Portable makeup', 1000, 'kosmetitka', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag') *P FUNC ('$stock_item', 20, 'Mouthwash', 400, 'mouthwash', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag') *P FUNC ('$single_stock_item', 1, 'Comb', 150, 'greben', $CURLOC, '', iif(bag > 0, 0, 1), 'You need a handbag') *P FUNC ('$single_stock_item', 1, 'Handbag', 5000, 'bag', $CURLOC, '', iif(bag > 0, 1, 0), '') *P '
' gs 'stat' if night_mode = 1: fcolor = rgb(255, 255, 255) bcolor = rgb(0, 0, 0) lcolor = rgb(106, 90, 205) else fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) end act 'Leave the cosmetics department': if menu_option = 1:dynamic $menu_addoldmenu if menu_option = 0:gs 'obj_din', 'new' gt 'shop', 'start' end end !! Hardware if $shoplocation = 'hardware': cla *clr '
Division of household goods
' '
' if hour < 8 or hour > 20: 'The hardware department is currently closed.' act 'Leave the hardware department':gt 'shop', 'start' exit end !! output from purchase if $message ! '': '
'+$message+'
' killvar '$message' else '' end *pl '
' *P FUNC ('$stock_item', 20, 'Dishwashing detergent', 100, 'fairy', $CURLOC) *P FUNC ('$stock_item', 30, 'Clothing detergent', 250, 'poroshok', $CURLOC) *P FUNC ('$stock_item', 5, 'Plates', 300, 'cltarelka', $CURLOC) *P '
' gs 'stat' if night_mode = 1: fcolor = rgb(255, 255, 255) bcolor = rgb(0, 0, 0) lcolor = rgb(106, 90, 205) else fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) end act 'Leave the hardware department':gt 'shop', 'start' if pcs_sewng >= 40: 'On the counter you can see that the fabric is suitable for teaching sewing. Bolt which is enough for one lesson stands 300 .' if tkan <= 0:'Now you do not have tissue' if tkan > 0:'Now you have enough tissue to <> lessons' if money >= 300: act'Buy cloth': cls portion = input ("How much do you want to buy?") if portion <= 0:portion = 1 if portion*300 > money:'You do not have enough money.' if portion*300 <= money: tkan += portion money = money - portion*300 '
' 'You paid the cashier and bought cloth.' end gs'stat' act 'Move away from the counter':gt'shop' end end end end !! Women''s clothing if $shoplocation = 'clothing': cla *clr '
Department of Women''s Clothing
' '
' if hour < 8 or hour > 20: 'The women''s clothing department is currently closed.' act 'Leave the women''s clothing department':gt 'shop', 'start' exit end if $message ! '': '
'+$message+'
' killvar '$message' else '' end *pl '
' *P FUNC ('$stock_item', 1, 'Underwear', 300, 'clrbelo', $CURLOC) *P FUNC ('$stock_item', 7, 'Sale pack of underwear', 2000, 'clrbelo', $CURLOC) *P '
' '
Women''s clothing cost 2,500 each.' gs 'stat' if night_mode = 1: fcolor = rgb(255, 255, 255) bcolor = rgb(0, 0, 0) lcolor = rgb(106, 90, 205) else fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) end act 'Leave the women''s clothing department':gt 'shop', 'start' if konki!1: 'A pair of ice-skates are available for 500 .' if money >= 500: act 'Buy skates for 500 ': cla *clr money = money - 500 konki = 1 '
' 'You buy a pair of skates.' act 'Move away from the counter':gt'shop' end end end if money >= 2500: if office[1] = 0: act 'Inspect Office clothes number 1': cla *clr '
' 'Office clothes.' 'Costs 2,500 .' act 'Leave':gt'shop' act 'Buy': cla money -= 2500 office[1] = 1 officeH[1] = 60 officeB[1] = pcs_hips gt'shop', 'You bought Office clothes number 1.' end end end if office[2] = 0: act 'Inspect Office clothes number 2': cla *clr '
' 'Office clothes.' 'Costs 2,500 .' act 'Leave':gt'shop' act 'Buy': cla money -= 2500 office[2] = 1 officeH[2] = 60 officeB[2] = pcs_hips gt'shop', 'You bought Office clothes number 2.' end end end if cheap[68] = 0: act 'Inspect cheap clothes 102': cla *clr '
' 'A cheap skirt and top.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 cheap[68] = 1 cheapH[68] = 60 cheapB[68] = pcs_hips gt 'shop', 'You bought cheap clothes 68.' end end end if cheap[3] = 0: act 'Inspect cheap clothes 3': cla *clr '
' 'A cheap skirt and top.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 cheap[3] = 1 cheapH[3] = 60 cheapB[3] = pcs_hips gt 'shop', 'You bought cheap clothes 3.' end end end if cheap[80] = 0: act 'Inspect cheap clothes 80': cla *clr '
' 'Cheap shorts and top.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 cheap[80] = 1 cheapH[80] = 60 cheapB[80] = pcs_hips gt 'shop', 'You bought cheap clothes 80.' end end end if cheap[10] = 0: act 'Inspect cheap clothes 10': cla *clr '
' 'A cheap dress.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 cheap[10] = 1 cheapH[10] = 60 cheapB[10] = pcs_hips gt 'shop', 'You bought cheap clothes 10.' end end end if cheap[45] = 0: act 'Inspect cheap clothes 45': cla *clr '
' 'Cheap jeans and top.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 cheap[45] = 1 cheapH[45] = 60 cheapB[45] = pcs_hips gt 'shop', 'You bought cheap clothes 45.' end end end if cheap[51] = 0: act 'Inspect cheap clothes 51': cla *clr '
' 'Cheap leggings and top.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 cheap[51] = 1 cheapH[51] = 60 cheapB[51] = pcs_hips gt 'shop', 'You bought cheap clothes 51.' end end end if exercise[4] = 0: act 'Inspect exercise clothes 4': cla *clr '
' 'Exercise clothes.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 exercise[4] = 1 exerciseH[4] = 60 gt 'shop', 'You bought exercise clothes 4.' end end end if exercise[20] = 0: act 'Inspect exercise clothes 20': cla *clr '
' 'Exercise clothes.' 'Costs 2,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 2500 exercise[20] = 1 exerciseH[20] = 60 gt 'shop', 'You bought exercise clothes 31.' end end end end if money >= 5000: if coat[1] = 0: act 'Inspect coat 1': cla *clr '
' 'A coat.' 'Costs 7,500 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 5000 coat[1] = 1 coatH[1] = 60 gt 'shop', 'You bought coat 1.' end end end end if money >= 1000: if swimwear[4] = 0: act 'Inspect swimwear 4': cla *clr '
' 'Swimwear.' 'Costs 1,000 .' act 'Leave':gt 'shop' act 'Buy': cla money -= 1000 swimwear[4] = 1 swimwearH[4] = 60 swimwearB[4] = pcs_hips gt 'shop', 'You bought swimwear 4.' end end end end end !! Household appliances if $shoplocation = 'tech': cla *clr '
Department of household appliances
' '
' if hour < 8 or hour > 20: 'The household appliance department is currently closed.' act 'Leave the appliance department':gt 'shop', 'start' exit end if $message ! '': '
'+$message+'
' killvar '$message' else '' end *pl '
' *P FUNC ('$single_stock_item', 1, 'Scondhand Small CRT TV', 5000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home') *P FUNC ('$single_stock_item', 2, 'Large Plasma TV', 35000, 'TV', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home') *P FUNC ('$single_stock_item', 1, 'Computer', 25000, 'komp', $CURLOC) *p FUNC ('$single_stock_item', 1, 'Computer game Dead Sunset', 500, 'GameCD2', $CURLOC, '', iif(komp > 0, 0, 1), 'You need a computer') *P FUNC ('$single_stock_item', 1, 'Dishwasher', 50000, 'posudomashina', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home') *P FUNC ('$single_stock_item', 1, 'Washing machine', 50000, 'stiralka', $CURLOC, '', iif(housr > 0, 0, 1), 'You need your own home') *P FUNC ('$single_stock_item', 1, 'Camera', 10000, 'zenit', $CURLOC) *P FUNC ('$single_stock_item', 1, 'Mini camera disguised as a cigarette pack', 40000, 'minifoto', $CURLOC) *P FUNC ('$single_stock_item', 1, 'Webcam', 10000, 'webcamera', $CURLOC, '', iif((npc_rel['A11']>=30 and webcamera = 0) or (camwhore = 1 and webcamera = 0), 0, 1), 'You have no use this') *P '
' gs 'stat' if night_mode = 1: fcolor = rgb(255, 255, 255) bcolor = rgb(0, 0, 0) lcolor = rgb(106, 90, 205) else fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) end act 'Leave the appliance department':gt 'shop', 'start' end !! Ice cream counter if $shoplocation = 'icecream': 'Ice cream is available for sale for 50 .' act 'Move away from the counter':gt 'shop', 'start' if money >= 50: act 'Buy ice cream': cls money -= 50 fat += 3 pcs_mood += 50 water += 60 pcs_energy += 30 cumspclnt = 2 gs 'cum_cleanup' pcs_breath = 0 gs 'stat' '
' 'You bought ice cream and ate it not going far.' act 'Move away from the counter':gt 'shop', 'start' end end end if $shoplocation = 'megafon': cls minut+=3 gs'stat' i = 0 '
Salon connection Megaphone
' '
' *pl '
' :loopcard if i = 0: n = 5 price = 60 $buy_link = '= 60, ' href="exec: gs ''$buy_item'', <>, ''hours of internet access'', <>, ''internet'', ''shop''">buy ','>buy ') +'' elseif i = 1: n = 10 price = 115 $buy_link = '= 115, ' href="exec: gs ''$buy_item'', <>, ''hours of internet access'', <>, ''internet'', ''shop''">buy ','>buy ') +'' elseif i = 2: n = 20 price = 220 $buy_link = '= 220, ' href="exec: gs ''$buy_item'', <>, ''hours of internet access'', <>, ''internet'', ''shop''">buy ','>buy ') +'' elseif i = 3: n = 50 price = 520 $buy_link = '= 520, ' href="exec: gs ''$buy_item'', <>, ''hours of internet access'', <>, ''internet'', ''shop''">buy ','>buy ') +'' end i += 1 '' if i < 4: jump 'loopcard' end '
<> hour internet card (you have <> hours of internet access) <<$buy_link>> for <>
' act 'Exit Department':gt'shop','start' if money > 0: act 'Put the money on the phone': cla set minut = minut + 5 obmennik = input ("How many do you want to deposit?") if obmennik <= 0: '

Do you want to think again?
' act 'Exit Department':gt'shop','start' else if money < obmennik: '

You do not have <> .
' act 'Exit Department':gt'shop','start' end if money >= obmennik: set balans = balans + obmennik set money = money - obmennik clr gs'stat' '

You put <> to the account.
' act 'Exit Department':gt'shop','start' end end end end end if $shoplocation = 'Anya': cla '
' gs'dinsister' dynamic $sischecks '"<<$pcs_nickname>>, do not disturb me at work, can''t you see I have customers?""' act 'Move away':gt'shop','start' end --- shop ---------------------------------