;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CALLEnchantedOrbEvent]
{
#IF
CheckItem  EnchantedOrb 1
#SAY
This is an EnchantedOrb, it has the power\
to Enchant an item of your choice with\
whatever you want!\\
Would you like to Add or Remove a Stat?\
<[ Add Stat ]/@ChooseItemAdd>\
<[ Remove Stat ]/@ChooseItemRem>\


[@ChooseItemAdd]
#SAY
Which Item would you like to Enchant?\\
<[ Armour ]/@EnchantItem(0)>\
<[ Necklace ]/@EnchantItem(3)>\
<[ Helmet ]/@EnchantItem(4)>\
<[ Bracelet(L) ]/@EnchantItem(5)>\
<[ Bracelet(R) ]/@EnchantItem(6)>\
<[ Ring(L) ]/@EnchantItem(7)>\
<[ Ring(R) ]/@EnchantItem(8)>\
<[ Shoes ]/@EnchantItem(10)>\\
<[ Exit ]/@exit>\\\


[@EnchantItem()]
#IF
!CheckItem  EnchantedOrb 1
#ACT
Break
#SAY
Cheater!\

#IF
#ACT
Mov  D0  %ARG(1)

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

#IF
   equal D0 3
#SAY
What would you like to add?\\
;<[ Accuracy ]/@UpDescPoint(0)> - HPR on Certain Items\
;<[ Agility ]/@UpDescPoint(1)> - MPR on Certain Items\
<[ DC ]/@UpDescPoint(2)>\
<[ M-All ]/@UpDescPoint(3)>\
<[ Attack Element ]/@UpDesc11>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

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

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

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

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

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

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

[@UpDescPoint()]
#ACT
    mov D1 %ARG(1)
    mov D2 4
       
#IF
   HLSCRIPTCMD CHECKITEMAMULETCOUNT %D0 %D2
   checkitem EnchantedOrb 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   HLSCRIPTCMD ITEMREMAKEADD %D0 %D1 1
   take EnchantedOrb 1 
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
and that you don't have 5 or more Stats Added\
already!\\
<[ Exit ]/@exit>\\\

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

[@UpDesc12()]
#ACT
    mov D1 %ARG(1)
    mov D2 4
 
#IF
    HLSCRIPTCMD CHECKITEMAMULETCOUNT %D0 %D2
    checkitem EnchantedOrb 1
    HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
    HLSCRIPTCMD ITEMREMAKEEQU %D0 11 %D1 
    HLSCRIPTCMD ITEMREMAKEADD %D0 12 1
    take EnchantedOrb 1
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
and that you don't have more than 5 Stats Added\
already!\\
<[ Exit ]/@exit>\\\



[@ChooseItemRem]
#SAY
Which Item would you like to Enchant?\\
<[ Armour ]/@EnchantItemRem(0)>\
<[ Necklace ]/@EnchantItemRem(3)>\
<[ Helmet ]/@EnchantItemRem(4)>\
<[ Bracelet(L) ]/@EnchantItemRem(5)>\
<[ Bracelet(R) ]/@EnchantItemRem(6)>\
<[ Ring(L) ]/@EnchantItemRem(7)>\
<[ Ring(R) ]/@EnchantItemRem(8)>\
<[ Shoes ]/@EnchantItemRem(10)>\\
<[ Exit ]/@exit>\\\


[@EnchantItemRem()]
#IF
!CheckItem  EnchantedOrb 1
#ACT
Break
#SAY
Cheater!\

#IF
#ACT
Mov  D0  %ARG(1)

#IF
   equal D0 0
#SAY
What would you like to Remove?\\
<[ AC ]/@DownDescPoint(0)>\
<[ MR ]/@DownDescPoint(1)>\
<[ DC ]/@DownDescPoint(2)>\
<[ M-All ]/@DownDescPoint(3)>\
<[ HP ]/@DownDescPoint(8)>\
<[ MP ]/@DownDescPoint(9)>\
<[ ADV ]/@DownDesc13>\
<[ DIS ]/@DownDesc15>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

#IF
   equal D0 3
#SAY
What would you like to Remove?\\
<[ Accuracy ]/@DownDescPoint(0)> - HPR on Certain Items\
<[ Agility ]/@DownDescPoint(1)> - MPR on Certain Items\
<[ DC ]/@DownDescPoint(2)>\
<[ M-All ]/@DownDescPoint(3)>\
<[ Attack Element ]/@DownDesc11>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

#IF
   equal D0 4
#SAY
What would you like to Remove?\\
<[ AC ]/@DownDescPoint(0)>\
<[ MR ]/@DownDescPoint(1)>\
<[ DC ]/@DownDescPoint(2)>\
<[ M-All ]/@DownDescPoint(3)>\
<[ Attack Element ]/@DownDesc11>\
<[ ADV ]/@DownDesc13>\
<[ DIS ]/@DownDesc15>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

#IF
   equal D0 5
#SAY
What would you like to Remove?\\
<[ AC ]/@DownDescPoint(0)>\
<[ MR ]/@DownDescPoint(1)>\
<[ DC ]/@DownDescPoint(2)>\
<[ M-All ]/@DownDescPoint(3)>\
<[ Attack Element ]/@DownDesc11>\
<[ ADV ]/@DownDesc13>\
<[ DIS ]/@DownDesc15>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

#IF
   equal D0 6
#SAY
What would you like to Remove?\\
<[ AC ]/@DownDescPoint(0)>\
<[ MR ]/@DownDescPoint(1)>\
<[ DC ]/@DownDescPoint(2)>\
<[ M-All ]/@DownDescPoint(3)>\
<[ Attack Element ]/@DownDesc11>\
<[ ADV ]/@DownDesc13>\
<[ DIS ]/@DownDesc15>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

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

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

#IF
   equal D0 10
#SAY
What would you like to Remove?\\
<[ Recovery ]/@DownDescPoint(0)>\
<[ WearWeight ]/@DownDescPoint(1)>\
<[ HandWeight ]/@DownDescPoint(2)>\
<[ HP ]/@DownDescPoint(8)>\
<[ MP ]/@DownDescPoint(9)>\
<[ ADV ]/@DownDesc13>\
<[ DIS ]/@DownDesc15>\\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

[@DownDescPoint()]
#ACT
    mov D1 %ARG(1)
    mov D2 0
#IF
;   HLSCRIPTCMD CHECKITEMAMULETCOUNT %D0 %D2
   checkitem EnchantedOrb 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   HLSCRIPTCMD ITEMREMAKESUB %D0 %D1 1
   take EnchantedOrb 1 
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
and that you have at least 1 Stat Added\
already!\\
<[ Exit ]/@exit>\\\

[@DownDesc11]
#IF
#SAY
This will remove ALL element points\\
<[ Remove Element ]/@DownDesc12>\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

[@DownDesc12]
#ACT
    mov D1 %ARG(1)
    mov D2 0
#IF
;    HLSCRIPTCMD CHECKITEMAMULETCOUNT %D0 %D2
    checkitem EnchantedOrb 1
    HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
    HLSCRIPTCMD ITEMREMAKEEQU %D0 11 0
    HLSCRIPTCMD ITEMREMAKEEQU %D0 12 0
    take EnchantedOrb 1
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
and that you have at least 1 Stat Added\
already!\\
<[ Exit ]/@exit>\\\

[@DownDesc13]
#IF
#SAY
This will remove ALL ADV Elements\\
<[ Remove Element ]/@DownDesc14>\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

[@DownDesc14]
#ACT
    mov D1 %ARG(1)
    mov D2 0
#IF
;    HLSCRIPTCMD CHECKITEMAMULETCOUNT %D0 %D2
    checkitem EnchantedOrb 1
    HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
    HLSCRIPTCMD ITEMREMAKEEQU %D0 5 0
    take EnchantedOrb 1
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
and that you have at least 1 Stat Added\
already!\\
<[ Exit ]/@exit>\\\

[@DownDesc15]
#IF
#SAY
This will remove ALL DIS Elements\\
<[ Remove Element ]/@DownDesc16>\
<[ Back ]/@EnchantedOrbEvent_Main>\\\

[@DownDesc16]
#ACT
    mov D1 %ARG(1)
    mov D2 0
#IF
;    HLSCRIPTCMD CHECKITEMAMULETCOUNT %D0 %D2
    checkitem EnchantedOrb 1
    HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
    HLSCRIPTCMD ITEMREMAKEEQU %D0 6 0
    take EnchantedOrb 1
#SAY
Item Enchanted!!!!\
<[ Exit ]/@exit>\\\
#ELSESAY
Please check that you are wearing the item\
That you are not cheating by dropping the orb\
and that you have at least 1 Stat Added\
already!\\
<[ Exit ]/@exit>\\\

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
