MacroQuest64

Code: Select all

| fwi.mac - By amml 
| 
| thx to all who helped 
| NOTE: This macro, as is, requires the existance of a "Fisherman's Companion" located in a Main Inventory slot. 
| NOTE: HAve nothing in ur primary inventory slot except Brell's pole. 
| This macro uses an INI file to control what is kept and what is destroyed. 
| New items fished will be added to the existing list and set to keep by default. 
| This can be changed by editing the INI and change -1 to 0 in which case that item will be destroyed 
| This macro uses Circlet of Shadows prenerf to cast invis, but you can change it to anything, why i made this was because 
| myself i have the instant Circlet of Shadows prenerfand with this script i can now fish anywhere i want. 
| But u only get a real adventage out of it when u got instant invis, such as ranger aa or item, so 
| u can fish in the weirdest zones where u die if a mob aggroes...

#Event Pole "You can't fish without a fishing pole, go buy one." 
#Event End "You can't fish without fishing bait, go buy some." 
#Event End "Trying to catch land sharks perhaps?" 
#Event End "You must be on dry land to fish." 
#Event Invis "You feel yourself" 

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


sub somethingfromwater 

  /newif (${Me.Buff[Gather Shadows].Duration}<=5) /call ReInvis 
  /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 ReInvis 
     /if (${Me.State.NotEqual[STAND]}) /stand                     
     /cast item "Circlet of Shadow" 
/return 


Sub Event_Invis      
     /if (${Me.State.NotEqual[STAND]}) /stand     
     /delay 1s               
     /cast item "Circlet of Shadow" 
     /delay 1s    
     /sit on 
/return 


Sub Event_Pole  
| If u r in a zone where u can not allow one single break for invis, then better dont cast the fishing pole... 
|  /Echo Finished playing... 
|  /sit off 
|  /sit on 
|  /camp desktop 
|  /endmacro    
|/return
|
| But if u can be invis for a moment use:

 
  /newif (${Me.State.Equal["SIT"]}) /sit 
   /cast item "Fisherman's Companion" 
    /delay 15s             
     /cast item "Circlet of Shadow" 
   
      :reequip 
      /autoinventory 
      /newif (${Cursor.ID}) /goto :reequip 
/return 



Sub Event_End 
   /Echo Finished playing... 
   /sit off 
   /sit on 
   /camp desktop 
   /endmacro 
/return