Alias nick {
  var %ni = 1
  var %no = 1
  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
    }
    else { inc %ni }
  }
  nick $$1
  .timer 1 1 rejoins
}
Alias rejoins {
  if (%nchan1) { join %nchan1 } 
  if (%nchan2) { join %nchan2 } 
  if (%nchan3) { join %nchan3 } 
  if (%nchan4) { join %nchan4 } 
  if (%nchan5) { join %nchan5 } 
  if (%nchan6) { join %nchan6 } 
  if (%nchan7) { join %nchan7 } 
  if (%nchan8) { join %nchan8 } 
  if (%nchan9) { join %nchan9 } 
  if (%nchan10) { join %nchan10 } 
  unset %nchan*
}