Someone

on *:INPUT:*: {
  if ($readini(mirc.ini, text, commandchar) !isin $1-) && (<3 isin $1-) { say $replace($1-,<3,4<3) | haltdef }
}
on *:INPUT:*: {
  if (!$ctrlenter) {
    if ($$1 === +I) { mode # +I $address($me,2) }
    if ($$1 === +e) { mode # +e $address($me,2) }
    if ($$1 === +v) { mode # +v $$2 }
    if ($$1 === +h) { mode # +h $$2 }
    if ($$1 === +o) { mode # +o $$2 }
    if ($$1 === +a) { mode # +a $$2 }
    if ($$1 === +q) { mode # +q $$2 }
    if ($$1 === +b) {
      if ($$2 !iswm *!*@*) && (~ !isin $$2) { ban # $$2 2 }
      else { mode # +b $$2 }
    }
    if ($$1 === +c) { mode # +c }
    if ($$1 === +i) { mode # +i }
    if ($$1 === +k) { mode # +k $$2 }
    if ($$1 === +l) { mode # +l $$2 }
    if ($$1 === +m) { mode # +m }
    if ($$1 === +n) { mode # +n }
    if ($$1 === +p) { mode # +p }
    if ($$1 === +s) { mode # +s }
    if ($$1 === +t) { mode # +t }
    if ($$1 === +z) { mode # +z }
    if ($$1 === +C) { mode # +C } 
    if ($$1 === +E) { mode # +E }
    if ($$1 === +G) { mode # +G }
    if ($$1 === +M) { mode # +M }
    if ($$1 === +K) { mode # +K }
    if ($$1 === +L) { mode # +L $$2 }
    if ($$1 === +N) { mode # +N }
    if ($$1 === +Q) { mode # +Q }
    if ($$1 === +R) { mode # +R }
    if ($$1 === +S) { mode # +S }
    if ($$1 === +T) { mode # +T }
    if ($$1 === +V) { mode # +V }
    if ($$1 === +u) { mode # +u }
    if ($$1 === -v) { mode # -v $$2 }
    if ($$1 === -h) { mode # -h $$2 }
    if ($$1 === -o) { mode # -o $$2 }
    if ($$1 === -a) { mode # -a $$2 }
    if ($$1 === -q) { mode # -q $$2 }
    if ($$1 === -b) {
      if ($$2 !iswm *!*@*) && (~ !isin $$2) { ban -r # $$2 2 }
      else { mode # -b $$2 }
    }
    if ($$1 === -c) { mode # -c }
    if ($$1 === -I) { mode # -I $address($me,2)  }
    if ($$1 === -e) { mode # -e $address($me,2)  }
    if ($$1 === -i) { mode # -i }
    if ($$1 === -k) { mode # -k $$2 }
    if ($$1 === -l) { mode # -l }
    if ($$1 === -m) { mode # -m }
    if ($$1 === -n) { mode # -n }
    if ($$1 === -p) { mode # -p }
    if ($$1 === -s) { mode # -s }
    if ($$1 === -t) { mode # -t }
    if ($$1 === -z) { mode # -z }
    if ($$1 === -C) { mode # -C }
    if ($$1 === -E) { mode # +E }
    if ($$1 === -G) { mode # -G }
    if ($$1 === -M) { mode # -M }
    if ($$1 === -K) { mode # -K }
    if ($$1 === -L) { mode # -L }
    if ($$1 === -N) { mode # -N }
    if ($$1 === -Q) { mode # -Q }
    if ($$1 === -R) { mode # -R }
    if ($$1 === -S) { mode # -S }
    if ($$1 === -T) { mode # -T }
    if ($$1 === -V) { mode # -V }
    if ($$1 === -u) { mode # -u }
    if ($$1 === .i) { invite $$2 # }
    if ($$1 === .akick) { cs akick # add $$2 }
    if ($$1 === .del) { cs akick # del $$2 }
    if ($$1 === .nick) { nick Bill_ }
    if ($$1 === .k) { kick # $$2 $3- }
    if ($$1 === +vhoaq) { mode # +vhoaq $$2 $$2 $$2 $$2 $$2 }
    if ($$1 === +vhoa) { mode # +vhoa $$2 $$2 $$2 $$2 }
    if ($$1 === +vho) { mode # +vho $$2 $$2 $$2  }
    if ($$1 === +vh) { mode # +vh $$2 $$2  }
    if ($$1 === -vhoaq) { mode # -vhoaq $$2 $$2 $$2 $$2 $$2  }
    if ($$1 === -vhoa) { mode # -vhoa $$2 $$2 $$2 $$2  }
    if ($$1 === -vho) { mode # -vho $$2 $$2 $$2 $$2  }
    if ($$1 === -vh) { mode # -vh $$2 $$2 }
    if ($$1 === +ao) { mode # +ao $$2 $$2 }
    if ($$1 === +qo) { mode # +qo $$2 $$2 }
    if ($$1 === -ao) { mode # -ao $$2 $$2 }
    if ($$1 === -qo) { mode # -qo $$2 $$2 }
    if ($$1 === -aoq) { mode # -aoq $$2 $$2 $$2 }
    if ($$1 === .owner) { cs owner # $me  }
    if ($$1 === .protect) { cs protect # $me }
    if ($$1 === .op) { cs op # $me }
    if ($$1 === .w) { whois $$2 }
    if ($$1 === .accesslist) { cs access # list }
    if ($$1 === .add) { cs access # add $$2- }
    if ($$1 === .umode) { mode $me $$2 }
    if ($$1 === .akicklist) { cs akick # list }
    if ($$1 === .kb) { ban # $$2 2 | kick # $$2 $3- }
    if ($$1 === .tb) { ban -u $+ $calc( $$3 *60) # $$2 2 | kick # $$2 Banned for $$3 minute(s). $iif($4,Reason: $4-) }
  }
}