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 Sorunum + Sizin Yardımınız (https://www.ircforumlari.net/mirc-scripting-sorunlari/194637-yazi-sekli-sorunum-sizin-yardiminiz.html)

SerSery_ 05 Nisan 2009 04:47

Yazı ŞekLi Sorunum + Sizin Yardımınız
 
Merhaba İyi ForumLar HSaatLer KoLay GeLsin ..

Konuya Girmek İstiyorum : Her Cümlemin Baş Harfi Büyük + Kırmızı Renk Dewamı kücüq Siyah Renk ve Bir Nicke SesLenirken aLtı ciziLi Mavi Renk ve Her CümLemin Bitişinde 2 nokta kırmızı renkte Bir Yazı ŞekLi Addon Yapmak İstiyorum Ama Bunu Sizin YardımınızLa Yaparım Die Karar ALdım YardımLarınızı BekLiyorum SaygıLar SevgiLer ... ;s3

SerSery_ 06 Nisan 2009 01:01

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
Hımm Aciz KaLdık =) ..

kup{a}pazl 06 Nisan 2009 12:05

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
ßeni Aştı :)

SerSery_ 06 Nisan 2009 12:12

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
Sorun DéqiL ;s1

Difuzyon 06 Nisan 2009 15:33

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
" Her Cümlemin Baş Harfi Büyük "
" Bir Nicke SesLenirken aLtı ciziLi "

Birkere bu kodlar forumda var, ARAMA yapmalısın.Diğer renklendirme kısımlarınıda bulduğun kodlara ekleyip çeşitli denemeler yapıp sonuca ulaşabilirsin.

aBso 06 Nisan 2009 16:18

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
Her kelimenin ilk harfi büyük olacaktir. Ilk harfin Kırmızı olucaktir. Cümle bitiminde kırmızı renkte iki nokta eklicektir. Nicki yazıncada mavi faland demişsin. Onu yapamadım onuda sen ugras..

İşine yaricak kod.

PHP- Kodu:

on *:input:*: {
  if 
$left($1,1) != / && !$ctrlenter && !$inpaste 
    var %/ = 
1,%= = $numtok($1-,32),%: | while %/ <= %= {
      var %: = 
4 $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$chr(3),$right($gettok($1-,%/,32),-1)),32)   
      
inc %/ | haltdef 
    

    
say %: $+ $chr(3) $+ $chr(52) $+ $chr(46) $+ $chr(46
    
halt

  




Aeris 06 Nisan 2009 18:07

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
on *:input:*: {
if (/* !iswm $1-) && (!$inpaste) && (status win !isin $active) && (@* !iswm $active) {
msg $active $+($regsubex($1-,/(?<=^|\s)(.)/g,$+(4,$upper(\1),1)),)
halt
}
}


Bunu remotene eklersen, her yazdığın kelimenin baş harfi büyük ve kırmızı olucaktır.

SerSery_ 06 Nisan 2009 18:33

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
Difuzyon, HakLsın Baktım Ama BuLamadım ..
Diqer ArkadaşLarım teşekkürLerimi Sunuyorum ..

SerSery_ 07 Nisan 2009 07:51

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
ArkadaşLarım O Zaman Ben Bir Addon Vereyim Bu Addona Bir çözüm BuLaLım : ( : Aynı ŞeqiLde Ama Sadece Nicke SesLenirken Altı CiziLi Mavi Cıkmasını İstiyorum Cok demedim Ama Yapamıyorum Umarım BişiLer Yaparız : )


#elit on
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | Halt | Nick }
%elit = $replace(%elit,a,1à)
%elit = $replace(%elit,b,1ß)
%elit = $replace(%elit,c,1¢)
%elit = $replace(%elit,d,1D)
%elit = $replace(%elit,e,1é)
%elit = $replace(%elit,f,1ƒ)
%elit = $replace(%elit,h,1h)
%elit = $replace(%elit,i,1¡)
%elit = $replace(%elit,k,1k)
%elit = $replace(%elit,l,1L)
%elit = $replace(%elit,m,1m)
%elit = $replace(%elit,n,1n)
%elit = $replace(%elit,o,1o)
%elit = $replace(%elit,p,1p)
%elit = $replace(%elit,q,1q)
%elit = $replace(%elit,r,1r)
%elit = $replace(%elit,s,1$)
%elit = $replace(%elit,t,1†)
%elit = $replace(%elit,u,1µ)
%elit = $replace(%elit,v,1w)
%elit = $replace(%elit,w,1w)
%elit = $replace(%elit,x,1×)
%elit = $replace(%elit,y,1y)
%elit = $replace(%elit,z,1z)
%elit = $replace(%elit,ı,1ı)
%elit = $replace(%elit,İ,1i)
%elit = $replace(%elit,ş,1$)
%elit = $replace(%elit,Ş,1ş)
%elit = $replace(%elit,ç,1¢)
%elit = $replace(%elit,Ç,1¢)
%elit = $replace(%elit,ğ,1q)
%elit = $replace(%elit,Ğ,1q)
%elit = $replace(%elit,ü,1ü)
%elit = $replace(%elit,Ü,1ü)
%elit = $replace(%elit,ö,1ö)
%elit = $replace(%elit,Ö,1Ô)
%elit = $replace(%elit,!,4!)
%elit = $replace(%elit,?,4¿)
%elit = $replace(%elit,<,1«)
%elit = $replace(%elit,>,1»)
%elit = $replace(%elit,-,,-,)
%elit = $replace(%elit,:,1:)
%elit = $replace(%elit,',`)
%elit = $replace(%elit,`,')
%elit = $replace(%elit,1k1à1r1i1z1m1à,12]{4à12r4i12z4m12à)
%elit = $replace(%elit,g,1q)
%elit = $replace(%elit,1à.1$,1à1L1é1y1k1ü1m 1$1é1L1à1m)
%elit = $replace(%elit,SaqøL iyiyim,4H1amd 4O1Lsun 4S1aqoL 4S1én 4N1asıLsın ?)
%elit = $replace(%elit,1n1à1$1ı1L1$1ı1n,4N1àsıLs ıN4.. 12?)
%elit = $replace(%elit,1h.1q,4H1oş 4G1éLdin ..)
%elit = $replace(%elit,1$1à1q1o1L,4S1àqoL4..)
%elit = $replace(%elit,1é1ƒ1é1n1D1i1m,4£1ƒ1é1n 1d1i1m4..)
%elit = $replace(%elit,1$1à1q1o1L,4S1àqoL4..)
%elit = $replace(%elit,1m1¢1×,12m4¢3×)
%elit = $replace(%elit,1à1$1à1ß1¡,4© 12A4s12à4ß12! 4®)
%elit = $replace(%elit,1h1à1h1à,4Ha12hà10hà14hà4h à12hà10hà14hà4hà4)
%elit = $replace(%elit,1m1é1r1h1à1ß1à,4M1érhàßà 4..)
%elit = $replace(%elit,1$1é1L1à1m1é1†1L1é,4S1éL àmé†Lé4..)
%elit = $replace(%elit,1h1q,4H1oş 4G1éLdin ..)
%elit = $replace(%elit,1$.1à,4S1éLamun 4A1Léyküm 4H1oş 4S1ohßétLér4..)
%elit = $replace(%elit,1h.1ß,4H1oş 4ß1uLdum 4S1àqoLun4..)
%elit = $replace(%elit,1h.1ß,4H1oş 4ß1uLdum 4S1àqoLun4..)
%elit = $replace(%elit,1×1D,12×4D)
%elit = $replace(%elit,1h1I1m1$,4H1ı3m12s3S4s1. 12.4.)
%elit = $replace(%elit,1†1m1m,4†1amam4..)
%elit = $replace(%elit,1†1a1m1a1m,4†1amam4..)
%elit = $replace(%elit,1o1q1é,4O1qé4..)
%elit = $replace(%elit,1é1w1é1†,4£1vét4..)
%elit = $replace(%elit,1y1é1s,4Y1éSs !!4..)
%elit = $replace(%elit,4© 12AgReSsivVe 4®,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,1é1y1w1L,4£1ywL4..)
%elit = $replace(%elit,1k1à1n1k1à,4K1ànk'y4..)
%elit = $replace(%elit,1$1é1r1$1é1r1y,1S4é1r4S 1é4r1y4..)
%elit = $replace(%elit,1n1à1z1L1i,N4à1z4L1i4.1. )
%elit = $replace(%elit,1é1r1k1à1n,4£1rkàn4..)
%elit = $replace(%elit,1a1q1r1é,4© 12AgReSsivVe 4®)
%elit = $replace(%elit,1k1o1n1µ1s1ß1é,12» 1w4w1w4.1K4o1n4u1S4ß1é4.1c4o1m4 .1. 12«)
%elit = $replace(%elit,1h1é1h1é,4éHéµé12éhéµ10héµ1 4héµ4éheµ12éheµ10éheµ14éhéµé4hé12)
%elit = $replace(%elit,1D1o1$1†21,Dost21)
say %elit
unset %elit
halt
}




Yazı ŞeqLi Addonum Budur Şimdikten Tşq'Lérimi Sunuyorum ..

Difuzyon 07 Nisan 2009 15:24

Cevap: Yazı ŞekLi Sorunum + Sizin Yardımınız
 
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,$+(12,,%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,$+(12,,%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
}

Bir önceki isteğinde de kanalda seslendiğimde nick sade çıksın istemiştin.
Şimdi ise altı çizgili ve mavi olsun demişsin.Bunlar bir hamle ile değişecek kodlar değil SerSery_ , bu konuya dikkat edelim.

İyi forumlar...


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net