;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CALLHealthOrb]
{
#ACT
Mov A1 "HealthOrb"
Mov A2 "Orb"
Mov D1 8
Goto @HOrbCheck

[@HOrbCheck]
#CALL [System\ItemScripts\HealthOrb.txt] @CALLHOrbCheck
}

[@CALLHealthGem]
{
#ACT
Mov A1 "HealthGem"
Mov A2 "Gem"
Mov D1 8
Goto @HGOrbCheck

[@HGOrbCheck]
#CALL [System\ItemScripts\HealthOrb.txt] @CALLHOrbCheck
}

[@CALLCrackedHealthGem]
{
#ACT
Mov A1 "CrackedHealthGem"
Mov A2 "CrackedGem"
Mov D1 8
Goto @CHGOrbCheck

[@CHGOrbCheck]
#CALL [System\ItemScripts\HealthOrb.txt] @CALLHOrbCheck
}

[@CALLHOrbCheck]
{
#IF
CheckItem %A1  1
#SAY
Which Item would you like to Enchant?\\
<[ Armour ]/@HOEnchantItem(0)>\
<[ Shoes ]/@HOEnchantItem(10)>\
<[ Exit ]/@exit>\\\
#ELSESAY
No Item <$OUTPUT(A1)>\

[@HOEnchantItem()]
#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 @HOCheckRandom
   Break

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

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

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

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

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

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

[@HOCheckRandom]
#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 10
#ACT
   Take %A1 1
   GiveW  10 StrawShoes
   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


}

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