Fishing From Boat

////******************************************************////
//Title: Fishing From a Boat
//Author: Maelune
//Purpose: Automatically fish from a boat! Will attempt to
//         move the boat forward several spaces if you
//         run out of fish in your immediate area.
//
//Requirements: A fishing pole (avoid having one with charges)
//              A dagger (Like the one you start with)
//     Optional:Full LRC set
//
//Instructions: Put a check in the "Loop" box in steam.
//              Run the macro!
//
//Notes: You may run into sea serpents, water elementals, and
//         krakens. Be prepared and attentive!.
//       You will need to manually turn your boat if you run
//         ashore!
//       If you have a spellbook in your pocket, it will attempt
//         to kill nearby critters that might obstruct your
//         boat.
////******************************************************////
//Uncomment next if statement for trash removal
//You must set up an organizer for this to work. Be careful not to allow
//it to trash anything important. Organizer doesn't always descriminate
//between awesome boots and trash boots.
//if counttype 0x170f 0 'backpack' >= 1
//organizer 'Trash'
//while organizing
//endwhile
//waitforcontext 0x40c87654 0 15000
//endif
//Chops up any fishies in your bag using a dagger
@getenemy 'murderer' 'enemy' 'criminal' 'gray' 'closest'
if @findtype 0xefa 'any' 'backpack' and @findobject 'enemy'
while @findobject 'enemy'
  cast 'energy bolt'
  waitfortarget 5000
  target! 'enemy'
  pause 200
endwhile
msg '[grab'
endif
if @findtype 0xf52 'any' 'backpack'
while counttype 0x9cc 'any' 'backpack' >= 1
  usetype 0xf52 'any'
  waitfortarget 500
  targettype 0x9cc
  pause 500
endwhile
while counttype 0x9cf 'any' 'backpack' >= 1
  usetype 0xf52 'any'
  waitfortarget 500
  targettype 0x9cf
  pause 500
endwhile
while counttype 0x9ce 'any' 'backpack' >= 1
  usetype 0xf52 'any'
  waitfortarget 500
  targettype 0x9ce
  pause 500
endwhile
while counttype 0x9cd 'any' 'backpack' >= 1
  usetype 0xf52 'any'
  waitfortarget 500
  targettype 0x9cd
  pause 500
endwhile
endif
//Begin using fishing pole
usetype 0xdc0 'any'
waitfortarget 500
if direction == 0
  targettileoffset 0 -1 -3
elseif direction == 1
  targettileoffset 1 -1 -3
elseif direction == 2
  targettileoffset 1 0 -3
elseif direction == 3
  targettileoffset 1 1 -3
elseif direction == 4
  targettileoffset 0 1 -3
elseif direction == 5
  targettileoffset -1 1 -3
elseif direction == 6
  targettileoffset -1 0 -3
elseif direction == 7
  targettileoffset -1 -1 -3
endif
pause 9100
if @injournal 'seem to be biting' 'system'
  msg 'forward one'
  pause 800
  msg 'forward one'
  pause 800
  msg 'forward one'
  pause 800
  msg 'forward one'
  pause 800
  msg 'forward one'
  pause 800
  msg 'forward one'
  pause 800
  clearjournal
endif