Switched to exercise script calls during strip shows

locations/stripclub.qsrc

@@ -400,7 +400,6 @@ if $ARGS[0] = 'stpr1':
 				*clr & cla
 				gs 'arousal', 'anal_strap', 10, 'lesbian', 'sub', 'group'
 				gs 'arousal', 'vaginal_strap', -10, 'lesbian', 'sub', 'group'
-				minut -= 10
 				$orgasm_or = 'yes'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/prsex4.jpg"></center>'
@@ -438,7 +437,7 @@ if $ARGS[0] = 'stpr2':
 		act 'Have them suck you off (<<will_cost>> Willpower)':
 			*clr & cla
 			gs 'willpower', 'pay', 'force'
-			gs 'arousal', 'foreplay', 10, 'lesbian', 'dom', 'group'
+			gs 'arousal', 'foreplay', 5, 'lesbian', 'dom', 'group'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/prsex7.jpg"></center>'
 			'You tell one of the girls to hand over her strap-on, which you put on. You command the girls to kneel and stick the cock in front of their faces. Not needing a cue, they start sucking on it, lubing it up the best they can.'
@@ -461,7 +460,7 @@ if $ARGS[0] = 'stpr2':
 	end	
 	act 'Suck them off':
 		*clr & cla
-		gs 'arousal', 'bj', 10, 'lesbian', 'sub', 'group'
+		gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'group'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/sex/prsex8.jpg"></center>'
 		'You want to get used today, so you order them to put on the strap-ons as you get on your knees and joyfully begin sucking them off.'
@@ -470,7 +469,6 @@ if $ARGS[0] = 'stpr2':
 			*clr & cla
 			gs 'arousal', 'vaginal_strap', 15, 'lesbian', 'sub', 'group'
 			gs 'arousal', 'anal_strap', -15, 'lesbian', 'sub', 'group'
-			minut -= 30
 			$orgasm_or = 'yes'
 			gs 'arousal', 'end'
 			gs 'stat'

locations/stwork2.qsrc

@@ -101,10 +101,8 @@ end
 
 if $ARGS[0] = 'dance_clothed':	
 	*clr & cla
-	minut += 5
 	stpredmet -= 1
-	gs 'sweat', 'add', 5
-	fat -= 1
+	gs 'exercise', 'tier1', 5, 'agil_exp'
 	dancero_exp += rand(1, 2)
 
 	striptip = (rand(pcs_dancero,(pcs_dancero*5)))/10
@@ -120,9 +118,7 @@ end
 
 if $ARGS[0] = 'strip_clothes':
 	*clr & cla
-	minut += 5
-	gs 'sweat', 'add', 5
-	fat -= 1
+	gs 'exercise', 'tier1', 5, 'agil_exp'
 	dancero_exp += rand(1, 2)
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
@@ -171,9 +167,7 @@ end
 
 if $ARGS[0] = 'strip_bra':
 	*clr & cla
-	minut += 5
-	gs 'sweat', 'add', 5
-	fat -= 1
+	gs 'exercise', 'tier1', 5, 'agil_exp'
 	dancero_exp += rand(1, 2)
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
@@ -206,9 +200,7 @@ end
 if $ARGS[0] = 'strip_panties':
 	gs 'panties', 'remove'
 	*clr & cla
-	minut += 5
-	gs 'sweat', 'add', 5
-	fat -= 1
+	gs 'exercise', 'tier1', 5, 'agil_exp'
 	dancero_exp += rand(1, 2)
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
@@ -238,9 +230,7 @@ end
 
 if $ARGS[0] = 'dance_nude':
 	*clr & cla
-	minut += 5
-	gs 'sweat', 'add', 5
-	fat -= 1
+	gs 'exercise', 'tier1', 5, 'agil_exp'
 	dancero_exp += rand(1, 2)
 	inhib_exp += rand(1,2)
 	gs 'fame', 'city', 'stripping', rand(1,2)
@@ -281,10 +271,8 @@ end
 
 if $ARGS[0] = 'pole_underwear':
 	*clr & cla
-	minut += 5
 	stpredmet -= 1
-	gs 'sweat', 'add', 5
-	fat -= 2
+	gs 'exercise', 'tier2', 5, 'agil_exp', 'stren_exp'
 	pcs_mood -= rand(4, 8)
 	dancpol_exp += rand(1, 2)
 	inhib_exp += rand(1,2)
@@ -321,10 +309,8 @@ end
 
 if $ARGS[0] = 'pole_panties':
 	*clr & cla
-	minut += 5
 	stpredmet -= 1
-	gs 'sweat', 'add', 5
-	fat -= 2
+	gs 'exercise', 'tier2', 5, 'agil_exp', 'stren_exp'
 	pcs_mood -= rand(4, 8)
 	dancpol_exp += rand(1, 2)
 	inhib_exp += rand(1,2)
@@ -402,10 +388,8 @@ if $ARGS[0] = 'privatdance':
 	*clr & cla
 	gs 'arousal', 'foreplay', 10
 	money += 200
-	if pcs_sweat < 30 : gs 'sweat', 'add', 10
-	pcs_hairbsh = 0
-	pcs_makeup = 0
-	fat -= 5
+	gs 'exercise', 'tier1', 1, 'agil_exp'
+	pcs_hairbsh = rand(0,1)
 	pcs_mood += rand(2,6)
 	dancero_exp += rand(2, 4)
 	stripdancesum += 1
@@ -458,7 +442,7 @@ if $ARGS[0] = 'pr1':
 		gs 'boyStat', $npclastgenerated, '2'
 		gs 'npcgeneratec', 0, '3rd Friend of client', i
 		gs 'boyStat', $npclastgenerated, '3'
-		money += 2000
+		money += 1800 + rand(0,5) * 100
 		'<center><img <<$set_imgh>> src="images/locations/city/redlight/stripclub/pr1a.jpg"></center>'
 		'You agree to the deal and almost instantly the men have tugged their cocks out of their pants. You''re pushed back onto the stage, and 2 cocks are pushed towards your mouth, one straight inside and one waiting for its turn.'
         'As your mouth begins doing it''s job, the third man guides your right hand to his swelling member and as you begin to stroke it, the final guy starts pulling down your pants, exposing your slit to the entire group.'