MacroQuest64

Code: Select all

| - Fishing.mac -
| MQ2Data and MQ2DataVars ready
| 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
   /echo Starting up ${Macro}
   /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

Code: Select all

Sub ItemSub 
   /for LC 1 to ${DAS} 
   /if (${Cursor.Name.Find[${DA[${LC}]}]}) { 
      /echo Destroying ${Cursor.Name} 
      /destroy 
      /delay 2s
      /return