;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CALLBraveryOrb]
{
#ACT
Mov A1 "BraveryOrb"
Mov A2 "Orb"
Mov D1 2
Goto @BOOrbCheck

[@BOOrbCheck]
#CALL [System\ItemScripts\BraveryOrb.txt] @CALLOrbCheck
}

[@CALLBraveryGem]
{
#ACT
Mov A1 "BraveryGem"
Mov A2 "Gem"
Mov D1 2
Goto @BGOrbCheck

[@BGOrbCheck]
#CALL [System\ItemScripts\BraveryOrb.txt] @CALLOrbCheck
}

[@CALLCrackedBraveryGem]
{
#ACT
Mov A1 "CrackedBraveryGem"
Mov A2 "CrackedGem"
Mov D1 2
Goto @CBGOrbCheck

[@CBGOrbCheck]
#CALL [System\ItemScripts\BraveryOrb.txt] @CALLOrbCheck
}

[@CALLOrbCheck]
{
#IF
CheckItem %A1  1
#SAY
Which Item would you like to Enchant?\\
<[ Armour ]/@BOEnchantItem(0)>\
<[ Necklace ]/@BOEnchantItem(3)>\
<[ Helmet ]/@BOEnchantItem(4)>\
<[ Bracelet(L) ]/@BOEnchantItem(5)>\
<[ Bracelet(R) ]/@BOEnchantItem(6)>\
<[ Ring(L) ]/@BOEnchantItem(7)>\
<[ Ring(R) ]/@BOEnchantItem(8)>\
<[ Exit ]/@exit>\\\
#ELSESAY
no Item <$OUTPUT(A1)>\

[@BOEnchantItem()]
#IF
!CheckItem %A1 1
#ACT
Break
#SAY
Cheater!\
#ELSEACT
Mov  D0  %ARG(1)

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 7
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
Take %A1 1
Break

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 6
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   Mov  D3 20
   Goto @BOCheckRandom
   Break

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 5
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   Mov  D3 25
   Goto @BOCheckRandom
   Break

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 4
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   Mov  D3 30
   Goto @BOCheckRandom
   Break

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 3
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   Mov  D3 35
   Goto @BOCheckRandom
   Break

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 2
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   Mov  D3 40
   Goto @BOCheckRandom
   Break

#IF
   !HLSCRIPTCMD CHECKITEMPRO %D0 %D1 1
   Checkitem %A1 1
   HLSCRIPTCMD CHECKISTAKEITEM %D0
#ACT
   Mov  D3 50
   Goto @BOCheckRandom
   Break

#IF
   Checkitem %A1 1
#ACT
   Mov  D3 60
   Goto @BOCheckRandom
   Break
#ELSESAY
   Cheating Bugger!!!\\

[@BOCheckRandom]
#ACT
   Movr D4 100
#IF
   ESmall D4 %D3
#ACT
   HLSCRIPTCMD ITEMREMAKEADD %D0 %D1 1
   Take %A1 1 
   Sysmsg "Success!!"
   Close
   Break

#IF
   Equal A2 "Orb"
#ACT
   Take %A1 1
   Sysmsg "Failure!!"
   Close
   Break

#IF
   Equal A2 "Gem"
#ACT
   Movr D4 100
   Mov D3 50
#IF
   Equal A2 "CrackedGem"
#ACT
   Movr D4 100
   Mov D3 80

#IF
   ESmall D4 %D3
#ACT
   Goto @OrbGiveNoob
#ELSEACT
   Take %A1 1
   Sysmsg "Failure!!"
   Close
   Break


[@OrbGiveNoob]
#IF
   Equal D0 5
#ACT
   Take %A1 1
   GiveW  5  NoobBrace
   Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 6
#ACT
   Take %A1 1
   GiveW  6  NoobBrace
      Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 7
#ACT
   Take %A1 1
   GiveW  7  NoobRing
      Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 8
#ACT
   Take %A1 1
   GiveW  8  NoobRing
      Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 4
#ACT
   Take %A1 1
   GiveW  4  NoobHelm
      Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 3
#ACT
   Take %A1 1
   GiveW  3  NoobNecky
      Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 0
   Gender Man
#ACT
   Take %A1 1
   GiveW  0  NoobDress(M)
      Sysmsg "It failed and you lost your item"
   Close
   Break

#IF
   Equal D0 0
   !Gender Man
#ACT
   Take %A1 1
   GiveW  0  NoobDress(F)
      Sysmsg "It failed and you lost your item"
   Close
   Break


}

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