Kod: Kodu kopyalamak için üzerine çift tıklayın!
#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* }
}
}