Poisoning Macro

;Make no promises on this macro working, I do not have a character with poisoning so it's all
;untested
GoSub Setup
While #True
 {
  GoSub CheckUp

  While %PoisoningTimer > #SCNT
   {
    if %PoisoningTimer = N/A
     {
      Set %PoisoningTimer #SCNT + 1
     }
   }

   if %PShieldTimer < #SCNT || %PShieldTimer = N/A
    {
     GoSub UsePotion 2094
     Set %PShieldTimer #SCNT + 300
    }
   GoSub Poisoning %Poisons %Weapon
 }

Sub Setup
Event Sysmessage Select your poisons
gosub TargResource Poisons
Event Sysmessage Select your Weapon
gosub TargResource Weapon
return

sub TargResource
Set #TargCurs 1

While #TargCurs <> 0
wait 1

set % . %1 #LTargetID
return

sub CheckUp
Set %BreakHPC #False
While %BreakHPC = #False
 {
  if #charGhost = yes
   {
    Event Macro 6 0
    Event Sysmessage Pausing Macro Due to Death, just key ESC when you are resituated
    set %DBreak #False
    While %DBreak <> #True
     {
      OnHotKey ESC
	     {
        Set %DBreak #True
	      wait 5
       }
     }
   }
  if %HealTime < #SCNT || %HealTime = N/A
   {
    if C in #charstatus
     {
      event macro 1 0 .Use Bandage
      target 5s
      event macro 23 0
      gosub WaitForJournalEvent You_have_cured You_have_failed
      set %HealTime #SCNT + 15
     }
    if #Hits < #MaxHits
     {
      event macro 1 0 .Use Bandage
      target 5s
      event macro 23 0
      gosub WaitForJournalEvent You_have_healed You_were_unsuccessful
      set %HealTime #SCNT + 15
     }
   }
  Set %HPP ABS ( ( #HITS * 100 ) / #MAXHITS ) )
  if %HPP > 60 && C notin #charstatus
   {
    Set %BreakHPC #True
   }
 }
return

sub WaitForJournalEvent
set %jrnl #jindex
while #true
 {
   if #jindex > %jrnl
    {
      set %jrnl %jrnl + 1
      scanjournal %jrnl
      for %cnt 1 %0
       {
        set %str % . %cnt
        if %str in #journal
         {
           return
         }
       }
    }
 }

;gosub Poisoning %Poisons %Weapon
sub Poisoning
FindItem %1
if #FindCnt < 1
{
 Event Sysmessage You are out of poisons my friend.
 halt
}

Event Macro 13 30
Set #LTargetID %1
while #TargCurs <> 1
 {
 }

Event Macro 22 0

Set #LTargetID %2
While #TargCurs <> 1
 {
 }

Event Macro 22 0
Set %PoisoningTimer #SCNT + 11
return

;GoSub UsePotion <PotionColor>
;=============================
; Potion Color Table
; The list order is potion type
; then next to it the potion colors
; for each potion strength. Ex:
; Mana Regen : 2974/2989/2088
;=============================
; Normal Potions
;=============================
; Agility :               1328/1331/1334
; Cure :                  46/45/44
; Explosion :             625/624/125
; Heal :                  356/354/2125
; Poison :                1419/1422/1425
; Strength :              904/905/906
; Wisdom :                1375/1374/1373
; Nightsight :            1109
; Refresh :               1642/1635
;=============================
; Custom Potions
;=============================
; Deadly Poison :          2060
; Equalizer :                 1967
; Magic Reflect :           2027
; Paralyze :                  1957
; Plague :                    2071
; Paralyze Protection :   1998
; Holy Water :              1953
; Clumsy :                   2033/2087/2988
; Flashbang :               2058/1155/1992
; Incognito :                2984/1947/2050
; Invisibility :               2048/2053/2051
; Mana Regen :            2974/2989/2088
; Mana Vampire :          2020/1941/2060
; Poison Shield :           2054/2032/2094
; Protection :               1995/2098/2070
; Reactive Armor :         2037/2988/2074
; Regeneration :            1945/1948/2021
; Shockwave :              1959/1914/2083
; TrueSight :                288/286/285
; Weaken :                  856/855/854
;=============================
Sub UsePotion
if %1 <> 0 || %1 <> N/A
 {
  FindItem WUF C
  For #FindIndex 1 #FindCnt
   {
    if #FindCol = %1
     {
      Set #LObjectID #FindID
      Event Macro 17 0
      wait 5
      return
     }
   }
 }
else
 {
  Event Sysmessage Silly Person, You must provide a color to search for!
  wait 5
  return
 }
Event Sysmessage You don't seem to have any more of those potions!
wait 5
return