Something

on *:input:#: {
  if ($regex($1,/^[^\/]/)) {
    if ($1 ison $chan) && ($len($2-) =< 9) { msg $active $1 $+ : $2- | halt }
    if ($1 ison $chan) && ($len($2-) > 9) && ($numtok($2-,32) == 1) { msg $active $1 $+ , $+($upper($left($2,1)),$mid($2,2)) $3- | halt }
    if ($1 ison $chan) && ($len($2-) > 9) && ($numtok($2-,32) > 1) && $regex($1-,/[?!@:^*$A-Z^~\x28\x29]$/) { msg # $1 $+ , $+($upper($left($2,1)),$mid($2,2)) $3- | halt }
    if ($1 ison $chan) && ($len($2-) > 9) && ($numtok($2-,32) > 1) { msg # $1 $+ , $+($upper($left($2,1)),$mid($2,2)) $3- $+  | halt }
    if ($len($1-) =< 9) { msg $active $1- | halt }
    if ($len($1-) > 9) && ($numtok($1-,32) == 1) { msg # $+($upper($left($1,1)),$mid($1,2)) $2- | halt }
    if ($len($1-) > 9) && ($numtok($1-,32) > 1) && $regex($1-,/[?!@:^*$A-Z^~\x28\x29]$/) { msg # $+($upper($left($1,1)),$mid($1,2)) $2- | halt }
    if ($len($1-) > 9) && ($numtok($1-,32) > 1) { msg # $+($upper($left($1,1)),$mid($1,2)) $2- $+  | halt }
if (/* !iswm $1) { .msg $active $1- | echo -at ( $+ $iif($chan != $null,$nick($chan,$me).pnick,$me) $+ ): $1- | haltdef }
}
}