# stripclub
if $ARGS[0] = 'start':
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Strip Club'
'
'
scrand = rand(1, 100)
if scrand <= 40 and stripday ! day:
stripday = day
cfnm = 1
elseif scrand > 40 and stripday ! day:
stripday = day
cfnm = 0
end
if cfnm = 1:'Today''s program, male striptease, ticket 500 rub.'
if cfnm = 0:'Today''s program, striptease, ticket 500 rub.'
act 'Leave':
cla
minut += 5
gt 'down'
end
if stripdolg > 0 and money >= 50000:
act 'Pay a fine of (50,000 rubles)':
stripdolg = 0
money -= 50000
gt 'stripclub', 'start'
end
end
if stripdolg = 0:
if cfnm = 1 and money >= 500 and hour < 23:
act 'Pay 500 rubles and enter':
cla
money -= 500
minut += 5
frost = 0
gt 'stripclub', 'forwoman'
end
elseif cfnm = 0 and money >= 500 and hour < 23:
act 'Pay 500 rubles and enter':
cla
money -= 500
minut += 5
frost = 0
gt 'stripclub', 'forman'
end
end
if stripdance > 0 and stripwork = 0:
act 'Talk to the manager about the work as a stripper':
cla
minut += 15
gs 'stat'
'You performed in the manager''s office. In the office, a young man asked you to sit down and began his speech. "We are working every day from 15 to 2 nights. Sometimes there are days of male strippers. Strippers we do not pay, only provide costumes. This is to ensure that there was an incentive to earn a tip. Just stripper can dance lap dance for a fee client but this should be of interest to the client, with each lap dance stripper gets 800 rubles, 200 is the club can not otkazyvatsya from private dances. And if a lap dance is a solid stripdens, then dance on stage involves a lot of work on the pole. Unless you dance on a pole, it is not pozortes. with interchangeable I do not hurry, strippers themselves when they want to come to work. schedule is free, I just do not want your labor, and work as a stripper can be combined with other types of work. So how? Satisfied? "'
act 'No':gt 'stripclub', 'start'
act 'Yes':
cls
stripwork = 1
'Yes, I''m happy with everything you nodded. Manager held you in the fitting room and showed a woman who is responsible for the costumes. It introduced you to the chief of security, who wrote you Propus and left leaving you.'
if cfnm = 0:act 'Osmatrivatsya':gt 'stwork', 'start'
if cfnm = 1:
'Today the program male striptease, so some guys behind the scenes.'
act 'Leave':gt 'stripclub', 'start'
end
end
end
end
if cfnm = 0 and stripwork > 0:
act 'Walk in dressing room':frost = 0 & gt 'stwork', 'start'
elseif cfnm > 0 and stripwork > 0:
'Today there is no work, male striptease.'
end
end
end
if $ARGS[0] = 'forman':
cla
clr
*clr
minut += 5
gs 'stat'
'Strip Club'
'
'
'On the stage in the main hall are the girls undress to the music, there is a service privat dance, worth 1000 rubles for the dance.'
act 'Leave':
cla
minut += 5
gt 'stripclub', 'start'
end
if hour < 23:
act 'Sit at a table near the stage and watch striptease':gt 'stripclub', 'stol'
if money >= 1000:
act 'Order a lap dance (1,000 rubles)':gt 'stripclub', 'privat'
end
if money >= 5000:
act 'Order a special show (5,000 rubles)':
stprrand = rand(0, 1)
if stprrand = 0:gt 'stripclub', 'stpr1'
if stprrand = 1:gt 'stripclub', 'stpr2'
end
end
end
end
if $ARGS[0] = 'privat':
cla
clr
*clr
money -= 1000
minut += 60
horny += 25
DOM += 1
gs 'stat'
privrand = rand(0, 4)
if privrand = 0:
'
'
'During the girls keen on and begin to caress you frankly.'
act 'Finish':gt 'stripclub', 'forman'
act 'Let them':gt 'stripclub', 'privsex'
elseif privrand > 0:
'
'
'Very hot girls dancing around you, you feel as an aphrodisiac.'
if money >= 1000:
act 'Another lap dance (1,000 rubles)':gt 'stripclub', 'privat'
end
act 'Go to scene':gt 'stripclub', 'forman'
end
end
if $ARGS[0] = 'stol':
cla
clr
*clr
gs 'stat'
'
'
'On the stage lit girl dancing and undressing smartly before strenuous male audience.'
act 'See striptease':
cla
*clr
clr
gs 'stat'
minut += 15
'
'
'Girl dancing around you clearly raschityvaya on tips.'
if money >= 50:
act 'Shove her 50 rubles':
cla
*clr
horny += 5
minut += 15
money -= 50
'
'
'You are stuck in the 50 rubles stripper panties and she invitingly start wagging her hips and shake tits in front of you, you feel like you gradually begin to be excited.'
act 'Further':gt 'stripclub', 'stol'
end
end
act 'Downcast eyes':
cla
horny -= 5
minut += 15
'You decided not to give money to a stripper and took from her eyes, you feel a little ashamed and excitation decreases.'
act 'Further':gt 'stripclub', 'stol'
end
end
act 'Away from the scene':gt 'stripclub', 'forman'
end
if $ARGS[0] = 'forwoman':
cla
clr
*clr
stripguy = 0
minut += 5
gs 'stat'
'Strip Club'
'
'
act 'Leave':
cla
minut += 5
gt 'stripclub', 'start'
end
if hour < 23 and zenit > 0 and minifoto = 0:
act 'Photograph':
minut += 10
'As soon as you get the camera to you immediately approached security guard, and said that there should not be removed, you apologize and hide the camera in her purse.'
end
elseif hour < 23 and minifoto > 0:
act 'Photograph':
cla
minut += 60
'You remove the mini camera and start to gently remove walking down the hall.'
stripfotorand = rand(0, 10)
if stripfotorand < 2:
minifoto = 0
stripdolg = 1
'It suits you and tight security guard taking you by the hand leads to the output, the output is already waiting for the administrator, it takes you a camera, and says that you have a fine of 50, 000 rubles. and until you pay to join the club can no longer.'
act 'Leave':gt 'stripclub', 'start'
elseif stripfotorand >= 2 and stripfotorand < 6:
shantfoto += 1
'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close, but in the end you still manage to make a normal picture.'
act 'Leave':gt 'stripclub', 'start'
elseif stripfotorand >= 6:
'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close.'
act 'Leave':gt 'stripclub', 'start'
end
end
end
if hour < 23:
act 'Sit at a table near the stage and watch striptease':gt 'stripclub', 'stolW'
end
end
if $ARGS[0] = 'stolW':
cla
clr
*clr
stripguy = 0
gs 'stat'
'
'
'On stage act and inflated athletic guys, girls squeal and shoved them money in the heat.'
if hour < 23:
act 'See striptease':
cla
*clr
clr
gs 'stat'
minut += 15
'
'
'To you a stripper came and hugged you.'
if money >= 50:
act 'Shove him 50 rubles':
cla
*clr
horny += 5
minut += 15
money -= 50
'
'
'You shoved 50 rubles strippers and he sat on a chair you started dancing in front of you, he pulled off melting and you''ll see who gets his dick. Stripper took you to his chest, trying to get her out from under her blouse.'
act 'Stop':gt 'stripclub', 'stolW'
!!act 'Touch his hand member':gt 'cfnm', 'start'
act 'Let him expose your breasts':gt 'cfnm', 'start'
end
end
act 'Downcast eyes':
cla
horny -= 5
minut += 15
'You decided not to give money to strippers and looked away from him, you feel a little ashamed and arousal decreases.'
act 'Further':gt 'stripclub', 'stolW'
end
end
end
act 'Away from the scene':gt 'stripclub', 'forwoman'
end
if $ARGS[0] = 'privsex':
cla
*clr
horny = 0
orgasm += 1
'
'
'You widely spreads her legs and has been one lick your pussy, bringing you to orgasm, and the second continues to caress the body.'
act 'Finish':gt 'stripclub', 'forman'
act 'More':gt 'stripclub', 'privsex1'
end
if $ARGS[0] = 'privsex1':
cla
*clr
girl += 2
lesbian += 1
privpicrand = rand(4, 7)
'
'
'You caress each other.'
act 'Finish':gt 'stripclub', 'forman'
if hour > 23:
act 'More':gt 'stripclub', 'privsex1'
end
end
if $ARGS[0] = 'stpr1':
cla
*clr
horny += 30
'
'
'The room includes two girls with a strap, and begin to fuck each other.'
act 'Finish':gt 'stripclub', 'forman'
act 'Join':
cla
*clr
SUB += 3
girl += 2
lesbian += 1
sex += 1
anal += 1
'
'
'You undress and kneels in front of the girls, they against you and substitute Strap to your face, you start vskhvativ Strap them greedily sucking, licking the remnants of their juices.'
act 'Doggy-Style':
cla
*clr
'
'
'You get up cancer and one of the girls comes to you in the pussy as you continue to suck the second.'
act 'In Two Smoking Barrels':
cla
*clr
horny = 0
orgasm += 1
'
'
'You sodites one of the threesome and the second girl enters you into the anus, they fuck you in both holes bringing to Orgs.'
act 'Further':
cla
*clr
cumlip += 1
cumface += 1
cumbrest += 1
'
'
'When you are finished, the girls stand over you and out of their threesome poured liquid to taste much like a sperm, it is poured into your mouth, face and chest.'
act 'Finish':gt 'stripclub', 'forman'
end
end
end
end
end
if $ARGS[0] = 'stpr2':
cla
*clr
girl += 2
lesbian += 1
'
'
'The room includes two girls with a strap in his hand, they strip you and freeze in anticipation of your wishes.'
act 'Fuck them':
cla
*clr
DOM += 3
'
'
'You wear the strap, and the girls kneel and begin to suck it.'
act 'Fuck them':gt 'stripclub', 'stpr3'
end
act 'Surrender':
cla
*clr
SUB += 3
'
'
'You get up on his knees, and girls wear Vibrators and give you their sucking you with joy and doing.'
act 'Surrender':gt 'stripclub', 'stpr4'
end
end
if $ARGS[0] = 'stpr3':
cla
*clr
horny = 0
orgasm += 1
prsexrand = rand(9, 13)
'
'
'You fuck them as your heart wants, eventually ends themselves.'
if hour > 23:
act 'More':gt 'stripclub', 'stpr3'
end
act 'Finish':gt 'stripclub', 'forman'
end
if $ARGS[0] = 'stpr4':
cla
*clr
horny = 0
orgasm += 1
prsexrand = rand(14, 19)
'
'
'They twirl as you want, then fucking couple then one by one, in the end you end.'
if hour > 23:
act 'More':gt 'stripclub', 'stpr4'
end
act 'Finish':gt 'stripclub', 'forman'
end
--- stripclub ---------------------------------