Çevrimdışı

pardon diğer ilk denediğim txt atmişim

#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
}
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,$,c,¢,C,¢,g,g,Ğ,Ğ ,u,û,Ü,Û,o,ô,Ö,Ô)
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,I,I,Î,s,$,S,$,c,¢,C,¢,g,g, Ğ,Ğ,u,û,Ü,Û,o,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
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,Ğ,Ü,u,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,Ö,o,c,C)
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,Ğ,u,Ü,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,o,Ö,c,C,!,¡,? ,¿)
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,Ü,u,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,Ö,o,C,c,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
#yazikarizma off
on 1:INPUT:#:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
on 1:INPUT:?:{
unset %karizma
set %karizma $1-
if ( $chr(47) == $mid(%karizma,1,1) ) { %karizma | unset %karizma* | halt }
%karizma = $replacecs(%karizma,a,4a,b,ß,c,C,d,d,e,4e,f,F,h, H,i,4i,k,k,l,L,m,m,n,4n,o,o,p,2p,q,4q,r,r,s,s, t,t,u,u,v,2v,w,w,x,×,y,Y,z,2z,i,i,I,Î,s,$,S,$,c, ¢,C,¢,g,g,Ğ,G,u,û,Ü,Û,o,ô,Ö,Ô,!,4!,?,¿,<,2<,>,2 >,',`,`,',.,14.)
say %karizma
unset %karizma
halt
}
#yazikarizma end
#yazikirmizim on
on *:input:*: {
if !$regex($1,\/) {
msg $active 4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
#yazikirmizim end
alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazi Tipleri"
size -1 -1 108 75
option dbu
radio "sreT", 10, 2 28 50 10, push
radio "Renkli", 2, 2 16 50 10, push
radio "Turkce", 3, 2 4 50 10, push
radio "éLiTé", 4, 2 40 50 10, push
radio "SeSSiZ BuYuK", 5, 55 4 50 10, push
radio "BuYuK-kÜcÜk", 6, 55 16 50 10, push
radio "Karizma", 7, 55 28 50 10, push
radio "Normal", 8, 55 40 50 10, push
box "", 9, 0 -2 108 65
button "Tamam", 1, 1 65 106 10, ok
radio "Kırmızı İnce", 50, 2 52 50 10, push
}
on 1:dialog:yaztip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yaztip 3 }
elseif ($group(#yazielit).status == on ) { did -c yaztip 4 }
elseif ($group(#yaziters).status == on ) { did -c yaztip 10 }
elseif ($group(#yazibuykuc).status == on ) { did -c yaztip 6 }
elseif ($group(#yaziseskuc).status == on ) { did -c yaztip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yaztip 2 }
elseif ($group(#yazikarizma).status == on ) { did -c yaztip 7 }
elseif ($group(#yazikirmizim).status == on ) { did -c yaztip 50 }
else { did -c yaztip 8 }
}
if ( $devent == sclick ) {
if ( $did == 3 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 4 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 10 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 6 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 2 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikarizma }
if ( $did == 50 ) { .disable #yazi* | .enable #yazikirmizim }
if ( $did == 8 ) { .disable #yazi* }
}
}