IRC ve mIRC Kullanıcılarının Buluşma Noktası
  irc hosting

Go Back   IRC ve mIRC Kullanıcılarının Buluşma Noktası > >

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

Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbet Odalari Sohbet
Sekershell ZOkey muhabbet.org Sohbet

30Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Temmuz 2012, 02:28   #1
!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 }


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
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 25 mesajınız olması gerekir.

  Alıntı ile Cevapla

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




IrCbaStarD Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 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 25 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.

  Alıntı ile Cevapla

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




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

  Alıntı ile Cevapla

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




Çalışmadı neden acaba

  Alıntı ile Cevapla

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




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

Sorunsuz çalışıyor.

  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 25 mesajınız olması gerekir.

  Alıntı ile Cevapla

Alt 10 Şubat 2013, 00:06   #8
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

  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 25 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
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.

  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 Kapalı
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



Sağlık Forum Sevgi Forum Mutlu Forum Kadınca Forum Webmaster Forum Forum Cinsel Sohbet