glife/locations/saunawork

# saunawork
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBroom = $ARGS[0]
$locBroom = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
saunaYouRoom = 1

if paymamka = 0:paymamka = 300
if workDolg > 0:paymamka = 300
if workDolg <= 0:paymamka = 500

gs 'stat'
'<center><b><font color="maroon">Sauna</font></b></center>'
'<center><img src="images/etogame/sauna1.jpg"></center>'
'On the walls are full of <a href="exec:gt ''mirror'', ''start''">mirrors</a>.'

if saunaWorkNow = 1:
	saunaWorkNow = 0
	money -= paymamka
	'Nurse came to you and took you to <<paymamka>> per customer.'
end

if money > 0 and workDolg > 0:workDolg -= money & money = 0
if workDolg > 0:'Your debt is <<workDolg>> rubles'

gs 'stat'

if workDolg <= 0:act 'Leave':gt 'sauna'
if workDolg > 0:act 'Go to your room':gt 'saunaroom'

if hour > 8 and hour < 12 and whorehour ! hour:
	whorehour = hour
	klientrand = rand(0, 100)

	if klientrand >= 80:saunaWorkKlient = 1
elseif hour >= 12 and hour < 16 and whorehour ! hour:
	whorehour = hour
	klientrand = rand(0, 100)

	if klientrand >= 50:saunaWorkKlient = 1
elseif hour >= 16 and hour < 21 and whorehour ! hour:
	whorehour = hour
	klientrand = rand(0, 100)

	if klientrand >= 10:saunaWorkKlient = 1
elseif hour >= 21 and whorehour ! hour:
	whorehour = hour
	saunaWorkKlient = 1
end

if saunaWorkKlient = 1:
	cls
	gs 'stat'
	'<center><img src="images/etogame/saunawhore.jpg"></center>'
	'In the sauna arrived client, girls lined up that would be a customer could choose your favorite.'

	if mop > 1 and hapri = 1 and sweat <= 0 and leghair <= 0 and lobok <= 0:
		whorerand = rand(0, 25)

		if whorerand < vnesh:
			'Client jabbed a finger at you "This one."'

			act 'Go to the sauna with a client':saunaWorkKlient = 0 & gt 'saunawhore'
		else
			'Client examined picky eyes and turned away you chose another girl.'

			act 'Leave':saunaWorkKlient = 0 & gt $curloc
		end
	else
		'Looking at your client immediately turned away and chose another girl.'

		act 'Leave':saunaWorkKlient = 0 & gt $curloc
	end

	exit
end

if vnesh = -10 or SLomka > 0:
	cls
	workDolg += 1500
	gs 'stat'
	'You beckoned nurse. "Hey, come here."'
	'You came up to her and she demanded to bare your hand. You have done the required and she took a syringe with what that rubbish. "Sit still, do a shot now and will bring you into a normal form."'

	act 'Leave':StrongNarkota += 25 & SNarkTimes += 1 & minut += 10 & gt $curloc

	exit
end

act 'Sit on the couch (1:00)':
	cls
	minut += 60
	gs 'stat'
	'<center><img src="images/etogame/saunawork.jpg"></center>'
	'You are within an hour sitting on the couch waiting for customers.'

	act 'Leave':gt $curloc
end

if clenerSauna ! daystart:
	act 'Clean toilets (1:00)':
		cla
		*clr
		minut += 60
		clenerSauna = daystart
		manna -= 25
		workDolg -= 100
		sweat += 3
		'<center><img src="images/etogame/clener2.jpg"></center>'
		'You scrubbed toilets for an hour in the sauna to shine.'

		act 'Leave':gt $curloc
	end
end

if clenerSauna2 ! daystart:
	act 'Scrubbing floors (1:00)':
		cla
		*clr
		minut += 60
		clenerSauna2 = daystart
		manna -= 25
		workDolg -= 100
		sweat += 3
		'<center><img src="images/etogame/clener1.jpg"></center>'
		'You within the hour scrubbed floors mopped to shine.'

		act 'Leave':gt $curloc
	end
end

act 'Take a shower (0:15)':
	cla
	*clr
	minut += 15
	sweat = -3
	horny += 1
	hapri = 0
	mop = 1
	dynamic $showerdin

	if frost > 0:frost = 0

	'<center><img src="images/pics/dush.jpg"></center>'
	'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'

	act 'Get razor':dynamic $saunabrit

	if horny >= 90:
		act 'Send shower pussy':
			cla
			*clr
			horny = 0
			minut += 30
			mastr += 1
			orgasm += 1
			manna += 15
			willpower += 15
			'<center><img src="images/pics/wash2.jpg"></center>'
			'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'

			act 'Get out and get dressed':gt $curloc
		end
	elseif horny >= 40 and horny < 90:
		act 'Send shower pussy':
			cla
			*clr
			horny += 5
			minut += 30
			manna += 10
			willpower += 10
			'<center><img src="images/pics/wash2.jpg"></center>'
			'You sent a shower pussy and tight jet of warm water began to caress you. First you were very nice, but after a while, even as it was painful. Excitation of sleep and you stop masturbating.'

			act 'Get out and get dressed':gt $curloc
		end
	end

	act 'Get out and get dressed':gt $curloc
end

$saunabrit = {
	cls
	'You rinsed the razor blade which will be enough for <<stanok>> time.'

	if leghair > 0:
		act 'Shave your legs (0:15)':
			cla
			*clr
			minut += 15
			leghair = -5
			horny += 5
			'<center><img src="images/pics/shave.jpg"></center>'
			'You lathered up and shaved hair with them.'

			act 'Postpone machine':dynamic $saunabrit
		end
	end

	if lobok > 0:
		act 'Shave pubis (0:15)':
			cla
			*clr
			minut += 15
			lobok = -5
			horny += 5
			'<center><img src="images/pics/shave3.jpg"></center>'
			'You lathered pubis, then shaved all the hair from it.'

			act 'Postpone machine':dynamic $saunabrit
		end
	end

	act 'Get out and get dressed':gt $curloc
}

--- saunawork ---------------------------------