[fixed]Menu_off not set, file in wrong order and not enough use of gs 'stat'

locations/city_saunawhore.qsrc

@@ -8,1092 +8,1106 @@ elseif moodTypeRand >= 4:
 	$moodType = 'good'
 end
 
-if $ARGS[0] = 'clientGate':
+!! saunawork start ---------------------------------------------------------------------------------
 
-	if rand(0,19) = 0:gt 'city_saunawhore', 'bdsmclient'
+if $ARGS[0] = 'saunawork':
+	$loc = 'city_saunawhore'
+	$loc_arg = 'saunawork'
+	$locBroom = 'city_saunawhore'
+	$metkaBroom = 'saunawork'
+	$locM = 'city_saunawhore'
+	$locM_arg = 'saunawork'
+	$location_type = 'public_indoors'
+	menu_off = 0
+	saunaYouRoom = 1
 
-	moodTypeRand = rand(-3, 3)
+	if paymamka = 0:paymamka = 300
+	if workDolg > 0:paymamka = 300
+	if workDolg <= 0:paymamka = 500
 
-	! customer body type
-	! -1=skinny, 3-4=regular, 5-6=muscular, 7+=fat
-	bodyTypeRand = 3
+	gs 'stat'
+	'<center><b><font color="maroon">Sauna</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna1.jpg"></center>'
+	''
+	'The sauna is open between 08:00 and 24:00. Only in that time customers can arrive.'
+	'All the walls are covered in <a href="exec:gt ''mirror'', ''start''">mirrors</a>.'
 
-	! customer height type
-	! -1=small, 3-4=regular, 5+=tall
-	heightTypeRand = 3
+	if saunaWorkNow = 1:
+		saunaWorkNow = 0
+		money -= paymamka
+		'Nurse cames to you and takes from you <<paymamka>> per customer.'
+	end
 
-	! customer age
-	customerAge = rand(15, 90)
+	gs 'city_saunawhore','debtPay'
+	if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
 
-	gs 'npcgeneratec', 0, 'client', customerAge
-	gs 'boyStat', $npclastgenerated
+	gs 'stat'
 
-	! customer race, racial modifiers, dick modifiers
-	raceRand = rand(1, 10)
-	if RaceRand <= 7:
-		$raceType = 'white'
-		dickChance = 30
-		bodyTypeRand += rand(-2, 8)
-		heightTypeRand += rand(-1, 6)
-	elseif RaceRand <= 9:
-		$raceType = 'asian'
-		dickChance = 20
-		bodyTypeRand += rand(-6, 2)
-		heightTypeRand += rand(-4, 1)
-	else
-		$raceType = 'black'
-		dickChance = 40
-		bodyTypeRand += rand(0, 6)
-		heightTypeRand += rand(0, 6)
-	end
+	if workDolg <= 0:act 'Leave':gt 'city_sauna'
 
-	dickRand = rand(1, 100)
-	if dickRand <= dickChance:
-		dick = rand(15, 30)
-	elseif dickRand <= (dickChance * 2):
-		dick = rand(10, 20)
-	else
-		dick = rand(8, 12)
-	end
+	act 'Go to your room':gt 'city_sauna', 'saunaroom'
 
-	! customer dick size
-	if dick >= 24:
-		$dick_girth = 'a monstrous'
-		cumVol = rand(4, 5)
-	elseif dick >= 24:
-		$dick_girth = 'a huge'
-		cumVol += 1
-		cumVol = rand(3, 5)
-	elseif dick >= 20:
-		$dick_girth = 'a very big'
-		cumVol = rand(2, 5)
-	elseif dick >= 16:
-		$dick_girth = 'a big'
-		cumVol = rand(2, 4)
-	elseif dick >= 12:
-		$dick_girth = 'a regular'
-		cumVol -= 1
-		cumVol = rand(1, 4)
-	else
-		$dick_girth = 'a tiny'
-		cumVol -= 2
-		cumVol = rand(1, 3)
-	end
+	act 'Use the staff bathroom': minut += 1 & gt 'city_saunawhore', 'bathroom'
 
-	! customer cum volume
-	if cumVol <= 1:
-		$cumType = 'a bit of'
-		cumVolMl = 10
-	elseif cumVol = 2:
-		$cumType = 'some'
-		cumVolMl = 20
-	elseif cumVol = 3:
-		$cumType = 'his warm'
-		cumVolMl = 40
-	elseif cumVol = 4:
-		$cumType = 'a lot of'
-		cumVolMl = 60
-	elseif cumVol >= 5:
-		$cumType = 'an enormous amount of'
-		cumVolMl = 100
-	end
+	if workDolg > 0 and (pcs_mood <= 10 or SLomka > 0):
+		cls
+		workDolg += 420
+		gs 'stat'
+		'You are beckoned by the nurse. "Hey, come here."'
+		'You go up to her and she demands your bared arm. You present your arm as required and she takes out a syringe filled with drugs. "Sit still, I''ll give you a shot now and it will make you feel like normal again."'
 
-	if bodyTypeRand <= 1:
-		$bodyType = 'thin'
-	elseif bodyTypeRand >= 2 and bodyTypeRand <= 4:
-		$bodyType = 'athletic'
-	elseif bodyTypeRand >= 5 and bodyTypeRand <= 6:
-		$bodyType = 'stout'
-	elseif bodyTypeRand >= 7:
-		$bodyType = 'fat'
+		act 'Leave':
+			gs 'drugs', 'heroin'
+			minut += 10
+			gs 'stat'
+			gt 'city_saunawhore', 'saunawork'
+		end
+		exit
 	end
+	if workDolg <= 0 and pcs_mood <= 50 and SaunaWhore > 0 and money >= 420:
+		act 'Ask for some drugs (420 <b>₽</b>)':
+			cls
+			menu_off = 1
+			gs 'stat'
+			'You are beckoned by the nurse. "OK, come here."'
+			'You go up to her and she asks for your bared arm. You present your arm and she takes out a syringe filled with drugs. "Sit still, I''ll give you a shot now and it will make you feel like normal again."'
 
-	if heightTypeRand <= 1:
-		$heightType = 'short'
-	elseif heightTypeRand >= 2 and heightTypeRand <= 4:
-		$heightType = 'average height'
-	elseif heightTypeRand >= 5:
-		$heightType = 'tall'
+			act 'Leave':
+				gs 'drugs', 'heroin'
+				minut += 10
+				money -= 420
+				gt 'city_saunawhore', 'saunawork'
+			end
+		end
 	end
 
-	if customerAge <= 18:
-		$ageType = 'a teenage'
-	elseif customerAge > 18 and customerAge <= 30:
-		$ageType = 'a young'
-	elseif customerAge > 30 and customerAge <= 45:
-		$ageType = 'a middle-aged'
-	elseif customerAge > 45 and customerAge <= 60:
-		$ageType = 'a late middle-aged'
-	elseif customerAge > 60 and customerAge <= 80:
-		$ageType = 'an elderly'
-	elseif customerAge > 80:
-		$ageType = 'a very old'
+	if cumcondslip > 0 and cumcondslip_aware > 0:
+		act 'Ask to see a doctor':
+			cla
+			*clr
+			minut += 25
+			menu_off = 1
+			gs 'stat'
+			'You explain how you feel nauseous and have pain in your pubic area.'
+			'The nurse checks you over and eventually comes to a conclusion.'
+			'"I think it might be toxic shock, we''ll have to get you sorted out. Wait here I''ll call the doctor."'
+			act 'Some time later':
+				cla
+				minut += 15
+				gs 'cum_cleanup', 'cleanloc', 17
+				cumcondslip = 0
+				gs 'stat'
+				'When he arrives the doctor quickly examines you, and establishes that you are suffering from toxic shock from a spent condom in your body.'
+				'"I removed it as soon as I found it. If you were feeling sick, it should slowly subside."'
+				'You reflexively thank the Doctor even though he''s visiting you in this place.'
+
+				act 'Return':gt 'city_saunawhore', 'saunawork'
+			end
+		end
 	end
 
-	minut += 5
+	if hour >= 8:
+		act 'Sit on the couch (1:00)':
+			if pcs_makeup > 1 and pcs_hairbsh = 1 and pcs_sweat < 26 and pcs_leghair <= 3 and pcs_pubes <= 3:
+				cls
+				minut += 60
+				menu_off = 1
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunawork.jpg"></center>'
+				'You spend an hour sitting on the couch waiting for customers.'
 
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/room.jpg"></center>'
-	'You lead the client into your room, closing the door behind him.'
-	'He sits down in the chair and stares at you with obvious lust.'
-	'He is <<$ageType>> <<$raceType>> man, and he is <<$heightType>> and <<$bodyType>>.'
-	if dick >= 16:'From the bulge in his pants, you can tell he probably has <<$dick_girth>> dick.'
-	'He seems to be in a <<$moodType>> mood.'
+				saunaWorkKlient = 0
 
-	gs 'stat'
-	if $clothingworntype = 'nude':
-		if pcs_inhib < 40:
-			inhib_exp += rand(2,4)
-		elseif pcs_inhib >= 40 and pcs_inhib < 60:
-			inhib_exp += 1
+				if hour >= 21:
+					if rand(0, 100) >= 10:saunaWorkKlient = 1
+				elseif hour >= 16:
+					if rand(0, 100) >= 20:saunaWorkKlient = 1
+				elseif hour >= 12:
+					if rand(0, 100) >= 40:saunaWorkKlient = 1
+				elseif hour >= 8:
+					if rand(0, 100) >= 80:saunaWorkKlient = 1
+				else
+					if rand(0, 100) >= 40:saunaWorkKlient = 1
+				end
+
+				if saunaWorkKlient = 1:
+					cls
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunawhore.jpg"></center>'
+					'A client has arrived at the sauna, and the girls line up so that the customer can choose his favorite.'
+
+					if rand(0, 120) < pcs_apprnc:
+						'Client jabs a finger at you, "This one."'
+						act 'Go to the sauna with client':
+							saunaWorkKlient = 1
+							guy += 1
+							slutty += 1
+							SaunaWhore += 1
+							menu_off = 1
+							gt 'city_saunawhore', 'clientGate'
+						end
+					else
+						'The client examines you closely but turns away to chose another girl.'
+
+						act 'Continue':gt 'city_saunawhore', 'saunawork'
+					end
+				else
+					'The client chooses another girl and she leads him to one of the back rooms.'
+
+					act 'Continue':gt 'city_saunawhore', 'saunawork'
+				end
+			else
+				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 'Leave':gt 'city_saunawhore', 'saunawork'
+			end
 		end
-		moodTypeRand += 1
-		act 'Get straight to business':gt 'city_saunawhore', 'strippedGate'
-		gs 'arousal', 'foreplay', 3, 'prostitution'
-		gs 'stat'
-	else
-		if pcs_dancero >= 10:act 'Do a little striptease':gt 'city_saunawhore', 'striptease'
-		act 'Take off your clothes':gt 'city_saunawhore', 'simplystrip'
 	end
-end
 
-if $ARGS[0] = 'striptease':
-	if pcs_dancero < 20:pcs_dancero += rand(1,3)
-	if pcs_inhib < 40:
-		inhib_exp += rand(2,4)
-	elseif pcs_inhib >= 40 and pcs_inhib < 60:
-		inhib_exp += 1
-	end
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/striptease'+rand(1, 5)+'.mp4"></video></center>'
-	'Hoping to please the customer, you decide to give him a little show. You count a beat in your head and begin dancing, slowly stripping away your clothes, one piece at a time. It would probably be better if you had actual music, but the client smirks and seems to enjoy it nonetheless.'
-	moodTypeRand += 1
-	gs 'arousal', 'foreplay', 5, 'prostitution'
-	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'strippedGate'
-end
+	if clenerSauna ! daystart:
+		act 'Clean toilets (1:00)':
+			cla
+			*clr
+			minut += 60
+			clenerSauna = daystart
+			pcs_mood -= 25
+			menu_off = 1
+			gs 'sweat', 'add', 30
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener2.jpg"></center>'
+			if workDolg > 0:
+				'You scrub the sauna toilets for an hour until they shine and reducing your debt by 100 <b>₽</b>.'
+				workDolg -= 100
+			else
+				'You scrub the sauna toilets for an hour until they shine. You get payed 100 <b>₽</b> for your hard work.'
+				money += 100
+			end
 
-if $ARGS[0] = 'simplystrip':
-	if pcs_dancero < 10: pcs_dancero += rand(0,2)
-	if pcs_inhib < 40:
-		inhib_exp += rand(1,2)
-	elseif pcs_inhib >= 40 and pcs_inhib < 60:
-		inhib_exp += rand(0,1)
+			act 'Leave':gt 'city_saunawhore', 'saunawork'
+		end
 	end
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/simplystrip'+rand(1, 2)+'.mp4"></video></center>'
-	'You remove your clothes and toss them aside, mentally preparing for the task ahead. The client looks vaguely irritated - perhaps he expected something a bit more provacative?'
-	moodTypeRand -= 1
-	gs 'arousal', 'foreplay', 2, 'prostitution'
-	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'strippedGate'
-end
 
-if $ARGS[0] = 'strippedGate':
-	minut += 2
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/nakedstand.jpg"></center>'
-	'You are fully naked in front of the client, his eyes devouring every inch of your young body.'
+	if clenerSauna2 ! daystart:
+		act 'Scrub floors (1:00)':
+			cla
+			*clr
+			menu_off = 1
+			minut += 60
+			clenerSauna2 = daystart
+			pcs_mood -= 25
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
+			if workDolg > 0:
+				'You spend an hour mopping and scrubbing all the floors and reducing your debt by 100 <b>₽</b>.'
+				workDolg -= 100
+			else
+				'You spend an hour mopping and scrubbing all the floors. You get payed 100 <b>₽</b> for your hard work.'
+				money += 100
+			end
 
-	if pcs_dancero >= 20:act 'Dance naked':gt 'city_saunawhore', 'nakeddance'
-	if guy >= 20:act 'Present him your holes':gt 'city_saunawhore', 'holeshow'
-	act 'Kneel and open your mouth':gt 'city_saunawhore', 'blowjob'
-end
+			gs 'sweat', 'add', 30
 
-if $ARGS[0] = 'nakeddance':
-	if pcs_inhib < 40:
-		inhib_exp += rand(3,6)
-	elseif pcs_inhib >= 40 and pcs_inhib < 60:
-		inhib_exp += rand(1,2)
-	end
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/nakeddance'+rand(1, 4)+'.mp4"></video></center>'
-	'You walk towards the client, straddle his legs, and begin to dance. He leans back and you proceed to give him the best lapdance you can muster. You alternate between rubbing your breasts in his face and turning around to grind your ass on his crotch. Judging from the hardness in his pants, it seems that he is pleased with your efforts.'
-	moodTypeRand += 1
-	gs 'arousal', 'foreplay', 5, 'prostitution'
-	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'blowjob'
-end
 
-if $ARGS[0] = 'holeshow':
-	if pcs_inhib < 40:
-		inhib_exp += rand(3,6)
-	elseif pcs_inhib >= 40 and pcs_inhib < 60:
-		inhib_exp += rand(1,2)
+			act 'Leave':gt 'city_saunawhore', 'saunawork'
+		end
 	end
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/holeshow'+rand(1, 5)+'.mp4"></video></center>'
-	'You decide to tease him further, so you lean closer to him and open your mouth, sticking your tongue out as far as possible and then sucking your fingers.'
-	'Then you turn around, bend over, and grab your ass with both hands.'
-	'You pull your ass cheeks apart, giving him a great view of both of your holes.'
-	moodTypeRand += 1
-	gs 'arousal', 'foreplay', 5, 'prostitution'
-	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'blowjob'
-end
-
-if $ARGS[0] = 'blowjob':
-	minut += 5
-	
-	if $moodType = 'fairly normal':
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
-		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
-		'He pulls out his <<$dick_girth>> dick and brings it to your <<$liptalk>>.'
-		'You start kissing the tip, licking it all around and putting it a bit inside your mouth and sucking the head.'
-		gs 'arousal', 'bj', 5, 'prostitution'
-		gs 'stat'
 
-		act 'Suck it':gt 'city_saunawhore', 'blowjobGate'
-	elseif $moodType = 'good':
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
-		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
-		'He comes close to you, fondles your hair and face and takes you gently by your arm, raising you up from the floor.'
-		'He directs you to the bed, undresses and both of you lie down.'
+	if npc_QW['A113'] = 1 and workDolg <= 0 and belgangPay <= 0:
+		cla & *clr
+		menu_off = 0
+		gs'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
+		'As you enter the sauna you see a familiar face. It''s Vadim Bely standing there with his brother. "Good news little whore, you''ve finally paid off your debt. You''re free to do whatever you want now."'
+		'You look at him with hate-filled eyes, "Do you know what you put me through here? You''re the most despicable man I''ve ever met in my life."'
+		'Vadim starts laughing loudly, "Choose you words carefully girl. I''m still in control of your future, maybe you haven''t payed off your debt yet?"'
+		'Not wanting to escalate the situation, you look down on the floor, "I''m sorry. I should know my place."'
+		'"Good girl, now that you''re free wanna go party with us to celebrate your freedom?"'
+		act 'No, thanks':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
+			'"No, I''m sorry but I just want to go home... Maybe some other time."'
+			'Vadim looks at you with a serious look, "You''re lucky I''m in a good mood today. I''ll let it slide this time." he says laughing.'
+			'You quickly gather your stuff before he has a change of heart and step outside the sauna.'
+			npc_QW['A113'] = 2
 
-		act 'Embrace him':gt 'city_saunawhore', 'fuckGate'
-	elseif $moodType = 'bad':
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/slapface'+rand(1, 1)+'.mp4"></video></center>'
-		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
-		'He comes close to you and suddenly slaps your face hard.'
-		'You are caught by surprise and tears well up in your eyes.'
-		'He seems very angry and even aroused by your misfortune.'
-		'As you kneel in front of him in tears, he grabs you roughly by your arms, painfully twisting them behind your back, and slams you down on the bed.'
-		gs 'pain', 1, 'cheeks', 'slap'
-		if slutty < 10:
-			Mana -= 50
-		else
-			Mana -= 10
+			act 'Leave':gt 'city_residential'
 		end
-
-		gs 'pain', 2, 'armL', 'twist'
-		gs 'pain', 2, 'armR', 'twist'
-		act 'Brace yourself':gt 'city_saunawhore', 'fuckRoughGate'
 	end
-	gs 'stat'
 end
 
-if $ARGS[0] = 'blowjobGate':
-	'You begin to suck his cock in earnest, bobbing your head back and forth while you work it, running your tongue along the underside of his shaft.'
-	'He is rock hard now and you can see his <<$dick_girth>> <<dick>>cm member in all its glory.'
-	'Client seems to be so far content with your performance, but you think it may be time to switch to efficient approach:'
-	gs 'arousal', 'bj', 5, 'prostitution'
-	gs 'stat'
-	if dick > pcs_throat:
-		'There''s no way you''ll be able to fit the entire thing in your mouth.'
-		act 'Try to deepthroat him':gt 'city_saunawhore', 'blowjobCaress'
-	else
-		act 'Deepthroat him':gt 'city_saunawhore', 'blowjobDeepthroat'
-	end
-end
+if $ARGS[0] = 'bathroom':
+	$loc = 'city_saunawhore'
+	$loc_arg = 'bathroom'
+	$locM = 'city_saunawhore'
+	$locM_arg = 'bathroom'
+	$location_type = 'bathroom'
+	menu_off = 0
 
-if $ARGS[0] = 'blowjobCaress':
-	'You try to deepthroat him, but his <<$dick_girth>> cock is just too big for you to handle, and you end up gagging yourself and coughing.'
-	gs 'arousal', 'bj', 5, 'prostitution', 'deepthroat'
+	*clr & cla
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
 	''
-	moodChange = rand (-2, 0)
-	moodTypeRand += moodChange
+	'You enter the staff bathroom, which is usually cleaned by the girls that have only just started work here, voluntary or otherwise.'
+	'There is a <a href="exec:gt ''mirror'', ''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair, a shower, toilet, and basin.'
 
-	if $moodType = 'good':
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
-		'He seems to enjoy your efforts anyway, and signals to you that he''s ready to move on to the next stage.'
-		act 'Continue':gt 'city_saunawhore', 'fuckGate'
-	elseif $moodType = 'fairly normal':
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
-		'He seem to have enough of this. He takes your hand and directs you towards the bed.'
-		act 'Continue':gt 'city_saunawhore', 'fuckGate'
-	elseif $moodType = 'bad':
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/slapface'+rand(1, 1)+'.mp4"></video></center>'
-		'He scowls at your pathetic attempt and pulls his cock out of your mouth.'
-		question = rand (1, 3)
-		if question = 1:
-			'He slaps your face hard and shouts: "What the hell is wrong with you? What kind of a whore is this bad at sucking cock?"'
-		elseif question = 2:
-			'He slaps your face hard and shouts: "My cock isn''t tasty enough for you to suck on properly, bitch?"'
-		elseif question = 3:
-			'He slaps your face hard and shouts: "Christ, what kind of a good-for-nothing whore are you?"'
+	act 'Return to foyer': minut += 1 & gt 'city_saunawhore', 'saunawork'
+
+	act 'Take a shower (0:15)':
+		cls
+		minut += 15
+		menu_off = 1
+		gs 'stat'
+		dynamic $showerdin
+		'<center><h3>Staff Bathroom</h3></center>'
+		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
+		''
+		'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly to be as clean as possible for potential customers.'
+		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
+		if workDolg > 0:
+			if stanok <= 0: stanok = 5
+			dynamic $brit
+		elseif workDolg = 0 and stanok > 0:
+			dynamic $brit
 		end
-		gs 'pain', 1, 'cheeks', 'slap'
-		'Furious, he grabs you roughly by your arms, painfully twisting them behind your back, and slams you down on the bed.'
-		act 'Continue':gt 'city_saunawhore', 'fuckRoughGate'
+		dynamic $dryOff
 	end
-	gs 'stat'
-end
 
-if $ARGS[0] = 'blowjobDeepthroat':
-	moodChange += rand (-1, 2)
-	moodTypeRand += moodChange
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/deepthroat'+rand(1, 5)+'.mp4"></video></center>'
-	'The client groans as you take him all the way to the hilt - his <<$dick_girth>> <<dick>>cm member is buried all the way inside your throat.'
-	'You try to hold it as long as possible, while teasing his balls with your tongue, your nose pressed against his pubic area.'
-	if $moodType = 'bad':
-		'He gets a sadistic look in his eye, and then grabs the back of your head and holds you down, not letting you escape.'
-		'You feel yourself beginning to suffocate and panic, trying to get away from him, but he is much stronger than you and holds you tightly in place. Your eyes begin to roll back and you feel your conciousness fading when he finally releases you. You hack and sputter, thick strands of saliva hanging from his cock to your mouth. He seems to have enjoyed that quite a bit.'
+	if workDolg > 0 and stanok > 0:
+		*nl
+		'You have a handful of cheap razors you can use, enough for <<stanok>> shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
+		dynamic $brit
+	elseif workDolg > 0 and stanok = 0:
+		*nl
+		'You have <<stanok>> razors left. You should go to your room and ask for more razors.'
+	elseif workDolg <= 0 and stanok > 0:
+		*nl
+		'Your current pack of razors will last for <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
+		dynamic $brit
+	elseif workDolg = 0 and stanok = 0:
+		*nl
+		'You have <<stanok>> razors left. You should to go to the store and buy more razors.'
+	end
+	gs 'din_van', 'prvt_pee'
+	dynamic $enema
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $bteeth
+	dynamic $basin
+	if breastpump > 0 and bp_unbox >= 1:
+		act 'Use breast pump' :gt 'lact_bp', 'bp_milking'
 	end
-	gs 'arousal', 'bj', 5, 'prostitution', 'deepthroat'
-	'Finally he seems to have had enough of oral sex and signals you that he wants some more.'
-	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'fuckGate'
 end
 
-if $ARGS[0] = 'fuckGate':
-	minut += 2
-	noCondChance = rand(1, 100)
-	if noCondChance < 40:
-		'He leers at you lustfully and asks, "So baby, how much for not using a condom?"'
-		'When you hesitate, he adds, "C''mon, I''ll pay you double."'
-		act 'Let him fuck you without a condom':gt 'city_saunawhore', 'fuckGateCondomNo'
-		act 'Insist on using a condom':gt 'city_saunawhore', 'fuckGateCondomYes'
-	else
-		gs 'city_saunawhore', 'fuckGateCondomYes'
+if $ARGS[0] = 'debtPay':
+	if money > workDolg:
+		money -= workDolg
+		workDolg = 0
+	elseif workDolg > money:
+		workDolg -= money
+		money = 0
 	end
-	gs 'stat'
 end
 
-if $ARGS[0] = 'fuckGateCondomYes':
-	useCondom = 1
-	moodTypeRand -= 2
-	gs 'city_saunawhore', 'fuckGateGo'
-end
+if $ARGS[0] = 'clientGate':
 
-if $ARGS[0] = 'fuckGateCondomNo':
-	useCondom = 2
-	moodTypeRand += 1
-	gs 'city_saunawhore', 'fuckGateGo'
-end
+	if rand(0,19) = 0:gt 'city_saunawhore', 'bdsmclient'
 
-if $ARGS[0] = 'fuckGateGo':
-	minut += 2
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/lieonbedboth.jpg"></center>'
-	'You lie back on the bed in front of the client.'
-	'"How do you want me?" you ask him.'
-	if $moodType = 'bad':
-		'"How do I want you whore? I want you screaming!"'
-		forced = 1
-		act 'Continue':gt 'city_saunawhore', 'fuckRoughGate'
+	moodTypeRand = rand(-3, 3)
+
+	! customer body type
+	! -1=skinny, 3-4=regular, 5-6=muscular, 7+=fat
+	bodyTypeRand = 3
+
+	! customer height type
+	! -1=small, 3-4=regular, 5+=tall
+	heightTypeRand = 3
+
+	! customer age
+	customerAge = rand(15, 90)
+
+	gs 'npcgeneratec', 0, 'client', customerAge
+	gs 'boyStat', $npclastgenerated
+
+	! customer race, racial modifiers, dick modifiers
+	raceRand = rand(1, 10)
+	if RaceRand <= 7:
+		$raceType = 'white'
+		dickChance = 30
+		bodyTypeRand += rand(-2, 8)
+		heightTypeRand += rand(-1, 6)
+	elseif RaceRand <= 9:
+		$raceType = 'asian'
+		dickChance = 20
+		bodyTypeRand += rand(-6, 2)
+		heightTypeRand += rand(-4, 1)
 	else
-		forced = 2
-		holeType = rand(1, 2)
-		if holeType = 1:
-			'"I want some pussy."'
-			act 'Spread your legs':gt 'city_saunawhore', 'fuckVaginal'
-		elseif holeType = 2:
-			'"I want to fuck your ass."'
-			act 'Turn around and spread your ass':gt 'city_saunawhore', 'fuckAnal'
-		end
+		$raceType = 'black'
+		dickChance = 40
+		bodyTypeRand += rand(0, 6)
+		heightTypeRand += rand(0, 6)
 	end
-	gs 'stat'
-end
 
-if $ARGS[0] = 'fuckVaginal':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckvaginal'+rand(1, 5)+'.mp4"></video></center>'
-	'He climbs on top of you and pushes his member inside of you.'
-	if dick > pcs_vag:
-		'His <<$dick_girth>> <<dick>>cm cock is too big for your pussy and causes you intense pain, stretching you past your limit and bringing tears to your eyes. At least he isn''t too rough.'
-		'He thrusts his <<$dick_girth>> <<dick>>cm cock in you over and over, seeming to enjoy the tightness and not caring much about your own pain.'
-		DMG = (dick - pcs_vag) / 2
-		gs 'pain', 1, 'vaginal', 'stretch'
-		pcs_mood -= (DMG * 5)
-		gs 'arousal', 'vaginal', 10, 'prostitution', 'rough'
+	dickRand = rand(1, 100)
+	if dickRand <= dickChance:
+		dick = rand(15, 30)
+	elseif dickRand <= (dickChance * 2):
+		dick = rand(10, 20)
 	else
-		'He thrusts his <<$dick_girth>> <<dick>>cm cock in you over and over, not caring much about technique or your own pleasure.'
-		gs 'arousal', 'vaginal', 10, 'prostitution'
+		dick = rand(8, 12)
 	end
-	''
-	'After a while, you can sense that he is almost ready to come.'
-	gs 'stat'
-	if 	useCondom = 2:
-		act 'Ask him not to cum inside of you':
-			not_inside = 1
-			gt 'city_saunawhore', 'cumClientGate'
-		end
+
+	! customer dick size
+	if dick >= 24:
+		$dick_girth = 'a monstrous'
+		cumVol = rand(4, 5)
+	elseif dick >= 24:
+		$dick_girth = 'a huge'
+		cumVol += 1
+		cumVol = rand(3, 5)
+	elseif dick >= 20:
+		$dick_girth = 'a very big'
+		cumVol = rand(2, 5)
+	elseif dick >= 16:
+		$dick_girth = 'a big'
+		cumVol = rand(2, 4)
+	elseif dick >= 12:
+		$dick_girth = 'a regular'
+		cumVol -= 1
+		cumVol = rand(1, 4)
+	else
+		$dick_girth = 'a tiny'
+		cumVol -= 2
+		cumVol = rand(1, 3)
 	end
-	act 'Let him cum wherever he wants':
-		not_inside = 2
-		gt 'city_saunawhore', 'cumClientGate'
+
+	! customer cum volume
+	if cumVol <= 1:
+		$cumType = 'a bit of'
+		cumVolMl = 10
+	elseif cumVol = 2:
+		$cumType = 'some'
+		cumVolMl = 20
+	elseif cumVol = 3:
+		$cumType = 'his warm'
+		cumVolMl = 40
+	elseif cumVol = 4:
+		$cumType = 'a lot of'
+		cumVolMl = 60
+	elseif cumVol >= 5:
+		$cumType = 'an enormous amount of'
+		cumVolMl = 100
 	end
-end
 
-if $ARGS[0] = 'fuckAnal':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckanal'+rand(1, 5)+'.mp4"></video></center>'
-	'He climbs on the bed behind you and presses the tip of his dick against your asshole. After waiting a moment, he begins to push it in.'
-	if dick > pcs_ass:
-		'His <<dick>> cm <<$dick_girth>> cock is too big for your ass and causes you intense pain as it stretches you out painfully and presses deep inside of you.'
-		'He thrusts his <<$dick_girth>> <<dick>>cm cock in your ass over and over, seeming to enjoy the tightness and not caring much about your own pain.'
-		DMG = (dick - pcs_ass) / 2
-		gs 'pain', 1, 'asshole', 'stretch'
-		pcs_mood -= (DMG * 5)
-		gs 'arousal', 'anal', 10, 'prostitution', 'rough'
-	else
-		'He thrusts his <<$dick_girth>> <<dick>>cm cock in your ass over and over, not caring much about technique or whether or not you''re enjoying it.'
-		gs 'arousal', 'anal', 10, 'prostitution'
+	if bodyTypeRand <= 1:
+		$bodyType = 'thin'
+	elseif bodyTypeRand >= 2 and bodyTypeRand <= 4:
+		$bodyType = 'athletic'
+	elseif bodyTypeRand >= 5 and bodyTypeRand <= 6:
+		$bodyType = 'stout'
+	elseif bodyTypeRand >= 7:
+		$bodyType = 'fat'
 	end
-	''
-	'After a while, you can sense that he is almost ready to come.'
-	gs 'stat'
-	act 'Let him cum wherever he wants':
-		not_inside = 2
-		gt 'city_saunawhore', 'cumClientGate'
+
+	if heightTypeRand <= 1:
+		$heightType = 'short'
+	elseif heightTypeRand >= 2 and heightTypeRand <= 4:
+		$heightType = 'average height'
+	elseif heightTypeRand >= 5:
+		$heightType = 'tall'
 	end
-end
 
+	if customerAge <= 18:
+		$ageType = 'a teenage'
+	elseif customerAge > 18 and customerAge <= 30:
+		$ageType = 'a young'
+	elseif customerAge > 30 and customerAge <= 45:
+		$ageType = 'a middle-aged'
+	elseif customerAge > 45 and customerAge <= 60:
+		$ageType = 'a late middle-aged'
+	elseif customerAge > 60 and customerAge <= 80:
+		$ageType = 'an elderly'
+	elseif customerAge > 80:
+		$ageType = 'a very old'
+	end
 
-if $ARGS[0] = 'fuckRoughGate':
 	minut += 5
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bedoverpowered.jpg"></center>'
-	'The man is much stronger than you, and you are completely overpowered, entirely at his will.'
-	'He keeps your arms pinned painfully behind your back.'
-	pcs_mood -= 50
-	useCondom = rand(1,2)
-	forced = 1
-	gs 'pain', 2, 'armL', 'twist'
-	gs 'pain', 2, 'armR', 'twist'
-	holeType = rand(1, 2)
-	if holeType = 1 and useCondom = 1:
-		'You feel the tip of his cock against your pussy... at least it feels like he''s using a condom.'
-		act 'Continue':gt 'city_saunawhore', 'fuckRoughVaginal'
-	elseif holeType = 1 and useCondom = 2:
-		'You feel the tip of his cock against your pussy... and it feels like he''s not wearing a condom!'
-		act 'Continue':gt 'city_saunawhore', 'fuckRoughVaginal'
-	elseif holeType = 2:
-		'You feel the tip of his cock pressing against your asshole... this is probably not going to be pleasant.'
-		act 'Continue':gt 'city_saunawhore', 'fuckRoughAnal'
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/room.jpg"></center>'
+	'You lead the client into your room, closing the door behind him.'
+	'He sits down in the chair and stares at you with obvious lust.'
+	'He is <<$ageType>> <<$raceType>> man, and he is <<$heightType>> and <<$bodyType>>.'
+	if dick >= 16:'From the bulge in his pants, you can tell he probably has <<$dick_girth>> dick.'
+	'He seems to be in a <<$moodType>> mood.'
+
+	if $clothingworntype = 'nude':
+		if pcs_inhib < 40:
+			inhib_exp += rand(2,4)
+		elseif pcs_inhib >= 40 and pcs_inhib < 60:
+			inhib_exp += 1
+		end
+		moodTypeRand += 1
+		act 'Get straight to business':gt 'city_saunawhore', 'strippedGate'
+		gs 'arousal', 'foreplay', 3, 'prostitution'
+		gs 'stat'
+	else
+		if pcs_dancero >= 10:act 'Do a little striptease':gt 'city_saunawhore', 'striptease'
+		act 'Take off your clothes':gt 'city_saunawhore', 'simplystrip'
+	end
+end
+
+if $ARGS[0] = 'striptease':
+	if pcs_dancero < 20:pcs_dancero += rand(1,3)
+	if pcs_inhib < 40:
+		inhib_exp += rand(2,4)
+	elseif pcs_inhib >= 40 and pcs_inhib < 60:
+		inhib_exp += 1
 	end
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/striptease'+rand(1, 5)+'.mp4"></video></center>'
+	'Hoping to please the customer, you decide to give him a little show. You count a beat in your head and begin dancing, slowly stripping away your clothes, one piece at a time. It would probably be better if you had actual music, but the client smirks and seems to enjoy it nonetheless.'
+	moodTypeRand += 1
+	gs 'arousal', 'foreplay', 5, 'prostitution'
 	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'strippedGate'
 end
 
-if $ARGS[0] = 'fuckRoughVaginal':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckroughvaginal'+rand(1, 5)+'.mp4"></video></center>'
-	'He forces his dick inside of you, and begins to fuck your tender pussy furiously.'
-	'You cannot help but scream in pain, which seems to arouse him even more and makes him push even harder and deeper.'
-	if dick > pcs_vag:
-		'His <<$dick_girth>> <<dick>>cm is too big for your pussy and causes you intense pain, stretching you horribly and slamming against your cervix.'
-		DMG = (dick - pcs_vag)
-		gs 'pain', 2, 'vaginal', 'stretch'
-		!gs 'pain', 2, 'cervix', 'pinch'
-		pcs_mood -= (DMG * 5)
+if $ARGS[0] = 'simplystrip':
+	if pcs_dancero < 10: pcs_dancero += rand(0,2)
+	if pcs_inhib < 40:
+		inhib_exp += rand(1,2)
+	elseif pcs_inhib >= 40 and pcs_inhib < 60:
+		inhib_exp += rand(0,1)
 	end
-	gs 'arousal', 'vaginal', 10, 'prostitution', 'rough', 'bound'
-	''
-	'After seemingly endless fucking, you can finally sense that he is almost ready to come.'
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/simplystrip'+rand(1, 2)+'.mp4"></video></center>'
+	'You remove your clothes and toss them aside, mentally preparing for the task ahead. The client looks vaguely irritated - perhaps he expected something a bit more provacative?'
+	moodTypeRand -= 1
+	gs 'arousal', 'foreplay', 2, 'prostitution'
 	gs 'stat'
-	if 	useCondom = 2:
-		act 'Beg him not to cum inside of you':
-			not_inside = 1
-			gt 'city_saunawhore', 'cumClientGate'
-		end
-	end
-	act 'Let him cum wherever he wants':
-		not_inside = 2
-		gt 'city_saunawhore', 'cumClientGate'
-	end
+	act 'Continue':gt 'city_saunawhore', 'strippedGate'
 end
 
-if $ARGS[0] = 'fuckRoughAnal':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckroughanal'+rand(1, 5)+'.mp4"></video></center>'
-	'He roughly shoves his entire cock up your ass, and begins to fuck it furiously.'
-	'You cannot help but scream in agony, which arouses him even more and makes him push even harder and deeper.'
-	if dick > pcs_ass:
-		'His <<$dick_girth>> <<dick>>cm is too big for your ass and causes you intense pain, stretching you out and making it feel like you''re being ripped open.'
-		DMG = (dick - pcs_ass)
-		gs 'pain', 2, 'asshole', 'stretch'
-		pcs_mood -= (DMG * 5)
-	end
-	not_inside = 2
-	gs 'arousal', 'anal', 10, 'prostitution', 'rough', 'bound'
-	''
-	'After seemingly endless assfucking, you can finally sense that he is almost ready to come.'
-	gs 'stat'
-	act 'Let him cum wherever he wants':gt 'city_saunawhore', 'cumClientGate'
+if $ARGS[0] = 'strippedGate':
+	minut += 2
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/nakedstand.jpg"></center>'
+	'You are fully naked in front of the client, his eyes devouring every inch of your young body.'
+
+	if pcs_dancero >= 20:act 'Dance naked':gt 'city_saunawhore', 'nakeddance'
+	if guy >= 20:act 'Present him your holes':gt 'city_saunawhore', 'holeshow'
+	act 'Kneel and open your mouth':gt 'city_saunawhore', 'blowjob'
 end
 
-if $ARGS[0] = 'cumClientGate':
-	if $moodType = 'bad':
-		if not_inside = 2:
-			cumRand = rand(1, 10)
-			if cumRand <= 9 and holeType = 1:
-				'You feel his cock twitch and realize he is about to cum inside of you.'
-				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
-			elseif cumRand <= 9 and holeType = 2:
-				'You feel his cock twitch and realize he is about to cum in your ass.'
-				act 'Continue':gt 'city_saunawhore', 'cumAnal'
-			else
-				'He pulls out and brings his cock up in front of your face.'
-				act 'Continue':gt 'city_saunawhore', 'cumFace'
-			end
-		else
-			cumRand = rand(1, 2)
-			if cumRand = 1 and holeType = 1:
-				'He just laughs and you realize he is going to cum inside of you anyway.'
-				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
-			elseif cumRand = 2:
-				'He smirks and says "Fine, how about in your eyes then, whore?"'
-				gs 'pain', 1, 'eyes', 'burn'
-				act 'Continue':gt 'city_saunawhore', 'cumFace'
-			end
-		end
-	else
-		if not_inside = 2:
-			cumRand = rand(1, 5)
-			if cumRand = 1 and holeType = 1:
-				'You feel his cock twitch and realize he is about to cum inside of you.'
-				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
-			elseif cumRand = 1 and holeType = 2:
-				'You feel his cock twitch and realize he is about to cum in your ass.'
-				act 'Continue':gt 'city_saunawhore', 'cumAnal'
-			elseif cumRand = 2:
-				'He pulls out and brings his cock up in front of your face.'
-				act 'Continue':gt 'city_saunawhore', 'cumFace'
-			elseif cumRand = 3:
-				'He pulls out and brings his cock up in front of your face.'
-				act 'Continue':gt 'city_saunawhore', 'cumMouth'
-			elseif cumRand = 4:
-				'He pulls out and holds his cock over your body.'
-				act 'Continue':gt 'city_saunawhore', 'cumBelly'
-			elseif cumRand = 5:
-				'He pulls out and holds his cock over your body.'
-				act 'Continue':gt 'city_saunawhore', 'cumTits'
-			end
-		else
-			cumRand = rand(1, 9)
-			if cumRand <= 2:
-				'He nods, pulls out, and brings his cock up in front of your face.'
-				act 'Continue':gt 'city_saunawhore', 'cumFace'
-			elseif cumRand <= 4:
-				'He nods, pulls out, and brings his cock up in front of your face.'
-				act 'Continue':gt 'city_saunawhore', 'cumMouth'
-			elseif cumRand <= 6:
-				'He nods, pulls out, and holds his cock over your body.'
-				act 'Continue':gt 'city_saunawhore', 'cumBelly'
-			elseif cumRand <= 8:
-				'He nods, pulls out, and holds his cock over your body.'
-				act 'Continue':gt 'city_saunawhore', 'cumTits'
-			else
-				'He shakes his head and says "Sorry, I can''t stop now!" and you realize he''s going to cum in you anyway!'
-				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
-			end
-		end
+if $ARGS[0] = 'nakeddance':
+	if pcs_inhib < 40:
+		inhib_exp += rand(3,6)
+	elseif pcs_inhib >= 40 and pcs_inhib < 60:
+		inhib_exp += rand(1,2)
 	end
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/nakeddance'+rand(1, 4)+'.mp4"></video></center>'
+	'You walk towards the client, straddle his legs, and begin to dance. He leans back and you proceed to give him the best lapdance you can muster. You alternate between rubbing your breasts in his face and turning around to grind your ass on his crotch. Judging from the hardness in his pants, it seems that he is pleased with your efforts.'
+	moodTypeRand += 1
+	gs 'arousal', 'foreplay', 5, 'prostitution'
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'blowjob'
 end
 
-if $ARGS[0] = 'cumVaginal':
-	minut += 5
-	if useCondom = 1:
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondomvaginal.jpg"></center>'
-		'The client''s cock twitches several more times as he cums into the condom inside of you.'
-		'He strips the condom from his dick, and you see that it has <<$cumType>> cum in it.'
-		moodTypeRand += rand (-2, 2)
-		if $moodType = 'bad':
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondompourface.jpg"></center>'
-			'Suddenly he grabs your head and pours the contents all over your face.'
-			gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
-			gs 'cum_call', 'face', 'sauna client', 0, 0, 0, cumVolMl
-		elseif $moodType = 'fairly normal':
-			'He throws it away on the floor, not caring about spilling the fluids around.'
-			gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
-		elseif $moodType = 'good':
-			'He throws it in the waste bin and gently caresses your hair afterwards.'
-			gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
-		end
-	else
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumvaginal'+rand(1, 5)+'.mp4"></video></center>'
-		'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your pussy.'
-		gs 'cum_call', '', 'sauna client', 0, 0, 0, cumVolMl
-		if rand(1,100) >= 70:gs 'dinSex', 'std_trigger'
+if $ARGS[0] = 'holeshow':
+	if pcs_inhib < 40:
+		inhib_exp += rand(3,6)
+	elseif pcs_inhib >= 40 and pcs_inhib < 60:
+		inhib_exp += rand(1,2)
 	end
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/holeshow'+rand(1, 5)+'.mp4"></video></center>'
+	'You decide to tease him further, so you lean closer to him and open your mouth, sticking your tongue out as far as possible and then sucking your fingers.'
+	'Then you turn around, bend over, and grab your ass with both hands.'
+	'You pull your ass cheeks apart, giving him a great view of both of your holes.'
+	moodTypeRand += 1
+	gs 'arousal', 'foreplay', 5, 'prostitution'
 	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+	act 'Continue':gt 'city_saunawhore', 'blowjob'
 end
 
-if $ARGS[0] = 'cumAnal':
-	if useCondom = 1:
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondomanal.jpg"></center>'
-		'The client''s cock twitches several more times as he cums into the condom inside of your ass.'
-		'He strips the condom from his dick, and you see that it has <<$cumType>> cum in it.'
-		moodTypeRand += rand (-2, 2)
-		if $moodType = 'bad':
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondompourface.jpg"></center>'
-			'Suddenly he grabs your head and pours the contents all over your face.'
-			gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
-			gs 'cum_call', 'face', 'sauna client', 0, 0, 0, cumVolMl
-		elseif $moodType = 'fairly normal':
-			'He throws it away on the floor, not caring about spilling the fluids around.'
-			gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
-		elseif $moodType = 'good':
-			'He throws it in the waste bin and gently caresses your hair afterwards.'
-			gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
+if $ARGS[0] = 'blowjob':
+	minut += 5
+	
+	if $moodType = 'fairly normal':
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
+		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
+		'He pulls out his <<$dick_girth>> dick and brings it to your <<$liptalk>>.'
+		'You start kissing the tip, licking it all around and putting it a bit inside your mouth and sucking the head.'
+		gs 'arousal', 'bj', 5, 'prostitution'
+		gs 'stat'
+
+		act 'Suck it':gt 'city_saunawhore', 'blowjobGate'
+	elseif $moodType = 'good':
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
+		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
+		'He comes close to you, fondles your hair and face and takes you gently by your arm, raising you up from the floor.'
+		'He directs you to the bed, undresses and both of you lie down.'
+
+		act 'Embrace him':gt 'city_saunawhore', 'fuckGate'
+	elseif $moodType = 'bad':
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/slapface'+rand(1, 1)+'.mp4"></video></center>'
+		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands.'
+		'He comes close to you and suddenly slaps your face hard.'
+		'You are caught by surprise and tears well up in your eyes.'
+		'He seems very angry and even aroused by your misfortune.'
+		'As you kneel in front of him in tears, he grabs you roughly by your arms, painfully twisting them behind your back, and slams you down on the bed.'
+		gs 'pain', 1, 'cheeks', 'slap'
+		if slutty < 10:
+			Mana -= 50
+		else
+			Mana -= 10
 		end
-	else
-		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumanal'+rand(1, 5)+'.mp4"></video></center>'
-		'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your gut.'
-		if rand(1,100) >= 70:gs 'dinSex', 'std_trigger'
-		gs 'cum_call', 'anus', 'sauna client', 0, 0, 0, cumVolMl
+
+		gs 'pain', 2, 'armL', 'twist'
+		gs 'pain', 2, 'armR', 'twist'
+		act 'Brace yourself':gt 'city_saunawhore', 'fuckRoughGate'
 	end
 	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'clientLeave'
 end
 
-if $ARGS[0] = 'cumFace':
-	facial += 1
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumface'+rand(1, 5)+'.mp4"></video></center>'
-	if useCondom = 1:
-		'The client strips the condom from his dick and blows <<$cumType>> cum all over your face.'
+if $ARGS[0] = 'blowjobGate':
+	'You begin to suck his cock in earnest, bobbing your head back and forth while you work it, running your tongue along the underside of his shaft.'
+	'He is rock hard now and you can see his <<$dick_girth>> <<dick>>cm member in all its glory.'
+	'Client seems to be so far content with your performance, but you think it may be time to switch to efficient approach:'
+	gs 'arousal', 'bj', 5, 'prostitution'
+	gs 'stat'
+	if dick > pcs_throat:
+		'There''s no way you''ll be able to fit the entire thing in your mouth.'
+		act 'Try to deepthroat him':gt 'city_saunawhore', 'blowjobCaress'
 	else
-		'The client finishes himself off and blows <<$cumType>> cum all over your face.'
+		act 'Deepthroat him':gt 'city_saunawhore', 'blowjobDeepthroat'
 	end
-	gs 'cum_call', 'face', 0, 0, 0, cumVolMl
-	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'clientLeave'
 end
 
-if $ARGS[0] = 'cumMouth':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cummouth'+rand(1, 5)+'.mp4"></video></center>'
-	if useCondom = 1:
-		'The client strips the condom from his dick and shoots <<$cumType>> cum inside your mouth.'
-	else
-		'The client stuffs his dick back inside your mouth, and as you suck it, he shoots <<$cumType>> cum inside your mouth.'
-	end
-	if rand(1,100) >= 70:gs 'dinSex', 'std_trigger_oral'
-	gs 'cum_call', 'mouth_swallow', 0, 0, 0, cumVolMl
+if $ARGS[0] = 'blowjobCaress':
+	'You try to deepthroat him, but his <<$dick_girth>> cock is just too big for you to handle, and you end up gagging yourself and coughing.'
+	gs 'arousal', 'bj', 5, 'prostitution', 'deepthroat'
+	''
+	moodChange = rand (-2, 0)
+	moodTypeRand += moodChange
+
+	if $moodType = 'good':
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
+		'He seems to enjoy your efforts anyway, and signals to you that he''s ready to move on to the next stage.'
+		act 'Continue':gt 'city_saunawhore', 'fuckGate'
+	elseif $moodType = 'fairly normal':
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
+		'He seem to have enough of this. He takes your hand and directs you towards the bed.'
+		act 'Continue':gt 'city_saunawhore', 'fuckGate'
+	elseif $moodType = 'bad':
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/slapface'+rand(1, 1)+'.mp4"></video></center>'
+		'He scowls at your pathetic attempt and pulls his cock out of your mouth.'
+		question = rand (1, 3)
+		if question = 1:
+			'He slaps your face hard and shouts: "What the hell is wrong with you? What kind of a whore is this bad at sucking cock?"'
+		elseif question = 2:
+			'He slaps your face hard and shouts: "My cock isn''t tasty enough for you to suck on properly, bitch?"'
+		elseif question = 3:
+			'He slaps your face hard and shouts: "Christ, what kind of a good-for-nothing whore are you?"'
+		end
+		gs 'pain', 1, 'cheeks', 'slap'
+		'Furious, he grabs you roughly by your arms, painfully twisting them behind your back, and slams you down on the bed.'
+		act 'Continue':gt 'city_saunawhore', 'fuckRoughGate'
+	end
 	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'clientLeave'
 end
 
-if $ARGS[0] = 'cumBelly':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumbelly'+rand(1, 5)+'.mp4"></video></center>'
-	if useCondom = 1:
-		'The client strips the condom from his dick and shoots <<$cumType>> cum all over your belly.'
-	else
-		'The client finishes himself off and shoots <<$cumType>> cum all over your belly.'
+if $ARGS[0] = 'blowjobDeepthroat':
+	moodChange += rand (-1, 2)
+	moodTypeRand += moodChange
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/deepthroat'+rand(1, 5)+'.mp4"></video></center>'
+	'The client groans as you take him all the way to the hilt - his <<$dick_girth>> <<dick>>cm member is buried all the way inside your throat.'
+	'You try to hold it as long as possible, while teasing his balls with your tongue, your nose pressed against his pubic area.'
+	if $moodType = 'bad':
+		'He gets a sadistic look in his eye, and then grabs the back of your head and holds you down, not letting you escape.'
+		'You feel yourself beginning to suffocate and panic, trying to get away from him, but he is much stronger than you and holds you tightly in place. Your eyes begin to roll back and you feel your conciousness fading when he finally releases you. You hack and sputter, thick strands of saliva hanging from his cock to your mouth. He seems to have enjoyed that quite a bit.'
 	end
-	gs 'cum_call', 'stomach', 0, 0, 0, cumVolMl
+	gs 'arousal', 'bj', 5, 'prostitution', 'deepthroat'
+	'Finally he seems to have had enough of oral sex and signals you that he wants some more.'
 	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+	act 'Continue':gt 'city_saunawhore', 'fuckGate'
 end
 
-if $ARGS[0] = 'cumTits':
-	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumtits'+rand(1, 5)+'.mp4"></video></center>'
-	'You kneel down in front of him, raising your breasts higher for him to shoot his cum on them.'
-	if useCondom = 1:
-		'The client strips the condom from his dick and shoots <<$cumType>> cum all over your tits.'
+if $ARGS[0] = 'fuckGate':
+	minut += 2
+	noCondChance = rand(1, 100)
+	if noCondChance < 40:
+		'He leers at you lustfully and asks, "So baby, how much for not using a condom?"'
+		'When you hesitate, he adds, "C''mon, I''ll pay you double."'
+		act 'Let him fuck you without a condom':gt 'city_saunawhore', 'fuckGateCondomNo'
+		act 'Insist on using a condom':gt 'city_saunawhore', 'fuckGateCondomYes'
 	else
-		'The client finishes himself off and shoots <<$cumType>> cum all over your tits.'
+		gs 'city_saunawhore', 'fuckGateCondomYes'
 	end
-	gs 'cum_call', 'breasts', 0, 0, 0, cumVolMl
 	gs 'stat'
-	act 'Continue':gt 'city_saunawhore', 'clientLeave'
 end
 
-if $ARGS[0] = 'bdsmclient':
-	cla
-	*clr
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm1.jpg"></center>'
-	'You''re brought into one the private sauna rooms where they tell you that today you''ll be performing a different task than your regular routine.'
-	'As you stand in the sauna looking around you see some ropes hanging by a bench. Your body tenses as you come to the realization that the ropes are there for you.'
-	'"Don''t worry <<$pcs_nickname>>. This client is only somewhat kinky he won''t hurt you." they assure you as they make you sit on the bench and tie you up.'
-	'"Just one last thing." they say as they put a paper bag over your head. They leave the room as you sit there in silence.'
-	act 'Sit and wait':
-		cla
-		*clr
-		gs 'pain', 2, 'handL', 'bind'
-		gs 'pain', 2, 'handR', 'bind'
-		minut += 15
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm2.jpg"></center>'
-		'The ropes are chaffing, you''re uncomfortable and it takes a while until you hear someone open the door. You hear some heavy steps come towards you but you can''t see anything because of the bag.'
-		'"Let me help you out girl." you hear a deep voice say as he removes the paper bag from your head, you flinch as you see he''s wearing a mask over his head to keep anonymous.'
-		'The man tells you to relax and that he doesn''t want to fuck you but only to watch you squirm as you''re tied.'
-		act 'Squirm':
-			cla
-			*clr
-			minut += 4
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm3.jpg"></center>'
-			'Not wanting to upset the patron you begin acting as you''re fighting to get loose, grunting and moaning.'
-			'"Good good." the man says as he drops his pants and begins touching his little cock, it''s quite clear why you needn''t have worried about getting fucked by this guy.'
-			'You do this for some time while the man begins touching himself. He''s getting off at having all this control. All of a sudden he stops touching himself and also commands you to stop, he walks over to the door and whispers something to the goons standing outside the door.'
-			act 'Stand up':
-				cla
-				*clr
-				minut += 10
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm4.jpg"></center>'
-				'The goons quickly enter the room, grab hold of you and stand you up. "How do you want her?" they ask.'
-				'The man stands for a moment pondering what to do next, "Tie her up like she is I want to observe her while standing." the voice behind the mask commands.'
-				'The goons are pretty quick and they tie your hands, mid-section and legs so you can''t move. They leave as soon as they''re done while the man begins touching his cock once again.'
-				'"You have a great body girl, has anyone told you that?" he asks as you try to move your body to a comfortable position.'
-				'"That''s right, squirm you little whore. I know you''re uncomfortable. How does it feel having someone else in control of your fate?"'
-				'By now you''re getting worried about what the man is really up to.'
-				act 'On all fours':
-					cla
-					*clr
-					gs 'pain', 2, 'legs', 'bind'
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm5.jpg"></center>'
-					'All of a sudden the man claps his hands and the goons run inside the room again. "I want to see her from behind. And be sure to tie her up nicely, no weak ass shit, like the last time."'
-					'They quickly finish up leaving you at the mercy of the man. "Like I said, you don''t have to worry I won''t fuck you. For me it''s enough to feel in control to get me off."'
-					'You nod as you''re too afraid to what he might be up to. "Now girl. Spread your legs I want to see your beautiful pussy lips."'
-					'You try to spread as much as you can but the ropes are preventing you and as harder you''re trying the more you feel the pain from the ropes. You let desperate cry as he starts grunting.'
-					act 'On your back':
-						cla
-						*clr
-						gs 'pain', 4, 'labia', 'pinch'
-						'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm6.jpg"></center>'
-						'"You little minx do you want me to cum this quickly? No, no, we''re not done yet." He once again calls in the goons and they lay you on the back, spread your legs and tie you so that your pussy is wide open, at the same time they tie your hands above the head.'
-						'"Good job fellas." the man praises them. "Did you bring what I asked for?"'
-						'As he says that you get this bad feeling and your stomach starts churning. <i>"What is he up to now?"</i> you wonder. The goons hand over a brown bag and leave the room.'
-						'The man steps close to you and without saying anything he takes out a number of pins and clips them along each side of your vaginal opening, on the outer labia. The pinching hurts but at the same time it''s making you a bit aroused.'
-						'"Feels great right? I know how to please women." the man confidently says. You answer by a louder moan. That''s enough of an answer for him as he starts tugging at his cock and it doesn''t take long before he cums on the floor. He quickly gets dressed, leaving you laying there still tied up.'
-						gs 'arousal', 'foreplay', 15, 'prostitution', 'bound', 'sub'
-						gs 'stat'
-						act 'Finish':
-							cla
-							*clr
-							basePay = (10 * rand(85,135))
-							payment = (basePay / 2)
-							'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/givemoney.jpg"></center>'
-							if workDolg > 0:
-							    workDolg -= payment
-								'The client leaves the room and pays the sauna <<payment>> <b>₽</b> for your services.'
-								'His goons untie you and have you slowly turn around so the madam can be sure you are unmarked, then leave.'
-							else
-								money += payment
-								'The client counts the money out as his goons untie you. He hands you <<payment>> <b>₽</b> for your services.'
-							end
+if $ARGS[0] = 'fuckGateCondomYes':
+	useCondom = 1
+	moodTypeRand -= 2
+	gs 'city_saunawhore', 'fuckGateGo'
+end
 
-							gs 'arousal', 'end'
-							gs 'stat'
+if $ARGS[0] = 'fuckGateCondomNo':
+	useCondom = 2
+	moodTypeRand += 1
+	gs 'city_saunawhore', 'fuckGateGo'
+end
 
-							act 'Head back to the main area':gt 'city_saunawhore', 'saunawork'
-						end
-					end
-				end
-			end
+if $ARGS[0] = 'fuckGateGo':
+	minut += 2
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/lieonbedboth.jpg"></center>'
+	'You lie back on the bed in front of the client.'
+	'"How do you want me?" you ask him.'
+	if $moodType = 'bad':
+		'"How do I want you whore? I want you screaming!"'
+		forced = 1
+		act 'Continue':gt 'city_saunawhore', 'fuckRoughGate'
+	else
+		forced = 2
+		holeType = rand(1, 2)
+		if holeType = 1:
+			'"I want some pussy."'
+			act 'Spread your legs':gt 'city_saunawhore', 'fuckVaginal'
+		elseif holeType = 2:
+			'"I want to fuck your ass."'
+			act 'Turn around and spread your ass':gt 'city_saunawhore', 'fuckAnal'
 		end
 	end
+	gs 'stat'
 end
 
-if $ARGS[0] = 'clientLeave':
-	basePay = (10 * rand(75,125))
-	if prezik = 0:
-		condomPrice = 100
-	elseif prezik > 0:
-		dynamic $prezik
-		condomPrice = 0
-	end
-	if forced = 2:
-		payment = (basePay * useCondom) - condomPrice
+if $ARGS[0] = 'fuckVaginal':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckvaginal'+rand(1, 5)+'.mp4"></video></center>'
+	'He climbs on top of you and pushes his member inside of you.'
+	if dick > pcs_vag:
+		'His <<$dick_girth>> <<dick>>cm cock is too big for your pussy and causes you intense pain, stretching you past your limit and bringing tears to your eyes. At least he isn''t too rough.'
+		'He thrusts his <<$dick_girth>> <<dick>>cm cock in you over and over, seeming to enjoy the tightness and not caring much about your own pain.'
+		DMG = (dick - pcs_vag) / 2
+		gs 'pain', 1, 'vaginal', 'stretch'
+		pcs_mood -= (DMG * 5)
+		gs 'arousal', 'vaginal', 10, 'prostitution', 'rough'
 	else
-		payment = (basePay / 2) - condomPrice
+		'He thrusts his <<$dick_girth>> <<dick>>cm cock in you over and over, not caring much about technique or your own pleasure.'
+		gs 'arousal', 'vaginal', 10, 'prostitution'
 	end
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/givemoney.jpg"></center>'
-
-	if workDolg > 0:
-		workDolg -= payment
-		'Having finished with you, the client gets dressed, leaves the room, and pays the sauna <<payment>> <b>₽</b> for your services.'
-
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Head back to the main area':gt 'city_saunawhore', 'saunawork'
-	elseif nichTarSauna = 1:
-		nichTarSaunaPay += payment
-		'Having finished with you, the client gets dressed, leaves the room, and pays the sauna <<payment>> <b>₽</b> for your services. This money will be collected by Taras later.'
-		'You earned <<nichTarSaunaPay>> <b>₽</b> for Taras.'
-		gs 'arousal', 'end'
-		gs 'stat'
-		act 'Head back to the main area':gt 'city_saunawhore', 'saunawork'
-	else
-		money += payment
-		'Having finished with you, the client gets dressed, takes his wallet and hands you <<payment>> <b>₽</b>.'
-
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Take the money and see him out':gt 'city_saunawhore', 'saunawork'
+	''
+	'After a while, you can sense that he is almost ready to come.'
+	gs 'stat'
+	if 	useCondom = 2:
+		act 'Ask him not to cum inside of you':
+			not_inside = 1
+			gt 'city_saunawhore', 'cumClientGate'
+		end
+	end
+	act 'Let him cum wherever he wants':
+		not_inside = 2
+		gt 'city_saunawhore', 'cumClientGate'
 	end
 end
 
-!! saunawork start ---------------------------------------------------------------------------------
-
-if $ARGS[0] = 'saunawork':
-	$loc = 'city_saunawhore'
-	$loc_arg = 'saunawork'
-	$locBroom = 'city_saunawhore'
-	$metkaBroom = 'saunawork'
-	$locM = 'city_saunawhore'
-	$locM_arg = 'saunawork'
-	$location_type = 'public_indoors'
-	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 <<$set_imgh>> src="images/locations/city/residential/sauna/sauna1.jpg"></center>'
+if $ARGS[0] = 'fuckAnal':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckanal'+rand(1, 5)+'.mp4"></video></center>'
+	'He climbs on the bed behind you and presses the tip of his dick against your asshole. After waiting a moment, he begins to push it in.'
+	if dick > pcs_ass:
+		'His <<dick>> cm <<$dick_girth>> cock is too big for your ass and causes you intense pain as it stretches you out painfully and presses deep inside of you.'
+		'He thrusts his <<$dick_girth>> <<dick>>cm cock in your ass over and over, seeming to enjoy the tightness and not caring much about your own pain.'
+		DMG = (dick - pcs_ass) / 2
+		gs 'pain', 1, 'asshole', 'stretch'
+		pcs_mood -= (DMG * 5)
+		gs 'arousal', 'anal', 10, 'prostitution', 'rough'
+	else
+		'He thrusts his <<$dick_girth>> <<dick>>cm cock in your ass over and over, not caring much about technique or whether or not you''re enjoying it.'
+		gs 'arousal', 'anal', 10, 'prostitution'
+	end
 	''
-	'The sauna is open between 08:00 and 24:00. Only in that time customers can arrive.'
-	'All the walls are covered in <a href="exec:gt ''mirror'', ''start''">mirrors</a>.'
-
-	if saunaWorkNow = 1:
-		saunaWorkNow = 0
-		money -= paymamka
-		'Nurse cames to you and takes from you <<paymamka>> per customer.'
+	'After a while, you can sense that he is almost ready to come.'
+	gs 'stat'
+	act 'Let him cum wherever he wants':
+		not_inside = 2
+		gt 'city_saunawhore', 'cumClientGate'
 	end
+end
 
-	gs 'city_saunawhore','debtPay'
-	if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
 
+if $ARGS[0] = 'fuckRoughGate':
+	minut += 5
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bedoverpowered.jpg"></center>'
+	'The man is much stronger than you, and you are completely overpowered, entirely at his will.'
+	'He keeps your arms pinned painfully behind your back.'
+	pcs_mood -= 50
+	useCondom = rand(1,2)
+	forced = 1
+	gs 'pain', 2, 'armL', 'twist'
+	gs 'pain', 2, 'armR', 'twist'
+	holeType = rand(1, 2)
+	if holeType = 1 and useCondom = 1:
+		'You feel the tip of his cock against your pussy... at least it feels like he''s using a condom.'
+		act 'Continue':gt 'city_saunawhore', 'fuckRoughVaginal'
+	elseif holeType = 1 and useCondom = 2:
+		'You feel the tip of his cock against your pussy... and it feels like he''s not wearing a condom!'
+		act 'Continue':gt 'city_saunawhore', 'fuckRoughVaginal'
+	elseif holeType = 2:
+		'You feel the tip of his cock pressing against your asshole... this is probably not going to be pleasant.'
+		act 'Continue':gt 'city_saunawhore', 'fuckRoughAnal'
+	end
 	gs 'stat'
+end
 
-	if workDolg <= 0:act 'Leave':gt 'city_sauna'
-
-	act 'Go to your room':gt 'city_sauna', 'saunaroom'
-
-	act 'Use the staff bathroom': minut += 1 & gt 'city_saunawhore', 'bathroom'
-
-	if workDolg > 0 and (pcs_mood <= 10 or SLomka > 0):
-		cls
-		workDolg += 420
-		gs 'stat'
-		'You are beckoned by the nurse. "Hey, come here."'
-		'You go up to her and she demands your bared arm. You present your arm as required and she takes out a syringe filled with drugs. "Sit still, I''ll give you a shot now and it will make you feel like normal again."'
-
-		act 'Leave':
-			gs 'drugs', 'heroin'
-			minut += 10
-			gs 'stat'
-			gt 'city_saunawhore', 'saunawork'
-		end
-		exit
+if $ARGS[0] = 'fuckRoughVaginal':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckroughvaginal'+rand(1, 5)+'.mp4"></video></center>'
+	'He forces his dick inside of you, and begins to fuck your tender pussy furiously.'
+	'You cannot help but scream in pain, which seems to arouse him even more and makes him push even harder and deeper.'
+	if dick > pcs_vag:
+		'His <<$dick_girth>> <<dick>>cm is too big for your pussy and causes you intense pain, stretching you horribly and slamming against your cervix.'
+		DMG = (dick - pcs_vag)
+		gs 'pain', 2, 'vaginal', 'stretch'
+		!gs 'pain', 2, 'cervix', 'pinch'
+		pcs_mood -= (DMG * 5)
 	end
-	if workDolg <= 0 and pcs_mood <= 50 and SaunaWhore > 0 and money >= 420:
-		act 'Ask for some drugs (420 <b>₽</b>)':
-			cls
-			gs 'stat'
-			'You are beckoned by the nurse. "OK, come here."'
-			'You go up to her and she asks for your bared arm. You present your arm and she takes out a syringe filled with drugs. "Sit still, I''ll give you a shot now and it will make you feel like normal again."'
-
-			act 'Leave':
-				gs 'drugs', 'heroin'
-				minut += 10
-				money -= 420
-				gt 'city_saunawhore', 'saunawork'
-			end
-			exit
+	gs 'arousal', 'vaginal', 10, 'prostitution', 'rough', 'bound'
+	''
+	'After seemingly endless fucking, you can finally sense that he is almost ready to come.'
+	gs 'stat'
+	if 	useCondom = 2:
+		act 'Beg him not to cum inside of you':
+			not_inside = 1
+			gt 'city_saunawhore', 'cumClientGate'
 		end
 	end
+	act 'Let him cum wherever he wants':
+		not_inside = 2
+		gt 'city_saunawhore', 'cumClientGate'
+	end
+end
 
-	if cumcondslip > 0 and cumcondslip_aware > 0:
-		act 'Ask to see a doctor':
-			cla
-			*clr
-			minut += 25
-			'You explain how you feel nauseous and have pain in your pubic area.'
-			'The nurse checks you over and eventually comes to a conclusion.'
-			'"I think it might be toxic shock, we''ll have to get you sorted out. Wait here I''ll call the doctor."'
-			act 'Some time later':
-				cla
-				minut += 15
-				gs 'cum_cleanup', 'cleanloc', 17
-				cumcondslip = 0
-				gs 'stat'
-				'When he arrives the doctor quickly examines you, and establishes that you are suffering from toxic shock from a spent condom in your body.'
-				'"I removed it as soon as I found it. If you were feeling sick, it should slowly subside."'
-				'You reflexively thank the Doctor even though he''s visiting you in this place.'
+if $ARGS[0] = 'fuckRoughAnal':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckroughanal'+rand(1, 5)+'.mp4"></video></center>'
+	'He roughly shoves his entire cock up your ass, and begins to fuck it furiously.'
+	'You cannot help but scream in agony, which arouses him even more and makes him push even harder and deeper.'
+	if dick > pcs_ass:
+		'His <<$dick_girth>> <<dick>>cm is too big for your ass and causes you intense pain, stretching you out and making it feel like you''re being ripped open.'
+		DMG = (dick - pcs_ass)
+		gs 'pain', 2, 'asshole', 'stretch'
+		pcs_mood -= (DMG * 5)
+	end
+	not_inside = 2
+	gs 'arousal', 'anal', 10, 'prostitution', 'rough', 'bound'
+	''
+	'After seemingly endless assfucking, you can finally sense that he is almost ready to come.'
+	gs 'stat'
+	act 'Let him cum wherever he wants':gt 'city_saunawhore', 'cumClientGate'
+end
 
-				act 'Return':gt 'city_saunawhore', 'saunawork'
+if $ARGS[0] = 'cumClientGate':
+	if $moodType = 'bad':
+		if not_inside = 2:
+			cumRand = rand(1, 10)
+			if cumRand <= 9 and holeType = 1:
+				'You feel his cock twitch and realize he is about to cum inside of you.'
+				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
+			elseif cumRand <= 9 and holeType = 2:
+				'You feel his cock twitch and realize he is about to cum in your ass.'
+				act 'Continue':gt 'city_saunawhore', 'cumAnal'
+			else
+				'He pulls out and brings his cock up in front of your face.'
+				act 'Continue':gt 'city_saunawhore', 'cumFace'
+			end
+		else
+			cumRand = rand(1, 2)
+			if cumRand = 1 and holeType = 1:
+				'He just laughs and you realize he is going to cum inside of you anyway.'
+				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
+			elseif cumRand = 2:
+				'He smirks and says "Fine, how about in your eyes then, whore?"'
+				gs 'pain', 1, 'eyes', 'burn'
+				act 'Continue':gt 'city_saunawhore', 'cumFace'
+			end
+		end
+	else
+		if not_inside = 2:
+			cumRand = rand(1, 5)
+			if cumRand = 1 and holeType = 1:
+				'You feel his cock twitch and realize he is about to cum inside of you.'
+				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
+			elseif cumRand = 1 and holeType = 2:
+				'You feel his cock twitch and realize he is about to cum in your ass.'
+				act 'Continue':gt 'city_saunawhore', 'cumAnal'
+			elseif cumRand = 2:
+				'He pulls out and brings his cock up in front of your face.'
+				act 'Continue':gt 'city_saunawhore', 'cumFace'
+			elseif cumRand = 3:
+				'He pulls out and brings his cock up in front of your face.'
+				act 'Continue':gt 'city_saunawhore', 'cumMouth'
+			elseif cumRand = 4:
+				'He pulls out and holds his cock over your body.'
+				act 'Continue':gt 'city_saunawhore', 'cumBelly'
+			elseif cumRand = 5:
+				'He pulls out and holds his cock over your body.'
+				act 'Continue':gt 'city_saunawhore', 'cumTits'
+			end
+		else
+			cumRand = rand(1, 9)
+			if cumRand <= 2:
+				'He nods, pulls out, and brings his cock up in front of your face.'
+				act 'Continue':gt 'city_saunawhore', 'cumFace'
+			elseif cumRand <= 4:
+				'He nods, pulls out, and brings his cock up in front of your face.'
+				act 'Continue':gt 'city_saunawhore', 'cumMouth'
+			elseif cumRand <= 6:
+				'He nods, pulls out, and holds his cock over your body.'
+				act 'Continue':gt 'city_saunawhore', 'cumBelly'
+			elseif cumRand <= 8:
+				'He nods, pulls out, and holds his cock over your body.'
+				act 'Continue':gt 'city_saunawhore', 'cumTits'
+			else
+				'He shakes his head and says "Sorry, I can''t stop now!" and you realize he''s going to cum in you anyway!'
+				act 'Continue':gt 'city_saunawhore', 'cumVaginal'
 			end
 		end
 	end
+end
 
-	if hour >= 8:
-		act 'Sit on the couch (1:00)':
-			if pcs_makeup > 1 and pcs_hairbsh = 1 and pcs_sweat < 26 and pcs_leghair <= 3 and pcs_pubes <= 3:
-				cls
-				minut += 60
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunawork.jpg"></center>'
-				'You spend an hour sitting on the couch waiting for customers.'
-
-				saunaWorkKlient = 0
-
-				if hour >= 21:
-					if rand(0, 100) >= 10:saunaWorkKlient = 1
-				elseif hour >= 16:
-					if rand(0, 100) >= 20:saunaWorkKlient = 1
-				elseif hour >= 12:
-					if rand(0, 100) >= 40:saunaWorkKlient = 1
-				elseif hour >= 8:
-					if rand(0, 100) >= 80:saunaWorkKlient = 1
-				else
-					if rand(0, 100) >= 40:saunaWorkKlient = 1
-				end
-
-				if saunaWorkKlient = 1:
-					cls
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunawhore.jpg"></center>'
-					'A client has arrived at the sauna, and the girls line up so that the customer can choose his favorite.'
+if $ARGS[0] = 'cumVaginal':
+	minut += 5
+	if useCondom = 1:
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondomvaginal.jpg"></center>'
+		'The client''s cock twitches several more times as he cums into the condom inside of you.'
+		'He strips the condom from his dick, and you see that it has <<$cumType>> cum in it.'
+		moodTypeRand += rand (-2, 2)
+		if $moodType = 'bad':
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondompourface.jpg"></center>'
+			'Suddenly he grabs your head and pours the contents all over your face.'
+			gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
+			gs 'cum_call', 'face', 'sauna client', 0, 0, 0, cumVolMl
+		elseif $moodType = 'fairly normal':
+			'He throws it away on the floor, not caring about spilling the fluids around.'
+			gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
+		elseif $moodType = 'good':
+			'He throws it in the waste bin and gently caresses your hair afterwards.'
+			gs 'cum_call', '', 'sauna client', 0, 3, 0, cumVolMl
+		end
+	else
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumvaginal'+rand(1, 5)+'.mp4"></video></center>'
+		'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your pussy.'
+		gs 'cum_call', '', 'sauna client', 0, 0, 0, cumVolMl
+		if rand(1,100) >= 70:gs 'dinSex', 'std_trigger'
+	end
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+end
 
-					if rand(0, 120) < pcs_apprnc:
-						'Client jabs a finger at you, "This one."'
-						act 'Go to the sauna with client':
-							saunaWorkKlient = 1
-							guy += 1
-							slutty += 1
-							SaunaWhore += 1
-							gt 'city_saunawhore', 'clientGate'
-						end
-					else
-						'The client examines you closely but turns away to chose another girl.'
+if $ARGS[0] = 'cumAnal':
+	if useCondom = 1:
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondomanal.jpg"></center>'
+		'The client''s cock twitches several more times as he cums into the condom inside of your ass.'
+		'He strips the condom from his dick, and you see that it has <<$cumType>> cum in it.'
+		moodTypeRand += rand (-2, 2)
+		if $moodType = 'bad':
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/cumcondompourface.jpg"></center>'
+			'Suddenly he grabs your head and pours the contents all over your face.'
+			gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
+			gs 'cum_call', 'face', 'sauna client', 0, 0, 0, cumVolMl
+		elseif $moodType = 'fairly normal':
+			'He throws it away on the floor, not caring about spilling the fluids around.'
+			gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
+		elseif $moodType = 'good':
+			'He throws it in the waste bin and gently caresses your hair afterwards.'
+			gs 'cum_call', 'anus', 'sauna client', 0, 3, 0, cumVolMl
+		end
+	else
+		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumanal'+rand(1, 5)+'.mp4"></video></center>'
+		'The client''s cock twitches several more times, and you feel a warmth spreading inside of you as he pumps <<$cumType>> cum deep inside your gut.'
+		if rand(1,100) >= 70:gs 'dinSex', 'std_trigger'
+		gs 'cum_call', 'anus', 'sauna client', 0, 0, 0, cumVolMl
+	end
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+end
 
-						act 'Continue':gt 'city_saunawhore', 'saunawork'
-					end
-				else
-					'The client chooses another girl and she leads him to one of the back rooms.'
+if $ARGS[0] = 'cumFace':
+	facial += 1
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumface'+rand(1, 5)+'.mp4"></video></center>'
+	if useCondom = 1:
+		'The client strips the condom from his dick and blows <<$cumType>> cum all over your face.'
+	else
+		'The client finishes himself off and blows <<$cumType>> cum all over your face.'
+	end
+	gs 'cum_call', 'face', 0, 0, 0, cumVolMl
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+end
 
-					act 'Continue':gt 'city_saunawhore', 'saunawork'
-				end
-			else
-				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 'Leave':gt 'city_saunawhore', 'saunawork'
-			end
-		end
+if $ARGS[0] = 'cumMouth':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cummouth'+rand(1, 5)+'.mp4"></video></center>'
+	if useCondom = 1:
+		'The client strips the condom from his dick and shoots <<$cumType>> cum inside your mouth.'
+	else
+		'The client stuffs his dick back inside your mouth, and as you suck it, he shoots <<$cumType>> cum inside your mouth.'
 	end
+	if rand(1,100) >= 70:gs 'dinSex', 'std_trigger_oral'
+	gs 'cum_call', 'mouth_swallow', 0, 0, 0, cumVolMl
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+end
 
-	if clenerSauna ! daystart:
-		act 'Clean toilets (1:00)':
-			cla
-			*clr
-			minut += 60
-			clenerSauna = daystart
-			pcs_mood -= 25
-			gs 'sweat', 'add', 30
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener2.jpg"></center>'
-			if workDolg > 0:
-				'You scrub the sauna toilets for an hour until they shine and reducing your debt by 100 <b>₽</b>.'
-				workDolg -= 100
-			else
-				'You scrub the sauna toilets for an hour until they shine. You get payed 100 <b>₽</b> for your hard work.'
-				money += 100
-			end
+if $ARGS[0] = 'cumBelly':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumbelly'+rand(1, 5)+'.mp4"></video></center>'
+	if useCondom = 1:
+		'The client strips the condom from his dick and shoots <<$cumType>> cum all over your belly.'
+	else
+		'The client finishes himself off and shoots <<$cumType>> cum all over your belly.'
+	end
+	gs 'cum_call', 'stomach', 0, 0, 0, cumVolMl
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+end
 
-			act 'Leave':gt 'city_saunawhore', 'saunawork'
-		end
+if $ARGS[0] = 'cumTits':
+	'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumtits'+rand(1, 5)+'.mp4"></video></center>'
+	'You kneel down in front of him, raising your breasts higher for him to shoot his cum on them.'
+	if useCondom = 1:
+		'The client strips the condom from his dick and shoots <<$cumType>> cum all over your tits.'
+	else
+		'The client finishes himself off and shoots <<$cumType>> cum all over your tits.'
 	end
+	gs 'cum_call', 'breasts', 0, 0, 0, cumVolMl
+	gs 'stat'
+	act 'Continue':gt 'city_saunawhore', 'clientLeave'
+end
 
-	if clenerSauna2 ! daystart:
-		act 'Scrub floors (1:00)':
+if $ARGS[0] = 'bdsmclient':
+	cla
+	*clr
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm1.jpg"></center>'
+	'You''re brought into one the private sauna rooms where they tell you that today you''ll be performing a different task than your regular routine.'
+	'As you stand in the sauna looking around you see some ropes hanging by a bench. Your body tenses as you come to the realization that the ropes are there for you.'
+	'"Don''t worry <<$pcs_nickname>>. This client is only somewhat kinky he won''t hurt you." they assure you as they make you sit on the bench and tie you up.'
+	'"Just one last thing." they say as they put a paper bag over your head. They leave the room as you sit there in silence.'
+	act 'Sit and wait':
+		cla
+		*clr
+		gs 'pain', 2, 'handL', 'bind'
+		gs 'pain', 2, 'handR', 'bind'
+		minut += 15
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm2.jpg"></center>'
+		'The ropes are chaffing, you''re uncomfortable and it takes a while until you hear someone open the door. You hear some heavy steps come towards you but you can''t see anything because of the bag.'
+		'"Let me help you out girl." you hear a deep voice say as he removes the paper bag from your head, you flinch as you see he''s wearing a mask over his head to keep anonymous.'
+		'The man tells you to relax and that he doesn''t want to fuck you but only to watch you squirm as you''re tied.'
+		act 'Squirm':
 			cla
 			*clr
-			minut += 60
-			clenerSauna2 = daystart
-			pcs_mood -= 25
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
-			if workDolg > 0:
-				'You spend an hour mopping and scrubbing all the floors and reducing your debt by 100 <b>₽</b>.'
-				workDolg -= 100
-			else
-				'You spend an hour mopping and scrubbing all the floors. You get payed 100 <b>₽</b> for your hard work.'
-				money += 100
-			end
-
-			gs 'sweat', 'add', 30
+			minut += 4
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm3.jpg"></center>'
+			'Not wanting to upset the patron you begin acting as you''re fighting to get loose, grunting and moaning.'
+			'"Good good." the man says as he drops his pants and begins touching his little cock, it''s quite clear why you needn''t have worried about getting fucked by this guy.'
+			'You do this for some time while the man begins touching himself. He''s getting off at having all this control. All of a sudden he stops touching himself and also commands you to stop, he walks over to the door and whispers something to the goons standing outside the door.'
+			act 'Stand up':
+				cla
+				*clr
+				minut += 10
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm4.jpg"></center>'
+				'The goons quickly enter the room, grab hold of you and stand you up. "How do you want her?" they ask.'
+				'The man stands for a moment pondering what to do next, "Tie her up like she is I want to observe her while standing." the voice behind the mask commands.'
+				'The goons are pretty quick and they tie your hands, mid-section and legs so you can''t move. They leave as soon as they''re done while the man begins touching his cock once again.'
+				'"You have a great body girl, has anyone told you that?" he asks as you try to move your body to a comfortable position.'
+				'"That''s right, squirm you little whore. I know you''re uncomfortable. How does it feel having someone else in control of your fate?"'
+				'By now you''re getting worried about what the man is really up to.'
+				act 'On all fours':
+					cla
+					*clr
+					gs 'pain', 2, 'legs', 'bind'
+					minut += 10
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm5.jpg"></center>'
+					'All of a sudden the man claps his hands and the goons run inside the room again. "I want to see her from behind. And be sure to tie her up nicely, no weak ass shit, like the last time."'
+					'They quickly finish up leaving you at the mercy of the man. "Like I said, you don''t have to worry I won''t fuck you. For me it''s enough to feel in control to get me off."'
+					'You nod as you''re too afraid to what he might be up to. "Now girl. Spread your legs I want to see your beautiful pussy lips."'
+					'You try to spread as much as you can but the ropes are preventing you and as harder you''re trying the more you feel the pain from the ropes. You let desperate cry as he starts grunting.'
+					act 'On your back':
+						cla
+						*clr
+						gs 'pain', 4, 'labia', 'pinch'
+						'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sex/bdsm6.jpg"></center>'
+						'"You little minx do you want me to cum this quickly? No, no, we''re not done yet." He once again calls in the goons and they lay you on the back, spread your legs and tie you so that your pussy is wide open, at the same time they tie your hands above the head.'
+						'"Good job fellas." the man praises them. "Did you bring what I asked for?"'
+						'As he says that you get this bad feeling and your stomach starts churning. <i>"What is he up to now?"</i> you wonder. The goons hand over a brown bag and leave the room.'
+						'The man steps close to you and without saying anything he takes out a number of pins and clips them along each side of your vaginal opening, on the outer labia. The pinching hurts but at the same time it''s making you a bit aroused.'
+						'"Feels great right? I know how to please women." the man confidently says. You answer by a louder moan. That''s enough of an answer for him as he starts tugging at his cock and it doesn''t take long before he cums on the floor. He quickly gets dressed, leaving you laying there still tied up.'
+						gs 'arousal', 'foreplay', 15, 'prostitution', 'bound', 'sub'
+						gs 'stat'
+						act 'Finish':
+							cla
+							*clr
+							basePay = (10 * rand(85,135))
+							payment = (basePay / 2)
+							'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/givemoney.jpg"></center>'
+							if workDolg > 0:
+							    workDolg -= payment
+								'The client leaves the room and pays the sauna <<payment>> <b>₽</b> for your services.'
+								'His goons untie you and have you slowly turn around so the madam can be sure you are unmarked, then leave.'
+							else
+								money += payment
+								'The client counts the money out as his goons untie you. He hands you <<payment>> <b>₽</b> for your services.'
+							end
 
+							gs 'arousal', 'end'
+							gs 'stat'
 
-			act 'Leave':gt 'city_saunawhore', 'saunawork'
+							act 'Head back to the main area':gt 'city_saunawhore', 'saunawork'
+						end
+					end
+				end
+			end
 		end
 	end
+end
 
-	if npc_QW['A113'] = 1 and workDolg <= 0 and belgangPay <= 0:
-		cla & *clr
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
-		'As you enter the sauna you see a familiar face. It''s Vadim Bely standing there with his brother. "Good news little whore, you''ve finally paid off your debt. You''re free to do whatever you want now."'
-		'You look at him with hate-filled eyes, "Do you know what you put me through here? You''re the most despicable man I''ve ever met in my life."'
-		'Vadim starts laughing loudly, "Choose you words carefully girl. I''m still in control of your future, maybe you haven''t payed off your debt yet?"'
-		'Not wanting to escalate the situation, you look down on the floor, "I''m sorry. I should know my place."'
-		'"Good girl, now that you''re free wanna go party with us to celebrate your freedom?"'
-		act 'No, thanks':
-			cla & *clr
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
-			'"No, I''m sorry but I just want to go home... Maybe some other time."'
-			'Vadim looks at you with a serious look, "You''re lucky I''m in a good mood today. I''ll let it slide this time." he says laughing.'
-			'You quickly gather your stuff before he has a change of heart and step outside the sauna.'
-			npc_QW['A113'] = 2
-
-			act 'Leave':gt 'city_residential'
-		end
+if $ARGS[0] = 'clientLeave':
+	basePay = (10 * rand(75,125))
+	if prezik = 0:
+		condomPrice = 100
+	elseif prezik > 0:
+		dynamic $prezik
+		condomPrice = 0
 	end
-end
+	if forced = 2:
+		payment = (basePay * useCondom) - condomPrice
+	else
+		payment = (basePay / 2) - condomPrice
+	end
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/givemoney.jpg"></center>'
 
-if $ARGS[0] = 'bathroom':
-	$loc = 'city_saunawhore'
-	$loc_arg = 'bathroom'
-	$locM = 'city_saunawhore'
-	$locM_arg = 'bathroom'
-	$location_type = 'bathroom'
+	if workDolg > 0:
+		workDolg -= payment
+		'Having finished with you, the client gets dressed, leaves the room, and pays the sauna <<payment>> <b>₽</b> for your services.'
 
-	*clr & cla
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
-	''
-	'You enter the staff bathroom, which is usually cleaned by the girls that have only just started work here, voluntary or otherwise.'
-	'There is a <a href="exec:gt ''mirror'', ''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair, a shower, toilet, and basin.'
+		gs 'arousal', 'end'
+		gs 'stat'
 
-	act 'Return to foyer': minut += 1 & gt 'city_saunawhore', 'saunawork'
+		act 'Head back to the main area':gt 'city_saunawhore', 'saunawork'
+	elseif nichTarSauna = 1:
+		nichTarSaunaPay += payment
+		'Having finished with you, the client gets dressed, leaves the room, and pays the sauna <<payment>> <b>₽</b> for your services. This money will be collected by Taras later.'
+		'You earned <<nichTarSaunaPay>> <b>₽</b> for Taras.'
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Head back to the main area':gt 'city_saunawhore', 'saunawork'
+	else
+		money += payment
+		'Having finished with you, the client gets dressed, takes his wallet and hands you <<payment>> <b>₽</b>.'
 
-	act 'Take a shower (0:15)':
-		cls
-		minut += 15
+		gs 'arousal', 'end'
 		gs 'stat'
-		dynamic $showerdin
-		'<center><h3>Staff Bathroom</h3></center>'
-		'<center><img <<$set_imgh>> src="images/locations/shared/brothel/brothelshower.jpg"></center>'
-		''
-		'After taking off all of your clothes, you gather up your towel, washcloth and soap, then head to the shower. You wash yourself thoroughly to be as clean as possible for potential customers.'
-		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
-		if workDolg > 0:
-			if stanok <= 0: stanok = 5
-			dynamic $brit
-		elseif workDolg = 0 and stanok > 0:
-			dynamic $brit
-		end
-		dynamic $dryOff
-	end
 
-	if workDolg > 0 and stanok > 0:
-		*nl
-		'You have a handful of cheap razors you can use, enough for <<stanok>> shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
-		dynamic $brit
-	elseif workDolg > 0 and stanok = 0:
-		*nl
-		'You have <<stanok>> razors left. You should go to your room and ask for more razors.'
-	elseif workDolg <= 0 and stanok > 0:
-		*nl
-		'Your current pack of razors will last for <b><<stanok>></b> more shaves. <a href="exec:gs ''din_van'', ''shave_options''">Shave Options</a>'
-		dynamic $brit
-	elseif workDolg = 0 and stanok = 0:
-		*nl
-		'You have <<stanok>> razors left. You should to go to the store and buy more razors.'
-	end
-	gs 'din_van', 'prvt_pee'
-	dynamic $enema
-	dynamic $tampon
-	dynamic $quickwash
-	dynamic $bteeth
-	dynamic $basin
-	if breastpump > 0 and bp_unbox >= 1:
-		act 'Use breast pump' :gt 'lact_bp', 'bp_milking'
+		act 'Take the money and see him out':gt 'city_saunawhore', 'saunawork'
 	end
 end
 
-if $ARGS[0] = 'debtPay':
-	if money > workDolg:
-		money -= workDolg
-		workDolg = 0
-	elseif workDolg > money:
-		workDolg -= money
-		money = 0
-	end
-end
 
 --- city_saunawhore ---------------------------------