;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CALLProtectionOrb]
{
#ACT
Mov A1 "ProtectionOrb"
Mov A2 "Orb"
Mov D1 0
Goto @POrbCheck

[@POrbCheck]
#CALL [System\ItemScripts\ProtectionOrb.txt] @CALLPOrbCheck
}

[@CALLProtectionGem]
{
#ACT
Mov A1 "ProtectionGem"
Mov A2 "Gem"
Mov D1 0
Goto @PGOrbCheck

[@PGOrbCheck]
#CALL [System\ItemScripts\ProtectionOrb.txt] @CALLPOrbCheck
}

[@CALLCrackedProtectionGem]
{
#ACT
Mov A1 "CrackedProtectionGem"
Mov A2 "CrackedGem"
Mov D1 0
Goto @CPGOrbCheck

[@CPGOrbCheck]
#CALL [System\ItemScripts\ProtectionOrb.txt] @CALLPOrbCheck
}

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

[@POEnchantItem()]
#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 @POCheckRandom
   Break

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

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

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

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

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

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

[@POCheckRandom]
#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 4
#ACT
   Take %A1 1
   GiveW  4  NoobHelm
   Sysmsg "It failed and you lost your item"
   Close
   Break

#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 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


}

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