glife/locations/bordel

# bordel

if $ARGS[0] = 'start' or $ARG[0] = '':
    $location_type = 'event'
	gs 'stat'
	'<center><b>Brothel</b></center>'
	'<center><img src="images/img/centr/bordel.jpg"></center>'

	if vnesh < 0:
		'"You look half dead, get yourself 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', 'brothel'
	end
end

if $ARGS[0] = 'brothel':
	$sexloc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
    $location_type = 'private'
	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' or 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 arrsize('sparrloc') > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 25 or hapri = 0:
			cla
			'The brothel madam comes over to you and says, "Our customers expect you to be clean, shaven, made-up and with your hair looking nice. Go and sort yourself out, now!"'

			act 'Go to the bathroom':gt 'bordel', 'dysh'
		elseif ($clothingworntype ! 'naughty' or CloQuality ! 2) and $clothingworntype ! 'nude':
			cla
			'You need to wear an outfit that can be used for prostitution. if you haven''t got anything suitable and you are desperate, you could work naked but you will get paid less and might get treated badly.'
			'You can change your clothes in the bathroom.'

			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 = 'dysh'
	$locM = 'bordel'
    $location_type = 'bathroom'
	cla
	*clr
	gs 'stat'

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

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

	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':
    $location_type = 'event'
	if borsexkol >= 2:gt 'bordel', 'brothel'
	if $clothingworntype = 'nude':
		bordelpay = 8
	else
		bordelpay = 10
	end
	$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', 'brothel'

		act 'Agree':
			borsexkol += 1
			money += 100 * bordelpay
			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', 'brothel'

		act 'Agree':
			borsexkol += 1
			money += 100 * bordelpay
			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', 'brothel'

		act 'Agree':
			borsexkol += 1
			money += 150 * bordelpay
			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', 'brothel'

		act 'Agree':
			borsexkol += 1
			money += 150 * bordelpay
			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', 'brothel'

		act 'Agree':
			borsexkol += 1
			money += 200 * bordelpay
			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', 'brothel'
		act 'Wait for another':gt 'bordel', 'var'
	end
end

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