foraging macro revisited

gder · Post by **gder** » Sat Oct 19, 2002 8:40 pm

Okay...made a couple of updates. I'm still running into the problem of the cursor not always clearing but it may just be a bug with the IRC beta release...I'll wait and see...

Comments and sugestions on the folowing script would be greatly appreciated. (And yes I plan on adding event handlers for failure cases and hopefully soon some command line options to tell the script what kind of stuff to keep.)

Code: Select all

Sub Main

  :WaitForage
    /if n $char(ability,forage)>0 /call DoForage
    /doevents
    /delay 10
  /goto :WaitForage 


Sub DoForage

  /if $combat==TRUE {
  /attack off
  /varset v10 1 
  }

  /doability forage

  /doevents

  /if $invpanel==FALSE /press i

  :WaitForDrop 
    /click left auto 
    /doevents 
  /if $cursor()==TRUE /goto :WaitForDrop 

  /if $invpanel==TRUE /press i

  /if n $v10==1 /attack
  /varset v10 0

  /doevents

/return



/endmacro