#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
}
#yaziilkbuyuk end
#yazirenkli off
on 1:INPUT:*:{
  unset %ahenk*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
  :ilk
  inc %ahenks
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
  %ahenkh = $mid($1-,%ahenks,1)
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
  unset %ters*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
  :ilk
  inc %terss
  if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
  set %tersh $mid($1-,%terss,1)
  %terst = %tersh $+ %terst
  goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{  
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)
  say %turkce
  unset %turkce  
  halt
}
#yaziturkce end
#yazino off
on 1:INPUT:*:{  
  unset %number
  set %number $1-
  if ( $chr(47) == $mid(%number,1,1) ) { %number | unset %number* | halt }
  %number = $replacecs(%number,a,4,A,4,b,8,e,3,E,3,ı,1,I,1,i,1,İ,1,r,2,o,0)
  say %number
  unset %number  
  halt
}
#yazino end
#yazielit off
on 1:INPUT:*:{
  unset %elit  
  set %elit $1-
  if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
  %elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ,v,V,w,',x,×,y,¥,z,Z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,)
  say %elit
  unset %elit  
  halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
  unset %seskuc  
  set %seskuc $1-
  if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
  %seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ı,O,o,p,P,ğ,Ğ,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,İ,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
  say %seskuc
  unset %seskuc  
  halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
  unset %buy*  
  set %buyk $1-
  if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
  set %buys 1
  set %buyu $len(%buyk)
  :ilk
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)  
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,?,¿)
  set %buyb %buyb $+ %buyh  
  inc %buys
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)    
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿,?)  
  inc %buys  
  set %buyb %buyb $+ %buyh  
  goto ilk
  :son
  say %buyb
  unset %buy*
  halt
}
#yazibuykuc end
dialog yazitip {
  title "Yazıtipi"
  size -1 -1 110 220
  option pixels
  icon $icon, 0
  radio "Tûrk¢e", 1, 10 10 90 20, push
  radio "ë£î±", 2, 10 30 90 20, push
  radio "Ters", 3, 10 50 90 20, push
  radio "BüYüK-kÜçÜk", 4, 10 70 90 20, push
  radio "SeSSiZ BüYüK", 5, 10 90 90 20, push
  radio "Renkli", 6, 10 110 90 20, push
  radio "Normal", 19, 10 169 90 20, push
  box "", 20, 5 0 100 193
  button "Tamam", 21, 5 196 100 20, ok
  radio "Numaralı", 7, 10 130 90 20, push
  radio "İlk Harf Büyük", 8, 10 150 90 20, push
}
on 1:dialog:yazitip:*:*: {
  if ( $devent == init ) {
    if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
    elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
    elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
    elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 } 
    elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
    elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
    elseif ($group(#yazino).status == on ) { did -c yazitip 7 }
    elseif ($group(#yaziilkbuyuk).status == on ) { did -c yazitip 8 }
    else { did -c yazitip 19 }
  }
  if ( $devent == sclick ) {
    if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
    if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
    if ( $did == 7 ) { .disable #yazi* | .enable #yazino }
    if ( $did == 8 ) { .disable #yazi* | .enable #yaziilkbuyuk }
    if ( $did == 19) { .disable #yazi* }
  }
}
alias yazitip { dialog -m yazitip yazitip } 

#yaziilkbuyuk end
#yazirenkli on
on 1:INPUT:*:{
  unset %ahenk*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
  :ilk
  inc %ahenks
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
  %ahenkh = $mid($1-,%ahenks,1)
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  goto ilk
}