Hotkey Poisoner & Enchant Stones

;Color Table for Poisons
;Lesser to Greater
;Poison : 1419/1422/1425
;Deadly Poison : 2060
;Plague : 2071
;Paralyze : 1957

set %TitleBarSupport #True ;#True for Title Bar Support / #False for no
set %EnchWeapons FMH_GFF_EPH_LPH_BPH_CUO_TSF_LPO_JPH_ZTH_MPF_RMH_SOH_TLH_
 +FUO_WSF_ATF_OMH_XPO_QPO_NMH_WOH_BNF_LTF_VPO_TOH_WTH_VRH_KTF_LMH_
 +OLH_FFF_ZSF_YTH_BUO_ASF_ISF_BSF_QPF_KPH_CUH_NPO_MPH_UOH_TRH_XRH_CSF_
 +KPO_POH_RRH_WPO_EMH_MSF_OPO_BUH_GUO_MMH_VTH_BFF_QMH_YSF_NSF_LSF_
 +GMH_JTF_SRH_CNF_FBG_HNF_ZPF_GBG_OSF_INF_HSF_AUO_ZTO_FSF_WRH_MTF_JPO_
 +RPF_HFF_XSF_YPO_JSF_DMH_XTH_PPO_QOH_URH_CQF_CFF_PMH_AUH_SPO_CPH_AQF_
 +MPO_YRH_USF_JOH_KSF_ZRF_PPF_TOH_WOH_JSF_USF_LMH_MMH_
Set %PoisonableWeapons ATF_NPO_JPH_TSF_NMH_VRH_JTF_SOH_BPH_LSF_BSF_
+NSF_ZRF_RMH_LPH_UOH_HSF_ZTO_BUO_XTH_OPO_CUO_
+XRH_GUO_MTF_RRH_
set %jrnl #jindex

GoSub CheckWeapon
while #True
 {
  OnHotKey F11
   {
    GoSub PoisonWeapon 2060 Deadly
   }
  OnHotKey F12
   {
    GoSub PoisonWeapon 1957 Paralyze
   }
  OnHotKey F3
   {
    GoSub UseEnchamtmentStone
   }
  GoSub UpdateStats

    if #jindex > %jrnl
     {
      set %jrnl %jrnl + 1
      scanjournal %jrnl
      if The_poison_on_your_weapon_seems_to_have_worn_off. in #journal
       {
        Set %Poisoned No
       }
     }
   }
 }

Sub PoisonWeapon
FindItem %PoisonableWeapons C_ , #CharID
if #FindID = X
 {
  Event Sysmessage You don't seem to have a weapon equipped!
  return
 }
 set %Weapon #FindID

Set %Poison N/A
FindItem WUF C
For #FindIndex 1 #FindCnt
 {
  event Property #FindID
  if #FindCol = %1 && %2 in #Property
  {
   Set %Poison #FindID
   Set %PoisonCheck #true
  }
 }
if %Poison = N/A
 {
  Set #SysMsgCol 2060
  Event Sysmessage You are out of that poison.
  Set %PoisonCheck #false
  return
 }

Event Macro 13 30
Set #LTargetID %Poison
Target 10s
Event Macro 22 0
Set #LTargetID %Weapon
Target 10s

set %jrnl #jindex
set %Timer #SCNT + 5
while %Timer > #SCNT
 {
  if #TargCurs = 1
   {
    Event Macro 22 0
   }
  if #jindex > %jrnl
   {
    set %jrnl %jrnl + 1
    scanjournal %jrnl
    if You_succeed_in in #journal
     {
      Set %Poisoned Yes
      return
     }
    if You_fail_to in #journal
     {
      Set %Poisoned No
      return
     }
   }
 }
return

;GoSub UpdateStats %Poisoned
Sub UpdateStats
if %TitleBarSupport = #True
 {
  Set %HPP ABS ( ( #hits  * 100 ) / #MaxHits )
  Set %DPP ABS ( ( #stamina  * 100 ) / #MaxStam )
  Set %MPP ABS ( ( #Mana  * 100 ) / #MaxMana )

  FindItem %EnchWeapons C_ , #CharID
  if #FindCnt > 0
  {
   if #FindCol = 2036
    {
     Set %Enchanted Yes
    }
   else
    {
     Set %Enchanted No
    }
  }
  else
  {
   Set %Enchanted No , #spc , Weapon!
  }
  setUOTitle #charName | HP - %HPP , % | DP - %DPP , % | MP - %MPP , % | Enchanted Weapon - %Enchanted | Poisoned Weapon - %Poisoned
 }
return

Sub CheckWeapon
FindItem %EnchWeapons C_ , #CharID
if #FindID = X
 {
  Event Sysmessage You don't seem to have a weapon equipped!
  return
 }
 set %Weapon #FindID

Event Macro 13 30
Set #LTargetID %Weapon
Target 5s
set %jrnl #jindex
set %Timer #SCNT + 5
while %Timer > #SCNT
 {
  if #TargCurs = 1
   {
    Event Macro 22 0
   }
  if #jindex > %jrnl
   {
    set %jrnl %jrnl + 1
    scanjournal %jrnl
    if It_appears_to in #journal
     {
      Set %Poisoned Yes
      return
     }
    if It_doesn't_appear in #journal
     {
      Set %Poisoned No
      return
     }
   }
 }
return

Sub UseEnchamtmentStone
FindItem %EnchWeapons C_ , #CharID
 if #FindCnt > 0
  {
   if #FindCol = 2036
   {
    Event Sysmessage Foolish Fighter, You weapon is already enchanted!
    return
   }
  }
 else
 {
  Event Sysmessage You Seem to have no weapon to enchant!
  return
 }
Set %EnchWeapID #FindID

FindItem TWS C
if #FindCnt < 1
 {
  Event SysMessage Foolish Fighter, Seems you have no enchantment stones!
  return
 }
Set %EnchStone #FindID

Set #LobjectID %EnchStone
Event Macro 17 0
Set #LTargetID %EnchWeapID
Target 5s
Event Macro 22 0
return