#yaziciz off
on 1:INPUT:*:{  
  unset %yaziciz
  set %yaziciz $1-
  if ( $chr(47) == $mid(%yaziciz,1,1) ) { %yaziciz | unset %yaziciz* | halt }
  %yaziciz = $replace(%yaziciz,a,a)
  %yaziciz = $replace(%yaziciz,B,ß)  
  %yaziciz = $replace(%yaziciz,C,C)
  %yaziciz = $replace(%yaziciz,Ç,Ç)
  %yaziciz = $replace(%yaziciz,D,D)
  %yaziciz = $replace(%yaziciz,e,e)
  %yaziciz = $replace(%yaziciz,F,F)
  %yaziciz = $replace(%yaziciz,G,G)
  %yaziciz = $replace(%yaziciz,H,H)
  %yaziciz = $replace(%yaziciz,i,i)
  %yaziciz = $replace(%yaziciz,i,i)  
  %yaziciz = $replace(%yaziciz,J,J)
  %yaziciz = $replace(%yaziciz,K,K)
  %yaziciz = $replace(%yaziciz,L,L) 
  %yaziciz = $replace(%yaziciz,M,M)
  %yaziciz = $replace(%yaziciz,N,N)
  %yaziciz = $replace(%yaziciz,o,o)
  %yaziciz = $replace(%yaziciz,ö,ö)
  %yaziciz = $replace(%yaziciz,P,P)
  %yaziciz = $replace(%yaziciz,R,R)
  %yaziciz = $replace(%yaziciz,S,S)
  %yaziciz = $replace(%yaziciz,S,S)
  %yaziciz = $replace(%yaziciz,T,T)
  %yaziciz = $replace(%yaziciz,u,u)
  %yaziciz = $replace(%yaziciz,ü,ü)
  %yaziciz = $replace(%yaziciz,V,V)
  %yaziciz = $replace(%yaziciz,Y,Y)
  %yaziciz = $replace(%yaziciz,Z,Z)
  %yaziciz = $replace(%yaziciz,X,X)
  %yaziciz = $replace(%yaziciz,W,W)
  %yaziciz = $replace(%yaziciz,Q,Q)
  say %yaziciz
  unset %yaziciz 
  halt
}
#yaziciz end
#yazidrk off
on 1:INPUT:*:{  
  unset %yazidrk
  set %yazidrk   710   $1-
  if ( $chr(48) == $mid(%yazidrk,1,1) ) { %yazidrk | unset %yazidrk* | halt }
  %yazidrk = $replace(%yazidrk,i,5i)
  %yazidrk = $replace(%yazidrk,I,5Î)  
  %yazidrk = $replace(%yazidrk,s,5$)
  %yazidrk = $replace(%yazidrk,S,5$)
  %yazidrk = $replace(%yazidrk,ç,5¢)
  %yazidrk = $replace(%yazidrk,Ç,5¢)
  %yazidrk = $replace(%yazidrk,L,4l5)
  %yazidrk = $replace(%yazidrk,l,4L5)
  %yazidrk = $replace(%yazidrk,ü,5û)
  %yazidrk = $replace(%yazidrk,b,5ß)
  %yazidrk = $replace(%yazidrk,B,5ß)
  %yazidrk = $replace(%yazidrk,Ü,5Û)  
  %yazidrk = $replace(%yazidrk,ö,5ô)
  %yazidrk = $replace(%yazidrk,Ö,5Ô)
  %yazidrk = $replace(%yazidrk,D,7D5) 
  %yazidrk = $replace(%yazidrk,o,7o5) 
  %yazidrk = $replace(%yazidrk,R,7R5) 
  %yazidrk = $replace(%yazidrk,u,7u5) 
  %yazidrk = $replace(%yazidrk,K,7K5) 
  %yazidrk = $replace(%yazidrk,S,7S5) 
  %yazidrk = $replace(%yazidrk,c,7c5) 
  %yazidrk = $replace(%yazidrk,i,7i5) 
  %yazidrk = $replace(%yazidrk,p,7p5) 
  %yazidrk = $replace(%yazidrk,T,7T5) 
  say %yazidrk
  unset %yazidrk  
  halt
}
#yazidrk end
#yazikal off
on 1:INPUT:*:{  
  unset %yazikal
  set %yazikal $1-
  if ( $chr(47) == $mid(%yazikal,1,1) ) { %yazikal | unset %yazikal* | halt }
  %yazikal = $replace(%yazikal,a,a)
  %yazikal = $replace(%yazikal,B,B)  
  %yazikal = $replace(%yazikal,C,C)
  %yazikal = $replace(%yazikal,Ç,Ç)
  %yazikal = $replace(%yazikal,D,D)
  %yazikal = $replace(%yazikal,e,e)
  %yazikal = $replace(%yazikal,F,F)
  %yazikal = $replace(%yazikal,G,G)
  %yazikal = $replace(%yazikal,H,H)
  %yazikal = $replace(%yazikal,I,i)
  %yazikal = $replace(%yazikal,I,i)  
  %yazikal = $replace(%yazikal,J,J)
  %yazikal = $replace(%yazikal,K,K)
  %yazikal = $replace(%yazikal,L,L) 
  %yazikal = $replace(%yazikal,M,M)
  %yazikal = $replace(%yazikal,N,N)
  %yazikal = $replace(%yazikal,o,o)
  %yazikal = $replace(%yazikal,ö,ö)
  %yazikal = $replace(%yazikal,P,P)
  %yazikal = $replace(%yazikal,R,R)
  %yazikal = $replace(%yazikal,S,S)
  %yazikal = $replace(%yazikal,S,S)
  %yazikal = $replace(%yazikal,T,T)
  %yazikal = $replace(%yazikal,u,u)
  %yazikal = $replace(%yazikal,ü,ü)
  %yazikal = $replace(%yazikal,V,V)
  %yazikal = $replace(%yazikal,Y,Y)
  %yazikal = $replace(%yazikal,Z,Z)
  %yazikal = $replace(%yazikal,X,X)
  %yazikal = $replace(%yazikal,W,W)
  %yazikal = $replace(%yazikal,Q,Q)
  say %yazikal
  unset %yazikal 
  halt
}
#yazikal 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,I,I,Î,s,$,S,$,ç,¢,Ç,¢,G,G,ü,û,Ü,Û,ö,ô,Ö,Ô,e,é,b,ß,l,L,c,C,:,¦,w,W,o,ø)
  say %turkce
  unset %turkce  
  halt
}
#yaziturkce end
#yazikmavi off
on 1:INPUT:*:{  
  unset %kmavi
  set %kmavi 2 2 $1-
  if ( $chr(47) == $mid(%kmavi,1,1) ) { %kmavi | unset %kmavi* | halt }
  %kmavi = $replacecs(%kmavi,a,a)
  say %kmavi
  unset %kmavi  
  halt
}
#yazikmavi end
#yazicr off
on 1:INPUT:*:{  
  unset %cr
  set %cr   $1-
  if ( $chr(47) == $mid(%cr,1,1) ) { %cr | unset %cr* | halt }
  %cr = $replacecs(%cr,a,a)
  say %cr
  unset %cr  
  halt
}
#yazicr end
#yazisar off
on 1:INPUT:*:{  
  unset %sar
  set %sar 8 $1-
  if ( $chr(47) == $mid(%sar,1,1) ) { %sar | unset %sar* | halt }
  %sar = $replacecs(%sar,a,a)
  say %sar
  unset %sar 
  halt
}
#yazisar end
#yazitur off
on 1:INPUT:*:{  
  unset %tur
  set %tur 7 $1-
  if ( $chr(47) == $mid(%tur,1,1) ) { %tur | unset %tur* | halt }
  %tur = $replacecs(%tur,a,a)
  say %tur
  unset %tur  
  halt
}
#yazitur end
#yaziayes off
on 1:INPUT:*:{  
  unset %ayes
  set %ayes 9 $1-
  if ( $chr(47) == $mid(%ayes,1,1) ) { %ayes | unset %ayes* | halt }
  %ayes = $replacecs(%ayes,a,a)
  say %ayes
  unset %ayes  
  halt
}
#yaziayes end
#yazimor off
on 1:INPUT:*:{  
  unset %mor
  set %mor 6 $1-
  if ( $chr(47) == $mid(%mor,1,1) ) { %mor | unset %mor* | halt }
  %mor = $replacecs(%mor,a,a)
  say %mor
  unset %mor  
  halt
}
#yazimor end
#yazidy off
on 1:INPUT:*:{  
  unset %dy
  set %dy 10 $1-
  if ( $chr(47) == $mid(%dy,1,1) ) { %dy | unset %dy* | halt }
  %dy = $replacecs(%dy,a,a)
  say %dy
  unset %dy  
  halt
}
#yazidy end
#yazitrk off
on 1:INPUT:*:{  
  unset %trk
  set %trk 11 $1-
  if ( $chr(47) == $mid(%trk,1,1) ) { %trk | unset %trk* | halt }
  %trk = $replacecs(%trk,a,a)
  say %trk
  unset %trk  
  halt
}
#yazitrk end
#yazilcv off
on 1:INPUT:*:{  
  unset %lcv
  set %lcv 12 $1-
  if ( $chr(47) == $mid(%lcv,1,1) ) { %lcv | unset %lcv* | halt }
  %lcv = $replacecs(%lcv,a,a)
  say %lcv
  unset %lcv  
  halt
}
#yazilcv end
#yazipem off
on 1:INPUT:*:{  
  unset %pem
  set %pem 13 $1-
  if ( $chr(47) == $mid(%pem,1,1) ) { %pem | unset %pem* | halt }
  %pem = $replacecs(%pem,a,a)
  say %pem
  unset %pem  
  halt
}
#yazipem end
#yazibordo off
on 1:INPUT:*:{  
  unset %bordo
  set %bordo 5 $1-
  if ( $chr(47) == $mid(%bordo,1,1) ) { %bordo | unset %bordo* | halt }
  %bordo = $replacecs(%bordo,a,a)
  say %bordo
  unset %bordo  
  halt
}
#yazibordo end
#yazikirmizi off
on 1:INPUT:*:{  
  unset %kirmizi
  set %kirmizi 4 $1-
  if ( $chr(47) == $mid(%kirmizi,1,1) ) { %kirmizi | unset %kirmizi* | halt }
  %kirmizi = $replacecs(%kirmizi,a,a)
  say %kirmizi
  unset %kirmizi  
  halt
}
#yazikirmizi end
#yazikyesil off
on 1:INPUT:*:{  
  unset %kyesil
  set %kyesil 3 $1-
  if ( $chr(47) == $mid(%kyesil,1,1) ) { %kyesil | unset %kyesil* | halt }
  %kyesil = $replacecs(%kyesil,a,a)
  say %kyesil
  unset %kyesil  
  halt
}
#yazikyesil 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,I,I,Î,s,$,S,$,ç,¢,Ç,¢,g,g,G,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,i,O,o,p,P,g,G,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,s,S,I,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,I,o,O,p,P,g,G,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,s,S,i,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,i,O,o,P,p,G,g,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,S,s,I,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 "SpiDeR ScRipT"
  size -1 -1 150 320
  tab "ÖzeL      ",10,5 5 138 285 
  tab "Renkli    ",11  
  radio "öZeL",1,10 30 90 20, tab10, flat 
  radio "ascii",2,10 50 90 20, tab10, flat 
  radio "Ters",3,10 70 90 20, tab10, flat 
  radio "BüYüK-kÜçÜk",4,10 90 90 20, tab10, flat 
  radio "SeSSiZ BüYüK",5,10 110 90 20, tab10, flat 
  radio "Renkli",6,10 130 90 20, tab10, flat 
  radio "Normal",19,10 230 90 20, tab10, flat 
  radio "KaLiN",20,10  150 90 20, tab10, flat
  radio "Rmx",22,10 170 90 20, tab 10, flat
  radio "aLtCizGi",23,10 190 90 20, tab10, flat  
  radio "Lacivert",24,10 30 90 20, tab11, flat  
  radio "KoyuYesiL",25,10 50 90 20, tab 11, flat  
  radio "Kirmizi",26,10 70 90 20, tab 11, flat 
  radio "Bordo",27,10 90 90 20, tab 11, flat 
  radio "Mor",28,10 110 90 20, tab 11, flat 
  radio "Turuncu",29,10 130 90 20, tab 11, flat 
  radio "Sari",30,10 150 90 20, tab 11, flat
  radio "AcikYesiL",31,10 170 90 20, tab 11, flat
  radio "YesiL",32,10 190 90 20, tab 11, flat  
  radio "Turkuaz",33,10 210 90 20, tab 11, flat
  radio "Mavi",34,10 230 90 20, tab 11, flat
  radio "Pembe",35,10 250 90 20, tab 11, flat
  radio "TersRenk",36,10  210 90 20, tab 10, flat 
  button "TAMAM",21,5 293 138 25,ok, flat
}
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(#yazikal).status == on ) { did -c yazitip 20 }    
    elseif ($group(#yazidrk).status == on ) { did -c yazitip 22 }    
    elseif ($group(#yaziciz).status == on ) { did -c yazitip 23 }      
    elseif ($group(#yazikmavi).status == on ) { did -c yazitip 24 }       
    elseif ($group(#yazikyesil).status == on ) { did -c yazitip 25 }       
    elseif ($group(#yazikirmizi).status == on ) { did -c yazitip 26 }
    elseif ($group(#yazibordo).status == on ) { did -c yazitip 27 }    
    elseif ($group(#yazimor).status == on ) { did -c yazitip 28 }        
    elseif ($group(#yazitur).status == on ) { did -c yazitip 29 }       
    elseif ($group(#yazisar).status == on ) { did -c yazitip 30 }     
    elseif ($group(#yaziayes).status == on ) { did -c yazitip 31 }     
    elseif ($group(#yazidy).status == on ) { did -c yazitip 32 }     
    elseif ($group(#yazitrk).status == on ) { did -c yazitip 33 } 
    elseif ($group(#yazilcv).status == on ) { did -c yazitip 34 } 
    elseif ($group(#yazipem).status == on ) { did -c yazitip 35 } 
    elseif ($group(#yazicr).status == on ) { did -c yazitip 36 }     
    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 == 20 ) { .disable #yazi* | .enable #yazikal }   
    if ( $did == 22 ) { .disable #yazi* | .enable #yazidrk }      
    if ( $did == 23 ) { .disable #yazi* | .enable #yaziciz }   
    if ( $did == 24 ) { .disable #yazi* | .enable #yazikmavi }      
    if ( $did == 25 ) { .disable #yazi* | .enable #yazikyesil }      
    if ( $did == 26 ) { .disable #yazi* | .enable #yazikirmizi }    
    if ( $did == 27 ) { .disable #yazi* | .enable #yazibordo }       
    if ( $did == 28 ) { .disable #yazi* | .enable #yazimor }      
    if ( $did == 29 ) { .disable #yazi* | .enable #yazitur }      
    if ( $did == 30 ) { .disable #yazi* | .enable #yazisar }          
    if ( $did == 31 ) { .disable #yazi* | .enable #yaziayes }       
    if ( $did == 32 ) { .disable #yazi* | .enable #yazidy }    
    if ( $did == 33 ) { .disable #yazi* | .enable #yazitrk }  
    if ( $did == 34 ) { .disable #yazi* | .enable #yazilcv } 
    if ( $did == 35 ) { .disable #yazi* | .enable #yazipem } 
    if ( $did == 36 ) { .disable #yazi* | .enable #yazicr } 
    if ( $did == 19) { .disable #yazi* }
  }
}