Fish anywhere

[playa]

i edited this code by adding from the fishing mac in under tradeskills bot

not sure if this one works but

#turbo

#event BrokenPole "#*#You can't fish without a fishing pole, go buy one.#*#"
#event NoBait "#*#You can't fish without fishing bait, go buy some.#*#"

Sub Main
    /cleanup
    :Fish
        /call CheckPole 
        /doability Fishing
        /delay 65 
        /doevents

        /if (!${Cursor.ID}) /goto :Fish

        /if (${Cursor.Name.Equal[Tattered Cloth Sandal]}) {
            /destroy
            /delay 1s
        } else {
            /if (${Cursor.Name.Equal[Rusty Dagger]}) {
                /destroy
                /delay 1s
            } else {
                /call KeepItem
            }
      }
   /goto :Fish
/return

Sub KeepItem
   /if (${Cursor.Name.NotEqual[Fish Scales]}) /echo Caught ${Cursor.Name}
   /notify InventoryWindow IW_CharacterView leftmouseup
/return

Sub CheckPole
   /if (${Me.Inventory[mainhand].Name.Find[Fishing Pole]}) /return
   /echo  You need to put your fishing pole in your primary hand.
   /endm
/return

Sub Event_BrokenPole
   /endmacro
/return

Sub Event_NoBait
   /endmacro
/return

but this is what i came up with i have fishermans compaion it wont summon and put the pole into my bag though but will fish as long as you have enough bait and your pole doesnt break

#turbo

#event BrokenPole "#*#You can't fish without a fishing pole, go buy one.#*#"
#Event BrokenPole "#*#You need to put your fishing pole#*#"
#event NoBait "#*#You can't fish without fishing bait, go buy some.#*#"
#Event Holding "#*#can't fish while holding#*#"

#include common/sell.inc
#include common/buy.inc
#include common/packs.inc
#include common/cleanpacks.inc
#include common/CommonSubs.inc


Sub Main
    /cleanup
    :Fish
        /call CheckPole 
        /doability Fishing
        /delay 65 
        /doevents

        /if (!${Cursor.ID}) /goto :Fish

        /if (${Cursor.Name.Equal[Tattered Cloth Sandal]}) {
            /destroy
            /delay 1s
        } else {
            /if (${Cursor.Name.Equal[Rusty Dagger]}) {
                /destroy
                /delay 1s
            } else {
                /call KeepItem
            }
      }
   /goto :Fish
/return

Sub KeepItem
/if (${Cursor.Name.NotEqual[Fish Scales]}) /echo Caught ${Cursor.Name}
   /notify InventoryWindow IW_CharacterView leftmouseup
/return

Sub CheckPole
   /if (${Me.Inventory[mainhand].Name.Find[Brell's Fishin' Pole]}) /return
   /echo  You need to put your fishing pole in your primary hand.
   /endmacro
/return

Sub Event_BrokenPole
   /if (${FindItemCount[=Fishing Pole]}>0) {
		/call OpenPacks
		/delay ${Math.Calc[${DelayMult}*1]}s
		/nomodkey /ctrl /itemnotify ${FindItem[=Fishing Pole].InvSlot} leftmouseup
		/delay 2s ${Cursor.ID}
		/nomodkey /itemnotify mainhand leftmouseup
		/delay 1s
		/autoinv
		/delay ${Math.Calc[${DelayMult}*2]}s
		/call ClearCursor
		/call ClosePacks
		/return
	} else {
		/if (${FindItemCount[=Fisherman's Companion]}>0) {    
			/nomodkey /ctrl /itemnotify ${FindItem[=Fisherman's Companion].InvSlot} Rightmouseup
			/delay ${Math.Calc[${DelayMult}*10]}s
			/delay 2s ${Cursor.ID}
			/nomodkey /itemnotify mainhand leftmouseup
			/delay 1s
			/autoinv
			/call ClearCursor
			/return

Sub Event_Holding
	/call ClearCursor
	/return

Sub Event_NoBait
   /endmacro
/return

also couldnt get scales to destroy without messing up the macro
any suggestions welcome

 

[Wolfborn]

Here's my code for using the Fishing companion.
If the Brell's pole is in your inventory it will equip it into main hand.
If you don't have a Brell's pole it will summon one and equip in main hand.
If you don't have a pole or a Fishing Companion it will end macro when the equiped pole breaks.
Haven't set it up for summoning beer yet.....

Sub CheckPole
   /if (${Me.Inventory[mainhand].Name.Find[Brell's Fishin' Pole]}) /return

   	/if (${FindItemCount[Brell's Fishin' Pole]} >= 1) {
		/exchange "Brell's Fishin' Pole" mainhand
		/echo Equiping new Fishing Pole. Carry on.
		/return
	}  		
	/if (${FindItemCount[=Fisherman's Companion]}>0) { 
			/echo Using handy Fisherman's Companion to summon you a new pole.. wait for it...
			/nomodkey /ctrl /itemnotify ${FindItem[=Fisherman's Companion].InvSlot} Rightmouseup
			/delay ${Math.Calc[${DelayMult}*10]}s
			/delay 10s ${Cursor.ID}
			/nomodkey /itemnotify mainhand leftmouseup
			/delay 1s
			/autoinv
			/return
		}
		
   /echo  You need to buy more fishing poles.
   /endmacro
/return

 

[playa]

Thanks so much your awesome.

 

[tjthevike]

Hey guys, thank you for the macro. I am a newb to this stuff so I don't know how to incorporate wolfborn's macro to playa's. Also wondering if it might be easier to make a bandolier with the brell's fishing pole and add that into the macro. Thank you in advance,

TJ

 

[Cain]

Thanks!

Thank you both for the mac scripts, it's working perfectly!