yet another fishing macro

yoda · Post by **yoda** » Fri Feb 27, 2004 4:01 pm

OK, I haven't had a chance to run this yet, but thought I would post out here to see if anyone sees any issues with anything...

(Kind of a mixture of a few fishing macro's I found, and I squished em all together with what I wanted to do)

Thanks in advance for all help and critique!

Seems to be working

Code: Select all

|***************************************************************************************|
| - YodaFish.mac -                                                                     *|
| - By: Yoda                                                                           *|
| - v1.0                                                                               *|
|                                                                                      *|
| Usage:                                                                               *|
| To Fish and Gate if anything attacks you.                                            *|
| Will Sit and camp out when you run out of bait.                                      *|
| To be used with a Fisherman's Companion.                                             *|
|                                                                                      *|
|***************************************************************************************|

#turbo 

#event BrokenPole "You can't fish without a fishing pole, go buy one." 
#event NoBait "You can't fish without fishing bait, go buy some."
#event Stunned "You are struck by a sudden force" 
#event Fizzle "Your spell fizzles" 
#event Interupt "Your spell has been interrupted"
#event NotStunned "You are no longer stunned"

Sub Main 
   /cleanup 
   :Fish 
      /call CheckPole  
      /doability Fishing 
      /delay 65  
      /doevents

      /if "$cursor(name)"=="Tattered Cloth Sandal" /destroy 
      /delay 1
      /if "$cursor(name)"=="Rusty Dagger" /destroy 
      /delay 1
      /if $cursor()==TRUE /call KeepItem
      /if n $char(hp,pct)<98 /call GateMe 
   /goto :Fish 
/return 

Sub KeepItem
   /if "$cursor(name)"!="Fish Scales" /call DoLog "Caught $cursor(name)..."
   /autoinventory
/return

Sub CheckPole 
   /if "$equip(primary,name)"~~"Brell's Fishin' Pole" /return 
   /if $invpanel==FALSE /press i 
   /if "$char(state)"=="SIT" /sit 
   /delay 4 
   /cast item "Fisherman's Companion"
   /delay 11s 
   /autoinventory 
   /press i 
   /sit
/return 

Sub GateMe 
   /delay 6 
   /if "$char(state)"=="SIT" /sit 
   /target myself
   :Gate
   /cast "Gate" 
   /delay 5
   /doevents
   /delay 6s
   /if "$char(state)"=="STAND" /sit 
   /camp desktop 
/endmacro 
    
Sub DoLog(Text)
   /mqlog @Text
   /echo @Text
/return

Sub Event_BrokenPole 
   /call CheckPole 
/return 

Sub Event_NoBait 
   /call GateMe 
/return

Sub Event_Fizzle
   /goto :Gate 
/return

Sub Event_Interupt
   /goto :Gate
/return

Sub Event_Stunned 
   :Wait
   /delay 1s
   /doevents
   :goto wait
/return

Sub Event_NotStunned 
   /goto :Gate
/return

ImaNoob · Post by **ImaNoob** » Mon Mar 08, 2004 6:02 pm

I run it and get the incredibly vague...
Cannot call when macro isn't running

Thats it, thats all I get

ml2517 · Post by **ml2517** » Mon Mar 08, 2004 7:50 pm

As I've stated in alot of other posts, avoid using multiline comments. |** and **|

So basically fix the top section with just starting each line with:

|

and delete all of the *'s.

PhoenixZorn · Post by **PhoenixZorn** » Wed Mar 10, 2004 12:14 pm

amazing how similar this looks to my macro, with a logger added... funny though, mine works.

yet another fishing macro

yet another fishing macro

Doesn't work and I don't understand why.