Mine

alias /kall {
  var %p = 0
  while (%p < $nick($chan, 0)) {
    /inc %p 1
    if ($address($nick($chan,%p),4) != $address($me,4)) {
      /kick $chan $nick($chan, %p) Kicked All
    }
  }
}