Fishing.mac, uses fishermans companion

[Virtuoso65]

Just updated for the new system.
Usage, Stand by water with bait and your companion in an open inventory slot with main hand empty.

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

[DumbStruck]

This mac works great . untill u get to the sub events . none of those work . it wont cast fishermans comp or camp tried fixing cant get it to work any suggestions ?

[amml]

yep same problem here, after he catches something he stops with having it on the cursor, not doing anything...

[Virtuoso65]

Do you have your options set to drop never? That might cause an issue with the macro as when the mac issues the /drop command the item just pops back on your cursor.

As for item casting thats odd, it worked fine for me when I was testing it out and debugging. Unless you do not have your fishermans companion in an open inventory slot, ie NOT in a bag.

[DumbStruck]

Seems like in my adding extra stuff i messed soomething up . your code is nice . ty much . I dont know why you u choose to drop everythin on the ground i added for those items to be destroyed and also to echo destroy's and saves back to (macro window) .

Code: Select all

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

[jaboo]

Hello and thx for sharing ur fishing macro with us

i was wondering tho, i do not have fisher mans companion. is there anyway that i could just buy like 8 fishing poles and when one breaks it just swaps it?

[Chill]

Yes, you technically could use regular fishing poles. If you really want to do it, look at Proects' swap.mac and either cut and paste it into your macro or turn it into an inculde file. Use it to swap the fishing poles into your primary inventory slot.

If you are level 55+ or know where the bazaar is, however, I would strongly suggest just looking up the Fisherman's Companion Quest. You need a couple from PON and POJ along with a little fishing skill to turn those fish into bones. It's rediculously simple and worth the time, honestly.

[TrippyTom]

It seems when using this, your character will drop to the char selection screen if you run out of bait. Has this happened to anyone else?

[grimjack]

It seems when using this, your character will drop to the char selection screen if you run out of bait. Has this happened to anyone else?

Yes, when I wrote the original(pre conversion) that was what I intended. I wanted it to camp out once out of bait. If you don't want it to you can change the out of bait event.

Complete info can be found here:
http://macroquest2.com/phpBB2/viewtopic ... highlight=

Thanks
GrimJack[/url]