on 1:INPUT:*: {  
  set %purp $replace(%purp,b,B) 
  if ( $left($1,1) == / ) { goto son }  
  if ($ctrlenter) { goto son }  
  if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | 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 $replace(%Var2,b,ß,l,L) $+ $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 $replace(%Var2,Q,q) 
  halt  
  :ServerCommand  
  :halt  
  halt  
  :son  
}