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, 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'
	'<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 $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'

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

	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 ---------------------------------