remove PirsGL variable

locations/anushapt.qsrc

@@ -350,7 +350,7 @@ if $ARGS[0] = 'bathroom':
 	'The toilet sits along the far wall. There''s also a bathtub with an old plastic shower curtain hanging from a rod above it. It also seems that the latch on the door is broken.'
 	'You can do your hair and makeup in the <a href="exec:gt ''mirror'', ''start''">mirror</a> above the sink.'
 	*nl
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 	act 'Leave the bathroom': gt 'anushapt','hallway'
 	act 'Take a shower':
 		*clr & cla

locations/artemhome.qsrc

@@ -223,7 +223,7 @@ if $ARGS[0] = 'bathroom':
 		'The first thing you notice is the god awful green tile, with matching sink in the bathroom. You don''t know who picked it but they obviously don''t have any good taste. Other than that it is a fairly typical bathroom, other than this might be the cleanest bathroom you have ever been in. It looks practically brand new it is so shinny and it smells wonderful as well.'
 		'You can do your hair and makeup in the <a href="exec:gt ''mirror'', ''start''">mirror</a> above the sink.'
 		*nl
-		if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+		if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 		act 'Leave the bathroom': gt 'artemhome', 'hallway'
 		if hour < 6:
 			gt 'artemhome', 'timecheck'

locations/dimaHome.qsrc

@@ -176,7 +176,7 @@ if $ARGS[0] = 'bathroom2':
 	'This restroom has a large sink area and tile floors. The toilet sits along the far wall. You also notice a walk-in shower and large bathtub. You imagine how luxurious it must feel to bathe in here.'
 	'You can do your hair and makeup in the <a href="exec:gt ''mirror'', ''start''">mirror</a> above the sink.'
 	*nl
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 
 	if shampoo > 0:
 		act 'Take a shower (0:15)':
@@ -316,7 +316,7 @@ if $ARGS[0] = 'dimka_master_bathroom':
 	'The master bathroom is a huge space with a large sink area and tile floors. The toilet sits along the far wall. You can''t help but feel impressed by the size of the walk-in shower and deep bathtub. It all looks very expensive.'
 	'You can do your hair and makeup in the <a href="exec:gt ''mirror'', ''start''">mirror</a> above the sink.'
 	*nl
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 	if shampoo > 0:
 		act 'Take a shower':
 			*clr & cla

locations/din_van.qsrc

@@ -1078,7 +1078,7 @@ if $ARGS[0] = 'private':
 		'<a href="exec:dynamic $use_bcream & gt $loc, $loc_arg">Apply breast cream.</a> Uses left: <<bcream_have>>.'
 	end
 
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:*clr & cla & dynamic $pirManage">Manage your piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:*clr & cla & dynamic $pirManage">Manage your piercings</a>'
 
 	if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $loc_arg">Inject silicone into your breast implants.</a>'
 	if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $loc_arg">Drain silicone from your breast implants.</a>'

locations/gschool_grounds.qsrc

@@ -754,7 +754,7 @@ if $ARGS[0] = 'change_room':
 		end
 	end
 	*nl
-	'The locker room is accessed through the school gym, and is left unlocked until 18:30 each day for the use of students using the sports ground for training and events outside school hours. The room is cold, damp and filled with lockers, benches and not much else. You can <a href="exec: gt ''wardrobe'', ''start''">change your outfit</a> by the lockers here'+iif(pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0, ', and <a href="exec:dynamic $pirManage">manage your piercings</a>', '.')+''
+	'The locker room is accessed through the school gym, and is left unlocked until 18:30 each day for the use of students using the sports ground for training and events outside school hours. The room is cold, damp and filled with lockers, benches and not much else. You can <a href="exec: gt ''wardrobe'', ''start''">change your outfit</a> by the lockers here'+iif(pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0, ', and <a href="exec:dynamic $pirManage">manage your piercings</a>', '.')+''
 	*nl
 
 	if (hour = 18 and minut >= 30) or hour > 18:

locations/ludahome.qsrc

@@ -354,7 +354,7 @@ if $ARGS[0] = 'bathroom':
 	'The first thing you notice is the god awful pea green tile, with a white sink just in front of a large shelf and mirror. You don''t know who picked it but they obviously don''t have any good taste. Other than that it is a fairly typical bathroom.'
 	'You can do your hair and makeup in the <a href="exec: gt ''mirror'', ''start''">mirror</a> above the sink.'
 	*nl
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 	act 'Leave the bathroom': gt 'ludahome', 'hallway'
 	act 'Take a shower':
 		*clr & cla

locations/natbelapt.qsrc

@@ -316,7 +316,7 @@ if $ARGS[0] = 'bathroom':
 	'The toilet sits along the wall next to a small bathtub.'
 	'You can do your hair and makeup in the <a href="exec:gt ''mirror'', ''start''">mirror</a> above the sink.'
 	*nl
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0: '<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0: '<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 	act 'Leave the bathroom': gt 'natbelapt','hallway'
 	act 'Take a shower':
 		*clr & cla

locations/obj_din.qsrc

@@ -1724,7 +1724,7 @@ if $ARGS[0] = 'bra':
 end
 
 if $ARGS[0] = 'show_tits':
-	if puff_nip = 1 and tits = 2:
+	if pcs_nips >= 40 and pcs_nips < 60 and tits = 2:
 		view 'images/pc/body/tits/t<<tits>>_p.jpg'
 	else
 		view 'images/pc/body/tits/t<<tits>>.jpg'
@@ -1997,9 +1997,9 @@ if $ARGS[0] = 'piercing':
 	gs 'obj_din','bodytabs'
 	'<center><h1>Piercings</h1></center>'
 	'<center>'
-	if pirsA = 0 and pirsB = 0 and pirsC = 0 and pirsD = 0 and pirsE = 0 and pirsF = 0 and pirsN = 0 and pirsG = 0 and pirsGL = 0:
+	if pirsA = 0 and pirsB = 0 and pirsC = 0 and pirsD = 0 and pirsE = 0 and pirsF = 0 and pirsN = 0 and pirsG = 0:
 		'You have no piercings.'
-	elseif (pirsA = 10000 or pirsA = 0) and (pirsB = 10000 or pirsB = 0) and (pirsC = 10000 or pirsC = 0) and (pirsD = 10000 or pirsD = 0) and (pirsE = 10000 or pirsE = 0) and (pirsF = 10000 or pirsF = 0) and (pirsN = 10000 or pirsN = 0) and (pirsG = 10000 or pirsG = 0) and (pirsGL = 10000 or pirsGL = 0):
+	elseif (pirsA = 10000 or pirsA = 0) and (pirsB = 10000 or pirsB = 0) and (pirsC = 10000 or pirsC = 0) and (pirsD = 10000 or pirsD = 0) and (pirsE = 10000 or pirsE = 0) and (pirsF = 10000 or pirsF = 0) and (pirsN = 10000 or pirsN = 0) and (pirsG = 10000 or pirsG = 0):
 		'You are not wearing any piercings'
 	else
 		*pl

locations/pavlov_home.qsrc

@@ -186,7 +186,7 @@ if $ARGS[0] = 'bathroom':
 	'The toilet sits along the far wall. There''s also a bathtub with an old plastic shower curtain hanging from a rod above it. It also seems that the latch on the door is broken.'
 	'You can do your hair and makeup in the <a href="exec:gt ''mirror'', ''start''">mirror</a> above the sink.'
 	*nl
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
 	act 'Leave the bathroom': gt 'pavlov_home','hallway'
 	act 'Take a shower':
 		*clr & cla

locations/rolanbath.qsrc

@@ -393,7 +393,7 @@ if $ARGS[0] = 'start':
 !!		dynamic $dryOff
 	end
 
-	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings.</a>'
+	if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG > 0:'<a href="exec:dynamic $pirManage">Manage Piercings.</a>'
 
 	if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $loc, $loc_arg">Inject silicone into breast implants.</a>'
 	if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $loc, $loc_arg">Drain silicone from breast implants.</a>'