| DaDaS | 26 Temmuz 2010 22:42 |
Yazı sıtılı sorunu yardım.
Kod:
#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-) ) { .msg $active %ahenkt | echo 12 12« $+ 4 $+ $nick $+ 12 $+ $chr(187) $+ 1 %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
#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 on
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
box "",20,5 0 100 135,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 }
}
}
Arkadaslar Elımde Böyle Bır Yazı Kodu Var Buna mırce eklıyorum calısıyor fakan nasıl button eklemem lazım yapamadım yanı yazı sıtılını degısmek ıcın yazı sekıllerı buttonu nasıl yukleyebılırım yardımcı olurmusunuz :) |
