|
@@ -1,6 +1,7 @@
|
|
|
# piercing_management
|
|
|
|
|
|
If $ARGS[0] = 'main':
|
|
|
+ if ward_img_hgt = 0:ward_img_hgt = 150
|
|
|
*nl
|
|
|
'<center><font color="maroon">Piercing Management</font></center><center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
|
|
|
*p '<TH>Tongue piercing</TH><TH>Lip piercing</TH><TH>Ear piercings</TH><TH>Nose piercing</TH>'
|
|
@@ -39,7 +40,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TR><TD><center>'
|
|
|
if pirsA = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsA <= 10000:
|
|
|
+ elseif pirsA < 10000:
|
|
|
'<a href="exec:pirsA = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|
|
@@ -47,7 +48,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TD><center>'
|
|
|
if pirsB = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsB <= 10000:
|
|
|
+ elseif pirsB < 10000:
|
|
|
'<a href="exec:pirsB = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|
|
@@ -55,7 +56,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TD><center>'
|
|
|
if pirsC = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsC <= 10000:
|
|
|
+ elseif pirsC < 10000:
|
|
|
'<a href="exec:pirsC = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|
|
@@ -63,7 +64,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TD><center>'
|
|
|
if pirsD = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsD <= 10000:
|
|
|
+ elseif pirsD < 10000:
|
|
|
'<a href="exec:pirsD = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|
|
@@ -114,7 +115,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TD><center>'
|
|
|
if pirsF = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsF <= 10000:
|
|
|
+ elseif pirsF < 10000:
|
|
|
'<a href="exec:pirsF = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|
|
@@ -122,7 +123,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TD><center>'
|
|
|
if pirsN = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsN <= 10000:
|
|
|
+ elseif pirsN < 10000:
|
|
|
'<a href="exec:pirsN = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|
|
@@ -130,7 +131,7 @@ If $ARGS[0] = 'main':
|
|
|
'</center></TD><TD><center>'
|
|
|
if pirsG = 0:
|
|
|
'Not pierced'
|
|
|
- elseif pirsG <= 10000:
|
|
|
+ elseif pirsG < 10000:
|
|
|
'<a href="exec:pirsG = 10000 & pierWearCount -= 1 & gt ''piercing_management'', ''main''">Remove</a>'
|
|
|
else
|
|
|
'Remove'
|