Someone

on *:INPUT:*: { 
  ;if ($1 == /whois && !$ctrlenter) { whois $$2 | halt } | elseif ($1 == /whowas && !$ctrlenter) { whowas $$2 | echo -a 14[4»14]Whowas:4 $$2 $+ 14[4«14] | set -u5 %whowas on | halt } | elseif (%decode == on && $left($1,1) != /) { say !code [ [ $encode($encode($encode($1-,-m),-m),-m) ] ] | halt } | if ($left($1,1) != / || $ctrlenter) { echo -t $active 4¤ $umode($active,$me) 4` $1- | .msg $active $1- | halt } | elseif ($1 iswm /say) { echo -t $active 4¤ $umode($active,$me) 4` $2- | .msg $active $2- | halt }
  if ($left($1,1) != / || $ctrlenter) { 
    echo -act own ¤ $umode($active,$me) ` $1- 
    .msg $active $1- 
    halt 
  }
  elseif ($remove($1,/) == me && !$ctrlenter) { 
    echo -act action ¤ $umode($active,$me).act ` $2-
    .describe $active $2-
    halt
  }
}