;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CALLSEnchantedOrbEvent]
{
#IF
CheckItem  SuperEnchantedOrb 1
#SAY
This is a SuperEnchantedOrb, it has the power\
to Enchant an item of your choice with\
whatever you want!\\
Which Item would you like to Enchant?\\
<[ Armour ]/@SEnchantItem(0)>\
<[ Necklace ]/@SEnchantItem(3)>\
<[ Helmet ]/@SEnchantItem(4)>\
<[ Bracelet(L) ]/@SEnchantItem(5)>\
<[ Bracelet(R) ]/@SEnchantItem(6)>\
<[ Ring(L) ]/@SEnchantItem(7)>\
<[ Ring(R) ]/@SEnchantItem(8)>\
<[ Shoes ]/@SEnchantItem(10)>\\
<[ Exit ]/@exit>\\\

[@SEnchantItem()]
#IF
!CheckItem  SuperEnchantedOrb 1
#ACT
Break
#SAY
Cheater!\

#IF
#ACT
Mov  D0  %ARG(1)

#IF
   equal D0 0
#SAY
What would you like to add?\\
<[ AC ]/@SUpDescPoint(0)>\
<[ MR ]/@SUpDescPoint(1)>\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ HP ]/@SUpDescPoint(8)>\
<[ MP ]/@SUpDescPoint(9)>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 3
#SAY
What would you like to add?\\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ Attack Element ]/@SUpDesc11>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 4
#SAY
What would you like to add?\\
<[ AC ]/@SUpDescPoint(0)>\
<[ MR ]/@SUpDescPoint(1)>\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ Attack Element ]/@SUpDesc11>\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 5
#SAY
What would you like to add?\\
<[ AC ]/@SUpDescPoint(0)>\
<[ MR ]/@SUpDescPoint(1)>\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ Attack Element ]/@SUpDesc11>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 6
#SAY
What would you like to add?\\
<[ AC ]/@SUpDescPoint(0)>\
<[ MR ]/@SUpDescPoint(1)>\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ Attack Element ]/@SUpDesc11>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 7
#SAY
What would you like to add?\\
<[ AC ]/@SUpDescPoint(0)> - PR on Certain Items\
<[ MR ]/@SUpDescPoint(1)> - PN on Certain Items\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ Attack Element ]/@SUpDesc11>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 8
#SAY
What would you like to add?\\
<[ AC ]/@SUpDescPoint(0)> - PR on Certain Items\
<[ MR ]/@SUpDescPoint(1)> - PN on Certain Items\
<[ DC ]/@SUpDescPoint(2)>\
<[ M-All ]/@SUpDescPoint(3)>\
<[ Attack Element ]/@SUpDesc11>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

#IF
   equal D0 10
#SAY
What would you like to add?\\
<[ Comfort ]/@SUpDescPoint(0)>\
<[ WearWeight ]/@SUpDescPoint(1)>\
<[ HandWeight ]/@SUpDescPoint(2)>\
<[ HP ]/@SUpDescPoint(8)>\
<[ MP ]/@SUpDescPoint(9)>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

[@SUpDescPoint()]
#ACT
    mov D1 %ARG(1)
    mov D2 4
       
#IF
   checkitem SuperEnchantedOrb 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   HLSCRIPTCMD ITEMREMAKEADD %D0 %D1 1
   take SuperEnchantedOrb 1 
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
<[ Exit ]/@exit>\\\

[@SUpDesc11]
#IF
#SAY
<[ Attack Element(Fire) ]/@SUpDesc12(1)>\
<[ Attack Element(Cold) ]/@SUpDesc12(2)>\
<[ Attack Element(Light) ]/@SUpDesc12(3)>\
<[ Attack Element(Wind) ]/@SUpDesc12(4)>\
<[ Attack Element(Holy) ]/@SUpDesc12(5)>\
<[ Attack Element(Dark) ]/@SUpDesc12(6)>\
<[ Attack Element(Phantom) ]/@SUpDesc12(7)>\\
<[ Back ]/@SEnchantedOrbEvent_Main>\\\

[@SUpDesc12()]
#ACT
    mov D1 %ARG(1)
    mov D2 4
 
#IF
    checkitem SuperEnchantedOrb 1
    HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
    HLSCRIPTCMD ITEMREMAKEEQU %D0 11 %D1 
    HLSCRIPTCMD ITEMREMAKEADD %D0 12 1
    take SuperEnchantedOrb 1
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
<[ Exit ]/@exit>\\\
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;