IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 28 Haziran 2018, 18:23   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
mIRC Socket !burc Kodu (Güncel)


Reklam

Merhabalar,


Mirc botları için !burc kodu. En güncel halidir.


Kullanımı: !burc burcunuz


Örnek:!burc Oğlak


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias burc { if $sock(burc) { sockclose burc } sockopen burc mahmure.hurriyet.com.tr 80 set %brcs $1 } alias duzlt return $replace($1-,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226)) alias htmlfree { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } on *:sockopen:burc:{ var %burc = sockwrite -n burc %burc GET /astroloji/burclar/ $+ %brcs $+ -burcu-gunluk-yorum HTTP/1.1 %burc Host: mahmure.hurriyet.com.tr %burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 %burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 ;%burc Accept-Encoding: gzip, deflate %burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2 %burc Connection: keep-alive %burc Upgrade-Insecure-Requests: 1 %burc $crlf } on *:sockread:burc:{ var %burcc sockread %burcc ;echo -a %burcc var %text $htmlfree(%burcc) var %rtext $remove($replace(%text,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32)),Günün Emojisi:) if (*<p>*</p>* iswm %burcc) || (*<p><strong>*</strong>*</p>* iswm %burcc) { .msg %:chan $+($chr(3),02,%rtext) | .unset %:chan | sockclose burc } } on $*:text:/^[.!]bur[cç]/Si:#:{ if $istok(%yasakknick,$nick,32) { return } if !$regex($2,/(ko[Ççc]|bo[Ğğg]a|[İiı]k[İiı]zler|yenge[Ççc]|aslan|ba[Şşs]ak|teraz[İiı]|akrep|yay|o[Ğğg]lak|kova|bal[İiı]k)/Si) { msg $chan $+($chr(3),4,$nick) 2Aaaa yeni burç türedi sanırım... Adam gibi burcunu yaz ;) | return } if (!$2) { msg $chan $+($chr(3),4,$nick) 2Burç belirtmediniz } elseif $hget(burc,$nick) && ($nick != pC`kOpAt) { .notice $nick $hget(burc,$nick).unset saniye içersinde, Yalnız 1 defa [!]burc Komutunu Kullanabilirsiniz. } else { .set %:chan $chan .timer -h 1 500 burc $replace($lower($2),İ,i,I,i,Ğ,g,ğ,g,Ş,s,ş,s,Ü,u,ü,u,ö,o,Ö,o,ı,i,ç,c,Ç,c) .hinc -mu30 burc $nick } }

Merhabalar,


Mirc botları için !burc kodu. En güncel halidir.


Kullanımı: !burc burcunuz


Örnek:!burc Oğlak


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias burc { if $sock(burc) { sockclose burc } sockopen burc mahmure.hurriyet.com.tr 80 set %brcs $1 } alias duzlt return $replace($1-,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226)) alias htmlfree { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } on *:sockopen:burc:{ var %burc = sockwrite -n burc %burc GET /astroloji/burclar/ $+ %brcs $+ -burcu-gunluk-yorum HTTP/1.1 %burc Host: mahmure.hurriyet.com.tr %burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 %burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 ;%burc Accept-Encoding: gzip, deflate %burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2 %burc Connection: keep-alive %burc Upgrade-Insecure-Requests: 1 %burc $crlf } on *:sockread:burc:{ var %burcc sockread %burcc ;echo -a %burcc var %text $htmlfree(%burcc) var %rtext $remove($replace(%text,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32)),Günün Emojisi:) if (*<p>*</p>* iswm %burcc) || (*<p><strong>*</strong>*</p>* iswm %burcc) { .msg %:chan $+($chr(3),02,%rtext) | .unset %:chan | sockclose burc } } on $*:text:/^[.!]bur[cç]/Si:#:{ if $istok(%yasakknick,$nick,32) { return } if !$regex($2,/(ko[Ççc]|bo[Ğğg]a|[İiı]k[İiı]zler|yenge[Ççc]|aslan|ba[Şşs]ak|teraz[İiı]|akrep|yay|o[Ğğg]lak|kova|bal[İiı]k)/Si) { msg $chan $+($chr(3),4,$nick) 2Aaaa yeni burç türedi sanırım... Adam gibi burcunu yaz ;) | return } if (!$2) { msg $chan $+($chr(3),4,$nick) 2Burç belirtmediniz } elseif $hget(burc,$nick) && ($nick != pC`kOpAt) { .notice $nick $hget(burc,$nick).unset saniye içersinde, Yalnız 1 defa [!]burc Komutunu Kullanabilirsiniz. } else { .set %:chan $chan .timer -h 1 500 burc $replace($lower($2),İ,i,I,i,Ğ,g,ğ,g,Ş,s,ş,s,Ü,u,ü,u,ö,o,Ö,o,ı,i,ç,c,Ç,c) .hinc -mu30 burc $nick } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
burç, güncel, kodu, mirc, socket
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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