#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
#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
#yaziozel off
on *:input:*:{ if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 && !$istok(#Arkadas xXx,$active,32) { say $replacecs($1-,a,å,b,ß,c,¢,ç,¢,e,ë,i,î,n,ñ,o,ø,s,§,u,µ,y,¥,ş,$,? ,¿,<,«,>,»,:,¦) | halt } }
#yaziozel end
#yazikalin off
on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say %1 | haltdef } }
#yazikalin end
#yazi1renk off
on *:input:*: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
    msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
    halt
  }
}
#yazi1renk end
#yazi1ince off
on *:input:*:if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 { say $bold($1-) | halt }
alias bold { return $regsubex($1-,/(?<=^| )(.)/g,$+($chr(2),\1,$chr(2))) }
#yazi1ince end
dialog yazitip {
  title "Yazıtipi"
  size -1 -1 110 265
  radio "Tûrk¢e",1,10 10 90 20
  radio "ë£î±",2,10 30 90 20
  radio "sreT",3,10 50 90 20
  radio "BüYüK-kÜçÜk",4,10 70 90 20
  radio "SeSSiZ BüYüK",5,10 90 90 20
  radio "Renkli",6,10 110 90 20
  radio "İnce-Kalın",7,10 130 90 20
  radio "Özël",8,10 150 90 20
  radio "Normal",19,10 170 90 20
  radio "1.Renkli",9,10 190 90 20
  radio "1.ince",10,10 210 90 20
  box "",20,5 0 100 230
  button "TAMAM",21,5 235 100 20,ok
}
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(#yazikalin).status == on ) { did -c yazitip 7 } 
    elseif ($group(#yaziozel).status == on ) { did -c yazitip 8 }
    elseif ($group(#yazi1renk).status == on ) { did -c yazitip 9 }
    elseif ($group(#yazi1ince).status == on ) { did -c yazitip 10 }
    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 == 7 ) { .disable #yazi* | .enable #yazikalin }
    if ( $did == 8 ) { .disable #yazi* | .enable #yaziozel } 
    if ( $did == 9 ) { .disable #yazi* | .enable #yazi1renk }
    if ( $did == 10 ) { .disable #yazi* | .enable #yazi1ince }
    if ( $did == 19) { .disable #yazi* }
  }
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
  Yazıtipi...:/yazitip
}

on *:input:*:{
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $+(,$left($token($1-,%e,32),1),) $+ $right($gettok($1-,%e,32),-1)
    }
    msg $active %Jnk
    halt
  }
}

#yazi1renk off
on *:input:*:{
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $+(04,$left($token($1-,%e,32),1),01) $+ $right($gettok($1-,%e,32),-1)
    }
    msg $active %Jnk
    halt
  }
}
#yazi1renk end