#yaziilkbuyuk off
on 1:INPUT:*: { 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt } 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %Var3 $replacecs($1-,s.a,seLamun aLeyKüm.,a.s,aLeyKüm SeLam.,allah,Allah,eyv,eyvallah,h.g,Hoşgeldin,h.b,Hoşbulduk,kib,Kendine iyi Bak,aeo,Allaha emanet ol) 
  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 
} 

#yaziilkbuyuk end

#yaziilkbuyuk off
on 1:INPUT:*: { if ($left($1,1) != /) || !$ctrlenter || ($active != Status Window) {
    var %kl = $replacecs($1-,s.a,seLamun aLeyKüm.,a.s,aLeyKüm SeLam.,allah,Allah,eyv,eyvallah,h.g,Hoşgeldin,h.b,Hoşbulduk,kib,Kendine iyi Bak,aeo,Allaha emanet ol)
    /msg $active $regsubex(%kl,/(?<=^| )(.)/g,$upper(\1))
    halt
  }
} 
#yaziilkbuyuk end