# bordel
$sexloc = $CURLOC
gs 'stat'
'<center><B>Brothel</B></center>'
'<center><img src="images\img\centr\bordel.jpg"></center>'
	if 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'
	end
	if vnesh < 0:
	'"Listen, you have some sort of infection, go to undergo treatment."'
	act 'Leave': gt 'down'
	end
if vnesh >= 25: act 'In the room': gt 'bordel','start'

if $ARGS[0] = 'start':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><B>Your room in a brothel</B></center>'
'<center><img src="images\img\centr\borroom.jpg"></center>'
'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 <a href="exec:GT ''bordel'',''dysh''">bath</a>.'
act 'Leave':
	if odetero = 0: gt 'down'
	if odetero > 0:
		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 odetero = 0:
		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'
		end

	if cumbelly = 0 and cumpussy = 0 and cumass = 0 and cumlip = 0 and cumface = 0 and cumfrot = 0 and cumanus = 0 and odetero > 0 and mop > 1 and leghair < 1 and lobok < 1 and sweat < 1 and hapri > 0: gt 'bordel','var'
	end
end

if $ARGS[0] = 'dysh':
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><img src="images\img\centr\bordysh.jpg"></center>'
act 'In the room': gt 'bordel','start'
	act 'Bathroom':
	set bordysh = 1
	gt 'vann','start'
	end

	act 'Mirror':
	set borMir = 1
	gt 'mirror','start'
	end

	act 'Locker for clothes':
	set borLoker = 1
	gt 'loker','start'
	end
end

if $ARGS[0] = 'var':
if borsexkol >= 2: gt 'bordel','start'
set minut += 30
set borrand = rand(0,10)
	if borrand = 0:
	'Customer ordered one girl, the price of 1000 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sex','start'
		end
	end
	if borrand = 1:
	'Customer ordered two girls, the price of 1000 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'podrsex','start'
		end
	end
	if borrand = 2:
	'Two clients booked one girl, the price of 1500 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1500
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sexdvoe','start'
		end
	end
	if borrand = 3:
	'Two clients booked two girls, the price of 1500 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1500
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sexdvanadva','start'
		end
	end
	if borrand = 4:
	'Customer group ordered one girl, price 2000 rub.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 2000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'paysex','start'
		end
	end
	if borrand > 4:
	'You will not chose.'
	act 'Go into the room': gt 'bordel','start'
	act 'Wait another': gt 'bordel','var'
	end
end
--- bordel ---------------------------------