on *:input:*: {
  say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
  halt
}

on 1:INPUT:*: { 
  if ( $left($1,1) == /) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a Statusa Birşey Yazamazsınız. | 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 $replacecs(%var2,a,a,b,ß,c,©,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,m,M,n,ñ,o,o,p,p,q,¶,r,®,s,§,t,&#8224;,u,µ,v,v,w,w ,x,×,y,¥,z,z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•) 
  halt 
  :ServerCommand 
  :halt 
  halt 
  :son 
} 

on *:input:*: {
  if ( $left($1,1) != /) && ($active != Status Window) { 
    say $regsubex($1-,/(.)/g,$iif(2 \\ \n,$+($chr(3),4,\1,$chr(3),1),\1))
    halt
  }
}