Tarih: 02/11/2013 / 20:14:12 , Kod sahibi: KafKef
#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,Ð,Ð,ü,û,Ü,Û,ö,ô,Ö,Ô)
echo 12 12« $+ 4 $+ $nick $+ 12 $+ $chr(187) $+ 1 %turkce
.msg $active %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,Ð,Ð,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
echo 12 12« $+ 4 $+ $nick $+ 12 $+ $chr(187) $+ 1 %elit
.msg $active %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,Ö,ö,ç,Ç)
echo 12 12« $+ 4 $+ $nick $+ 12 $+ $chr(187) $+ 1 %seskuc
.msg $active %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
echo 12 12« $+ 4 $+ $nick $+ 12 $+ $chr(187) $+ 1 %buyb
.msg $active %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title "Yazýtipi"
size -1 -1 110 170
radio "Tûrk¢e",1,10 10 90 20,flat
radio "ë£î±",2,10 30 90 20,flat
radio "BüYüK-kÜçÜk",4,10 50 90 20,flat
radio "SeSSiZ BüYüK",5,10 70 90 20,flat
radio "Renkli",6,10 90 90 20,flat
radio "Normal",19,10 110 90 20,flat
button "Kapat",21,5 145 100 20,ok,flat
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
else if ($group(#yazielit).status == on ) { did -c yazitip 2 }
else if ($group(#yaziters).status == on ) { did -c yazitip 3 }
else if ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
else if ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
else if ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | set %yazitipacikmi ON }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit | set %yazitipacikmi ON }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters | set %yazitipacikmi ON }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc | set %yazitipacikmi ON }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc | set %yazitipacikmi ON }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | set %yazitipacikmi ON }
if ( $did == 19) { .disable #yazi* | set %yazitipacikmi OFF }
}
}
alias yazitip { menuac yazitip yazitip }
