IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver


Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


mIRC Scripting Hazır Kodlar

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.



30Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Temmuz 2012, 02:28   #1
Çevrimdışı
!burç <burcunuz> (Yeni sistem)


-- Sponsor Baglantı --


Genellikle yazılan burç kodlarında, çalışma prensibi siteye bağlanıp yorumu alıp kullanıcıya yansıtmaktır ve bu işlevi her istekte tekrarlamak, ama bu sistem bana saçma geldi, çünkü günlük burç yorumu gün içerisinde aynıdır her defasında tekrar bağlanıp siteyle muhattap olmaya gerek yok. Yazdığım kod eğer o günün yorumları daha önceden alınmamışsa siteye bağlanıp tek seferde bütün yorumları alıyor ve isteyen kullanıcılara gönderiyor.

Kullanımı: !burç <burcunuz>

Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:burç*:{ var %s = sockwrite -n $sockname %s GET /burclar/ $+ $gettok($sockname,2,$asc(+)) $+ -burcu.html HTTP/1.1 %s Host: burc.web.tr | %s } on *:sockread:burç*:{ var %burcyorum sockread %burcyorum if </p></div> isin %burcyorum { $iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)) write burç.txt $utfdecode($htmlfree(%burcyorum)) } } On *:text:!burç*:#:{ inc -u5 $+(%,play,+,$nick) if $($+(%,play,+,$nick),2) == 3 { ignore -u60 $nick | msg # 5 saniye içinde 3 defa istekte bulunduğun için tarafımdan 60 saniye ignore edildin. | halt } if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt } if !$istok($+(%burçlar,|,ikizler),$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt } if $date != $read(burç.txt,1) { msg # Bugünün yorumları alınıyor. | burçlarıal | var %yenigün 1 } msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,$findtok(%burçlar,$iif($2 == ikizler,İkizler,$2),124),124)) | msg $nick - $iif(%yenigün,.timer $+ $ticks 1 6) yorumat $nick $2 } alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i)),$chr(93))) { var %t $read(burç.txt,$calc($readn + 1))), %p 2,%e $numtok(%t,46) while %p <= $calc(%e +1) { msg $1 $gettok(%t,$+($calc(%p -1),-,%p),46) $+ . | inc %p 2 } } } alias burçlarıal { sockclose burç* if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık $iif($isfile(burç.txt),.remove burç.txt) | write burç.txt $date | var %burc 1 while %burc <= 12 { sockopen $+(burç,+,$lower($replace($gettok(%burçlar,%burc,124),ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i))) burc.web.tr 80 | inc %burc } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x }

Genellikle yazılan burç kodlarında, çalışma prensibi siteye bağlanıp yorumu alıp kullanıcıya yansıtmaktır ve bu işlevi her istekte tekrarlamak, ama bu sistem bana saçma geldi, çünkü günlük burç yorumu gün içerisinde aynıdır her defasında tekrar bağlanıp siteyle muhattap olmaya gerek yok. Yazdığım kod eğer o günün yorumları daha önceden alınmamışsa siteye bağlanıp tek seferde bütün yorumları alıyor ve isteyen kullanıcılara gönderiyor.

Kullanımı: !burç <burcunuz>

Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:burç*:{ var %s = sockwrite -n $sockname %s GET /burclar/ $+ $gettok($sockname,2,$asc(+)) $+ -burcu.html HTTP/1.1 %s Host: burc.web.tr | %s } on *:sockread:burç*:{ var %burcyorum sockread %burcyorum if </p></div> isin %burcyorum { $iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)) write burç.txt $utfdecode($htmlfree(%burcyorum)) } } On *:text:!burç*:#:{ inc -u5 $+(%,play,+,$nick) if $($+(%,play,+,$nick),2) == 3 { ignore -u60 $nick | msg # 5 saniye içinde 3 defa istekte bulunduğun için tarafımdan 60 saniye ignore edildin. | halt } if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt } if !$istok($+(%burçlar,|,ikizler),$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt } if $date != $read(burç.txt,1) { msg # Bugünün yorumları alınıyor. | burçlarıal | var %yenigün 1 } msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,$findtok(%burçlar,$iif($2 == ikizler,İkizler,$2),124),124)) | msg $nick - $iif(%yenigün,.timer $+ $ticks 1 6) yorumat $nick $2 } alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i)),$chr(93))) { var %t $read(burç.txt,$calc($readn + 1))), %p 2,%e $numtok(%t,46) while %p <= $calc(%e +1) { msg $1 $gettok(%t,$+($calc(%p -1),-,%p),46) $+ . | inc %p 2 } } } alias burçlarıal { sockclose burç* if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık $iif($isfile(burç.txt),.remove burç.txt) | write burç.txt $date | var %burc 1 while %burc <= 12 { sockopen $+(burç,+,$lower($replace($gettok(%burçlar,%burc,124),ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i))) burc.web.tr 80 | inc %burc } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x }

__________________
//while ($len(%a) <= 49) var %a $addtok(%a,$r(A,Z),32) | echo $sorttok(%a,32)

Konu uFuK tarafından (06 Eylül 2013 Saat 16:52 ) değiştirilmiştir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 21 Temmuz 2012, 04:35   #2
Çevrimiçi
Cevap: !burç <burcunuz> (Yeni sistem)




Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

$replace ile değiştirebilirsin, türkçe karaktere görede uyarlıyabilirsin..
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 21 Temmuz 2012, 04:50   #3
Çevrimdışı
Cevap: !burç <burcunuz> (Yeni sistem)




IrCbaStarD Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

$replace ile değiştirebilirsin, türkçe karaktere görede uyarlıyabilirsin..
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

Bunu özellikle yaptım. Farkettiysen siteye veri gönderirken Türkçe karekterleri çevirmişim $replace ile fakat komutları Türkçe karekter duyarlı yaptım ki Türkçe bilmeyen kullanamasın diye.

Fikrin için teşekkürler.

__________________
//while ($len(%a) <= 49) var %a $addtok(%a,$r(A,Z),32) | echo $sorttok(%a,32)
  Alıntı ile Cevapla

Alt 06 Eylül 2012, 08:10   #4
Çevrimdışı
Cevap: !burç <burcunuz> (Yeni sistem)




güzel paylasım, teşekkürler.
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

__________________
Gel yeniden

Ben kendime kefilim..
  Alıntı ile Cevapla

Alt 08 Kasım 2012, 05:05   #5
Çevrimdışı
Cevap: !burç <burcunuz> (Yeni sistem)




Çalışmadı neden acaba

__________________
20k üzeri beğenili facebook sayfalarınızı alabilirim. pm atınız
  Alıntı ile Cevapla

Alt 04 Şubat 2013, 15:09   #6
Çevrimdışı
Cevap: !burç <burcunuz> (Yeni sistem)




Juventus Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
Çalışmadı neden acaba

Sorunsuz çalışıyor.

__________________
//while ($len(%a) <= 49) var %a $addtok(%a,$r(A,Z),32) | echo $sorttok(%a,32)
  Alıntı ile Cevapla

Alt 04 Şubat 2013, 20:35   #7
Toprak
Guest
Toprak - ait Kullanıcı Resmi (Avatar)
Cevap: !burç <burcunuz> (Yeni sistem)




7 ay olmuş ne cabuk geçmiş be günler..
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 10 Şubat 2013, 00:06   #8
Çevrimdışı
Cevap: !burç <burcunuz> (Yeni sistem)




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burç istenildiginde

[00:04] <burc> Seçtiğiniz burç "Akrep"
[00:04] <burc> -

devamı yok

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  Alıntı ile Cevapla

Alt 10 Şubat 2013, 00:21   #9
Toprak
Guest
Toprak - ait Kullanıcı Resmi (Avatar)
Cevap: !burç <burcunuz> (Yeni sistem)




KimLikSiz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 mesajınız olması gerekir.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burç istenildiginde

[00:04] <burc> Seçtiğiniz burç "Akrep"
[00:04] <burc> -

devamı yok

Sorun yok @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], kod sorun'suz çalışıyor.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
«00:19:55» <ChanServ> !burç koç «00:19:55» <Toprak> Bugünün yorumları alınıyor. «00:19:55» <Toprak> Burcun yorumu özelinize gönderilecek, lütfen bekleyin ChanServ. «00:20:01» -> *ChanServ* Moralinizin ve enerjinizin yüksek olduğu bir gün... İlişkileriniz sıcak ve güçlü olacak. Hem aşk, hem de parasal konulara yönelik çalışmalarınızı hızlandıracaksınız. Projelerinizi gerçekleştirmek için harekete geçebilir ve dostlarınızın desteğini isteyebilirsiniz. Para kazanmak ve çalışmalarınızda başarılı olmak için güçlü arzular duyacaksınız. Üstelik fırsatlar karşınıza çıkacak. Fakat gelişmeler yavaş olabilir ve bu arada siz de işleri ağırdan alabilirsiniz. Bu arada çevrenizde aceleci olanlar ve sizi zorlayanlar çıkabilir. Aklınız yerine duygularınız ile davranırsanız daha başarılı olacaksınız.


  Alıntı ile Cevapla

Alt 10 Şubat 2013, 02:08   #10
Çevrimdışı
Cevap: !burç <burcunuz> (Yeni sistem)




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s)),$chr(93))) { var %t $read(burç.txt,$calc($readn + 1))), %p 2,%e $numtok(%t,46) while %p <= $calc(%e +1) { msg $1 $gettok(%t,$+($calc(%p -1),-,%p),46) $+ . | inc %p 2 } } }

Sorun olan kişiler yorumat aliasını bununla değiştirip denesin.

__________________
//while ($len(%a) <= 49) var %a $addtok(%a,$r(A,Z),32) | echo $sorttok(%a,32)
  Alıntı ile Cevapla

Cevapla

Etiketler
&ltburcunuz&gt, burç, sistem

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
!burc Burcunuz Yeni DaDaS mIRC Scripting Hazır Kodlar 14 11 Ekim 2013 11:32
Hotmail'de yeni sistem! She Ağ, Network ve Networking 0 24 Eylül 2011 19:56