Tweaked strip show length

locations/stwork.qsrc

@@ -139,12 +139,10 @@ if $ARGS[0] = 'start':
 											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."'

locations/stwork2.qsrc

@@ -4,6 +4,7 @@ if $ARGS[0] = 'strip':
 	clr
 	custbooing = 0
 	countmoney = 1
+	stpredmet = 3
 	gs 'stat'
 	'<center><b><font color="maroon">Stage</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/stripclub1.jpg"></center>'
@@ -46,7 +47,7 @@ if $ARGS[0] = 'strip_hub2':
 	end
 	if hour >= 11 or hour <= 2:
 		if stpredmet = 3:lapdance = 0
-		if stpredmet > 0:
+		if stpredmet >= 0:
 			if $clothingworntype ! 'nude':
 				act 'Dance on the pole in your clothes': gt 'stwork2', 'dance_clothed'
 				act 'Strip out of your outfit': gt 'stwork2', 'strip_clothes'
@@ -101,6 +102,7 @@ end
 if $ARGS[0] = 'dance_clothed':	
 	*clr & cla
 	minut += 5
+	stpredmet -= 1
 	gs 'sweat', 'add', 5
 	fat -= 1
 	dancero_exp += rand(1, 2)