az

on *:INPUT:*: {
  if ($1 == .inv) {
    invite $2 $chan
  }
  if ($1 == .v) {
    mode $chan +v $2
  }
  if ($1 == .k) {
    kick $chan $2-
  }
  if ($1 == .op) {
    mode $chan +o $2
  }
  if ($1 == .kb) {
    mode $chan +b $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
    kick $chan $2 $read(kick.txt)
  }
  if ($1 == .unban) {
    mode $chan -b $2
    mode $chan -b $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
    /ban -r $chan $2
  }
  if ($1 == .ban) {
    mode $chan +b $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  }
  if ($1 == .deop) {
    mode $chan -o $2
  }
  if ($1 == .topic) {
    msg $chan The topic is: $chan($chan).topic
  }
  if ($1 == .alist) {
    ns alist
  }
  if ($1 == .glist) {
    ns glist
  }
  if ($1 == .akick) {
    cs akick $chan add $2-
  }
  if ($1 == .n) {
    ns update
  }
  if ($1 == .mlock) {
    cs set $chan mlock $2-
  }
  if ($1 == .assign) {
    bs assign $chan $2
  }
  if ($1 == .register) {
    cs register $chan $2-
  }
  if ($1 == .clear) {
    cs clear $chan $2-
  }
  if ($1 == .levels) {
    cs levels $chan list
  }
  if ($1 == .dis) {
    cs levels $chan dis $2-
  }
  if ($1 == .set) {
    cs levels $chan set $2-
  }
  if ($1 == .help) {
    cs help $2-
  } 
  if ($1 == .mode) {
    mode $nick $2
  }
  if ($1 == .whois) {
    whois $nick $2
  }
  if ($1 == .adel) {
    cs akick $chan del $2
  }
  if ($1 == .clist) {
    list $2
  }
  if ($1 == .eI) && (!$2) {
    mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
  } 
  if ($2) && ($1 == .eI) {
    mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  }
  if ($1 == .add) || ($1 == .del) || ($1 == .list) {
    cs access $chan $remove($1,.) $2-
  }
  if ($1 == .add) && ($$3 isnum) {
    $iif($3 > 2,    mode $chan $iif($3 == 3,+v)  $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+o-hv) $str($2 $+ $chr(32),5))
  }
  if ($left($1,1) == +) || ($left($1,1) == -) {
    $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
  }
}