glife/locations/bordel

# bordel
$sexloc = $CURLOC
gs 'stat'
'<center><b>Brothel</b></center>'
'<center><img src="images/img/centr/bordel.jpg"></center>'

if vnesh < 0:
	'"Listen, you have some sort of infection, get it treated."'

	act 'Leave':gt 'down'
elseif vnesh < 100:
	'"Look at you, no one will pay for such a product, get cleaned up and come back."'

	act 'Leave':gt 'down'
else
	act 'In the room':gt 'bordel', 'start'
end

if $ARGS[0] = 'start':
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cla
	*clr
	gs 'stat'
	'<center><b>Your room in a brothel</b></center>'
	'<center><img src="images/img/centr/borroom.jpg"></center>'
	'In a brothel there is a lot of competition, in order to avoid a massacre they introduced a rule - no more than two clients per day'
	'In the middle is a huge bed, there is a small side door to the <a href="exec:gt ''bordel'', ''dysh''">bathroom</a>.'

	act 'Leave':
		if ($clothingworntype ! 'naughty' and CloQuality ! 2) and $clothingworntype ! 'nude':
			gt 'down'
		else
			cla
			'You need to change into suitable clothes.'

			act 'Go to the bathroom':gt 'bordel', 'dysh'
		end
	end

	act 'Go to the reception room and wait for customers':
		if $clothingworntype = 'naughty' and CloQuality = 2:
			cla
			'You need to change into something more appropriate, all you need is in the locker in the bathroom.'

			act 'Go to the bathroom':gt 'bordel', 'dysh'
		end

		if arrsize('sparrloc') > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 0 or hapri = 0:
			cla
			'You need to freshen up.'

			act 'Go to the bathroom':gt 'bordel', 'dysh'
		else
			gt 'bordel', 'var'
		end
	end
end

if $ARGS[0] = 'dysh':
	$metka = $ARGS[0]
	$loc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
	cla
	*clr
	gs 'stat'

	'<center><img src="images/img/centr/bordysh.jpg"></center>'

	act 'Go to your room':gt 'bordel', 'start'

	act 'Bathroom':
		bordysh = 1
		gt 'vann', 'start'
	end

	act 'Mirror':
		borMir = 1
		gt 'mirror', 'start'
	end
	act 'Change your clothes':
		gt 'clothing_QV', 'list'
	end
end

if $ARGS[0] = 'var':
	if borsexkol >= 2:gt 'bordel', 'start'
	$boy = 'Client'
	$boy1 = 'Client 2'
	minut += 30
	borrand = rand(0, 10)

	if borrand = 0:
		'Customer orders one girl (1,000 <b>₽</b>).'

		act 'Refuse':gt 'bordel', 'start'

		act 'Agree':
			borsexkol += 1
			money += 1000
			slutty += 1
			bordelslutty += 1
			minut += 10
			zpprand = rand(0, 100)

			if zpprand >= 70:dynamic $venerasiak

			gt 'sex', 'start'
		end
	elseif borrand = 1:
		'Customer orders two girls (1,000 <b>₽</b>).'

		act 'Refuse':gt 'bordel', 'start'

		act 'Agree':
			borsexkol += 1
			money += 1000
			slutty += 1
			bordelslutty += 1
			minut += 10
			zpprand = rand(0, 100)

			if zpprand >= 70:dynamic $venerasiak

			gt 'podrsex', 'start'
		end
	elseif borrand = 2:
		'Two clients book one girl (1,500 <b>₽</b>).'

		act 'Refuse':gt 'bordel', 'start'

		act 'Agree':
			borsexkol += 1
			money += 1500
			slutty += 1
			bordelslutty += 1
			minut += 10
			zpprand = rand(0, 100)

			if zpprand >= 70:dynamic $venerasiak

			gt 'sexdvoe', 'start'
		end
	elseif borrand = 3:
		'Two clients book two girls (1,500 <b>₽</b>).'

		act 'Refuse':gt 'bordel', 'start'

		act 'Agree':
			borsexkol += 1
			money += 1500
			slutty += 1
			bordelslutty += 1
			minut += 10
			zpprand = rand(0, 100)

			if zpprand >= 70:dynamic $venerasiak

			gt 'sexdvanadva', 'start'
		end
	elseif borrand = 4:
		'Group of customers order one girl, price 2,000 <b>₽</b>.'

		act 'Refuse':gt 'bordel', 'start'

		act 'Agree':
			borsexkol += 1
			money += 2000
			slutty += 1
			bordelslutty += 1
			minut += 10
			zpprand = rand(0, 100)

			if zpprand >= 70:dynamic $venerasiak

			guy += 3
			dynamic	$clrboy
			dynamic $CatName, 'Bordel client'
			dynamic $CatName, 'Bordel client', '$boy1'
			dynamic $CatName, 'Bordel client', '$boy2'
			$boy[1] = $boy1
			$boy[2] = $boy2
			gt 'paysex', 'start'
		end
	elseif borrand > 4:
		'You are not chosen.'

		act 'Go to your room':gt 'bordel', 'start'
		act 'Wait for another':gt 'bordel', 'var'
	end
end

--- bordel ---------------------------------