Unnamed

on $*:text:/^[@!.]status/Si:#:{
  if (*SwiftRS* iswm $me) {
    if ($isadmin($nick)) || ($isowner($nick)) {
      set %status.out $iif($left($1,1) == @,msg $chan,notice $nick)
      var %x = 1
      %status.out ( Channel Status ) ( $chan(0) )
      while (%x <= $chan(0)) {
        var %channelz = $iif(%channelz,%channelz) $chnstatus($chan(%x)) $+ $chan(%x) $+([,$nick($chan(%x),0),])
        inc %x
      }
      %status.out %channelz
    }
  }
}
on $*:text:/^[@!.]logchans/Si:#:{
  if ($2 == $me) {
    if ($isadmin($nick)) || ($isowner($nick)) {
      set %status.out $iif($left($1,1) == @,msg $chan,notice $nick)
      write -ds $+ $me channels.txt
      var %x = 1
      %status.out ( Channel Status ) ( $chan(0) )
      while (%x <= $chan(0)) {
        var %channelz = $iif(%channelz,%channelz $+ $chr(44)) $+ $chan(%x)
        inc %x
      }
      write channels.txt $me %channelz
      %status.out $me %channelz overwritten
    }
  }
}
alias -l chnstatus {
  if ($me isop $1) return @
  if ($me ishop $1) return %
  if ($me isvoice $1) return +
}