'
if pirsE = 0:
'Not pierced'
elseif pirsE <= 10000:
'Remove'
else
'Remove'
end
'
'
if pirsF = 0:
'Not pierced'
elseif pirsF < 10000:
'Remove'
else
'Remove'
end
'
'
if pirsN = 0:
'Not pierced'
elseif pirsN < 10000:
'Remove'
else
'Remove'
end
'
'
if pirsG = 0:
'Not pierced'
elseif pirsG < 10000:
'Remove'
else
'Remove'
end
'
'
act 'Close Piercing management': gt $loc, $loc_arg
end
If $ARGS[0] = 'tongue':
i = 1
:looptongue
if dyneval('RESULT = PirsA<>_owned') = 1:*p ''
i += 1
if i <= 4:jump 'looptongue'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'lip':
i = 1
:looplip
if dyneval('RESULT = PirsB<>_owned') = 1:*p ''
i += 1
if i <= 7:jump 'looplip'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'ears':
i = 1
:loopears
if dyneval('RESULT = PirsC<>_owned') = 1:*p ''
i += 1
if i <= 24:jump 'loopears'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'nose':
i = 1
:loopears
if dyneval('RESULT = PirsD<>_owned') = 1:*p ''
i += 1
if i <= 7:jump 'loopears'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'brow':
i = 1
:loopears
if dyneval('RESULT = PirsE<>_owned') = 1:*p ''
i += 1
if i <= 2:jump 'loopears'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'nipples':
i = 1
:loopears
if dyneval('RESULT = PirsF<>_owned') = 1:*p ''
i += 1
if i <= 7:jump 'loopears'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'navel':
i = 1
:loopnavel
if dyneval('RESULT = PirsN<>_owned') = 1:*p ''
i += 1
if i <= 4:jump 'loopnavel'
act 'Return': gt 'piercing_management', 'main'
end
If $ARGS[0] = 'pussy':
i = 1
:looppussy
if dyneval('RESULT = PirsG<>_owned') = 1:*p ''
i += 1
if i <= 10:jump 'looppussy'
act 'Return': gt 'piercing_management', 'main'
end
--- piercing_management ---------------------------------