if not listexists 'unstuck'
  @createlist 'unstuck'
endif
if list 'unstuck' == 0
  pushlist 'unstuck' 'east'
  pushlist 'unstuck' 'west'
  pushlist 'unstuck' 'south'
  pushlist 'unstuck' 'north'
endif
while not @inrange 'enemy' 10
  @settimer 'stuck' 0
  @getenemy 'criminal' 'enemy' 'gray' 'murderer' 'closest'
  if @property 'summoned' 'enemy' or @property 'bonded' 'enemy'
    @unsetalias 'enemy'
    continue
  endif
endwhile
@settimer 'pathfind' 0
while @inrange 'enemy' 10
  if hits 'enemy' != maxhits 'enemy' and not @inrange 'enemy' 1
    @unsetalias 'enemy'
    @getenemy 'criminal' 'enemy' 'gray' 'murderer' 'closest'
  endif
  while @findobject 'enemy' and not @inrange 'enemy' 1
    if @property 'summoned' 'enemy' or @property 'bonded' 'enemy'
      @unsetalias 'enemy'
      continue
    endif
    if dead
      break
    elseif @timer 'pathfind' >= 3000
      // Diverge
      if direction == 0
        @poplist 'unstuck' 'north'
      elseif direction == 2
        @poplist 'unstuck' 'east'
      elseif direction == 4
        @poplist 'unstuck' 'south'
      elseif direction == 6
        @poplist 'unstuck' 'west'
      endif
      // Unstuck
      if list 'unstuck' != 0
        for 5
          run 'unstuck[0]'
          pause 100
        endfor
        poplist 'unstuck' 'front'
      endif
      break
    elseif @x 'enemy' > x 'self' and @y 'enemy' > y 'self'
      run 'southeast'
    elseif @x 'enemy' < x 'self' and @y 'enemy' > y 'self'
      run 'southwest'
    elseif @x 'enemy' > x 'self' and @y 'enemy' < y 'self'
      run 'northeast'
    elseif @x 'enemy' < x 'self' and @y 'enemy' < y 'self'
      run 'northwest'
    elseif @x 'enemy' > x 'self' and @y 'enemy' == y 'self'
      run 'east'
    elseif @x 'enemy' < x 'self' and @y 'enemy' == y 'self'
      run 'west'
    elseif @x 'enemy' == x 'self' and @y 'enemy' > y 'self'
      run 'south'
    elseif @x 'enemy' == x 'self' and @y 'enemy' < y 'self'
      run 'north'
    endif
    pause 100
  endwhile
  if not @inrange 'enemy' 1
    @settimer 'stuck' 0
    @getenemy 'criminal' 'enemy' 'gray' 'murderer' 'closest'
    if @property 'summoned' 'enemy' or @property 'bonded' 'enemy'
      @unsetalias 'enemy'
      continue
    endif
  else
    @attack 'enemy'
    @setability 'secondary' 'on'
    //Spells
    if stam < 135 and mana 'self' >= 13
      cast "Divine Fury"
      pause 2000
    endif
    if not timerexists 'consecrateweapon'
      settimer 'consecrateweapon' 4000
    endif
    if timer 'consecrateweapon' >= 4000
      @clearjournal
      cast 'consecrate weapon'
      pause 2000
      waitforjournal 'disturbed' 500
      if not @injournal 'disturbed' 'system'
        @settimer 'consecrateweapon' 0
      endif
    endif
    if not @injournal 'next blocked blow' 'system'
      cast 'Counter Attack'
    endif
    if stam < 130 and mana 'self' >= 13
      cast "Divine Fury"
      pause 2000
    endif
  endif
endwhile