mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - mIRC Scripting Hazır Kodlar

Gevezeyiz Sohbet

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 28 Haziran 2018, 18:23   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 531
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 82
Post mIRC Socket !burc Kodu (Güncel)

Merhabalar,


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


Kullanımı: !burc burcunuz


Örnek:!burc Oğlak


Kod:
alias burc {
  if $sock(burc) { sockclose burc }
  sockopen burc mahmure.hurriyet.com.tr 80
  set %brcs $1 
}
alias duzlt return $replace($1-,•, ,ç,$chr(231),ö,$chr(246),ü,$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),’,$chr(146),â,$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 $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))
  if (*<p>*</p>* iswm %burcc) && (*<strong>* !iswm %burcc) { .msg %:chan 2 $token(%rtext,1-2,46) | .msg %:chan 2 $token(%rtext,3-,46) | .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) { .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
  }
}





 Che isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
burç, güncel, kodu, mirc, socket

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



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


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.