Simple Fishing mac for brell's companion, MQ2Data compliant

[Virtuoso65]

Just load up on bait, park your self by some water, take what ever is in your main hand and bag it, put the brells companion in an open inventory slot and your set.

I didnt create the original macro so thanks who ever wrote this long ago like last year+. I just updated it to work with the current system with as little bs as posable.

Code: Select all

| - Fishing.mac -
| You need a fisherman's companion in an inventory slot for this macro to work properly.

#event PrimaryHand "You need to put your fishing pole in your primary hand."
#event OutOfBait "You can't fish without fishing bait, go buy some."
#event NeedPole "You can't fish without a fishing pole, go buy one."

Sub Main
   /zapvars
   /cleanup
   /declare DAS global
   /declare LC global
   /declare DA array
   /varset DA(0) "Tattered Cloth Sandal"
   /varset DA(1) "Rusty Dagger"
   /varset DA(2) "Fish Scales"
   /varset DA(3) "Dragon Bay"
   /varset DA(4) "Fresh Fish"
   /varset DAS 5
   /varset LC 0

   :Fish
   /if (${Cursor.ID}) /call ItemSub
   /if (${Me.AbilityReady[Fishing]}) /doability Fishing
   /doevents
   /delay 1s
   /goto :Fish
/return

Sub ItemSub
   /for LC 0 to @DAS
   /if (${Cursor.Name.Find[@DA(@LC)]}) {
      /drop
      /return
   }
   /if (@LC==@DAS) {
      /autoinv
      /return
   }
   /next LC
/return

Sub Event_NeedPole
   /cast item "Fisherman's Companion"
   /delay 11s
   /autoinv
/return

Sub Event_PrimaryHand
   /cast item "Fisherman's Companion"
   /delay 11s
   /autoinv
/return

Sub Event_OutOfBait
   /Echo Ran out of Bait.
   /sit off
   /sit on
   /camp
   /endmacro
/return

[grimjack]

Good looking conversion.

Thanks
GrimJack

[firedancer]

Yes thanks very much

[JWWQ]

Code: Select all

Sub ItemSub
   /for LC 0 to @DAS
   /if ([color=red]${Cursor.Name.Find[@DA(@LC)]}[/color]) {
      /drop
      /return
   }
   /if [color=red](@LC==@DAS)[/color] {
      /autoinv
      /return
   }
   /next LC
/return

Sub Event_NeedPole
   /cast item "Fisherman's Companion"
   /delay 11s
   /autoinv
/return

Is this part still MQ2 compliant? How do we get the array to work now?

[nosaj969]

I have no idea if this will work. I just changed the code to MQ2. DAS may need to be 6 instead of 5. If you have trouble with the "Fresh Fish" that may be what it is.

Code: Select all

| - Fishing.mac - 
| You need a fisherman's companion in an inventory slot for this macro to work properly. 

#event PrimaryHand "#*#You need to put your fishing pole in your primary hand.#*#" 
#event OutOfBait "#*#You can't fish without fishing bait, go buy some.#*#" 
#event NeedPole "#*#You can't fish without a fishing pole, go buy one.#*#" 

Sub Main 

   /declare DAS int outer
   /declare LC int outer 
   /declare DA[5] string outer
   /varset DA[1] "Tattered Cloth Sandal" 
   /varset DA[2] "Rusty Dagger" 
   /varset DA[3] "Fish Scales" 
   /varset DA[4] "Dragon Bay" 
   /varset DA[5] "Fresh Fish" 
   /varset DAS 5 
   /varset LC 1 

   :Fish 
   /if (${Cursor.ID}) /call ItemSub 
   /if (${Me.AbilityReady[Fishing]}) /doability Fishing 
   /doevents 
   /delay 1s 
   /goto :Fish 
/return 

Sub ItemSub 
   /for LC 1 to ${DAS} 
   /if (${Cursor.Name.Find[${DA[${LC}]}]}) { 
      /drop 
      /return 
   } 
   /if (${LC}==${DAS}) { 
      /autoinv 
      /return 
   } 
   /next LC 
/return 

Sub Event_NeedPole 
   /cast item "Fisherman's Companion" 
   /delay 11s 
   /autoinv 
/return 

Sub Event_PrimaryHand 
   /cast item "Fisherman's Companion" 
   /delay 11s 
   /autoinv 
/return 

Sub Event_OutOfBait 
   /Echo Ran out of Bait. 
   /sit off 
   /sit on 
   /camp 
   /endmacro 
/return 

nosaj969