// Run search loop for all targets and insert into list
//
@removelist 'found'
@createlist 'found'
for 0 to 20
  @unsetalias 'enemy'
  @getenemy 'murderer' 'enemy' 'criminal' 'gray' 'next'
  @pushlist! 'found' 'enemy'
endfor
//
// Create a distances list, seeding from 1
//
@removelist 'distances'
@createlist 'distances'
pushlist 'distances' 1
pushlist 'distances' 2
pushlist 'distances' 3
pushlist 'distances' 4
pushlist 'distances' 5
pushlist 'distances' 6
pushlist 'distances' 7
pushlist 'distances' 8
pushlist 'distances' 9
pushlist 'distances' 10
pushlist 'distances' 11
pushlist 'distances' 12
pushlist 'distances' 13
pushlist 'distances' 14
pushlist 'distances' 15
//
// Sort by distance
// with closest first
//
@removelist 'targets'
@createlist 'targets'
for 0 to 'distances'
  for 0 to 'found'
    if @findobject found[] 0 0 0 distances[]
      @pushlist! 'targets' found[]
    endif
  endfor
endfor
//
// Attack if we see targets
//
if list 'targets' > 0
  headmsg "Attacking" 22
  if not war 'self'
    warmode 'on'
  endif
  setalias 'enemy' targets[0]
  // Leave out ampersand on this one
  getenemy 'enemy'
  attack! 'targets[0]'
else
  headmsg "No targets" 44
endif
@clearjournal
if hits <= 80
  usetype '0xf0c'
  pause 800
endif
if hits < maxhits
  usetype 0xe21
  waitfortarget 11000
  target! 'self'
  while not @injournal 'You finish applying the bandages' 'system'
    @unsetalias 'enemy'
    getenemy 'murderer' 'criminal' 'humanoid'
    if hits <= 50
      usetype '0xf0c'
      pause 600
    endif
    if @findobject 'enemy'
      @canceltarget
      @findtype 0x22c5 0 'backpack'
      useobject 'found'
      waitforgump 0x5c7db029 15000
      replygump 0x5c7db029 62
    endif
    pause 100
  endwhile
  headmsg 'FINISHED BANDAGING'
endif