Unnamed

Alias nick {
  var %ni = 1, %no = 1
  set %nchan.total 0
  while (%ni <= $chan(0)) {
    if (*N* iswmcs $chan(%ni).mode && $me !isop $chan(%ni)) { 
      set $+(%,nchan.,%no) $chan(%ni)
      part $chan(%ni) Automatic part - Nick change...
      inc %ni | inc %no | inc %nchan.total
    }
    else { inc %ni }
  }
  nick $$1 | .timer 1 1 rejoins
}
Alias rejoins { var %nt = 1 | while (%nt <= %nchan.total) { join %nchan. [ $+ [ %nt ] ] | inc %nt } | unset %nchan.* }