Something

on *:INPUT:#:{
  if (: isin $1) && ($2 != $null) {
    var %a = $replace($1,:,*),%i = 1 
    while ($nick(#,%i) != $null) {
      if (%a iswm $nick(#,%i)) { msg # 14,1(0 $+ $nick(#,%i) $+ 14)0: $2- | haltdef | halt }
      else { inc %i }
    }
    msg # $1-
  }
}