# bordel
$sexloc = $CURLOC
gs 'stat'
'
Brothel'
'
'
if vnesh < 0:
'"Listen, you have some sort of infection, go to undergo treatment."'
act 'Leave':gt 'down'
elseif vnesh >= 0 and vnesh < 25:
'"Look at you, for such a product no one will pay cleaned up and come back."'
act 'Leave':gt 'down'
elseif vnesh >= 25:
act 'In the room':gt 'bordel', 'start'
end
if $ARGS[0] = 'start':
$metkaM = $ARGS[0]
$locM = $CURLOC
cla
*clr
gs 'stat'
'Your room in a brothel'
'
'
'In a brothel and a lot of competition in order to avoid massacre introduced a rule no more than two clients per day'
'In the middle is a huge bed, and a small side door bath.'
act 'Leave':
if $clothingworntype ! 'ero':
gt 'down'
else
cla
'You need to change into my clothes.'
act 'In the bathroom':gt 'bordel', 'dysh'
end
end
act 'Going to the gym, waiting for customers':
if $clothingworntype ! 'ero':
cla
'You need to change into something more appropriate, in a locker in the bathroom is all there.'
act 'In the bathroom':gt 'bordel', 'dysh'
end
if cumbelly > 0 or cumpussy > 0 or cumass > 0 or cumlip > 0 or cumface > 0 or cumfrot > 0 or cumanus > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 0 or hapri = 0:
cla
'You need to freshen up.'
act 'In the bathroom':gt 'bordel', 'dysh'
else
gt 'bordel', 'var'
end
end
end
if $ARGS[0] = 'dysh':
$metkaM = $ARGS[0]
$locM = $CURLOC
cla
*clr
gs 'stat'
'
'
act 'In the room':gt 'bordel', 'start'
act 'Bathroom':
bordysh = 1
gt 'vann', 'start'
end
act 'Mirror':
borMir = 1
gt 'mirror', 'start'
end
act 'Locker for clothes':
gt 'clothing', 'view_clothing_list', 'wardrobe'
end
end
if $ARGS[0] = 'var':
if borsexkol >= 2:gt 'bordel', 'start'
minut += 30
borrand = rand(0, 10)
if borrand = 0:
'Customer ordered one girl, the price of 1,000 rubles.'
act 'Refuse':gt 'bordel', 'start'
act 'Agree':
borsexkol += 1
money += 1000
slutty += 1
bordelslutty += 1
minut += 120
zpprand = rand(0, 100)
if zpprand >= 70:dynamic $venerasiak
gt 'sex', 'start'
end
elseif borrand = 1:
'Customer ordered two girls, the price of 1,000 rubles.'
act 'Refuse':gt 'bordel', 'start'
act 'Agree':
borsexkol += 1
money += 1000
slutty += 1
bordelslutty += 1
minut += 120
zpprand = rand(0, 100)
if zpprand >= 70:dynamic $venerasiak
gt 'podrsex', 'start'
end
elseif borrand = 2:
'Two clients booked one girl, the price of 1,500 rubles.'
act 'Refuse':gt 'bordel', 'start'
act 'Agree':
borsexkol += 1
money += 1500
slutty += 1
bordelslutty += 1
minut += 120
zpprand = rand(0, 100)
if zpprand >= 70:dynamic $venerasiak
gt 'sexdvoe', 'start'
end
elseif borrand = 3:
'Two clients booked two girls, the price of 1,500 rubles.'
act 'Refuse':gt 'bordel', 'start'
act 'Agree':
borsexkol += 1
money += 1500
slutty += 1
bordelslutty += 1
minut += 120
zpprand = rand(0, 100)
if zpprand >= 70:dynamic $venerasiak
gt 'sexdvanadva', 'start'
end
elseif borrand = 4:
'Customer group ordered one girl, price 2,000 rubles.'
act 'Refuse':gt 'bordel', 'start'
act 'Agree':
borsexkol += 1
money += 2000
slutty += 1
bordelslutty += 1
minut += 120
zpprand = rand(0, 100)
if zpprand >= 70:dynamic $venerasiak
gt 'paysex', 'start'
end
elseif borrand > 4:
'You will not chose.'
act 'Go into the room':gt 'bordel', 'start'
act 'Wait another':gt 'bordel', 'var'
end
end
--- bordel ---------------------------------