Closest Enemy

@createlist 'enemies'
@clearlist 'enemies'

//
// Scan for targets
//
for 0 to 20
    if murderer 'self'
        @getenemy 'murderer' 'innocent' 'enemy' 'criminal' 'gray' 'humanoid' 'next'
    else
        @getenemy 'murderer' 'enemy' 'criminal' 'gray' 'humanoid' 'next'
    endif
    if @findobject 'enemy'
        @pushlist! 'enemies' 'enemy'
    endif
endfor

//
// Create a distances list, seeding from 1
//
@createlist 'distances'
@clearlist '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
//
@createlist 'closest'
@clearlist 'closest'
for 0 to 'distances'
    if list 'closest' == 0
        for 0 to 'enemies'
            if @inrange enemies[] distances[] and not dead enemies[]
                pushlist 'closest' 'enemies[]'
                break
            endif
        endfor
    else
        break
    endif
endfor

//
// check if no targets
//
if list 'closest' > 0
    setalias 'enemy' 'closest[0]'
    setalias 'last' 'closest[0]'
else
    headmsg "No targets" 44
    stop
endif