com channel commands

alias commode {
  if (?? iswm $1) && ($2) {
    var %d = $chan(0)
    while (%d) {
      if ($2 ison $chan(%d)) .raw mode $chan(%d) $1-
      dec %d
    }
  }
}
alias comkick {
  if ($1) {
    var %d = $chan(O)
    while (%d) {
      if ($1 ison $chan(%d)) && ($me isop $chan(%d)) .raw KICK $chan(%d) $1-
      dec %d
    }
  }
}
alias comkick1 {
  if ($1) {
    var %d = $chan(O)
    while (%d) {
      if ($1 ison $chan(%d)) && ($me isop $chan(%d)) .raw KICK $chan(%d) $1- Stuck :P
      dec %d
    }
  }
}

alias mban {
  %b = $comchan($me,0)
  while (%b) {
    if ($me isop $comchan($me,%b)) { mode $comchan($me,%b) $$1 $+ $str(b,$numtok($$2-14,32)) $2- }
    dec %b
  }
}
alias TTban {
  {
    var %d = $chan(O)
    while (%d) {
      if ($me isop $chan(%d)) /access $chan(%d) add deny %banall
      dec %d
    }
  }
}
alias TTTban {
  {
    var %d = $chan(O)
    while (%d) {
      if ($me isop $chan(%d)) /access $chan(%d) delete deny %banall
      dec %d
    }
  }
}
dialog Aban {
  title "New Project"
  size -1 -1 151 42
  option dbu
  edit "Edit Box", 1, 9 10 135 10, autohs
  box "Set Gatekeeper", 2, 4 1 143 38
  button "set Gate", 3, 5 21 37 12
  button "Ban Gate", 4, 42 21 37 12
  button "UnBan", 5, 79 21 37 12
  button "Cancel", 6, 117 21 27 12, ok cancel
}
on *:dialog:Aban:sclick:3: { /set %banall $did($dname,1).text | /echo # %banall is set }
on *:dialog:Aban:sclick:4: { /TTban }
on *:dialog:Aban:sclick:5: { /TTTban }
menu nicklist {
  $iif(($me isowner #) || ($me isop #),&»-=comm=-Rm)( $+ $comchan($$1,0) $+ )
  .sameRM $+ $chr(58) $+ $chr(9) $+ ( $+ $comchan($$1,0) $+ )
  ..$iif($comchan($$1,1) == $active,$style(1)) $comchan($$1,1):{ window -a $comchan($$1,1) }
  ..$iif($comchan($$1,2) == $active,$style(1)) $comchan($$1,2):{ window -a $comchan($$1,2) }
  ..$iif($comchan($$1,3) == $active,$style(1)) $comchan($$1,3):{ window -a $comchan($$1,3) }
  ..$iif($comchan($$1,4) == $active,$style(1)) $comchan($$1,4):{ window -a $comchan($$1,4) }
  ..$iif($comchan($$1,5) == $active,$style(1)) $comchan($$1,5):{ window -a $comchan($$1,5) }
  ..$iif($comchan($$1,6) == $active,$style(1)) $comchan($$1,6):{ window -a $comchan($$1,6) }
  ..$iif($comchan($$1,7) == $active,$style(1)) $comchan($$1,7):{ window -a $comchan($$1,7) }
  ..$iif($comchan($$1,8) == $active,$style(1)) $comchan($$1,8):{ window -a $comchan($$1,8) }
  ..$iif($comchan($$1,9) == $active,$style(1)) $comchan($$1,9):{ window -a $comchan($$1,9) }
  ..$iif($comchan($$1,10) == $active,$style(1)) $comchan($$1,10):{ window -a $comchan($$1,10) }
  ..$iif($comchan($$1,11) == $active,$style(1)) $comchan($$1,11):{ window -a $comchan($$1,11) }
  ..$iif($comchan($$1,12) == $active,$style(1)) $comchan($$1,12):{ window -a $comchan($$1,12) }
  ..$iif($comchan($$1,13) == $active,$style(1)) $comchan($$1,13):{ window -a $comchan($$1,13) }
  ..$iif($comchan($$1,14) == $active,$style(1)) $comchan($$1,14):{ window -a $comchan($$1,14) }
  ..$iif($comchan($$1,15) == $active,$style(1)) $comchan($$1,15):{ window -a $comchan($$1,15) }
  ..$iif($comchan($$1,16) == $active,$style(1)) $comchan($$1,16):{ window -a $comchan($$1,16) }
  ..$iif($comchan($$1,17) == $active,$style(1)) $comchan($$1,17):{ window -a $comchan($$1,17) }
  ..$iif($comchan($$1,18) == $active,$style(1)) $comchan($$1,18):{ window -a $comchan($$1,18) }
  ..$iif($comchan($$1,19) == $active,$style(1)) $comchan($$1,19):{ window -a $comchan($$1,19) }
  ..$iif($comchan($$1,20) == $active,$style(1)) $comchan($$1,20):{ window -a $comchan($$1,20) }
  ..$iif($comchan($$1,21) == $active,$style(1)) $comchan($$1,21):{ window -a $comchan($$1,21) }
  ..$iif($comchan($$1,22) == $active,$style(1)) $comchan($$1,22):{ window -a $comchan($$1,22) }
  ..$iif($comchan($$1,23) == $active,$style(1)) $comchan($$1,23):{ window -a $comchan($$1,23) }
  ..$iif($comchan($$1,24) == $active,$style(1)) $comchan($$1,24):{ window -a $comchan($$1,24) }
  ..$iif($comchan($$1,25) == $active,$style(1)) $comchan($$1,25):{ window -a $comchan($$1,25) }
  ..$iif($comchan($$1,26) == $active,$style(1)) $comchan($$1,26):{ window -a $comchan($$1,26) }
  ..$iif($comchan($$1,27) == $active,$style(1)) $comchan($$1,27):{ window -a $comchan($$1,27) }
  ..$iif($comchan($$1,28) == $active,$style(1)) $comchan($$1,28):{ window -a $comchan($$1,28) }
  ..$iif($comchan($$1,29) == $active,$style(1)) $comchan($$1,29):{ window -a $comchan($$1,29) }
  ..$iif($comchan($$1,30) == $active,$style(1)) $comchan($$1,30):{ window -a $comchan($$1,30) }
  .msg
  ..srm $$1:/set %srm $$1 $comchan($$1,1) $comchan($$1,2) $comchan($$1,3) $comchan($$1,4) $comchan($$1,5) $comchan($$1,6) $comchan($$1,7) $comchan($$1,8) $comchan($$1,9) $comchan($$1,10) $comchan($$1,11) $comchan($$1,12) | msg # %srm
  .owner
  ..+:/commode +q $$1
  ..-:/commode -q $$1
  .host
  ..+:/commode +o $$1
  ..-:/commode -o $$1
  .voice
  ..+:/commode +v $$1
  ..-:/commode -v $$1
  .kick
  ..kick:/comkick $$1 -@)
  ..kickstuck:/comkick1 $$1 -@)
  .massban:/set %banall *! $+ $$ial($$1 $+ *,1).addr | echo # 8set %banall | /TTban | if ($me isop $chan(%d)) | echo -a %banall is set to all roomz ban
  .shit:/set %address $address($1,1) | /.auser shit %address | echo -ai 4[14 $+ $$1 15added to shitlist4] | unset %address | comkick $$1
  .$iif($me !isop #,$style(2)) &kickB:/mode # +b $address($1,1) $+ $ $+ * | raw kick # $$1 kAb0om!!!!!!
}