Added horniness requirement to Masturbate in the treeCircle. Increased mana and time costs of Tatiana's body modification as well as adding Pain to body mods.

locations/lab.qsrc

@@ -195,12 +195,14 @@ if $ARGS[0] = 'ListBuilder':
 	!  $ARGS[4] = Array name of change value display string
 	!  $ARGS[5] = Array name of value to change attribute to, 'i' means, just use array position
 	!  $ARGS[6] = variable name of attribute to change
+	!  $ARGS[7] = pain location
 	$bodyModType = $ARGS[1]
 	bodyModMana = $ARGS[2]
 	bodyModTime = $ARGS[3]
 	$bodyModDesc = $ARGS[4]
 	$bodyModIndx = $ARGS[5]
 	$bodyModStat = $ARGS[6]
+	$bodyModPain = $ARGS[7]
 
 	$hairColors[0]='black'
 	$hairColors[1]='brown'
@@ -257,7 +259,7 @@ if $ARGS[0] = 'ListBuilder':
 			bodymodValue = dyneval("result = <<$bodyModIndx>>[<<i>>]")
 		end
 		$bodyModDescX = dyneval('$result = <<$bodyModDesc>>[<<i>>]')
-		$ListStr = $ListStr + "<br><a href=""EXEC:<<$bodyModStat>> = <<bodymodValue>> & pcs_mana -= <<bodyModMana>> & gs 'arousal', 'voyeur', <<bodyModTime>> & gs 'stat' & gt 'lab', 'BodyModded', '<<$bodyModType>>', '<<$bodyModDescX>>'""><<$bodyModDescX>></a>"
+		$ListStr = $ListStr + "<br><a href=""EXEC:<<$bodyModStat>> = <<bodymodValue>> & pcs_mana -= <<bodyModMana>> & gs 'arousal', 'voyeur', 30 & minut+=<<bodyModTime>>-30 & pain['<<$bodyModPain>>'] = 100 & gs 'stat' & gt 'lab', 'BodyModded', '<<$bodyModType>>', '<<$bodyModDescX>>'""><<$bodyModDescX>></a>"
 		i += 1
 		jump 'BodyModLoop'
 	end
@@ -334,16 +336,16 @@ if $ARGS[0] = 'Tatiana':
 		'"Tatiana, I''m having problems with my body image, I''m not happy and was hoping that you might be able to help me."'
 		'"It''s possible but I will have to draw on your magical energy, it will cost some of your mana to perform a spell."'
 
-		$HairColorTab =  func('lab', 'ListBuilder', 'Hair Color', '40', '30', '$hairColors','i',         'pcs_haircol')
-		$HairLengthTab = func('lab', 'ListBuilder', 'Hair Length','40', '30', '$hairTypes', 'hairTypes', 'pcs_hairlng')
-		$EyeColorTab =   func('lab', 'ListBuilder', 'Eye Color',  '40', '30', '$eyeColors', 'i',         'pcs_eyecol')
-		$EyeLashTab =    func('lab', 'ListBuilder', 'Eye Lashes', '40', '30', '$eyeLashes', 'i',         'pcs_lashes')
-		$LipTab =        func('lab', 'ListBuilder', 'Lip Size',   '40', '30', '$lipSize',   'i',         'pcs_lip')
-		$BreastTab =     func('lab', 'ListBuilder', 'Breast Size','40', '30', '$breastSize','breastSize','nbsize')
+		$HairColorTab =  func('lab', 'ListBuilder', 'Hair Color', '500', '60', '$hairColors','i',         'pcs_haircol','hair')
+		$HairLengthTab = func('lab', 'ListBuilder', 'Hair Length','200', '120','$hairTypes', 'hairTypes', 'pcs_hairlng','hair')
+		$EyeColorTab =   func('lab', 'ListBuilder', 'Eye Color',  '300', '120','$eyeColors', 'i',         'pcs_eyecol',	'eye')
+		$EyeLashTab =    func('lab', 'ListBuilder', 'Eye Lashes', '100', '30', '$eyeLashes', 'i',         'pcs_lashes',	'eye')
+		$LipTab =        func('lab', 'ListBuilder', 'Lip Size',   '300', '120','$lipSize',   'i',         'pcs_lip',	'lip')
+		$BreastTab =     func('lab', 'ListBuilder', 'Breast Size','1000','240','$breastSize','breastSize','nbsize',		'breasts')
 
-		$SkinTab = "<a href=""EXEC:pcs_skin = 100 & pcs_mana -= 40 & gs 'arousal', 'voyeur', 30 & gs 'stat' & gt 'lab', 'BodyModded', 'Skin', 'clear'"">Clear Skin</a>"
-		$VirginTab = "<a href=""EXEC:pcs_vag = 0 & pcs_mana -= 40 & gs 'arousal', 'voyeur', 30 & gs 'stat' & gt 'lab', 'BodyModded', 'Virginity', 'renewed'"">Renew Virginity</a>"
-		$SiliconeTab = "<a href=""EXEC:brSurTemp = 0 & stringimplant = 0 & fillimplant = 0 & pcs_mana -= 40 & gs 'arousal', 'voyeur', 30 & gs 'stat' & gt 'lab', 'BodyModded', 'Boobs', 'natural again'"">Remove Silicone</a>"
+		$SkinTab = "<a href=""EXEC:pcs_skin = 100 & pcs_mana -= 1000 & gs 'arousal', 'voyeur', 30 & minut+=240-30 & pain['back'] = 100 & pain['chest'] = 100 & gs 'stat' & gt 'lab', 'BodyModded', 'Skin', 'clear'"">Clear Skin</a>"
+		$VirginTab = "<a href=""EXEC:pcs_vag = 0 & pcs_mana -= 1000 & gs 'arousal', 'voyeur', 30 & minut+=120-30 & pain['vaginal'] = 100 & gs 'stat' & gt 'lab', 'BodyModded', 'Virginity', 'renewed'"">Renew Virginity</a>"
+		$SiliconeTab = "<a href=""EXEC:brSurTemp = 0 & stringimplant = 0 & fillimplant = 0 & pcs_mana -= 1000 & gs 'arousal', 'voyeur', 30 & minut+=240-30 & pain['breasts'] = 100 & gs 'stat' & gt 'lab', 'BodyModded', 'Boobs', 'natural again'"">Remove Silicone</a>"
 
 		$SpellListStr = "<CENTER>
 	<TABLE CELLPADDING = '5'>

locations/treeCircle.qsrc

@@ -75,7 +75,7 @@ if i < ARRSIZE('$tpLocations'):
 end
 killvar 'i'
 
-if pcs_inhib >= 30:
+if pcs_inhib >= 30 and pcs_horny > 60:
 	act 'Masturbate to clear your head.':
 		*nl
 		'<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'