Something

alias chancorder {
  var %x = 0, %nicks
  join $1
  while (%x <= $nick($1,0)) {
    %nicks = %nick $nick($1,%x)
    inc %x
  }
  set %names %nicks
  if ($me ison $1) { halt }
  else { part $1 }
}