It's not much, but it's nice. I removed as many of the external script alias calls as I could find, but there might still be some. Just put it at spot 1 in your script order, so it is executed before any other input-based scripts are called. It is still a work in progress, but I hope you like it. It's not easy to screenshot a input command script, but I'll do my best /Upon Request/ and it will be attached.

on *:INPUT:*: {
  if (: isin $1) {
    set %cmd $remove($1,:)) $2-
    tokenize 32 $replace(%cmd,$chr(62),$chr(32))
    if (*serv* iswm $1) { msg $1 $2- }
    elseif ($1 = Notice) { notice $2 $3- }
    elseif ($1 = xmode) { xmode $2- }
    elseif (($1 = AgeX) || ($1 = xAge) || ($1 = Age) || ($1 = AgerX)) { msg $active $Text.2(9P15lease 9S15tate 9Y15our 9A15ge4, $AgerX($2-) 9O15r 9R15isk 9B15eing 4K15icked4!!)  }
  }
  elseif ((- isin $left($1,1)) || (+ isin $left($1,1))) {
    if ($1 = -op) { mode $chan -o $iif($2,$$2,$me) }
    elseif ($1 = +op) { mode $chan +o $iif($2,$$2,$me) }
    elseif (($1 = +kill) || ($1 = -kill)) { inc %kills |  kill $$2 $iif($3,$3-)  }
    elseif ($1 = +kline) { inc %klines | kill $$2 $iif($3,$3-) | kline $address($$2,2) $iif($3,$3-) }
    elseif ($1 = +akill) { inc %akills | kill $$2 $iif($3,$3-) 9,1[0,1A3,1kill:7,1 %akills $+ 9,1] | akill $iif($$2 ison $chan,$address($$2,4),$$2) $iif($3,$3-) }
    elseif ($1 = -akill) { rakill $$2 }
    elseif ($1 = -kline) { unkline $$2 }
    elseif ($1 = +v) { mode $chan +v $iif($2,$$2,$me) }
    elseif ($1 = -v) { mode $chan -v $iif($2,$$2,$me) }
    elseif ($1 = +h) { mode $chan +h $iif($2,$$2,$me) }
    elseif ($1 = -h) { mode $chan -h $iif($2,$$2,$me) }
    elseif ($1 = +k) { inc %kicks |  kick $chan $$2 $iif($3,$3-) 7[4ki0!14 %kicks $+ 7] }
    elseif ($1 = +b) { mode $chan +b $$2 }
    elseif ($1 = +ab) {  mode $chan +b $address($$2,4) }
    elseif ($1 = +kb) { inc %kicks | mode $chan +b $address($$2,4) |  kick $chan $$2 $iif($3,$3-) 7[4Banned7[4ki0!14 %kicks $+ 7] }
    elseif ($1 = -b) { mode $chan -b $$2 }
    elseif ($1 = +m) { mode $me $+(+,$2-) }
    elseif ($1 = -m) { mode $me $+(-,$2-) }
    elseif ($1 = +c) { mode $me +j }
    elseif ($1 = +hop) { hop }
    elseif ($1 = +j) { join $iif($chr(35) !isin $2,$+($chr(35),$2),$2) }
    elseif (($1 = -j) || ($1 = +p)) {  part $iif($2,$2,$chan) }
    elseif ($1 = +q) {  mode $chan +bb $+(~q:,$address($$2,4)) $+(~n:,$address($$2,4)) | $iif($$2 isvoice $chan, mode $chan -v $$2) | $iif($$2 isop $chan, mode $chan -o $$2) | $iif($$2 ishop $chan, mode $chan -h $$2) }
    elseif ($1 = -q) {  mode $chan -bb $+(~q:,$address($$2,4)) $+(~n:,$address($$2,4)) |  mode $chan +v $$2 }
    elseif ($1 = +admin) {  setoper $$2 +admin | halt }
    elseif ($1 = -admin) {  setoper $$2 -admin | halt }
    elseif ($1 = +oper) {  setoper $$2 +oper | halt }
    elseif ($1 = -oper) {  setoper $$2 -oper | halt }
    elseif ($1 = +vhost) {  chghost $$2 $3- | halt }
    elseif ($1 = +vdent) {  chgident $$2 $3- | halt }
    elseif ($1 = +evil) { inc %evils |  tsay $DarkEvil |  DarkEvil -s All | halt }
    elseif ($1 = +lag) {  Lagg | halt }
    elseif ($1 = +rk) { inc %kills |  kill $$2 $+(4,$chr(171),7,$chr(215),15-,9,$chr(171),14,|,15,$chr(186),4r09,007,0,6t,3,N02,0,4w6,?,15,$chr(186),14,|,9,$chr(187),15-7,$chr(215),4,$chr(187))  }
    elseif ($1 = +ukill) { inc %kills | kill $$2 $3- }
    elseif ($1 = -cm) { mode $chan $+(-,$2) $iif($3,$3-,$str($+($me,$chr(32)),$len($2))) }
    elseif ($1 = +cm) { mode $chan $+(+,$2) $iif($3,$3-,$str($+($me,$chr(32)),$len($2))) }
    elseif ($1 = +mode) { mode $chan $2- | halt }
    elseif ($1 = +shun) { shun $address($2,2) | tsay 9[15..4S14hun..9]14 $2 has been shunned. }
    elseif ($1 = -shun) { shun $+(-,$address($2,2)) | tsay 9[15..4S14hun15..9]14 $2 has been deshunned }
  }
}

alias Kicks { return %kicks }
alias cs { .msg chanserv $1- }
alias xmode { .msg chanserv $1 $chan $replace($2-,me,$me) }
alias csxmode { mode $chan $1- }

alias AgerX {
  set %co1 $iif($prop,$prop,4)
  set %co2 15
  var %x 1
  while (%x <= $gettok($1-,0,32)) {
    var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
    var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
    inc %x
  }
  if ($isid) { return %Text }
  elseif (!$isid) { tsay %Text }
}

alias DarkEvil {
  if ($isid) { return $+(4,$chr(171),14,$chr(215)) $+ 4-14D4-14a4-14r4-0k4-0E4-15v4-14i4-14l4- $+ $+(7,$chr(153),14,$chr(215),4,$chr(187)) }
  elseif (!$isid) {
    if (!$1) { DarkEvil2 }
    if ($1 = -s) {
      if ($2 = All) {
        tsay 4 $+ $chr(171) $+ 14|9-4S14tats9-14|4 $+ $chr(187)
        tsay 4Z-Lines: 7[4z0!14 %zlines $+ 7]
        tsay 4Kills: 7[4k0!14 %kills $+ 7]
        tsay 4K-Lines: 7[4K0!14 %klines $+ 7]
        tsay 4AKILL's: 7[4A0!14 %akills $+ 7]
        tsay 4PwN-Kills: 7[4PwN-K0!14 %pwnkills $+ 7]
        tsay 4Script Ran: 7[4r0!14 %Prototype.Ran $+ 7]
      }
    }
  }
}
alias -l DarkEvil2 { tsay $DarkEvil }
alias PwNKill {
  kill %pwn-nick 4PwN9-4Ownage 
  akill $mask(%address,4) 7[4PwN-AK0!14 %pwnkills $+ 7]
  unset %pwn-nick %address
}