[changed] Tidied up and centralised stuff in the piercing management as it looked a bit sad.

locations/din_van.qsrc

@@ -633,9 +633,14 @@ $basin = {
 	dynamic $removepan
 }
 
-$pirTongue = {
+$pir_title = {
 	cla
 	*clr
+	'<center><b>Available piercings - select one by clicking the image</b></center>'
+	*nl	
+}
+$pirTongue = {
+	dynamic $pir_title
 
 	i = 1
 	:looptongue_pir
@@ -645,8 +650,7 @@ $pirTongue = {
 }
 
 $pirLip = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:looplip_pir
@@ -656,8 +660,7 @@ $pirLip = {
 }
 
 $pirEars = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:loopears_pir
@@ -667,8 +670,7 @@ $pirEars = {
 }
 
 $pirNose = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:loopnose_pir
@@ -678,8 +680,7 @@ $pirNose = {
 }
 
 $pirBrow = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:loopbrow_pir
@@ -689,8 +690,7 @@ $pirBrow = {
 }
 
 $pirNips = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:loopnipple_pir
@@ -700,8 +700,7 @@ $pirNips = {
 }
 
 $pirNavel = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:loopnavel_pir
@@ -711,8 +710,7 @@ $pirNavel = {
 }
 
 $pirPubic = {
-	cla
-	*clr
+	dynamic $pir_title
 
 	i = 1
 	:looppubic_pir
@@ -726,59 +724,67 @@ $pirManage = {
 	*nl
 	if pirsA > 0:
 		if pirsA < 10000:
-			'<a href="exec:pirsA = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove tongue piercing</a>.'
+			'<center><a href="exec:pirsA = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove tongue piercing</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirTongue">Insert tongue piercing</a>.'
+			'<center><a href="exec:dynamic $pirTongue">Insert tongue piercing</a>.</center>'
 		end
+		*nl
 	end
 	if pirsB > 0:
 		if pirsB < 10000:
-			'<a href="exec:pirsB = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove lip piercing</a>.'
+			'<center><a href="exec:pirsB = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove lip piercing</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirLip">Insert lip piercing</a>.'
+			'<center><a href="exec:dynamic $pirLip">Insert lip piercing</a>.</center>'
 		end
+		*nl
 	end
 	if pirsC > 0:
 		if pirsC < 10000:
-			'<a href="exec:pirsC = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove ear piercings</a>.'
+			'<center><a href="exec:pirsC = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove ear piercings</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirEars">Insert ear piercings</a>.'
+			'<center><a href="exec:dynamic $pirEars">Insert ear piercings</a>.</center>'
 		end
+		*nl
 	end
 	if pirsD > 0:
 		if pirsD < 10000:
-			'<a href="exec:pirsD = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nose piercing</a>.'
+			'<center><a href="exec:pirsD = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nose piercing</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirNose">Insert nose piercing</a>.'
+			'<center><a href="exec:dynamic $pirNose">Insert nose piercing</a>.</center>'
 		end
+		*nl
 	end
 	if pirsE > 0:
 		if pirsE < 10000:
-			'<a href="exec:pirsE = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove eyebrow piercing</a>.'
+			'<center><a href="exec:pirsE = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove eyebrow piercing</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirBrow">Insert eyebrow piercing</a>.'
+			'<center><a href="exec:dynamic $pirBrow">Insert eyebrow piercing</a>.</center>'
 		end
+		*nl
 	end
 	if pirsF > 0:
 		if pirsF < 10000:
-			'<a href="exec:pirsF = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nipple piercings</a>.'
+			'<center><a href="exec:pirsF = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nipple piercings</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirNips">Insert nipple piercings</a>.'
+			'<center><a href="exec:dynamic $pirNips">Insert nipple piercings</a>.</center>'
 		end
+		*nl
 	end
 	if pirsN > 0:
 		if pirsN < 10000:
-			'<a href="exec:pirsN = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove navel piercing</a>.'
+			'<center><a href="exec:pirsN = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove navel piercing</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirNavel">Insert navel piercing</a>.'
+			'<center><a href="exec:dynamic $pirNavel">Insert navel piercing</a>.</center>'
 		end
+		*nl
 	end
 	if pirsG > 0:
 		if pirsG < 10000:
-			'<a href="exec:pirsG = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove pussy piercings</a>.'
+			'<center><a href="exec:pirsG = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove pussy piercings</a>.</center>'
 		else
-			'<a href="exec:dynamic $pirPubic">Insert pussy piercings</a>.'
+			'<center><a href="exec:dynamic $pirPubic">Insert pussy piercings</a>.</center>'
 		end
+		*nl
 	end
 
 	act'<b>Back</b>':gt $loc, $metka