IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - yazı tipi (https://www.ircforumlari.net/mirc-scripting-sorunlari/57352-yazi-tipi.html)

Selam arkadaslar ben Scriptime İnce Kırmızı Yazı tipi eklemek istiyorum
Kodu war bende ama scriptte 4 tane yazı tipi oldugu icin uygulamıyor Sebebiyat script benımkısı Şu Kodu:

n274=on *:input:*: {
n275= if (/* !iswm $1-) && (!$inpaste) && (status win !isin $active) && (@* !iswm $active) {
n276= msg $active $+($regsubex($1-,/(?<=^|\s)(.)/g,$+(4,$upper(\1))),)
n277= halt
n278= }
n279=}

Şuna Göre Nasıl ayarlayabiLirim ArkadasLar ? Yardım istiyorum Şimdiden tskler...

#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
alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazi Tipleri"
size -1 -1 108 68
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 55
button "Tamam", 1, 1 55 106 10, ok
}
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 }
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 == 8 ) { .disable #yazi* }
}
}

Arkadaşlar sağoLun 3 gündür Yazdım ßi cvp GeLmedi tşkler ..

Cevap: yazı tipi

Buyur kardeş

#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 off
on 1:INPUT:*:{
unset %kirmizim
set %kirmizim $1-
if ( $chr(47) == $mid(%kirmizim,1,1) ) { %kirmizim | unset %kirmizim | halt }
if (/* !iswm $1-) && (!$inpaste) && (status win !isin $active) && (@* !iswm $active) {
%kirmizim = $+($regsubex($1-,/(?<=^|\s)(.)/g,$+(4,$upper(\1))),)
say %kirmizim
unset %kirmizim
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* }
}
}

saol kardeş Allah razı oLsun Tşk ederim ..

kardeş bu yazdııqn kodda sorun war

* /say: yetersiz parametreler (Satır 128, script35.mrc) bu çıkıyor :S

Cevap: yazı tipi

Birde bunu dene istersen.. Sorunu Daha önce cvp lamıştım ama yanlış bölüme actıgından taşınmış sanırım ;)

#kirmizim off
on *:input:#: {
if !$regex($1,\/) {
msg $active 4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
on *:input:?: {
if !$regex($1,\/) {
msg $active 4 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
#kirmizim 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
}
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
alias yaztip dialog -m yaztip yaztip
dialog yaztip {
title "Yazı Tipleri"
size -1 -1 64 132
option dbu
button "Button", 1, 11 113 37 12, ok
radio "Renkli", 2, 5 5 50 10
radio "Turkce", 3, 5 15 50 10
radio "éLiTé", 4, 5 26 50 10
radio "SeSSiZ BuYuK", 5, 5 37 50 10
radio "BuYuK KuCuK", 6, 5 48 50 10
radio "Karizma", 7, 5 57 50 10
radio "Normal", 8, 5 68 50 10
radio "sreT", 10, 5 80 50 10
radio "İnce Kırmızı", 11, 5 91 50 10
box "", 9, 2 0 57 109
}
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(#kirmizim).status == on ) { did -c yaztip 11 }
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 == 7 ) { .disable #yazi* | .enable #kirmizim }
if ( $did == 8 ) { .disable #yazi* }
}
}

Cevap: yazı tipi

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* }
}
}

Kardeş yazıtiplerime giriyorum ince kırmızıyı işaretliyorum tamama basıyorum sonra tekrar normal yazı stiline giriyo yani ince kırmızıya işaret atamıyorum olmuyo anlamadım giti :S:S:S

kunt kardeş pardon senın yazdıgını göremedim kusura bakma Allah razı olsun sizlerden .. kafam yerınde dğeil oldu sanırım olduda bu sefer

[01:48] <s> SeLamunALeykum
[01:48] <s> s.a
[01:48] <s> nbr
[01:48] <s> NabeR?
[01:48] <s> naber
[01:48] <s> TeşekkürLeR
[01:48] <s> tşk

ßide s.a yazarken hem s.a cıkıyor Hemde SeLamunAleykum oluyor onun içinde bir çare yokmu tşk ederim kardeşim ..

Cevap: yazı tipi

Galiba sende kelime tamamlama listesi var. Inputların haliyle çakışıyor. O listeyi görmek lazım

Input listem bu kardeşim

On 1:input:*:{
if ($1- == :D) { say 4:12D1:7D12:4D3:6D:13D4:12D | halt }
if ($1- == :P) { say 4:12P1:7p12:4p3:6p5:13p4:12 | halt }
if ($1- == :) { say 12:8)12:8)12:8)12:8)12:8)12:8)12:8) 12:8)8:12)8:12)8:12)8:12)8:12)8:12) 8:12)8:12) | halt }
if ($1- == ::) { say 1:4(1:4(1:4(1:4(1:4(1:4(1:4( | halt }
if ($1- == muha) { say 4Mua1a4ha1ha4ha1ha4Mua:))) | halt }
if ($1- == zuha) { say 4Zua1ha4ha1ha4ha1ha:))) | halt }
if ($1- == hehe) { say 4Heh1he4he1he4he1he4h1:)) | halt }
if ($1- == haha) { say 4Hah1ha4ha1ha4ha1ha4ha:)) | halt }
if ($1- == ehu) { say 4Ehu1he4he1he4he1he4he1:)) | halt }
if ($1- == kiki) { say 4Ki1k4i1k4i1k4i1k4i1k1:)) | halt }
if ($1- == hihi) { say 4Hi1h4i1h4i1h4i1h4i1h1:)) | halt }
if ($1- == puha) { say 4Puha1ha4ha1ha4ha1ha44:)) | halt }
if ($1- == oke) { say 4O1k4E1. | halt }
if ($1- == muc) { say 13MucKSsSsSsSsSsSsSs 9aSKıma 13MucKSsSsSsSsSsSsSs 9BiTaneme | halt }
if ($1- == ok) { say 4O1k1.. | halt }
if ($1- == filiz) { say 4x1f4i1l4i1z | halt }
if ($1- == naber) { say 4N1abe4R1? | halt }
if ($1- == nasilsin) { say 1N4asiLsi1N1? | halt }
if ($1- == amin) { say 4A1mi4NnNnNnNnNnN Cok5A7m5iii9NnNnNnN | halt }
if ($1- == s.a) { say 4S1eLamun4A1Leykum | halt }
if ($1- == a.s) { say 4A1leykum4S1elam | halt }
if ($1- == tc) { say 4TeveccühLerinize 1Mahzar 4OLmaya 1ÇaLışıyorum 4Efeem12:1)) | halt }
if ($1- == bsv) { say 4Beni1SizLer4Var1Ettiniz 12:1))) | halt }
if ($1- == salla) { say 13SaAaA14lll1aAaA 13SaAaA14lll1aAaA 13SaAaA14lll1aAaA 13SaAaA14lll1aAaA 13SaAaA14lll1aAaA | halt }
if ($1- == TeXaS) { say 1»»12 TeXaS 1«« | halt }
if ($1- == abow) { say 4A12b4o1204O1204o12W | halt }
if ($1- == vay) { say 5 4Vaaaaaay1Yaaaaaww4ruuuuuuum 12W4aa1yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 4:12))))))))))))))))))) 5 | halt }
if ($1- == gurbetbey) { say 4g1u4r1b4e1t4B1e4y | halt }
if ($1- == uza) { say 0,7UZaaa.. 2L. 1 :):):) | halt }
if ($1- == .) { say 13:1o13) | halt }
if ($1- == was) { say aLeyküm seLam ve RahmetuLLahu ve Berakatü | halt }
if ($1- == s.k) { say 4S1eLamun4K1avLen | halt }
if ($1- == hım) { say 5 4H12ı4m12m4S 5 | halt }
if ($1- == kem) { say 4K1e4m 4K1ü4m 4E1t4m1E 4A1n4L1a4d1i4k 1:4)1)4) | halt }
if ($1- == asabi) { say 4A1s4a1b4i1y4i1m. 4A1q4r1e4s1i4f1i4m. 4K1O4m1p4L1e4k1s4L1i4y1i4m. 4:1)4) | halt }
if ($1- == sebebimmm) { say 1»»12 4sebebimmm 1«« | halt }
if ($1- == ASK-I_MEMNU) { say 1»»12 4ASK-I_MEMNU 1«« | halt }
if ($1- == ,) { say 1:407)08)09)12)13)06)04)07)08)09)12) 13)06)04)07)08)09)12)13)06)04)07)08)09 )12)139069049 | halt }
if ($1- == çüş) { say 4Ç1ü4Ş1ş 4U1L4e1n4:1)4) | halt }
if ($1- == of) { say 41O4o1f4f12f4f 41O4o1f4f12f4f | halt }
if ($1- == sus) { say 4S1u4s 4Ü1L4e1n 4T1e4ne4ke 4:1)4) | halt }
if ($1- == tey) { say 13tee1yyyy 13tee1yyyy 13tee1yyyy 13tee1yyyy 13tee1yyyy | halt }
if ($1- == ke) { say 4Ke7ke4ke7ke4ke7ke4ke7ke4ke7ke4ke7ke4 ke7ke...... | halt }
if ($1- == ba) { say 4Ba 12Baa 4Ba 12Baa 4Baaaaaaaaa | halt }
if ($1- == mrb) { say 4M1e4r1H4a1b4a1. | halt }
if ($1- == pro) { say 4ß1e4n1i 4F1a4z1L4a 4G1ü4L1d4ü1r4m1e4i1n 4P1r4o1s4t1a4d1ı4m 4A1z4a1c4a1k 4:)1)4) | halt }
if ($1- == benim) { say 1\15,1\1,15\15,1\ 154••14[ 15Benim Kudretimin Eriştigi Yere Sizin Hayalleriniz Bile Erişemez14 ]4••15,1 15,1/1,15/15,1 | halt }
if ($1- == güle) { say 4G1üLe4G1üLe 4Ö1pTüm.. | halt }
if ($1- == narinni) { say 4n1a4r1i4n1n4i | halt }
if ($1- == mucux) { say 13MucKSsSsSsSsSsSsSs 7SaNa 4MucKSsSsSsSsSsSsSs 6CiLeK 12YaNaKLaRinDaN 13)) | halt }
if ($1- == reklam) { say 8,0]0,8[7,8]8,7[1,7]7,1[1,1-15 03030303 03030303SohBetNaz 03030303Ops 03030303V.1 030303031,1-7,1]1,7[8,7]7,8[0,8]8[ 4,1« RekLam » | halt }
if ($1- == mu) { say 4MuCK12usSS4sSS12sSS4sSS12sSS4sSS12sSS | halt }
if ($1- == fi) { say 4F12i4s12t4u12g4u12m | halt }
if ($1- == askim) { say 4A12ş4K12i4m | halt }
if ($1- == oy) { say 4oy8oy9oy10oy11oy12oy13oy14oy15oy1oy2oy 3oy4oy4yyyyyyyyy | halt }
if ($1- == muu) { say 4m07u08h09a12m13s06s04s07s08s09s12s13 s06s04s07s08s09s12s13s06s04s07s08s09s 12s13s06s04s07s08s09s12s13s06s04s07s08 s09s | halt }
if ($1- == jeje) { say 4j07e08j09e12j13e06j04e07j08e09j12e13 j06e04j07e08j09e12j13e06j04e07j08e09j 12e13j06e04j07e08j09e12j13e06j04e07j08 e09j | halt }
if ($1- == bo) { say 12B4ö5Ö12ö8Ö10ö6Ö1ö3Ö11ö5Ö10ö4Ö12ö1 2ö | halt }
if ($1- == ba) { say 4Ba 12Baa 4Ba 12Baa 4Baaaaaaaaa | halt }
if ($1- == dabi) { say 4D12a4B12i 4D12a4B12i 5 | halt }
if ($1- == bö) { say 12B4ö5Ö12öÖöÖöÖööÖöÖööÖöÖöÖ8Ö10öÖöÖöÖööÖöÖöÖ öÖ6Ö1öÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖö3Ö11ö5Ö10ö4ÖöÖö ÖöÖöÖöÖööööÖöÖÖÖö 12ö 12ö 3ÖöÖöÖöÖööÖ 4ö9ÖÖöÖöÖöÖöÖöÖöÖöÖöÖöÖöÖÖ7ö5ÖÖÖÖ | halt }
if ($1- == Hoscakal) { say 5 4H12o4s12C4a12k4a12L 5 | halt }
if ($1- == Hoşçakal) { say 5 4H12o4$12¢4a12k4a12L 5 | halt }
if ($1- == çat) { say 4Ç1a4t1u4r 4Ç1u4t1u4r 4y1E 4ß1e4ni1y44:)1) | halt }
if ($1- == gerizekali) { say 5 4G12e4R12i4Z12e4K12a4L12i 5 | halt }
if ($1- == Ben) { say 5 4B12e4N 5 | halt }
if ($1- == sen) { say 5 4S12e4N 5 | halt }
if ($1- == reca) { say 512R4ec4a 5 | halt }
if ($1- == gulum) { say 04G12ü4L12o4M | halt }
if ($1- == bitanem) { say 04B12i4rt12a4n12e4M | halt }
if ($1- == birtanem) { say 04B12i4rt12a4n12e4M | halt }
if ($1- == bye) { say 4B12y1e7e12e4e3e | halt }
if ($1- == uyuz) { say 4UuUuUuUuU12y1UuUuUuUuUuUuU7z12Z4z3ZzZzZzZz ZzZ | halt }
if ($1- == wa) { say 7Wa10ha7ha10ha7ha10ha7ha10ha7ha10ha7ha 10hah7ha10ha7ha10hah7ha ....... | halt }
if ($1- == h.g) { say 5 4H12o4s12g4e12l4d12i4n 5 | halt }
if ($1- == saol) { say 4S12a1o7L | halt }
if ($1- == anladın) { say 4A1n4L1a4d1i4n 4s1E4n 4O1n4i1y4y 4;1) | halt }
if ($1- == efem) { say 4E12f1e7T | halt }
if ($1- == se) { say 4 4@3}-12>--¸.·´¯`·.¸.,13S e N i 4@3}-13 Çok ama Çok 4@3}-13 S e V i Y o R u M 4@3}-13 AsKummmm 4@3}-13 12 13.,,.·´¯`·.--12<-3{4@ | halt }
if ($1- == rica) { say 512R4ic4a 5 | halt }
if ($1- == insa) { say 14I4nsalla14h | halt }
if ($1- == ups) { say 512U4ps4sssss 5 | halt }
if ($1- == aslanbey) { say 4A1s4L1a4n1B4e1y | halt }
if ($1- == cirkin) { say 512C4ir4kin 5 | halt }
if ($1- == guzelim) { say 512G4uz4e12L4i12m | halt }
if ($1- == hobba) { say 12H4o12o4o12o4b12b4a | halt }
if ($1- == benolmusum) { say 12B1e12n 1Ö12L1m12ü1ş12ü1m | halt }
if ($1- == a.q) { say 4Ş1imdi 4S1överdim 4A1ma 4Y1eri 4D1eğiL 12:)) | halt }
if ($1- == helal) { say 4H1eLa4L | halt }
if ($1- == tşk) { say 4T1eşekkürLe4R | halt }
if ($1- == tbr) { say 4T1ebrikLe4R | halt }
if ($1- == ay) { say **********04I LOVE YoU! 12*************** | halt }
if ($1- == det) { say 4D1e4e1e4T | halt }
if ($1- == dett) { say 4D1e4e1e4T 1D4e1d4i1K 4Ü1L4e1e4e1N | halt }
if ($1- == yoq) { say 12Y1oooq 12 | halt }
if ($1- == h.b) { say 4H1oş 4B1uLduK | halt }
if ($1- == yaf) { say 12Y1aFs12SS | halt }
if ($1- == dil) { say 0,0**8,8************* | /say 0,0*8,8****1,1**8,8***1,1**8,8**** | /say 0,0*8,8****2,2**8,8***2,2**8,8**** | /say 0,0*8,8*************** | /say 0,0*8,8***1,1*8,8***1,1*8,8***1,1*8,8*** | /say 0,0*8,8**1,1**8,8*******1,1**8,8** | /say 0,0*8,8****1,1*8,8*****1,1*8,8**** | /say 0,0**8,8****1,1**4,4**1,1*8,8**** | /say 0,0****8,8****4,4**8,8*** | /say 0,0******8,8***** | halt }
if ($1- == ss) { say 4S12eni 4S12eviyorum... | halt }
if ($1- == he) { say 4H1e4e1e4a1a 4:) | halt }
if ($1- == bayram) { say 12m1ir12ay | halt }
if ($1- == mersi) { say 4M1erc4i 4Ç1o4K 4N1naziKsini4Z.. | halt }
if ($1- == thx) { say 4Thanks 1For 4Your 1NaziK 4Davranış 1:) | halt }
if ($1- == all) { say 4A1LLah3'1ım 4Y1aRabbim | halt }
if ($1- == hallederiz) { say 4H1aLLederi4Z 1;) | halt }
if ($1- == öp) { say 4Ö12püyorummmmmmmmmmmmmmmmmmm 4K12occamannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn 1:* | halt }
if ($1- == anteb) { say 4BunLar 1Bir 4NumaraLı 1AnteP 4Ayağı 1;) | halt }
if ($1- == gecbu) { say 4Geç 12Bu 4AyaKLarı 1:Pp | halt }
if ($1- == kla) { say 4Bu 1SoruLarın 4Hepsini 1BiLiyorum 4Da 1KLavyem 4İyi 1DeğiL 12:Pp | halt }
if ($1- == gy) { say 4Gencim 1YakışıKLıyım 4HızLıyım 1Bekarım 4Gördüğünüz 1Gibi 4Zekiyimde 1:))) | halt }
if ($1- == bkz) { say 4Bu 1Kadar 4GüLdürmeyin 1Prostat'ım 4Azacak 1:))) | halt }
if ($1- == z) { say 12,8¦:( | halt }
if ($1- == Ay-Yildiz) { say Ay-Yildiz | halt }
if ($1- == alal) { say 5 4a12L4a12L4a12a4L12a4L12aL4a 5 | halt }
if ($1- == oley) { say 4o1L4L1e4e1y | halt }
if ($1- == gir) { say 4G12i4r12r4r12r4r12r4r12r.. 4Pp12pP.. | halt }
if ($1- == ankarali) { say 4A1N4K1A4R1A4L1I_4N1A4M1I4K | halt }
if ($1- == melis) { say 4M1e4L1i4S1s4S 12A13B7L4A1C9İ12M | halt }
if ($1- == ayy) { say 6,6*****0,0oo4,4**0,0*4,4**0,0**6,6*0,0** 6,6* | /say 0,0**6,6*0,0***4,4*******0,0*6,6*0,0**6,6* | /say 0,0**6,6*0,0***4,4*******0,0*6,6*0,0**6,6* | /say 0,0**6,6*0,0****4,4*****0,0**6,6*0,0**6,6* | /say 0,0**6,6*0,0*****4,4***0,0***6,6*0,0**6,6* | /say 6,6*****0,0****4,4*0,0****6,6***** | halt }
if ($1- == Kro) { say 0,4 C* 4,1 Kro 0,4 C* | halt }
if ($1- == w.a.s) { say 4V1e 4A1Leyna 4A1LeyKüm 4S1eLam | halt }
if ($1- == w.a.s..) { say 4V1e 4A1Leyna 4A1LeyKümes 4S1eLam | halt }
if ($1- == sie) { say 4S1i4€1:) | halt }
if ($1- == a.s) { say AleyKüm SeLam | halt }
if ($1- == x) { say 12,8¦;) | halt }
if ($1- == ha) { say 04H12aHaHaHaHa1204H12aHaHaHaHa12h04H12aH aHaHaHa12hhaa04H12aHaHaHaHa1204H12aHaHaHaH a12h04H12aHaHaHaHa12hhaa04H12aHaHaHaHa12 04H12aHaHaHaHa12h04H12aHaHaHaHa12hhaa04H 12aHaHaHaHa1204H12aHaHaHaHa12h04H12aHaHaHa Ha12hha | halt }
if ($1- == mö) { say 12m4ö5Ö12ö8Ö10ö6Ö1ö3Ö11ö5Ö10ö4Ö12ö1 2öööööööööööööööööööööööööööööööööööö | halt }
if ($1- == msh) { say 4M1aasaLLa4H | halt }
if ($1- == detmem) { say 4D1etme4m | halt }
if ($1- == nalcak) { say 4N1aLÇa4K 4K1öft4e | halt }
if ($1- == kes) { say 4k1E4s 4U1L4e1e4n 4D1ı4r1d4ı1R 4E1t4m1E4:1)4) | halt }
if ($1- == fener) { say 8,2 F 2,8 ~ 8,2 £ 2,8 ~ 8,2 N 2,8 ~ 8,2 E 2,8 ~ 8,2 R 2,8 ~8,2 ß 2,8 ~ 8,2 A 2,8 ~ 8,2 H 2,8 ~ 8,2 Ç 2,8 ~ 8,2 £ 2,8 ~ 8,2 C 2,8 ~ 8,2 U 2,8 ~ 8,2 M 2,8 ~ 8,2 H 2,8 ~ 8,2 U 2,8 ~ 8,2 R 2,8 ~ 8,2 İ 2,8 ~ 8,2 Y 2,8 ~ 8,2 £ 2,8 ~ 8,2 T 2,8 ~ 8,2 i 2,8 Sinc£ 8,2 19o7 | halt }
if ($1- == canimm) { say 4CANIM 3 CANIM 5CANIM 7CANIM 13 CANIM 14 CANIM 2CANIM 8CANIM 15CANIM 3CANIM 10CANIM 12CANIM 9CANIM 4CANIM | halt }
if ($1- == caz) { say 4S1u4s 4Ü1L4e1n 4c1A4z 4y1A4p1m4A 4:1)4) | halt }

}

INPUT listem bu kardeşim

Allah rahatlık versin kardeş .

Cevap: yazı tipi

Scriptin her şeyini değiştiriyorsun belli. İnşeallah bu değiştirdiğin scripti sadece sen kullanırsın yaymazsın da, mIRC alemi yeni bir editçi kazanmaz. Emeğe saygı duyalım lütfen!