// Boat must be facing north
// you need a bag with special nets
if not @findobject 'ship hold'
  headmsg 'Target ship hold' 7
  sysmsg 'Target ship hold' 7
  headmsg 'Hold Ctrl+Shift to ensure proper targeting' 33
  sysmsg 'Hold Ctrl+Shift to ensure proper targeting' 33
  promptalias 'ship hold'
endif
if not @inrange 'ship hold' 2
  headmsg 'Stand next to your ship hold!' 33
  sysmsg 'Stand next to your ship hold!' 33
else
  useobject 'ship hold'
endif
if not @findobject 'mib bag'
  headmsg 'Target your MIB bag' 7
  sysmsg 'Target your MIB bag' 7
  promptalias 'mib bag'
endif
@removelist 'FishermanFoeCorpse'
// Create Bandage Timer  //
if not timerexists 'Bandage timer'
  createtimer 'Bandage timer'
  settimer 'Bandage timer' 6300
endif
// define corpse graphics for looting
if not listexists 'FishermanFoeCorpse'
  createlist 'FishermanFoeCorpse'
  pushlist 'FishermanFoeCorpse' 0x2006
  pushlist 'FishermanFoeCorpse' 0x2006
  pushlist 'FishermanFoeCorpse' 0x2006
endif
// prompt for fish net bag
if not @findobject 'special net bag'
  headmsg 'Target your special net bag' 7
  sysmsg 'Target your special net bag' 7
  promptalias 'special net bag'
endif
while hits < maxhits
endwhile
while mana < maxmana
endwhile
// throw net in the water
useobject 'special net bag'
if @findtype 0xdca
  useobject 'found'
  waitfortarget 5000
  targettileoffset! 4 4 -3
else
  headmsg 'Out of nets' 33
  sysmsg 'Out of nets' 33
  stop
endif
// wait until an enemy shows up
while not @inrange 'enemy' 10
  getenemy 'criminal' 'enemy' 'grey' 'murderer' 'closest'
  pause 200
endwhile
pause 1000
// kill all the enemies with spell of choice
while @inrange 'enemy' 20
  while @inrange 'enemy' 10
    // bandage macro, set time based on [mystats
    if timer 'bandage timer' > 6500 and hits < maxhits
      msg '[bandself'
      settimer 'bandage timer' 0
    endif
    cast 'lightning'
    waitfortarget 10000
    target! 'enemy'
    pause 200
  endwhile
  getenemy 'criminal' 'enemy' 'grey' 'murderer' 'closest'
endwhile
// move to corpses 1 at a time for
// auto loot to take care of
for 0 to 'FishermanFoeCorpse'
  while @findtype FishermanFoeCorpse[] 'any' 'ground' 'any' '20'
    if not @inrange 'found' 1
      while @y 'found' < y 'self'
        msg 'Forward One'
        pause 1000
      endwhile
      while @y 'found' > y 'self'
        msg 'Back One'
        pause 1000
      endwhile
      while @x 'found' > x 'self'
        msg 'Right One'
        pause 1000
      endwhile
      while @x 'found' < x 'self'
        msg 'Left One'
        pause 1000
      endwhile
    else
      useobject 'found'
      pause 3000
      ignoreobject 'found'
    endif
  endwhile
endfor
msg '[grab'
while @findtype 0x99f 'any' 'backpack' 'any' 2
  moveitem 'found' 'mib bag'
  pause 500
endwhile