on *:input:#:{ if (/* !iswm $1) || ($ctrlenter) { var %^ = 1, %' | while %^ <= $0 { %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32)) | inc %^ } | msg # %' | halt } }

 
#yaziilkbuyuk on
on 1:INPUT:*: {
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a %logo    | goto halt }
  if ($active == @Bot) { goto halt }
  set %Var3 $1-
  unset %Var1 %Var2
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
  :Start1
  inc %Var1 1
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
  if ($len(%Var3) != %Var1) { goto Start1 }
  say %Var2
  halt
  :ServerCommand
  :halt
  halt
  :son
}

on *:input:*:if $left($1,1) != / && !$ctrlenter && !$inpaste { say $+($chr(2),12 $1-) | halt }

on *:input:#: { if $left($1,1) != / && !$ctrlenter { if $1 ison $active { say $+($chr(2),4 $1,$chr(2),:) 12  $2- | haltdef } } }