on *:INPUT:#: {
  if ($regex($mid($1,1,1),/^[+-]$/i)) mode # $1-
  if ($1 == .add) || ($1 == .del) || ($1 == .list) {
    haltdef
    cs access $chan $remove($1,.) $2-
  }
  if ($1 == .add) && ($$3 isnum) {
    haltdef
    $iif($3 > 2,    mode $chan $iif($3 == 2,+v-oha) $iif($3 == 3,+v-oha) $iif($3 == 4,+h-voa) $iif($3 isnum 5-9,+o-hva) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5))
  }
  if ($1 == .del) && ($2 ison $chan) {
    haltdef
    mode # -aohv $2 $2 $2 $2
  }
  if ($left($1,1) == + || $left($1,1) == -) {
    haltdef
    mode $chan $eval($1-,2) $iif($2,$2-,$me)
  }
  if ($1 == .tb) {
    mode # -Q
  ban -ku $+ $3 # $2 You have been banned from # for $3 seconds ( $+ $calc($3 /60) minutes) with the reason: $iif($4,$4-,No Reason.) }
  if ($1 == .akview) { cs akick $chan view | halt }
  if ($1 == .akick) { cs akick $chan add $2 $3- | halt }
  if ($1 == .delakick) { cs akick $chan del $2 | halt }
  if ($1 == .safe) { mode $me +RTp }
  if ($1 == .ei) { mode $chan +eI $address($2,2) $address($2,2) | halt }
  if ($1 == .mute) { mode $chan +mbb-aohvq $2 $+(~q:,$address($2,2)) $2 $2 $2 $2 $2 | halt }
  if ($1 == .w) { whois $2 | halt }
  if ($1 == .qk) { mode $chan -Q | cs kick $chan $2 | kick $chan $2 | halt }
  if ($1 == .qkb) { mode $chan -Q | cs ban $chan $2 | mode $chan +b $address($2,2) | kick $chan $2 | halt }
  if ($1 == .inv) { invite $2 $chan | halt }
  if ($1 == .invv) { mode $chan -V | invite $2 $chan | timer 1 1 mode $chan +V | halt }
  if ($1 == .topiclockon) { cs set $chan topiclock on }
  if ($1 == .topiclockoff) { cs set $chan topiclock off }
  if ($1 == .cinv) { invite $2 $3 | halt }
  if ($1 == .info) {
    if ($2 == $null) { ns info $me all | halt }
  }
  if ($1 == .cinfo) { cs info $chan all | halt }
  if ($1 == .n) { ns update | halt }
  if ($1 == .ns) { ns info $iif($2,$2,$nick) all }
  if ($1 == .alist) { ns alist | halt }
  if ($1 == .glist) { ns glist | halt }
  if ($1 == .b) { cs ban $chan $2 $3- | halt }
  if ($1 == .k) { cs kick $chan $2 $3- | halt }
  if ($1 == .kb) { kick $chan $2 | ban $chan $2 2 }
  if ($1 == .mlock) { cs set $chan mlock $2- | halt }
  if ($1 == .kb) { mode $chan -oQ+bbb $address($2,2) $address($2,3) $2 | cs kick $chan $2 }
  if ($1 == .clearb) { cs clear $chan bans | halt }
  if ($1 == .cleare) { cs clear $chan excepts | halt }
  if ($1 == .cleari) { cs clear $chan invites | halt }
  if ($1 == .i) {
    mode $chan -V
    invite $2 $chan
    halt
  }
  if ($1 == .Qkb) {
    mode # +bbb-vhoQ  $2 $address($2,2) $address($2,1) $2 $2 $2
    mode # -Q
    kick # $2 $3-
    mode # -Q
    kick # $2 $3-
  }
  if ($1 == .Qk) {
    mode # -oQ $2
    mode # -Q
    kick # $2 $3-
  }
  if ($1 == .levels) {
    cs levels # set $$2-3
  }
  if ($1 == .ucount) {
  say The user count for $iif($2,$2,#) is $nick($iif($2,$2,#),0) }
}