Fish.mac - My own version having a problem

[drwoo]

i used the code from the macro library and altered it to try and suit my needs, which is to used the summoned pole and if it breaks then resummon, also to only keep the zone specific items and destroy the common items

for some reason when my pole breaks and i have to summon a new one, afterwards it stops destroying the regular nonzone items

Code: Select all

| - Fish.mac - 
| 
#include routines.mac 

Sub Main 
   /cleanup 
   :Fish 
      /call CheckPole 
      /if $return==1 /return 
      /call CheckBait 
      /if $return==1 /return 
      | Modify the following line to your correct Ability Key for Fishing 
      /doability 1 
      /delay 55 
      /if "$cursor(name)"=="Tattered Cloth Sandal" /click left destroy 
      /if "$cursor(name)"=="Rusty Dagger" /click left destroy
      /if "$cursor(name)"=="Fish Scales" /click left destroy
      /if "$cursor(name)"=="Fresh Fish" /click left destroy 
      /click left auto 
   /goto :Fish 
/return 

Sub CheckPole 
   /if "$equip(primary,name)"~~"Brell's Fishin' Pole" /return 0
   /click right hotkey 6
   /delay 110
   /if "$cursor()"=="NULL" /return 1
   /click left equip primary
/return 0 

Sub CheckBait 
   /if "$equip(ammo,name)"~~"Bait" /return 0 
   /if "$equip(ammo,name)"~~"Lure" /return 0 
   /if "$cursor()"=="NULL" /sendkey down shift 
   /if "$cursor()"=="NULL" /finditem similar "Bait" 
   /if "$cursor()"=="NULL" /finditem similar "Lure" 
   /if "$cursor()"=="NULL" /sendkey up shift 
   /if "$cursor()"=="NULL" /return 1 
   /click left auto 
/return 0 

[Lurker_005]

Hacked it up a bit, used spellcast.mac, made sure inv was open, used ability name... give it a try

Code: Select all

| - Fish.mac - 
| 
#include routines.mac 
#include spellcast.mac 

Sub Main 
   /cleanup 
   :Fish 
      /call CheckPole 
      /call CheckBait 
      /if $return==1 /return 
      /doability Fishing 
      /delay 55 
      /if $invpanel==FALSE /press i 
      /if "$cursor(name)"=="Tattered Cloth Sandal" /click left destroy 
      /if "$cursor(name)"=="Rusty Dagger" /click left destroy 
      /if "$cursor(name)"=="Fish Scales" /click left destroy 
      /if "$cursor(name)"=="Fresh Fish" /click left destroy 
      /click left auto 
   /goto :Fish 
/return 

Sub CheckPole 
   /if "$equip(primary,name)"~~"Brell's Fishin' Pole" /return 0 
   /call cast "Summon Brell's Fishin' Pole"
   :waitingpole
   /delay 10
   /if "$cursor()"=="NULL" goto :waitingpole 
   /if $invpanel==FALSE /press i 
   /click left equip primary
/return 0 

Sub CheckBait 
   /if $invpanel==FALSE /press i 
   /click left auto 
   /if "$equip(ammo,name)"~~"Bait" /return 0 
   /if "$equip(ammo,name)"~~"Lure" /return 0 
   /sendkey down shift 
   /if "$cursor()"=="NULL" /finditem similar "Bait" 
   /if "$cursor()"=="NULL" /finditem similar "Lure" 
   /sendkey up shift 
   /if "$cursor()"=="NULL" /return 1 
   /click left auto 
/return 0 

[drwoo]

thanks man gonna give it a shot tonight