Something

on *:INPUT:*: {
  if ($1 == inv) {
    invite $2 $chan
  }
  if ($1 == +v) {
    mode $chan +v $2
  }
  if ($1 == -v) {
    mode $chan -v $2
  }
  if ($1 == .k) {
    kick $chan $2-
  }
  if ($1 == +o) {
    mode $chan +o $2
  }
  if ($1 == -o) {
    mode $chan -o $2
  }
  if ($1 == +h) {
    mode $chan +h $2
  }
  if ($1 == -h) {
    mode $chan -h $2
  }
  if ($1 == .kb) {
    mode $chan +b $address($2,2)
    kick $chan $2 $read(kick.txt)
  }
  if ($1 == -b) {
    mode $chan -b $2
    mode $chan -b $address($2,2)
    /ban -r $chan $2
  }
  if ($1 == +b) {
    mode $chan +b $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 == .update) {
    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 $2-
  }
  if ($1 == .help) {
    cs help $2-
  }
  if ($1 == .inf) {
    ns info $$2-
  }
  if ($left($1,1) == +) || ($left($1,1) == -) {
    $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
  }
}