;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@RefineName]
{
#IF
checkweaponlevel 1

#ELSESAY
You must be wearing the weapon!\
<[ Exit ]/@exit>\
#ELSEACT
break

#IF
checkweaponlevel 10
checkgold 500000

#SAY
Please be careful which name you choose\
I will immediately ban any member who is in any way\
abusive or derogatory using their Weapon Name\
Do not use above 12 Characters\
<[ Enter Weapon Name ]/@@WriteWeaponName>\\\


#ELSESAY
You do not have 500,000 Gold!!\
<[ Exit ]/@exit>\\\

[@@WriteWeaponName]
#IF
checkgold 500000
#ACT
WriteWeaponName @CheckWeaponName

#ELSESAY
You do not have 500,000 Gold!!\
<[ Exit ]/@exit>\\\

[@CheckWeaponName]
#ACT
take Gold 500000

#SAY
All done, your <$USERWEAPON> now has been named <$INPUTSTR>\
<[ Exit ]/@exit>\\\

[@CheckWeaponName~]

#SAY
Weapon naming failed.\
<[ Exit ]/@exit>\\\

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;