glife/locations/103_bordel

# 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 1,000 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 1,000 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 1,500 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 1,500 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 2,000 rubles.'

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