MacroQuest64

Code: Select all

| fishing.mac - by amml
| Thx to everybody who helped :)
| 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 
   :Fish 
   /delay 1s 
   /if (${Me.AbilityReady[Fishing]}) /doability Fishing 
   /delay 6s
       /if (${Cursor.ID}) /call somethingfromwater 
   /doevents 
   /delay 1s 
   /goto :Fish 
/return 


sub somethingfromwater 

  /newif (!${Ini[fishing.ini,DestroyList,${Cursor.Name}].Length}) { 
    /ini "fishing.ini" "DestroyList" "${Cursor.Name}" "-1" 
  } else { 
    /newif (!${Ini[fishing.ini,DestroyList,${Cursor.Name}]}) { 
     /echo Destroying ${Cursor.Name} 
      /destroy 
      /return 
    } 
  } 

  :LootIt 
     /echo Keeping ${Cursor.Name} 
    /autoinventory 
    /if (${Cursor.ID}) /goto :LootIt 
/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