[changed] Have to start strip job in clothing and reducd a number of figures in teh tip calculations as pay out was way too high

locations/stwork.qsrc

@@ -105,47 +105,52 @@ if $ARGS[0] = 'start':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripinspection.jpg"></center>'
 							'Before going on stage, you go see the manager in his office for your inspection.'
-							'"Take off your clothes," he tells you matter of factly.'
-							'When you''re done undressing, he walks up to you and inspects you closely.'
-							if pcs_sweat < 20:
-								'"Good, you have a clean scent. That is very important in this business."'
-								'He briefly runs his hand over your legs.'
-								if pcs_leghair <= 3:
-									'"Smooth legs. Very good."'
-									'He walks around you, looking you up and down from every side.'
-									if fingal <= 0:
-										'"No bruises. Good. The better you look, the easier it is to make money once you are on that stage."'
-										'"And the last thing. I need to check if you''ve rid yourself of all your pubic hair."'
-										'"I suppose that''s a reasonable thing to check," you think to yourself as you show him your naked pussy.'
-										'He puts his hand right above your pussy lips and slowly rubs the skin there, taking a bit longer than he did on your legs.'
-										'You feel your pussy get a bit wet from his touch and hope that he doesn''t notice.'
-										gs 'arousal', 'foreplay', 2
-										gs 'stat'
-!! This allows different pubic styles but anything from small bush up is still not permitted.
-										if (pubestyle = 1 and pcs_pubes <= 3) or lashair = 1:
-											strippermission = 1
-											'"That''s very smooth. Looks like you are ready to get on the stage. You can get to work," he says and ushers you out of his office.'
-											stpredmet = 3
-											act 'Go back stage': gt 'stwork2', 'strip'
-										elseif ((pubestyle >= 2 and pubestyle <=7) or (pubestyle >= 12 and pubestyle <=14)) and pcs_pubes <= 25:
-											strippermission = 1
-											'"Very cute pubic hair, I''m sure the customers will appreciate it, now get on stage. You can work," he says and ushers you out of his office.'
-											stpredmet = 3
-											act 'Go back stage': gt 'stwork2', 'strip'
+							if $wornclothingtype ! 'nude':
+								'"Take off your clothes," he tells you matter of factly.'
+								'When you''re done undressing, he walks up to you and inspects you closely.'
+								if pcs_sweat < 20:
+									'"Good, you have a clean scent. That is very important in this business."'
+									'He briefly runs his hand over your legs.'
+									if pcs_leghair <= 3:
+										'"Smooth legs. Very good."'
+										'He walks around you, looking you up and down from every side.'
+										if fingal <= 0:
+											'"No bruises. Good. The better you look, the easier it is to make money once you are on that stage."'
+											'"And the last thing. I need to check if you''ve rid yourself of all your pubic hair."'
+											'"I suppose that''s a reasonable thing to check," you think to yourself as you show him your naked pussy.'
+											'He puts his hand right above your pussy lips and slowly rubs the skin there, taking a bit longer than he did on your legs.'
+											'You feel your pussy get a bit wet from his touch and hope that he doesn''t notice.'
+											gs 'arousal', 'foreplay', 2
+											gs 'stat'
+	!! This allows different pubic styles but anything from small bush up is still not permitted.
+											if (pubestyle = 1 and pcs_pubes <= 3) or lashair = 1:
+												strippermission = 1
+												'"That''s very smooth. Looks like you are ready to get on the stage. You can get to work," he says and ushers you out of his office.'
+												stpredmet = 3
+												act 'Go back stage': gt 'stwork2', 'strip'
+											elseif ((pubestyle >= 2 and pubestyle <=7) or (pubestyle >= 12 and pubestyle <=14)) and pcs_pubes <= 25:
+												strippermission = 1
+												'"Very cute pubic hair, I''m sure the customers will appreciate it, now get on stage. You can work," he says and ushers you out of his office.'
+												stpredmet = 3
+												act 'Go back stage': gt 'stwork2', 'strip'
+											else
+												'"You need to shave everything off <<$pcs_stagename>>, although a small and cute pubic style is popular at the moment if you feel creative." He smiles and pats you on the butt as he says, "Go take care of that and then come back here."'
+												act 'Go to the dressing room': gt 'stwork', 'start'
+											end
 										else
-											'"You need to shave everything off <<$pcs_stagename>>, although a small and cute pubic style is popular at the moment if you feel creative." He smiles and pats you on the butt as he says, "Go take care of that and then come back here."'
+											'"I can''t let you up on the stage with a black eye like that. You''ll have to wait until it''s gone. Come back when it''s healed."'
 											act 'Go to the dressing room': gt 'stwork', 'start'
 										end
 									else
-										'"I can''t let you up on the stage with a black eye like that. You''ll have to wait until it''s gone. Come back when it''s healed."'
+										'"Shave your legs, a customer doesn''t want to feel any stubble during a lapdance. Go take care of that and then come back here."'
 										act 'Go to the dressing room': gt 'stwork', 'start'
 									end
 								else
-									'"Shave your legs, a customer doesn''t want to feel any stubble during a lapdance. Go take care of that and then come back here."'
+									'"Damn it <<$pcs_stagename>>, you stink. Grab a shower. We can''t have the club smelling like a locker room."'
 									act 'Go to the dressing room': gt 'stwork', 'start'
 								end
 							else
-								'"Damn it <<$pcs_stagename>>, you stink. Grab a shower. We can''t have the club smelling like a locker room."'
+								'You can''t do a striptease if you haven''t got any clothes to strip out of <<$pcs_stagename>>. Find something sexy in the wardrobe first.'
 								act 'Go to the dressing room': gt 'stwork', 'start'
 							end
 						end
@@ -206,17 +211,17 @@ if $ARGS[0] = 'tipcalculator':
 	if rand (0, 4) = 0:
 		striptip += stripKoef
 	end
-	if striptip < 30:
+	if striptip < 25:
 		'Nobody even noticed you or your efforts on the stage and it''s no surprise you got nothing for your efforts.'
-	elseif striptip < 60:
+	elseif striptip < 40:
 		'A couple of people looked at you but nothing more than that, you didn''t receive a single tip.'
-	elseif striptip < 70:
+	elseif striptip < 55:
 		'A couple of people looked at you but nothing more than that, you didn''t receive any tips.'
-	elseif striptip < 80:
+	elseif striptip < 70:
 		if rand(0,5) = 0:
 			'The customers were pleased with your performance, not enough to both tipping you.'
 		else
-			paymoneyrand = rand(3,10) * 3
+			paymoneyrand = rand(3,10) * 2
 			money += paymoneyrand
 			pcs_mood += rand(1,5)
 			'The customers were pleased with your performance. They gave you <<paymoneyrand>> <b>₽</b> in tips.'
@@ -225,13 +230,13 @@ if $ARGS[0] = 'tipcalculator':
 		if rand(0,10) = 0:
 			'The customers followed your movements between their conversations. You deserved some tips but luck was against you and you got nothing.'
 		else
-			paymoneyrand = rand(10,(striptip/2)) * 3
+			paymoneyrand = rand(10,(striptip/2)) * 2
 			money += paymoneyrand
 			pcs_mood += rand(3,10)
 		'The customers followed your movements between their conversations. After counting out your tips it amounts to <<paymoneyrand>> <b>₽</b>.'
 		end
 	else
-		paymoneyrand = rand(10,striptip) * 3
+		paymoneyrand = rand(10,striptip) * 2
 		money += paymoneyrand
 		pcs_mood += rand(5,20)
 		'The customers were mesmerized by your dancing and tipped you <<paymoneyrand>> <b>₽</b>.'

locations/stwork2.qsrc

@@ -105,7 +105,7 @@ if $ARGS[0] = 'dance_clothed':
 	fat -= 1
 	dancero_exp += rand(1, 2)
 
-	striptip = rand(pcs_dancero,(pcs_dancero*5))
+	striptip = (rand(pcs_dancero,(pcs_dancero*5)))/10
 
 	gs 'stat'
 	
@@ -125,7 +125,7 @@ if $ARGS[0] = 'strip_clothes':
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
 
-	striptip = rand(pcs_dancero,(pcs_dancero*5))
+	striptip = (rand(pcs_dancero,(pcs_dancero*5)))/7
 
 	gs 'stat'
 	
@@ -176,7 +176,7 @@ if $ARGS[0] = 'strip_bra':
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
 
-	striptip += rand(pcs_dancero,(pcs_dancero*5))
+	striptip += (rand(pcs_dancero,(pcs_dancero*5)))/5
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripund' + rand(1,3) + '.jpg"></center>'
@@ -211,7 +211,7 @@ if $ARGS[0] = 'strip_panties':
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
 
-	striptip += rand(pcs_dancero,(pcs_dancero*5))
+	striptip += (rand(pcs_dancero,(pcs_dancero*5)))/5
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripund9.jpg"></center>'
@@ -242,7 +242,7 @@ if $ARGS[0] = 'dance_nude':
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
 
-	striptip += rand(pcs_dancero,(pcs_dancero*5))
+	striptip += (rand(pcs_dancero,(pcs_dancero*5)))/3
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripund' + rand(13,14) + '.jpg"></center>'
@@ -287,7 +287,7 @@ if $ARGS[0] = 'pole_underwear':
 	gs 'fame', 'city', 'stripping', rand(1,2)
 
 	!pcs_hairbsh = 0
-	striptip += rand(pcs_dancpol,(pcs_dancpol*5))
+	striptip += (rand(pcs_dancpol,(pcs_dancpol*5)))/5
 	
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/strippole.jpg"></center>'
@@ -298,7 +298,7 @@ if $ARGS[0] = 'pole_underwear':
 
 		if vesrand >= 75:
 			'Performing another trick on the pole, you can not support your weight and fall flat on your face. The crowd laughs, "Hey, hippopotamus, stomp back to the swamp where you came from."'
-			striptip -= 15
+			striptip -= 40
 			fingalrand = rand(0, 100)
 			if fingalrand >= 75:
 				fingal += rand(2, 5)
@@ -307,7 +307,7 @@ if $ARGS[0] = 'pole_underwear':
 				'As you fall, you hit the floor really hard, and you can feel a bruise forming on your face.'
 			end
 		elseif vesrand >= 50:
-			striptip -= rand(5, 10)
+			striptip -= rand(15, 30)
 			'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass are shaking like jelly."'
 		end
 	end
@@ -327,7 +327,7 @@ if $ARGS[0] = 'pole_panties':
 	gs 'fame', 'city', 'stripping', rand(1,2)
 
 	!pcs_hairbsh = 0
-	striptip += rand(pcs_dancpol,(pcs_dancpol*5))
+	striptip += (rand(pcs_dancpol,(pcs_dancpol*5)))/5
 	
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripund' + rand(7,8) + '.jpg">"></center>'
@@ -339,7 +339,7 @@ if $ARGS[0] = 'pole_panties':
 		if vesrand >= 75:
 			'Performing another trick on the pole, you can not support your weight and fall flat on your face. The crowd laughs, "Hey, hippopotamus, stomp back to the swamp where you came from."'
 			custbooing += 1
-			striptip -= 15
+			striptip -= 40
 			fingalrand = rand(0, 100)
 			if fingalrand >= 75:
 				fingal += rand(2, 5)
@@ -349,7 +349,7 @@ if $ARGS[0] = 'pole_panties':
 			end
 		elseif vesrand >= 50:
 			custbooing += 1
-			striptip -= rand(5, 10)
+			striptip -= rand(15, 30)
 			'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass are shaking like jelly."'
 		end
 	end