|
|
@@ -105,47 +105,52 @@ if $ARGS[0] = 'start':
|
|
|
*clr & cla
|
|
|
'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripinspection.jpg"></center>'
|
|
|
'Before going on stage, you go see the manager in his office for your inspection.'
|
|
|
- '"Take off your clothes," he tells you matter of factly.'
|
|
|
- 'When you''re done undressing, he walks up to you and inspects you closely.'
|
|
|
- if pcs_sweat < 20:
|
|
|
- '"Good, you have a clean scent. That is very important in this business."'
|
|
|
- 'He briefly runs his hand over your legs.'
|
|
|
- if pcs_leghair <= 3:
|
|
|
- '"Smooth legs. Very good."'
|
|
|
- 'He walks around you, looking you up and down from every side.'
|
|
|
- if fingal <= 0:
|
|
|
- '"No bruises. Good. The better you look, the easier it is to make money once you are on that stage."'
|
|
|
- '"And the last thing. I need to check if you''ve rid yourself of all your pubic hair."'
|
|
|
- '"I suppose that''s a reasonable thing to check," you think to yourself as you show him your naked pussy.'
|
|
|
- 'He puts his hand right above your pussy lips and slowly rubs the skin there, taking a bit longer than he did on your legs.'
|
|
|
- 'You feel your pussy get a bit wet from his touch and hope that he doesn''t notice.'
|
|
|
- gs 'arousal', 'foreplay', 2
|
|
|
- gs 'stat'
|
|
|
-!! This allows different pubic styles but anything from small bush up is still not permitted.
|
|
|
- if (pubestyle = 1 and pcs_pubes <= 3) or lashair = 1:
|
|
|
- strippermission = 1
|
|
|
- '"That''s very smooth. Looks like you are ready to get on the stage. You can get to work," he says and ushers you out of his office.'
|
|
|
- stpredmet = 3
|
|
|
- act 'Go back stage': gt 'stwork2', 'strip'
|
|
|
- elseif ((pubestyle >= 2 and pubestyle <=7) or (pubestyle >= 12 and pubestyle <=14)) and pcs_pubes <= 25:
|
|
|
- strippermission = 1
|
|
|
- '"Very cute pubic hair, I''m sure the customers will appreciate it, now get on stage. You can work," he says and ushers you out of his office.'
|
|
|
- stpredmet = 3
|
|
|
- act 'Go back stage': gt 'stwork2', 'strip'
|
|
|
+ if $wornclothingtype ! 'nude':
|
|
|
+ '"Take off your clothes," he tells you matter of factly.'
|
|
|
+ 'When you''re done undressing, he walks up to you and inspects you closely.'
|
|
|
+ if pcs_sweat < 20:
|
|
|
+ '"Good, you have a clean scent. That is very important in this business."'
|
|
|
+ 'He briefly runs his hand over your legs.'
|
|
|
+ if pcs_leghair <= 3:
|
|
|
+ '"Smooth legs. Very good."'
|
|
|
+ 'He walks around you, looking you up and down from every side.'
|
|
|
+ if fingal <= 0:
|
|
|
+ '"No bruises. Good. The better you look, the easier it is to make money once you are on that stage."'
|
|
|
+ '"And the last thing. I need to check if you''ve rid yourself of all your pubic hair."'
|
|
|
+ '"I suppose that''s a reasonable thing to check," you think to yourself as you show him your naked pussy.'
|
|
|
+ 'He puts his hand right above your pussy lips and slowly rubs the skin there, taking a bit longer than he did on your legs.'
|
|
|
+ 'You feel your pussy get a bit wet from his touch and hope that he doesn''t notice.'
|
|
|
+ gs 'arousal', 'foreplay', 2
|
|
|
+ gs 'stat'
|
|
|
+ !! This allows different pubic styles but anything from small bush up is still not permitted.
|
|
|
+ if (pubestyle = 1 and pcs_pubes <= 3) or lashair = 1:
|
|
|
+ strippermission = 1
|
|
|
+ '"That''s very smooth. Looks like you are ready to get on the stage. You can get to work," he says and ushers you out of his office.'
|
|
|
+ stpredmet = 3
|
|
|
+ act 'Go back stage': gt 'stwork2', 'strip'
|
|
|
+ elseif ((pubestyle >= 2 and pubestyle <=7) or (pubestyle >= 12 and pubestyle <=14)) and pcs_pubes <= 25:
|
|
|
+ strippermission = 1
|
|
|
+ '"Very cute pubic hair, I''m sure the customers will appreciate it, now get on stage. You can work," he says and ushers you out of his office.'
|
|
|
+ stpredmet = 3
|
|
|
+ act 'Go back stage': gt 'stwork2', 'strip'
|
|
|
+ else
|
|
|
+ '"You need to shave everything off <<$pcs_stagename>>, although a small and cute pubic style is popular at the moment if you feel creative." He smiles and pats you on the butt as he says, "Go take care of that and then come back here."'
|
|
|
+ act 'Go to the dressing room': gt 'stwork', 'start'
|
|
|
+ end
|
|
|
else
|
|
|
- '"You need to shave everything off <<$pcs_stagename>>, although a small and cute pubic style is popular at the moment if you feel creative." He smiles and pats you on the butt as he says, "Go take care of that and then come back here."'
|
|
|
+ '"I can''t let you up on the stage with a black eye like that. You''ll have to wait until it''s gone. Come back when it''s healed."'
|
|
|
act 'Go to the dressing room': gt 'stwork', 'start'
|
|
|
end
|
|
|
else
|
|
|
- '"I can''t let you up on the stage with a black eye like that. You''ll have to wait until it''s gone. Come back when it''s healed."'
|
|
|
+ '"Shave your legs, a customer doesn''t want to feel any stubble during a lapdance. Go take care of that and then come back here."'
|
|
|
act 'Go to the dressing room': gt 'stwork', 'start'
|
|
|
end
|
|
|
else
|
|
|
- '"Shave your legs, a customer doesn''t want to feel any stubble during a lapdance. Go take care of that and then come back here."'
|
|
|
+ '"Damn it <<$pcs_stagename>>, you stink. Grab a shower. We can''t have the club smelling like a locker room."'
|
|
|
act 'Go to the dressing room': gt 'stwork', 'start'
|
|
|
end
|
|
|
else
|
|
|
- '"Damn it <<$pcs_stagename>>, you stink. Grab a shower. We can''t have the club smelling like a locker room."'
|
|
|
+ 'You can''t do a striptease if you haven''t got any clothes to strip out of <<$pcs_stagename>>. Find something sexy in the wardrobe first.'
|
|
|
act 'Go to the dressing room': gt 'stwork', 'start'
|
|
|
end
|
|
|
end
|
|
|
@@ -206,17 +211,17 @@ if $ARGS[0] = 'tipcalculator':
|
|
|
if rand (0, 4) = 0:
|
|
|
striptip += stripKoef
|
|
|
end
|
|
|
- if striptip < 30:
|
|
|
+ if striptip < 25:
|
|
|
'Nobody even noticed you or your efforts on the stage and it''s no surprise you got nothing for your efforts.'
|
|
|
- elseif striptip < 60:
|
|
|
+ elseif striptip < 40:
|
|
|
'A couple of people looked at you but nothing more than that, you didn''t receive a single tip.'
|
|
|
- elseif striptip < 70:
|
|
|
+ elseif striptip < 55:
|
|
|
'A couple of people looked at you but nothing more than that, you didn''t receive any tips.'
|
|
|
- elseif striptip < 80:
|
|
|
+ elseif striptip < 70:
|
|
|
if rand(0,5) = 0:
|
|
|
'The customers were pleased with your performance, not enough to both tipping you.'
|
|
|
else
|
|
|
- paymoneyrand = rand(3,10) * 3
|
|
|
+ paymoneyrand = rand(3,10) * 2
|
|
|
money += paymoneyrand
|
|
|
pcs_mood += rand(1,5)
|
|
|
'The customers were pleased with your performance. They gave you <<paymoneyrand>> <b>₽</b> in tips.'
|
|
|
@@ -225,13 +230,13 @@ if $ARGS[0] = 'tipcalculator':
|
|
|
if rand(0,10) = 0:
|
|
|
'The customers followed your movements between their conversations. You deserved some tips but luck was against you and you got nothing.'
|
|
|
else
|
|
|
- paymoneyrand = rand(10,(striptip/2)) * 3
|
|
|
+ paymoneyrand = rand(10,(striptip/2)) * 2
|
|
|
money += paymoneyrand
|
|
|
pcs_mood += rand(3,10)
|
|
|
'The customers followed your movements between their conversations. After counting out your tips it amounts to <<paymoneyrand>> <b>₽</b>.'
|
|
|
end
|
|
|
else
|
|
|
- paymoneyrand = rand(10,striptip) * 3
|
|
|
+ paymoneyrand = rand(10,striptip) * 2
|
|
|
money += paymoneyrand
|
|
|
pcs_mood += rand(5,20)
|
|
|
'The customers were mesmerized by your dancing and tipped you <<paymoneyrand>> <b>₽</b>.'
|
Kevin_Smarts