Fisher Archer

@clearlist 'mobsound'
@createlist 'mobsound'
@clearlist 'attack'
@createlist 'attack'
@clearlist 'scan'
@createlist 'scan'
@clearlist 'skin'
@createlist 'skin'
@clearlist 'drive'
@createlist 'drive'
//********* SETUP ****************************************
pushlist 'mobsound' 'no' // yes for mob sound, no for no sound.
pushlist 'attack' 'yes' // yes to attack, no for no attack
pushlist 'scan' 'yes' // yes to scan the horizons
pushlist 'skin' 'yes' // Will skin & re-open nearby corpses
pushlist 'drive' 'yes' // yes to drive boat
//********************************************************
if not timerexists 'Sound Timer'
  createtimer 'Sound Timer'
  settimer 'Sound Timer' 15000
endif
if not timerexists 'Bandage Timer'
  createtimer 'Bandage Timer'
  settimer 'Bandage Timer' 10250
endif
if not findalias 'Escape Book'
  headmsg 'Select Escape Book'
  promptalias 'Escape Book'
endif
// If we are poisoned or don't have full health
while poisoned 'self'
  autotargetself
  cast 'Cure'
  pause 2000
endwhile
while diffhits > 30 and not dead
  autotargetself
  bigheal
  pause 1500
  if not @findobject 'lefthand'
    equipitem 'bow' 2
  endif
endwhile
if not @listexists 'xaxis'
  @createlist 'xaxis'
  @pushlist 'xaxis' 3
  @pushlist 'xaxis' -3
endif
if not @listexists 'yaxis'
  @createlist 'yaxis'
  @pushlist 'yaxis' 3
  @pushlist 'yaxis' -3
endif
if not listexists 'fish'
  createlist 'fish'
  @pushlist 'fish' '0x9ce'
  @pushlist 'fish'' 0x9cf'
  @pushlist 'fish' '0x9cc'
  @pushlist 'fish' '0x9cd'
endif
if dead
  stop
endif
if not @findobject 'bow'
  promptalias 'bow'
endif
if not @findobject 'pole'
  if @findtype '0xdbf' 'any' 'backpack' 'any' '3'
    setalias 'pole' 'found'
    pause 600
  else
    msg 'No Poles'
    playsound 'error.wav'
    pause 10000
  endif
endif
for 0 to 'xaxis'
  for 0 to 'yaxis'
    while not @injournal 'biting' 'system'
      // If we are poisoned or don't have full health
      while poisoned 'self'
        autotargetself
        cast 'Cure'
        pause 2000
      endwhile
      while diffhits > 30 and not dead
        autotargetself
        bigheal
        pause 1500
        if not @findobject 'lefthand'
          equipitem 'bow' 2
        endif
      endwhile
      // Skin serps
      if @inlist 'skin' 'Yes' or @inlist 'skin' 'yes'
        if @findtype 0x2006 'any' 'ground' 'any' 2
          usetype 0xf52
          waitfortarget 3500
          target! 'found'
          pause 600
          useobject 'found'
          ignoreobject 'found'
          unsetalias 'found'
          pause 600
        endif
      endif
      // Scan the Horizons
      if @inlist 'scan' 'Yes' or @inlist 'scan' 'yes'
        msg 'scan the horizons'
      endif
      if not @findobject 'lefthand'
        equipitem 'bow' 2
      endif
      // Reset pole
      if not @findobject 'pole'
        if @findtype '0xdbf' 'any' 'backpack' 'any' '3'
          setalias 'pole' 'found'
          pause 600
        else
          msg 'No Poles'
          playsound 'error.wav'
          pause 10000
        endif
      endif
      @canceltarget
      @useobject 'pole'
      waitfortarget 2000
      targettileoffset! 'xaxis[]' 'yaxis[]' 0
      pause 500
      if not @injournal 'biting' 'system'
        pause 7750
      endif
      //Cheer
      if @injournal 'pull a bottle' 'system'
        clearjournal
        headmsg 'GOT ONE'
        if @inlist 'mobsound' 'Yes' or @inlist 'mobsound' 'yes'
          playsound 'cheer.wav'
        endif
      endif
      if @injournal 'mess' 'system'
        clearjournal
        @usetype! 0xdd6
        pause 1000
        @usetype! 0xdd6
        pause 1000
      endif
      if @injournal 'closer' 'system'
        clearjournal
        resync
      endif
      //fishing cleanup
      if weight >= maxweight
        for 0 to 'fish'
          while @findtype fish[] 'any' 'backpack'
            usetype! 0xf52
            waitfortarget 1000
            target! 'found'
            pause 600
          endwhile
        endfor
        // adds to fishsteak pile on floor
        if @findtype 0x97a 'any' 'ground' 'any' 2
          movetype 0x97a 'backpack' 'found'
          pause 600
        else
          //starts fishsteak pile on floor if doesnt exist
          movetypeoffset 0x97a 'backpack'  'ground'
          pause 600
        endif
      endif
      //end fishing cleanup
      if not @findobject 'lefthand'
        equipitem 'bow' 2
      endif
      //attack sea serp
      getenemy 'enemy' 'criminal' 'gray' 'closest'
      while @inrange 'enemy' 10
        if @inlist 'mobsound' 'Yes' or @inlist 'mobsound' 'yes'
          if timer 'Sound Timer' > 10000
            playsound 'bell.wav'
            settimer 'Sound Timer' 0
          endif
        endif
        // Attack!
        if @inlist 'attack' 'Yes' or @inlist 'attack' 'yes'
          attack! 'enemy'
        endifwhile poisoned 'self'
        autotargetself
        cast 'Cure'
        pause 2000
      endwhile
      while diffhits > 30 and not dead
        autotargetself
        bigheal
        pause 1500
        if not @findobject 'lefthand'
          equipitem 'bow' 2
        endif
      endwhile
    endwhile
  endwhile
  clearjournal
endfor
if @inlist 'drive' 'Yes' or @inlist 'drive' 'yes'
  msg '[e whistle'
  pause 350
  for 0 to '3'
    msg 'Back One'
    Pause 350
  endfor
  for 0 to '6'
    msg 'Forward One'
    Pause 350
  endfor
  for 0 to '3'
    msg 'Left One'
    Pause 350
  endfor
  for 0 to '6'
    msg 'Right One'
    Pause 350
  endfor
  msg 'Forward'
  pause 4500
  msg 'stop'
  playsound 'pssst.wav'
endif