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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Yazı ŞekLi iLe Sorunum var yardım .. (https://www.ircforumlari.net/mirc-scripting-sorunlari/191302-yazi-sekli-ile-sorunum-var-yardim.html)

SerSery_ 25 Mart 2009 07:53
Yazı ŞekLi iLe Sorunum var yardım ..
 
Merhaba ...
Hemen Konuya Girmek İstiyorum, Ben eLité yazı şeqLi kuLLanıyorum ßuna ßazı eqLemeLer vs de yAptım ama teq Sorunum ßir nick caqırırken o nickin şeqiLLi deqiLde normal Cıqması örnek : -- nick -- Mérhaßa < die seslendiqim nickin normal cıqması ßu konuda yardımLarınızı beqLiyorum [ SayqıLar ] ..

muratt_aziz 25 Mart 2009 08:25
Cevap: Yazı ŞekLi iLe Sorunum var yardım ..
 
koduda bizimla paylaşırsan ıyı olur daha hızlı ulaşırsın sonuca

SerSery_ 25 Mart 2009 12:27
Cevap: Yazı ŞekLi iLe Sorunum var yardım ..
 
#elit on
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | Halt | Nick }
%elit = $replace(%elit,a,6a)
%elit = $replace(%elit,b,6ß)
%elit = $replace(%elit,c,6¢)
%elit = $replace(%elit,d,6D)
%elit = $replace(%elit,e,6é)
%elit = $replace(%elit,f,6f)
%elit = $replace(%elit,h,6h)
%elit = $replace(%elit,i,6i)
%elit = $replace(%elit,k,6k)
%elit = $replace(%elit,l,6L)
%elit = $replace(%elit,m,6m)
%elit = $replace(%elit,n,6n)
%elit = $replace(%elit,o,6o)
%elit = $replace(%elit,p,6p)
%elit = $replace(%elit,q,6q)
%elit = $replace(%elit,r,6r)
%elit = $replace(%elit,s,6s)
%elit = $replace(%elit,t,6†)
%elit = $replace(%elit,u,6µ)
%elit = $replace(%elit,v,6v)
%elit = $replace(%elit,w,6w)
%elit = $replace(%elit,x,6×)
%elit = $replace(%elit,y,6y)
%elit = $replace(%elit,z,6z)
%elit = $replace(%elit,ı,6ı)
%elit = $replace(%elit,İ,6i)
%elit = $replace(%elit,ş,6ş)
%elit = $replace(%elit,Ş,6ş)
%elit = $replace(%elit,ç,6¢)
%elit = $replace(%elit,Ç,6¢)
%elit = $replace(%elit,ğ,6q)
%elit = $replace(%elit,Ğ,6q)
%elit = $replace(%elit,ü,6ü)
%elit = $replace(%elit,Ü,6ü)
%elit = $replace(%elit,ö,6ö)
%elit = $replace(%elit,Ö,6Ô)
%elit = $replace(%elit,!,4!)
%elit = $replace(%elit,?,4¿)
%elit = $replace(%elit,<,6«)
%elit = $replace(%elit,>,6»)
%elit = $replace(%elit,-,,-,)
%elit = $replace(%elit,:,6:)
%elit = $replace(%elit,',`)
%elit = $replace(%elit,`,')
%elit = $replace(%elit,2k2a2r2i2z2m2a,12]{4a12r4i12z4m12a)
%elit = $replace(%elit,g,6q)
%elit = $replace(%elit,2a.2s,4A1Léyküm 4S1éLam 4H1oş 4G1éLdin)
%elit = $replace(%elit,SaqøL iyiyim,4H1amd 4O1Lsun 4S1aqoL 4S1én 4N1asıLsın ?)
%elit = $replace(%elit,6n6a6s6I6L6s6I6n,4N1asıLs ın4.. ¿)
%elit = $replace(%elit,6h.6q,4H1oş 4G1éLdin ..)
%elit = $replace(%elit,6s6a6q6o6L,4S1aqoL4..)
%elit = $replace(%elit,6é6f6é6n6D6i6m,4£1f1é1n 1d1i1m4..)
%elit = $replace(%elit,6s6a6q6o6L,4S1aqoL4..)
%elit = $replace(%elit,6h6é6h6é,4éHéµé12éhéµ10héµ1 4héµ4éheµ12éheµ10éheµ14éhéµé4hé)
%elit = $replace(%elit,6m6¢6×,12m4¢3×)
%elit = $replace(%elit,6a6s6a6ß6i,4© 12Asaß! 4®)
%elit = $replace(%elit,6h6a6h6a,4Ha12ha10ha14ha4h a12ha10ha14ha4ha4)
%elit = $replace(%elit,6m6é6r6h6a6ß6a,4M1érhaßa 4..)
%elit = $replace(%elit,6s6é6L6a6m6é6t6L6é,4S1éL amétLé4..)
%elit = $replace(%elit,6i6y6i 6a6q6s6a6m6L6a6r,4İ1yi 4A1kşamLar4..)
%elit = $replace(%elit,6i6y6i 6a6k6s6a6m6L6a6r,4İ1yi 4A1kşamLar4..)
%elit = $replace(%elit,6h6q,4H1oş 4G1éLdin ..)
%elit = $replace(%elit,6a.6s,4A1Léyküm 4S1éLam 4H1oş 4G1éLdin)
%elit = $replace(%elit,6s.6a,4S1éLamun 4A1Léyküm 4H1oş 4S1ohßétLér4..)
%elit = $replace(%elit,6h.6ß,4H1oş 4ß1uLdum 4S1aqoLun4..)
%elit = $replace(%elit,6h.6ß,4H1oş 4ß1uLdum 4S1aqoLun4..)
%elit = $replace(%elit,6×6D,12×4D)
%elit = $replace(%elit,6h6I6m6s,4H1ı3m12s3S4s1. 12.4.)
%elit = $replace(%elit,6†6m6m,4†1amam4..)
%elit = $replace(%elit,6†6a6m6a6m,4†1amam4..)
%elit = $replace(%elit,6o6k6é,4O1qé4..)
%elit = $replace(%elit,6o6k,4O1qé4..)
%elit = $replace(%elit,6o6k6é,4O1qé4..)
%elit = $replace(%elit,6é6v6é6t,4£1vét4..)
%elit = $replace(%elit,6y6é6s,4Y1éSs4..)
%elit = $replace(%elit,6a6q6ré6s6s6i6v6vé,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,4© 12AgReSsivVe 4®,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,6a6q6r6é6s6s6i6v6v6é,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,6é6y6w6L,4£1ywL4..)
%elit = $replace(%elit,6k6a6n6k6a,4K1ank'y4..)
%elit = $replace(%elit,6s6é6r6s6é6r6y,12• 1S4é1r4S1é4r1y4.. 12•)
%elit = $replace(%elit,6n6a6z6L6i,12•1 N4a1z4L1i4.1. 12•)
%elit = $replace(%elit,6é6r6k6a6n,12• 4£1rkan4.. 12•)
%elit = $replace(%elit,6a6q6r6é6s,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,6a6q6r6é,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,6k6o6n6µ6s6ß6é,12» 1w4w1w4.1K4o1n4u1S4ß1é4.1c4o1m4 .1. 12«)
say %elit
unset %elit
halt
}




böyle ßir yazı seqLi addonum var bunda herhanqi bir nicke sesleneceqim zaman o nickin normal cıqmasını istiyorum yazı seqLimin aynı seqiLde dewam etmesini [ sayqıLar ] ..

SerSery_ 25 Mart 2009 19:27
Cevap: Yazı ŞekLi iLe Sorunum var yardım ..
 
ArkadaşLar yoKmu yArdım ediceq ßirisi ?

Difuzyon 26 Mart 2009 00:45
Cevap: Yazı ŞekLi iLe Sorunum var yardım ..
 
Kod:
on *:input:*:{
if (/* iswm $1) { return }
unset %yazışek*
set %yazışekliana $1-
if $regex($window($active).type,/^(channel)$/) {
var %difi 1 | while %difi <= $numtok($1-,32) {
if $token($1-,%difi,32) !ison $chan {
%yazışekli = $replace($addtok(%yazışekli,$token($1-,%difi,32),32),a,6a,b,6ß,c,6¢,d,6D,e,6é,f,6f,h,6h,i,6i,k,6k,l,6L,m,6m,n,6n,o,6o,p,6p,q,6q,r,6r,s,6s,t,6†,u,6µ,v,6v,w,6w,x,6×,y,6y,z,6z,ı,6ı,İ,6i,ş,6ş,Ş,6ş,ç,6¢,Ç,6¢,ğ,6q,Ğ,6q,g,6q,ü,6ü,Ü,6ü,ö,6ö,Ö,6Ô,!,4!,?,4¿,<,6«,>,6»,-,,-,,:,6:,',`,`,')
}
else { set %yazışeklinick $token($1-,%difi,32) }
inc %difi
}
if %yazışeklinick { %yazışekli = $instok(%yazışekli,$+(01,%yazışeklinick,),$findtok(%yazışekliana,%yazışeklinick,1,32),32) | msg $active %yazışekli | halt }
}
if $regex($window($active).type,/^(query)$/) {
var %difi 1 | while %difi <= $numtok($1-,32) {
if $token($1-,%difi,32) != $active {
%yazışekli = $replace($addtok(%yazışekli,$token($1-,%difi,32),32),a,6a,b,6ß,c,6¢,d,6D,e,6é,f,6f,h,6h,i,6i,k,6k,l,6L,m,6m,n,6n,o,6o,p,6p,q,6q,r,6r,s,6s,t,6†,u,6µ,v,6v,w,6w,x,6×,y,6y,z,6z,ı,6ı,İ,6i,ş,6ş,Ş,6ş,ç,6¢,Ç,6¢,ğ,6q,Ğ,6q,g,6q,ü,6ü,Ü,6ü,ö,6ö,Ö,6Ô,!,4!,?,4¿,<,6«,>,6»,-,,-,,:,6:,',`,`,')
}
else { set %yazışeklinick $token($1-,%difi,32) }
inc %difi
}
if %yazışeklinick { %yazışekli = $instok(%yazışekli,$+(01,%yazışeklinick,),$findtok(%yazışekliana,%yazışeklinick,1,32),32) | msg $active %yazışekli | halt }
}
%yazışekli = $replace(%yazışekli,2k2a2r2i2z2m2a,12]{4a12r4i12z4m12a)
%yazışekli = $replace(%yazışekli,2a.2s,4A1Léyküm 4S1éLam 4H1oş 4G1éLdin)
%yazışekli = $replace(%yazışekli,SaqøL iyiyim,4H1amd 4O1Lsun 4S1aqoL 4S1én 4N1asıLsın ?)
%yazışekli = $replace(%yazışekli,6n6a6s6I6L6s6I6n,4N1asıLs ın4.. ¿)
%yazışekli = $replace(%yazışekli,6h.6q,4H1oş 4G1éLdin ..)
%yazışekli = $replace(%yazışekli,6s6a6q6o6L,4S1aqoL4..)
%yazışekli = $replace(%yazışekli,6é6f6é6n6D6i6m,4£1f1é1n 1d1i1m4..)
%yazışekli = $replace(%yazışekli,6s6a6q6o6L,4S1aqoL4..)
%yazışekli = $replace(%yazışekli,6h6é6h6é,4éHéµé12éhéµ10héµ1 4héµ4éheµ12éheµ10éheµ14éhéµé4hé)
%yazışekli = $replace(%yazışekli,6m6¢6×,12m4¢3×)
%yazışekli = $replace(%yazışekli,6a6s6a6ß6i,4© 12Asaß! 4®)
%yazışekli = $replace(%yazışekli,6h6a6h6a,4Ha12ha10ha14ha4h a12ha10ha14ha4ha4)
%yazışekli = $replace(%yazışekli,6m6é6r6h6a6ß6a,4M1érhaßa 4..)
%yazışekli = $replace(%yazışekli,6s6é6L6a6m6é6t6L6é,4S1éL amétLé4..)
%yazışekli = $replace(%yazışekli,6i6y6i 6a6q6s6a6m6L6a6r,4İ1yi 4A1kşamLar4..)
%yazışekli = $replace(%yazışekli,6i6y6i 6a6k6s6a6m6L6a6r,4İ1yi 4A1kşamLar4..)
%yazışekli = $replace(%yazışekli,6h6q,4H1oş 4G1éLdin ..)
%yazışekli = $replace(%yazışekli,6a.6s,4A1Léyküm 4S1éLam 4H1oş 4G1éLdin)
%yazışekli = $replace(%yazışekli,6s.6a,4S1éLamun 4A1Léyküm 4H1oş 4S1ohßétLér4..)
%yazışekli = $replace(%yazışekli,6h.6ß,4H1oş 4ß1uLdum 4S1aqoLun4..)
%yazışekli = $replace(%yazışekli,6h.6ß,4H1oş 4ß1uLdum 4S1aqoLun4..)
%yazışekli = $replace(%yazışekli,6×6D,12×4D)
%yazışekli = $replace(%yazışekli,6h6I6m6s,4H1ı3m12s3S4s1. 12.4.)
%yazışekli = $replace(%yazışekli,6†6m6m,4†1amam4..)
%yazışekli = $replace(%yazışekli,6†6a6m6a6m,4†1amam4..)
%yazışekli = $replace(%yazışekli,6o6k6é,4O1qé4..)
%yazışekli = $replace(%yazışekli,6o6k,4O1qé4..)
%yazışekli = $replace(%yazışekli,6o6k6é,4O1qé4..)
%yazışekli = $replace(%yazışekli,6é6v6é6t,4£1vét4..)
%yazışekli = $replace(%yazışekli,6y6é6s,4Y1éSs4..)
%yazışekli = $replace(%yazışekli,6a6q6ré6s6s6i6v6vé,4© 12AgReSsivVe 4®)
%yazışekli = $replace(%yazışekli,4© 12AgReSsivVe 4®,4© 12AgReSsivVe 4®)
%yazışekli = $replace(%yazışekli,6a6q6r6é6s6s6i6v6v6é,4© 12AgReSsivVe 4®)
%yazışekli = $replace(%yazışekli,6é6y6w6L,4£1ywL4..)
%yazışekli = $replace(%yazışekli,6k6a6n6k6a,4K1ank'y4..)
%yazışekli = $replace(%yazışekli,6s6é6r6s6é6r6y,12• 1S4é1r4S1é4r1y4.. 12•)
%yazışekli = $replace(%yazışekli,6n6a6z6L6i,12•1 N4a1z4L1i4.1. 12•)
%yazışekli = $replace(%yazışekli,6é6r6k6a6n,12• 4£1rkan4.. 12•)
%yazışekli = $replace(%yazışekli,6a6q6r6é6s,4© 12AgReSsivVe 4®)
%yazışekli = $replace(%yazışekli,6a6q6r6é,4© 12AgReSsivVe 4®)
%yazışekli = $replace(%yazışekli,6k6o6n6µ6s6ß6é,12» 1w4w1w4.1K4o1n4u1S4ß1é4.1c4o1m4 .1. 12«)
msg $active %yazışekli
halt
}


Kanalda birden fazla nick yazman halinde eksik ulaşır.
Yazacağın satırda en fazla bir adet nick yazabilirsin.
Vermiş olduğun kod oldukça fazlalık içeriyor.
Elimden geldiğince düzenlemeye çalıştım.

Dipnot: Bölüm dahilinde kullanacağınız Türkçe'ye özen göstermelisiniz.

İyi forumlar...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk