Something

; Current setup is:
; Alt + X = find red enemies, no ghosts.
; Alt + C = find blue friends, with ghosts.
; Set up from a blue PKK perspective.
set %ghost KS
set %players IS_HS
set %enemyreds 6_5_4
set %friendlyblues 1_2

start:
set #lpc 8
onHotKey F11
{
 set %targetType %players
 set %repType %enemyreds
 gosub FindTarget
}
onHotKey F9
{
 set %targetType %players , _ , %ghost
 set %repType %friendlyblues
 gosub FindTarget
}
goto start


sub FindTarget
{
 set #lpc 20
 event sysmessage Searching for players
 set %selfTargets 0
 repeat
 {
   event macro 26 0
   finditem #ltargetid G_20
   if #findid = #charid
   {
    set %selfTargets %selfTargets + 1
   }
 }
 until ( #findcnt > 0 && #findrep in %repType && #findtype in %players ) || %selfTargets > 1
 if %selfTargets < 2
 {
  event ExMsg #findid 1 3 X
  event sysmessage Target found, boss!
 }
 else
 {
  event sysmessage No target found, boss!
 }
 
}
 
 return #true
}