on *:INPUT:*:{
  if ($left($1-,0) != /) {
    var %i 1,%q
    while ($gettok($1-,%i,32)) {
      %q = $addtok(%q,$+(,$upper($left($v1,1)),,$right($v1,-1)),32)
      inc %i
    }
    say %q
    halt
  }
}

 
on 1:INPUT:*: {
  if ( $left($1,1) == / ) { goto son }
  if ($ctrlenter) { goto son }
  if ($active == Status Window) { Echo -a Statüse yazı gönderemessiniz.    | goto halt }
  if ($active == @Bot) { goto halt }
  set %buyukyaziom3 $1-    
  unset %buyukyaziom1 %buyukyaziom2
  set %buyukyaziom1 1 | set %buyukyaziom2 $upper($mid(%buyukyaziom3,1,1))
  if ($mid(%buyukyaziom3,1,1) == $chr(47)) { goto ServerCommand }
  if ($len(%buyukyaziom3) == 1) { set %buyukyaziom2 $upper(%buyukyaziom2) | say %buyukyaziom2 | halt }
  :Start1
  inc %buyukyaziom1 1
  if ($mid(%buyukyaziom3,%buyukyaziom1,1) != $chr(32)) { set %buyukyaziom2 %buyukyaziom2 $+ $mid(%buyukyaziom3,%buyukyaziom1,1) | if ($len(%buyukyaziom3) < %buyukyaziom1) { goto Start1 } }
  if ($mid(%buyukyaziom3,%buyukyaziom1,1) == $chr(32)) { set %buyukyaziom2 %buyukyaziom2 $+ $upper($mid(%buyukyaziom3,%buyukyaziom1,2)) | inc %buyukyaziom1 1 | if ($len(%buyukyaziom3) < %buyukyaziom1) { goto Start1 } }
  if ($len(%buyukyaziom3) != %buyukyaziom1) { goto Start1 }
  say %buyukyaziom2
  halt
  :ServerCommand
  :halt
  halt
  :son
}
}