# stwork2
!!minut += 15
clr
gs 'stat'
'Stage'
'
'
if publichot < 10:$pubhot = 'and boo you, you hear someone shout, "Get rid of this stupid cow."'
if publichot >= 10 and publichot < 20:$pubhot = 'and you boo.'
if publichot >= 20 and publichot < 30:$pubhot = 'clearly bored, drinking and talking among themselves.'
if publichot >= 30 and publichot < 60:$pubhot = 'sometimes looking at you to smile and enjoy the view.'
if publichot >= 60 and publichot < 70:$pubhot = 'watching you with legitimate interest and conversing with each other over their beers.'
if publichot >= 70 and publichot < 80:$pubhot = 'their attention focused on you.'
if publichot >= 80 and publichot < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
if publichot >= 90:$pubhot = 'completely forgoting about their drinking, whoopping and waving money at you.'
'Men sit in front of the stage <<$pubhot>>.'
if hour >= 15 or hour <= 2:
if stpredmet > 0:
act 'Striptease 5 minutes (<> items of clothing)':
cls
minut += 5
stpredmet -= 1
pcs_sweat += 10
fat -= 3
pcs_mood -= rand(5, 10)
if stpredmet = 1:pcs_sweat += 10
if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
publichot += rand(pcs_dancero/30, pcs_dancero/10)
if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
gs 'stat'
'
'
'You dance on stage, undressing in public.'
if pcs_weight > pcs_hgt - 90:
vesrand = rand(0, 100)
if vesrand >= 75:
publichot -= rand(5, 10)
'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
end
end
dynamic $pubhotdi
act 'further':gt $curloc
end
act 'Dance around the pole 5 minutes (<> garments)':
cls
minut += 5
stpredmet -= 1
pcs_sweat += 20
fat -= 5
pcs_mood -= rand(10, 50)
if stpredmet = 1:pcs_hairbsh = 0
if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1
!pcs_hairbsh = 0
publichot += rand(pcs_dancero / 20, pcs_dancero / 5)+ rand(pcs_dancpol / 20, pcs_dancpol / 5)
if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot
gs 'stat'
'
'
'You dance around the pole acrobaticaly and undress sexily in public.'
if pcs_weight > pcs_hgt - 90:
vesrand = rand(0, 100)
if vesrand >= 75:
'Performing another trick on the pole you can not support your weight and crash to the floor. The crowd laughs, "Hey, hippopotamus, stomp at the swamp where you came from."'
publichot -= 15
fingalrand = rand(0, 100)
if fingalrand >= 75:
fingal += rand(2, 5)
'When you fall, you hit the floor really hard and it seems you feel a bruise forming on your face.'
end
end
if vesrand >= 50:
publichot -= rand(5, 10)
'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
end
end
dynamic $pubhotdi
act 'further':gt $curloc
end
end
if stpredmet = 0:
if publichot >= 80 and publichot < 90:
privatrand = rand(0, 100)
if privatrand >= 90:
'After the dance, the guard approaches you and tells you that you have a customer for a private dance.'
dynamic $privatdancedi
exit
end
end
if publichot >= 90:
privatrand = rand(0, 100)
if privatrand >= 70:
'After the dance, the guard approaches you and tells you that you have a customer for a private dance.'
dynamic $privatdancedi
exit
end
end
end
else
'That''s it for tonight. Time to go home.'
end
act 'Quit the stage':gt 'stwork', 'start'
$pubhotdi = {
if publichot < 30:
payrand = 0
'Nobody even noticed you or your efforts on the stage.'
elseif publichot >= 30 and publichot < 60:
payrand = 0
'A couple of people looked at you but no more than that, you didn''t earn a tip.'
elseif publichot >= 60 and publichot < 70:
payrand = rand(0, 1)
if payrand = 0:
'A couple of people looked at you but no more than that, you didn''t earn a tip.'
elseif payrand = 1:
paymoneyrand = rand(1, 3)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
end
elseif publichot >= 70 and publichot < 80:
payrand = rand(0, 5)
if payrand = 0:
'Noone tipped you.'
elseif payrand = 1:
paymoneyrand = rand(1, 3)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 2:
paymoneyrand = rand(2, 4)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 3:
paymoneyrand = rand(3, 5)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 4:
paymoneyrand = rand(4, 6)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 5:
paymoneyrand = rand(5, 10)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
end
elseif publichot >= 80 and publichot < 90:
payrand = rand(0, 10)
if payrand = 0:
'Noone tipped you.'
elseif payrand = 1:
paymoneyrand = rand(1, 3)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 2:
paymoneyrand = rand(2, 4)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 3:
paymoneyrand = rand(3, 5)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 4:
paymoneyrand = rand(4, 6)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 5:
paymoneyrand = rand(5, 10)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 6:
paymoneyrand = rand(7, 12)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 7:
paymoneyrand = rand(10, 15)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 8:
paymoneyrand = rand(15, 20)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 9:
paymoneyrand = rand(20, 30)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 10:
paymoneyrand = rand(30, 50)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
end
elseif publichot >= 90:
payrand = rand(0, 15)
if payrand = 0:
'Noone tipped you.'
elseif payrand = 1:
paymoneyrand = rand(1, 3)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 2:
paymoneyrand = rand(2, 4)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 3:
paymoneyrand = rand(3, 5)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 4:
paymoneyrand = rand(4, 6)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 5:
paymoneyrand = rand(5, 10)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 6:
paymoneyrand = rand(7, 12)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 7:
paymoneyrand = rand(10, 15)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 8:
paymoneyrand = rand(15, 20)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 9:
paymoneyrand = rand(20, 30)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 10:
paymoneyrand = rand(30, 40)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 11:
paymoneyrand = rand(40, 50)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 12:
paymoneyrand = rand(50, 60)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 13:
paymoneyrand = rand(60, 70)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 14:
paymoneyrand = rand(70, 80)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
elseif payrand = 15:
paymoneyrand = rand(80, 100)
money += paymoneyrand * 10
'Some guy shoved in your panties, <>0 ₽'
end
end
}
$privatdancedi = {
act 'Go and perform a lap dance':
cls
minut += 30
money += 800
if pcs_sweat < 30 : pcs_sweat += 10
pcs_hairbsh = 0
pcs_makeup = 0
fat -= 5
stripdancesum += 1
gs 'stat'
'
'
'In a smaller side room you play some music and spend half an hour showing off your erotic dancing to the client.'
stprrand = rand(0,5)
if stprrand = 0:gt 'stwork2', 'pr1'
if stprrand = 1:gt 'stwork2', 'pr2'
if stprrand = 2:gt 'stwork2', 'pr3'
act 'Go to the locker room':gt 'stwork', 'start'
end
}
if $ARGS[0] = 'pr1':
cla
*clr
!!money += 2000
'
'
'After a while the 4 guys you are dancing for ask you to service them in full for 5000 ₽.'
act 'Go back to the locker room':gt 'stwork', 'start'
act 'Agree':
gang += 1
guy += 4
dynamic $clrboy
i=rand(18,40)
gs 'npcgeneratec', 0, 'Private dance Client', i
gs 'boyStat', $npclastgenerated
$boy[0] = $boy
gs 'npcgeneratec', 0, 'Friend of Client', i
$boy[1] = $npclastgenerated
gs 'npcgeneratec', 0, 'Friend of Client', i
$boy[2] = $npclastgenerated
gs 'npcgeneratec', 0, 'Friend of Client', i
$boy[3] = $npclastgenerated
picrand = 12
money += 5000
gt 'paysex', 'var'
end
end
if $ARGS[0] = 'pr2':
cla
*clr
!!money += 2000
'
'
'You guy you have been dancing for has had his hands down his pants the whole time, he asks if you can finish him off for 3000 ₽.'
act 'Go back to the locker room':gt 'stwork', 'start'
act 'Agree':
guy += 1
picrand = 39
money += 3000
xgt 'sex', 'var'
end
end
if $ARGS[0] = 'pr3':
cla
*clr
!!money += 2000
'
'
'The group you are dancing for had hired you and another dancer, after your dance she give you an erotic kiss. The clients cheer for more, then offer you 2000 ₽ each to take it all the way.'
act 'Go back to the locker room':gt 'stwork', 'start'
act 'Agree':
girl += 1
lesbian += 1
picrand = 18
money += 2000
xgt 'lezbsex', 'var'
end
end
--- stwork2 ---------------------------------