Something

alias sweep {
  var %f = 1
  mode $chan +i
  .timer.sweep 1 5 mode $chan -i
  while (%f <= $nick($chan,0)) {
    if ($nick($chan,%f) isreg $chan) {
      kick $chan $nick($chan,%f) Reg sweeping
      inc %f
    }
    else inc %f
  }
  say Sweep of non voice finished
}