services root to join all channels when typing /os chanlist

;Made this while bored. along with a bunch of other scripts...

[edited] Reason: Realized I could remove an extra if statement.

on *:NOTICE:*:?: {
  if ($nick == OperServ && Channel == $1) {
    %os = 1
    timeros 1 5 set %os 0
  }
  if (%os == 1 && $nick == OperServ && $1 != Channel && $1 != End && $1 != Name && $me !ison $1) { 
    set %chans $addtok(%chans,$1,32)
    %k = 1
    while (%k <= [$numtok(%chans,32)] && %chans) {
      if ($me !ison $gettok(%chans,%k,32)) { 
        join $gettok(%chans,%k,32)
        set %chans $remtok(%chans,$gettok(%chans,%k,32),1,32)
      }
      inc %k
    }
  }
}