Forage/Fishing/Alcohol Tolerance Macro.. (just for kicks)

[Vituz]

Ya ya.. I know why bother making another forage macro.. (Cause I dont know what else to do..) And at the time I wanted to mess around with fishing so I got brells rod and noticed my alcohol tolerance was at 20 sooo...

Code: Select all

| - FFAT.mac - 
| You need to put Fisherman's companion and at least 1 Summoned Ale out of a pack for this to work properly
| As you can easily see I stole bits from other people (cause it works why mess around with it?
#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} 
   :Fish 
   /if (${Cursor.ID}) /call ItemSub
   /if (${Me.AbilityReady[Fishing]}) /doability Fishing
   /if (${Me.AbilityReady[Forage]}) /doability Forage
   /cast item "Brell's Fishin' Pole" 
   /delay 4s
   /if (${Cursor.ID}) /call ItemSub
   /itemnotify pack8 rightmouseup
   /doevents 
   /delay 1s 
   /goto :Fish 
/return 

Sub ItemSub
 /if (!${Ini[forage.ini,DestroyList,${Cursor.Name}].Length}) { 
    /ini "forage.ini" "DestroyList" "${Cursor.Name}" "-1" 
  } else { 
    /if (!${Ini[forage.ini,DestroyList,${Cursor.Name}]}) { 
     /echo Destroying ${Cursor.Name}
     /destroy 
     /return 
    } 
  } 
  :LootIt 
    /echo Foraged a ${Cursor.Name}
    /autoinventory 
/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. 
   /endmacro 
/return 

There you have it... Forage/Fishing/Alcohol Tolerance (Needs Fishing Companion)

[jdelpheki]

i used this for better control over the amount of alchol i produced cause i was to drunk to drink anymore

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}]}]}) { 
      /destroy 
      /return 
   } 
   /if (${LC}==${DAS}) { 
      /autoinv
      /cast item "Brell's Fishin' Pole"
   /delay 4s 
   /itemnotify pack8 rightmouseup 
      /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