;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@ChangeAtom]
{

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

#IF
!HasWeaponAtom
#SAY
This weapon does not have any Elements!\
<[ Exit ]/@exit>\

#ACT
break

#IF
checkgold 500000

#SAY
Are you sure you want to change the attribute?\
This costs 500,000 Gold!\\
<[ Confirm ]/@ChangeAtom_Next> \
<[ Exit ]/@exit>\


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

[@ChangeAtom_Next]
#IF
checkweaponlevel 1

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

#ELSEACT
break

#IF
checkgold 500000

#SAY
Please select which Element you want..\
<[ Fire ]/@ChangeAtom(Fire,Fire,1)> \
<[ Ice ]/@ChangeAtom(Ice,Ice,2)> \
<[ Light ]/@ChangeAtom(Light,Light,3)> \
<[ Wind ]/@ChangeAtom(Wind,Wind,4)> \
<[ Holy ]/@ChangeAtom(Holy,Holy,5)> \
<[ Dark ]/@ChangeAtom(Dark,Dark,6)> \
<[ Phantom ]/@ChangeAtom(Phantom,Phantom,7)> \


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

[@ChangeAtom()]
#IF
#ACT
Mov A0 %ARG(1)
Mov A1 %ARG(2)
Mov D0 %ARG(3)

#IF
checkweaponlevel 1

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

#ELSEACT
break

#IF
checkgold 500000
#ACT
ChangeWeaponAtom %D0
take Gold 500000

#SAY
The Element on your <$USERWEAPON> has been changed to {FCOLOR/12}<$OUTPUT(A0)>{FCOLOR/10}\
<[ Exit ]/@exit>

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

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