glife/locations/stwork2

# stwork2
!!minut += 15
clr
gs 'stat'
'<center><b><font color="maroon">Stage</font></b></center>'
'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub1.jpg"></center>'

if publichot < 10:$pubhot = 'and boo you, you hear someone shout, "Get rid of this stupid cow."'
if publichot >= 10 and publichot < 20:$pubhot = 'and you boo.'
if publichot >= 20 and publichot < 30:$pubhot = 'clearly bored, drinking and talking among themselves.'
if publichot >= 30 and publichot < 60:$pubhot = 'sometimes looking at you to smile and enjoy the view.'
if publichot >= 60 and publichot < 70:$pubhot = 'watching you with legitimate interest and conversing with each other over their beers.'
if publichot >= 70 and publichot < 80:$pubhot = 'their attention focused on you.'
if publichot >= 80 and publichot < 90:$pubhot = 'with strained faces, sweat beading on their foreheads, their arousal clearly showing.'
if publichot >= 90:$pubhot = 'completely forgoting about their drinking, whoopping and waving money at you.'

'Men sit in front of the stage <<$pubhot>>.'

if hour >= 15 or hour <= 2:
	if stpredmet > 0:
		act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
			cls
			minut += 5
			stpredmet -= 1
			pcs_sweat += 5
			fat -= 3
			pcs_mood -= rand(2, 6)
			dancero_exp += rand(2, 4)
			city_stripping += rand(1,2)

			if stpredmet = 1:pcs_sweat += 5
			if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1

			publichot += rand(pcs_dancero/5, pcs_dancero/3)

			if publichotstart = publichot: publichot -= rand(5, 10) & publichotstart = publichot

			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
			'You dance on stage, undressing in public.'

			if pcs_weight > pcs_hgt - 90:
				vesrand = rand(0, 100)

				if vesrand >= 75:
					publichot -= rand(5, 10)
					'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
				end
			end

			gs 'stwork2', 'tipcalculator'

			act 'further':gt $curloc
		end

		act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
			cls
			minut += 5
			stpredmet -= 1
			pcs_sweat += 5
			fat -= 5
			pcs_mood -= rand(4, 8)
			dancpol_exp += rand(2, 4)
			city_stripping += rand(1,2)
			
			if stpredmet = 1:pcs_hairbsh = 0
			if stpredmet = 0:pcs_makeup = 0 & stripdancesum += 1

			!pcs_hairbsh = 0
			publichot += rand(pcs_dancero / 10, pcs_dancero / 5)+ rand(pcs_dancpol / 5, pcs_dancpol / 2)

			if publichotstart = publichot:publichot -= rand(5, 10) & publichotstart = publichot

			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/strippole.jpg"></center>'
			'You dance around the pole acrobatically and undress sexily in public.'

			if pcs_weight > pcs_hgt - 90:
				vesrand = rand(0, 100)

				if vesrand >= 75:
					'Performing another trick on the pole you can not support your weight and crash to the floor. The crowd laughs, "Hey, hippopotamus, stomp at the swamp where you came from."'
					publichot -= 15
					fingalrand = rand(0, 100)
					if fingalrand >= 75:
						fingal += rand(2, 5)
						'When you fall, you hit the floor really hard and it seems you feel a bruise forming on your face.'
					end
				end
				if vesrand >= 50:
					publichot -= rand(5, 10)
					'In the hall they laugh at you, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
				end
			end

			gs 'stwork2', 'tipcalculator'

			act 'further':gt $curloc
		end
	end

	if stpredmet = 0:
		if publichot >= 70:
			privatrand = rand(0, 100)
			if privatrand >= 70:
				'After the dance, the guard approaches you and tells you that you have a customer for a private dance.'
				gs 'stwork2', 'privatdance'
				exit
			end
		end
	end
else
	'That''s it for tonight. Time to go home.'
end

act 'Quit the stage':gt 'stwork', 'start'


if $ARGS[0] = 'tipcalculator':
	chance = 0
	paymin = 0
	paymax = 0
	
	if publichot < 30:
		'Nobody even noticed you or your efforts on the stage.'
	elseif publichot < 60:
		'A couple of people looked at you but no more than that, you didn''t earn a tip.'
	elseif publichot < 70:
		paymax = 1
		if payrand = 0: 'A couple of people looked at you but no more than that, you didn''t earn a tip.'
	elseif publichot < 80:
		chance = 5
		paymin = 3
		paymax = 10
	elseif publichot < 90:
		chance = 10
		paymin = 10
		paymax = 50
	else
		chance = 15
		paymin = 10
		paymax = 100
	end
	
	payrand = rand(0, chance)
	if payrand = 0:
		'Noone tipped you.'
	else
		paymoneyrand = rand(paymin, paymax)
		money += paymoneyrand * 10
		pcs_mood += rand(1,2)
		'Some guy shoved in your panties, <<paymoneyrand>>0 <b>₽</b>'
	
	end
end

if $ARGS[0] = 'privatdance':
	act 'Go and perform a lap dance':
		cls
		minut += 30
		money += 800
		if pcs_sweat < 30 : pcs_sweat += 10
		pcs_hairbsh = 0
		pcs_makeup = 0
		fat -= 5
		pcs_mood += rand(2,6)
		dancero_exp += rand(2, 4)
		stripdancesum += 1

		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
		'In a smaller side room you play some music and spend half an hour showing off your erotic dancing to the client.'

		stprrand = rand(0,5)
		if stprrand = 0:gt 'stwork2', 'pr1'
		if stprrand = 1:gt 'stwork2', 'pr2'
		if stprrand = 2:gt 'stwork2', 'pr3'

		act 'Go to the locker room':gt 'stwork', 'start'
	end
end

if $ARGS[0] = 'pr1':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr1.jpg"></center>'
	'After a while the 4 guys you are dancing for ask you to service them in full for 5000 <b>₽</b>.'

	act 'Go back to the locker room':gt 'stwork', 'start'

	act 'Agree':
		gang += 1
		guy += 4
		dynamic $clrboy
		i=rand(18,40)
		gs 'npcgeneratec', 0, 'Private dance Client', i
		gs 'boyStat', $npclastgenerated
		$boy[0] = $boy
		gs 'npcgeneratec', 0, 'Friend of Client', i
		$boy[1] = $npclastgenerated
		gs 'npcgeneratec', 0, 'Friend of Client', i
		$boy[2] = $npclastgenerated
		gs 'npcgeneratec', 0, 'Friend of Client', i
		$boy[3] = $npclastgenerated
		picrand = 12
		money += 5000
		gt 'paysex', 'var'
	end
end

if $ARGS[0] = 'pr2':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr2.jpg"></center>'
	'You guy you have been dancing for has had his hands down his pants the whole time, he asks if you can finish him off for 3000 <b>₽</b>.'

	act 'Go back to the locker room':gt 'stwork', 'start'

	act 'Agree':
		guy += 1
		picrand = 39
		money += 3000
		xgt 'sex', 'var'
	end
end

if $ARGS[0] = 'pr3':
	cla
	*clr
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/pr3.jpg"></center>'
	'The group you are dancing for had hired you and another dancer, after your dance she give you an erotic kiss. The clients cheer for more, then offer you 2000 <b>₽</b> each to take it all the way.'

	act 'Go back to the locker room':gt 'stwork', 'start'

	act 'Agree':
		girl += 1
		lesbian += 1
		picrand = 18
		money += 2000
		xgt 'lezbsex', 'var'
	end
end

--- stwork2 ---------------------------------