# sexshop
if $ARGS[0] = 'start':
cla
*clr
$sexloc = $CURLOC
set shrand = rand(0,100)
if kendra > 0 and shrand < 10: gt 'sexshop','kendra'
if tanga = 0 and shrand > 90: gt 'sexshop','shprod'
set minut += 5
$metkaM = $ARGS[0]
$locM = $CURLOC
'Sex Toys'
'
'
'Lubricant - 300 rubles'
'Dildo - 800 rubles'
'Vibrator - 1300 rubles'
'Strap 1,200 rubles'
'Butt plug 1,200 rubles'
pl
'In the basement are located the private booths for viewing porn movies (50 rubles 15 minutes).'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
act 'QUIT':
cla
set ghnow = 0
set minut += 5
gt 'down'
end
if SUB >= 100 and analplug = 1 and dildo = 1 and vnesh > 26 and Peter < 1:
set Peterrand = RAND(0,100)
if Peterrand > 50 :
'Are you interested in looking at the middle-aged man, apparently he was the owner of this store'
act 'Zainteresovatsya owner of the store' :
cla
*clr
'
'
'I´m Peter, I´m watching you for a long time. I often see you here. I think it will be interesting together ...'
act 'Go with Peter': gt 'Peterroom','start'
act 'QUIT':
cla
set ghnow = 0
set minut += 5
gt 'down'
end
end
end
end
act 'Go to the basement': gt 'sexshop','podval'
if gloryhole >= 20 and pornstudio = 0:
'You notice the corner of his eye, that the seller is trying to get your attention'
act 'Approach, to learn what was the matter': gt 'sexshop','porn'
end
if money >= 300:
act 'Buy lubricant 300 rubles':
cla
*clr
portion = input ("How much you want to buy?")
if portion*300 > money: 'You do not have enough money.'
if portion*300 <= money:
set lubri += portion * 5
set money -= portion * 300
set minut += 5
'
'
'You bought a lubricant and paid the money to the cashier.'
end
act 'Move away from the counter': gt 'sexshop','start'
end
end
if money >= 800 and dildo = 0:
act 'Buy dildo 800 rubles':
cla
*clr
set minut += 15
set dildo = 1
set money -= 800
''
'You bought a dildo and get paid in cash.'
act 'Move away from the counter': gt 'sexshop','start'
end
end
if money >= 1300 and vibrator = 0:
act 'Buy vibrator 1300 rubles':
cla
*clr
set minut += 15
set vibrator = 1
set money -= 1300
''
'You bought a vibrator and get paid in cash.'
act 'Move away from the counter': gt 'sexshop','start'
end
end
if money >= 1200 and strapon = 0:
act 'Buy a strap 1200 rubles':
cla
*clr
set minut += 15
set strapon = 1
set money -= 1200
''
'You bought a strap-on and paid the money to the cashier.'
act 'Move away from the counter': gt 'sexshop','start'
end
end
if money >= 1200 and analplug = 0:
act 'Buy anal plug 1200 rubles':
cla
*clr
set minut += 15
set analplug = 1
set money -= 1200
''
'You bought a butt plug and get paid in cash.'
act 'Move away from the counter': gt 'sexshop','start'
end
end
if money >= 1000:
if hooker[1] = 0:
act 'Inspect clothes prostitutes. Number 1':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[1] = 1
set hookerH[1] = 200
set hookerB[1] = bedra
gt 'sexshop','start'
end
end
end
if hooker[2] = 0:
act 'Inspect clothes prostitutes. Number 2':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[2] = 1
set hookerH[2] = 200
set hookerB[2] = bedra
gt 'sexshop','start'
end
end
end
if hooker[3] = 0:
act 'Inspect clothes prostitutes. Number 3':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[3] = 1
set hookerH[3] = 200
set hookerB[3] = bedra
gt 'sexshop','start'
end
end
end
if hooker[4] = 0:
act 'Inspect clothes prostitutes. Number 4':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[4] = 1
set hookerH[4] = 200
set hookerB[4] = bedra
gt 'sexshop','start'
end
end
end
if hooker[5] = 0:
act 'Inspect clothes prostitutes. Number 5':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[5] = 1
set hookerH[5] = 200
set hookerB[5] = bedra
gt 'sexshop','start'
end
end
end
if hooker[201] = 0:
act 'Inspect clothes prostitutes. Number 201':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[201] = 1
set hookerH[201] = 200
set hookerB[201] = bedra
gt 'sexshop','start'
end
end
end
if hooker[202] = 0:
act 'Inspect clothes prostitutes. Number 202':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[202] = 1
set hookerH[202] = 200
set hookerB[202] = bedra
gt 'sexshop','start'
end
end
end
if hooker[203] = 0:
act 'Inspect clothes prostitutes. Number 203':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[203] = 1
set hookerH[203] = 200
set hookerB[203] = bedra
gt 'sexshop','start'
end
end
end
if hooker[204] = 0:
act 'Inspect clothes prostitutes. Number 204':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[204] = 1
set hookerH[204] = 200
set hookerB[204] = bedra
gt 'sexshop','start'
end
end
end
if hooker[205] = 0:
act 'Inspect clothes prostitutes. Number 205':
cla
*clr
'
'
'Clothing prostitutes.'
'Costs 1000 rubles.'
act 'Leave': gt 'sexshop','start'
act 'Buy':
cla
set money -= 1000
set hooker[205] = 1
set hookerH[205] = 200
set hookerB[205] = bedra
gt 'sexshop','start'
end
end
end
end
end
if $ARGS[0] = 'podval':
cla
*clr
set minut += 5
'Basement with cubicles for watching movies'
'
'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
!gloryholeBooths
act 'Go to a free booth': gt 'sexshop','pip'
act 'Go to the toilet': gt 'sexshop','toi'
if masharab = 1:
act 'Go to Masha': gt 'masharoom','start'
end
act 'Walk out basement': gt 'sexshop','start'
end
if $ARGS[0] = 'toi':
cla
*clr
set minut += 5
'WC'
'
'
''
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if tanga = 1:
act 'Remove Underwear':
cla
set tanga = 0
gt 'sexshop','toi'
end
end
act 'Look in the mirror':
cla
gs 'portmirror'
set $goto1 = 'sexshop'
set $goto2 = 'toi'
dynamic $portmirror
act 'Move away from the mirror':
cla
gt 'sexshop','toi'
end
end
if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
act 'Wash up (0:15)':
cla
*clr
set cumpussy = 0
set cumbelly = 0
set cumass = 0
set cumanus =0
set cumlip = 0
set cumface = 0
set sweat -= 1
set minut += 15
'
'
'You carefully washed sperm with yourself.'
act 'Exit': gt 'sexshop','toi'
end
end
if cumlip > 0 or cumface > 0:
act 'Wash cum off face (0:15)':
cla
*clr
set mop = 1
set cumlip = 0
set cumface = 0
set sweat -= 1
set minut += 15
'
'
'You carefully washed sperm from her face.'
act 'Exit': gt 'sexshop','toi'
end
end
if cumfrot > 0:
act 'Wipe the cum from clothing (0:15)':
cla
set cumfrot = 0
set sweat -= 1
set minut += 15
!''
'You erase traces of semen from the clothes.'
act 'Exit': gt 'sexshop','toi'
end
end
if tampon > 0 and mesec > 0 and isprok = 0:
act 'Change a tampon':
cla
*clr
set tampon -= 1
set isprok = 1
set minut += 5
set manna -= 5
'
'
'You change a tampon.'
act 'Finish': gt 'sexshop','toi'
end
end
act 'Off the toilet': gt 'sexshop','podval'
end
if $ARGS[0] = 'pip':
cla
*clr
set minut += 5
'Booth movies'
'
'
'Small cabinet with a TV on the wall, bill acceptor and two holes in the walls at waist level.'
if ghnow > 0: 'You served <> cocks.'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
!gloryholeBooths
act 'Get out of the booth': gt 'sexshop','podval'
if money >= 50 and hour < 23:
act '50 rubles a stick machine':
cla
set money -= 50
set minut += 15
'Once you have paid the money earned TV on the wall showing porn.'
set ghrand = RAND(0,10)
set horny += 5
set manna += 5
'You sat on a chair and watched porn, he began to have a little exciting.'
act 'The movie ended': gt 'sexshop','pip'
if horny >= 50:
act 'Masturbate':
cla
set horny += 10
set manna += 10
'You caress her pussy fingers and enjoy the pleasant sensation between her legs.'
if horny >= 100:
set orgasm += 1
set horny = 0
set manna += 15
set willpower += 15
set mastr += 1
'Gradually spread over the pleasurable sensations throughout the body and covers you orgasm.'
end
act 'The movie ended': gt 'sexshop','pip'
end
end
if ghrand >= 10 - (cumlip * 2):
'You hear in the next stall turn on the TV.'
act 'Stick a finger in the hole (to serve the stranger)':
cla
*clr
set ghnow += 1
set money += 300
set fingerRand = RAND(0,4)
if fingerRand = 0: '
'
if fingerRand = 1: '
'
if fingerRand = 2: '
'
if fingerRand = 3: '
'
if fingerRand = 4: '
'
'You poked fingers in the hole showing that you are ready to serve member.'
'Stranger slipped into the hole 300 rubles, and then out of the hole seemed his cock.'
act 'Sucking dick':
cla
*clr
set horny += VAF
set guy += 1
set bj += 1
set gloryhole += 1
set swallow += 1
set cumlip += 1
dynamic $venerasiak
set ghprand = RAND(0,37)
if ghprand = 0: '
'
if ghprand = 1: '
'
if ghprand = 2: '
'
if ghprand = 3: '
'
if ghprand = 4: '
'
if ghprand = 5: '
'
if ghprand = 6: '
'
if ghprand = 7: '
'
if ghprand = 8: '
'
if ghprand = 9: '
'
if ghprand = 10: '
'
if ghprand = 11: '
'
if ghprand = 12: '
'
if ghprand = 13: '
'
if ghprand = 14: '
'
if ghprand = 15: '
'
if ghprand = 16: '
'
if ghprand = 17: '
'
if ghprand = 18: '
'
if ghprand = 19: '
'
if ghprand = 20: '
'
if ghprand = 21: '
'
if ghprand = 22: '
'
if ghprand = 23: '
'
if ghprand = 24: '
'
if ghprand = 25: '
'
if ghprand = 26: '
'
if ghprand = 27: '
'
if ghprand = 28: '
'
if ghprand = 29: '
'
if ghprand = 30: '
'
if ghprand = 31: '
'
if ghprand = 32: '
'
if ghprand = 33: '
'
if ghprand = 34: '
'
if ghprand = 35: '
'
if ghprand = 36: '
'
if ghprand = 37: '
'
'You took the cock in her mouth and began to suck him, treating him with her lips struggling.'
if horny >= 100:
set VAF += 1
set orgasm += 1
set horny = 0
set manna += 15
set willpower += 15
set lip += 1
'Suddenly you started sucking dick you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned but did not release a member of his mouth continued to suck.'
end
'Finally the stranger began to cum in your mouth filling it with vigorous sperm. Once you´ve licked all the sperm from a member of the wall, a man came out of the booth.'
act 'Wipe your face': gt 'sexshop','pip'
end
end
end
end
end
end
if $ARGS[0] = 'porn':
cla
*clr
set minut += 5
'In general, you have a noble blowjob, everyone knows that. Do not you want to earn extra money in the porn business actress? Pay there is certainly better than here, and cocks, maybe even more if they work. Well? Other proposals will not be!'
act 'Agree':
cla
*clr
pornstudio = 2
gt 'pornstudio','1'
end
act 'Refuse':
cla
*clr
pornstudio = 1
gt 'sexshop','start'
end
end
if $ARGS[0] = 'kendra':
cla
*clr
set minut += 10
gs 'stat'
'
'
'In the store you can see Kendra, trying on latex clothes.'
'"Who do we have here, my favorite litter, come to me and I have already very excited choosing a toy, now we are testing something on the spot" Kendra laughed, sitting down on the table and opening your legs.'
act 'Away from her': gt 'sexshop','start'
if DOM > 10: act 'First deserve': gt 'sexshop','kendra4'
act 'Serve Kendra':
cla
*clr
set SUB += 1
!set girl += 1
set lesbian += 1
'
'
'You quickly throw off clothes and knelt before the current Kendra pussy and lick her host. As long as you carefully suck Kendra yells and praises your tongue, saying that more than one tab is not pleased her as yours.'
'"Now take anything from toys" says Kendra'
act 'Mark Dildo': gt 'sexshop','kendra1'
act 'Give her strapon': gt 'sexshop','kendra2'
end
end
if $ARGS[0] = 'kendra1':
cla
*clr
set pipirand = rand(0,3)
set minut += 10
gs 'stat'
'
'
'You take a dildo, and licking the pussy insert Kendra. While you with one hand oruduete dildo in her pussy, the second caress her clit trying to bring herself to orgasm. Kendra meanders sitting on the table carefully podmahivaya your movements to the beat.'
if pipirand > 0:
set orgasm += 1
'When Kendra starts sodragatsya whole body orgasm, you also covers the wave of orgasm. Slightly recovering himself, Kendra looks at you, "And yet you are beautiful litter, even committed odovremeno with me"'
act 'Finish': gt 'sexshop','start'
end
if pipirand = 0:
act 'Oops ...':
cla
*clr
set sweat += 1
'
'
'Suddenly, when you were ready to cum, Kendra began writing her urine was flowing through the dildo already have flowed through your hand.'
'"Damn," you cried out and were about to throw a dildo.'
'"Let´s finish up, slut," cried Kendra'
act 'Send it': gt 'sexshop','kendra3'
act 'Continue':
cla
*clr
set sweat += 3
set SUB += 2
set horny = 0
'
'
'You dutifully continued to wield a dildo, still stroking her clitoris, but excitement is already gone. Her urine dripping from a dildo on your hand and now the hand and stomach and thighs, everything was in her urine.'
'Finally she finished, "And now Carney me, and then I become dirty." commanded Kendra'
act 'Send it': gt 'sexshop','kendra3'
act 'Lick':
cla
*clr
set SUB += 2
'
'
'You dutifully moved closer to her and began to slowly lick the urine from her thighs and pussy.'
'"Hold still active nipple" Customized you Kendra. You began to lick faster, with difficulty restraining retching from urine taste in the mouth.'
'"That´s clever, come to me often, have fun" with these words Kendra dressed and gone, leaving you sitting on the floor in a puddle of urine.'
act 'Leave': gt 'sexshop','start'
end
end
end
end
end
if $ARGS[0] = 'kendra2':
cla
*clr
set minut += 10
gs 'stat'
'
'
'Kendra strap dress and looking at you asking, "Well, that beauty in which you insert hole?".'
act 'In the vagina':
cla
*clr
set sex += 1
vagina += 1
set orgasm += 1
set horny = 0
'
'
'Kendra sits in a chair and you jump up to the top of her strap-on entering their pussy. You are riding on a strap, and Kendra podmahivaet bottom you trying to shove it as far as possible. Neskolko minutes through such jumps orgasm covers you, and you slide with Kendra.'
'"That´s clever, come to me often, have fun" with these words Kendra got dressed and went'
act 'Leave': gt 'sexshop','start'
end
act 'In Anus':
cla
*clr
set anal += 1
set orgasm += 1
anus += 1
set horny = 0
'
'
'You jump up on the table and spreads his legs, gently introduces Kendra strap you in the anus and gives your ass neskolkosekund used to, then it begins to move. Strap-on slides inside your ass and you will soon become a nice, seeing that you enjoy the process of Kendra begins to slowly accelerate, and you lozhite hand on his crotch and fingers massiruete clitoris, after a few minutes you orgasm covers you whole body shudder convulsively bows down and Kendra cuddle so that you strap is included in the entire length of the anus, you have dark eyes and you are off.'
'When you come to a Kendra is already dressed, "Well, you have nifiga a orgasm, it will be necessary to find a double strap want to see that you two will trunks" with these words Kendra left.'
act 'Leave': gt 'sexshop','start'
end
end
if $ARGS[0] = 'kendra3':
set minut += 10
set anal += 1
anus += 1
set rape += 1
cla
*clr
'
'
'"Oh damn, I´m now going to teach obedience" with these words Kendra jumped up and threw you to the table on which sat a moment ago more themselves. Falling on the table you swipe back, and while you´re writhing in pain on the table, Kendra wore a strap, and pressed his hands to the table your hips nachila push it to you in the anus, even neudosuzhivshis lubricate it. For your back pain was added pain of rupture threesome anus. Kendra fucked with force your anus saying that you litter and voting rights you have.'
'When she finally tired, you just brushed the floor from the table, you fell with a thud on the floor.'
'"On your knees slut," she hissed.'
act 'To kneel':
cla
*clr
'
'
'You scrambled to his knees, his back ached terribly, and it seems from the anus dripping blood.'
'"Suck" commanded Kendra substituting strap to your face. Have you looked at the strap, which were traces of your blood.'
'"Yes suck you already." Kendra cried and vskhvatila your hair, you reflexively opened his mouth something to scream, but Kendra pushed him strapon before. She fucked you in the mouth with the same ostervineniem munutu ago that you tore the anus.'
'When she finally calmed down and let go of your hair, you have no way to hit the floor, Kendra leaned over you and said, "Remember you litter, what you say and do that, I will say on the street naked cancer stand, will stand, and thank all of you who fuck, and now learn the lesson, and I have to go "after she got dressed and left.'
act 'Leave': gt 'sexshop','start'
end
end
if $ARGS[0] = 'kendra4':
cla
*clr
set minut += 10
set orgasm += 1
set horny = 0
set picrand = rand(11,12)
'
'
'Kendra looked surprised at you until you threw off her clothes.'
'Undressed you turned to her ass and sticking out his ass "Well look, you will finish to orgasm can try strapon"'
if picrand = 11: 'Kendra knelt down and began to lick your pussy, her tongue slid over sexual sponges, a sensitive clitoris and drooping into the vagina a few minutes of her effort, you left off.'
if picrand = 12: 'Kendra knelt down and her tongue stuck on the move you in getting inside the anus, you had oschushenie you in the ass snake crawled and twisted it all storrony, fingers it penetrated into the vagina for a few minutes because of her tongue snaked in your ass and pussy Palchikov diligently massaging you have experienced orgasm.'
'"Well, I will fulfill your desires?" Kendra said, catching his breath. "Now my full proof."'
act 'Give her strapon': gt 'sexshop','kendra2'
if DOM > 25: act '"Perebesh"': gt 'sexshop','start'
end
if $ARGS[0] = 'shprod':
cla
*clr
set minut += 5
'
'
'The store is right for you to begin to offer the seller and try what that miniskirt "Girl you is very you will only try on"'
act 'Refuse': gt 'sexshop','start'
act 'Try':
cla
*clr
set picrand = 47
'
'
'You wear a skirt out of the booth and vydya napravlyuetes the mirror, you do not have panties and skirt on so short that looks more like a belt did not cover anything and all your charms visible from all directions.'
'Approaching the mirror you are considering this so-called skirt seller kneels behind you and starts praising naglazhivat your ass skirt, his hands already wander around your hips and lips as close to your buttocks says that when they touch on your skin, word soon cease and remain just the touch of his lips to your skin, closer to prilizhayuschiesya pussy.'
act 'Push him': gt 'sexshop','start'
act 'Let him': gt 'sex','kuni'
end
end
--- sexshop ---------------------------------