on *:input:#:{ 
  var %l = 1  
  while (%l <= $nick($chan,0)) {
    $checkusers($1-)
  }
}
alias checkusers {
  if ($nick($chan,%l) iswm $1-) {
    //say $1 $ $+ $calc($wildtok($1-,$nick($chan,%l),0,32) - 1)) $+ - 10<2< 9 $nick($chan,%l) 10>2> $ $+ $calc($wildtok($1-,$nick($chan,%l),0,32) + 1)) $+ -
    halt
  }
  else { inc %l
  }
}