Miscellany

alias schanlist {
  /msg %staffnick $c1(%staffnick,Chan List:) $c1(%staffnick,Total of) $c2(%staffnick,$chan(0)) 
  var %c = 1
  while (%c <= $chan(0)) { 
    if (%c == $chan(0)) { /msg %staffnick $c1(%staffnick,[) $+ $c2(%staffnick,$chan(%c)) $c1(%staffnick,-) $c2(%staffnick,$nick($chan(%c),0)) $+ $c1(%staffnick,]) }
    elseif ($calc(%c + 1) == $chan(0)) { /msg %staffnick $c1(%staffnick,[) $+ $c2(%staffnick,$chan(%c)) $c1(%staffnick,-) $c2(%staffnick,$nick($chan(%c),0)) $c1(%staffnick,$chr(124)) $c2(%staffnick,$chan($calc(%c + 1))) $c1(%staffnick,-) $c2(%staffnick,$nick($chan($calc(%c + 1)),0)) $+ $c1(%staffnick,]) }
    else {
    /msg %staffnick $c1(%staffnick,[) $+ $c2(%staffnick,$chan(%c)) $c1(%staffnick,-) $c2(%staffnick,$nick($chan(%c),0)) $c1(%staffnick,$chr(124)) $c2(%staffnick,$chan($calc(%c + 1))) $c1(%staffnick,-) $c2(%staffnick,$nick($chan($calc(%c + 1)),0)) $c1(%staffnick,$chr(124)) $c2(%staffnick,$chan($calc(%c + 2))) $c1(%staffnick,-) $c2(%staffnick,$nick($chan($calc(%c + 2)),0)) $+ $c1(%staffnick,]) }
  inc %c 3 }
}