glife/locations/stwork

# stwork
if $ARGS[0] = 'start':

	$sexloc = $CURLOC
	$metkaM = $ARGS[0]
	$locM = $CURLOC
    $location_type = 'private'
	clr
	minut += 5
	stripMir = 1
	gs 'stat'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end
	'<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
	'<center><img src="images/locations/city/citycenter/stripclub/striprazd.jpg"></center>'
	'The walls are lined with <a href="exec:gt ''mirror'', ''start''">mirrors</a>. There are steps leading to the <a href="exec:gt ''stwork'', ''stripgirl''">stage</a> where you and the girls perform.'
	'To the side is a <a href="exec:stripMir = 0 & gt ''stripclub'', ''start''">steel door</a> which overlooks the back yard and all the staff use as an entrance, to save them going through the front door. By this entrance is always a <a href="exec:gt ''stwork'', ''guard''">guard</a>.'
	'Behind a wooden door is the <a href="exec:gt ''stwork'', ''toilet''">staff toilets</a>.'
	if tatplech > 0:stripKoef = rand(1, 3)
	if tatback > 0:stripKoef2 = rand(1, 3)
	if tatback > 0:stripKoef3 = rand(1, 3)
	if tatupb > 0:stripKoef4 = rand(3, 6)
	if tatleg > 0:stripKoef5 = rand(1, 3)

	publichot = pcs_apprnc/4 - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
	publichotstart = publichot

	if hour >= 15 or hour <= 2:
		if spdirtyn <= 0 and spdirtyv <= 0:
			if pcs_makeup >= 4:
				if pcs_hairbsh = 1:
					if pcs_sweat < 20:
						if pcs_leghair <= 3 and pcs_pubes <= 3:
							if fingal <= 0:
								act 'Go on stage':stpredmet = 3 & gt 'stwork2'
							else
								'With such a black eye as you have, you aren''t allowed on stage.'
							end
						else
							'There is nothing more terrible than a stripper with hairy legs or pubis, have a shave before you can work.'
						end
					else
						'Damn, you stink like a horse, have a wash first.'
					end
				else
					'The least you can do is brush your hair.'
				end
			else
				'You need to very thick makeup if you want people to see it in this light.'
			end
		else
			'There is visible semen on your body. Wash yourself off before going on stage.'
		end
	else
		'That''s it for today. Time to go home.'
	end
end

if $ARGS[0] = 'stripgirl':
	cls
	gs 'stat'
	striptalkrand = rand(0, 10)

	if striptalkrand = 0:$striptalk = 'Have you heard? There''s this new girl, all beautiful and everything, but on stage she is a complete zero, can not do anything, all she earned was boos.'
	if striptalkrand = 1:$striptalk = 'I''m telling you, men give birth to girls with tattoos.'
	if striptalkrand = 2:$striptalk = 'Working the pole is much more profitable than just dance striptease, easier to excite the customer, but it''s hard work.'
	if striptalkrand = 3:$striptalk = 'Phew, you really have to leave it all out on the stage, getting back all sweaty, disheveled hair and makeup ruined. The cost in cosmetics is enough to bankrupt you.'
	if striptalkrand = 4:$striptalk = 'You know what, those private dances might be guaranteed money, but the real cash is in the extras.'
	if striptalkrand = 5:$striptalk = 'Remember that ugly girl? Got on stage and immediately the crowd boo, but as soon as she started spinning around the pole, the customers jaws dropped, and she made a fortune in tips.'
	if striptalkrand = 6:$striptalk = 'Why doesn''t the manager ever says if it''s a male or female day? I recently rushed to work, even broke a nail, then I get here and it''s these bears up on stage. Had to turn around and go back.'
	if striptalkrand = 7:$striptalk = 'That cute security guard was telling me about the problems with this job. Half of the strippers end up whores.'
	if striptalkrand = 8:$striptalk = 'There was a fat woman trying to dance on the pole, she fell face first on the floor. I thought she had knocked herself out, you should have seen the bruise.'
	if striptalkrand = 9:$striptalk = 'Recently one joker raised a laugh in the hall. Pretty little thing and dances well, but that''s not how you earn tips here.'
	if striptalkrand = 10:$striptalk = 'I heard about these clubs abroad where the tips are so good, that the strippers pay for the right to work there.'

	'The girls are doing their makeup and hair in the mirror, laughing and gossiping.'
	'<<$striptalk>>'

	act 'Move away':gt 'stwork', 'start'
end

if $ARGS[0] = 'guard':
	cls
	gs 'stat'
	'A bored looking, slab of a guard stands by the door. Seeing you he lazily nods, "Hello <<$pcs_nickname>>."'

	act 'Move away':gt 'stwork', 'start'
end

if $ARGS[0] = 'toilet':
    $location_type = 'bathroom'
	cls
	$gt1 = 'stwork'
	$gt2 = 'toilet'
	gs 'stat'
	'<center><img src="images/locations/shared/bathroom/toilet.jpg"></center>'
	'Dirty and smelly toilet that seems to have never been cleaned'

	dynamic $basin

	act 'Look in the mirror':
		cla
		gt 'portmirror', 'start'
	end

	if pcs_hairbsh = 0:
		act 'Brush your hair': gt 'portmirror', 'brush'
	end

	dynamic $shower
	dynamic $quickwash

	act 'Leave the toilet':gt 'stwork', 'start'
end
--- stwork ---------------------------------