Fishing Spell Skill Trainer

[Mckorr]

Stand on a shore with your fishing pole equipped, and you can use this macro to train up your spell skills, fishing while medding up. Takes one argument, the number of the spell gem you wish to cast. Auto targets yourself, so watch which spell you are using

Code: Select all

| fishspells.mac
| usage:  /macro fishspells #, where # is the gem you wish to cast repeatedly.
| Macro will fish while medding, but will end if your pole breaks or you run out of bait.

#include routines.mac

#event CastOOM "Insufficient Mana to cast this spell!" 
#event NoPole "You need to put your fishing pole in your primary hand."
#event NoBait "You can't fish without fishing bait, go buy some."
#event BrokePole "Your fishing pole broke!"

Sub Main 
   /varset v0 $p0
   :ReCast
   /press F1 
   /cast $p0
   /doevents 
   /delay 3s 
   /goto :ReCast 
/return 

Sub Event_CastOOM 
   /sit 
   :medding
   /call getfish
   /stand 
/return 

Sub getfish
   /cleanup
   :Fish
      /if $char(ability,"sense heading")>0 /doability "Sense Heading"
      /if $char(ability,fishing)>0 /if $cursor()==NULL {
         /doability Fishing
         /doevents
         /delay 13s
         /if "$cursor(name)"=="Tattered Cloth Sandal" /call Destroy
         /if "$cursor(name)"=="Rusty Dagger" /call Destroy
         /if $cursor()==TRUE /call Keep
         }
   /if n $char(mana,pct)<100 /goto :Fish
/return

Sub Event_NoPole
   /stand
   /endmacro
   /return

Sub Event_NoBait
   /stand
   /endmacro
   /return
  
Sub Event_BrokePole
   /stand
   /endmacro
   /return