Sondakika Haberler Botu Socket İndir (Download)

Kod:

;#########Sondakika Haberler########
;#######-Yazan: SiLuet - Salih T. -######
;#######-Tarih: 25.12.2011-##########       
;#########Sondakika Haberler######## 

alias sonhaber {
  $iif(!$isdir(Haberler),mkdir Haberler) | set %satır 1
  if ($1 == güncel) || !$1 { set -e %haber.Konu guncel | write -c  $+(Haberler,\,%haber.Konu,.txt)  }
  elseif ($1 == spor) { set -e %haber.Konu spor | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == Ekonomi) { set -e %haber.Konu ekonomi | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == Dunya) { set -e %haber.Konu dunya | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == magazin) { set -e %haber.Konu magazin | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == Kultur-sanat) { set -e %haber.Konu kultur-sanat | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  sockclose sonhaber
  sockopen sonhaber sondakika.haberler.com 80
}
;########Sondakika Haberler Open##########
on *:sockopen:sonhaber:{
  var %write sockwrite -n $sockname
  %write Get /sondakika.asp?son_dakika= $+ %haber.konu HTTP/1.1
  %write Host: sondakika.haberler.com
  %write $crlf
}
;#######Sondakika Haberler Read##########
on *:sockread:sonhaber:{
  var %son | sockread %son
  if (<span> isin %son) { set -e %time $remove($htmlfree(%son),$chr(9)) }
  if (<h3><a href= isin %son) { write $+(Haberler,\,%haber.Konu,.txt)  4Başlık: $htmlfree(%son)  $+([,%time,|,%satır,]) | write $+(Haberler,\,%haber.Konu,.txt) - | writeini Haberler\links.ini %Haber.konu %satır $gettok(%son,2,34) }
  if (<p> isin %son) {  write $+(Haberler,\,%haber.Konu,.txt)  4Açıklama: $htmlfree(%son) | write $+(Haberler,\,%haber.Konu,.txt) -
    inc %satır 
    if (%satır == 6) { sockclose $sockname }
  }
}
;#######Sondakika Haberler Event##########
on *:text:*:#Haber:{
  if $istok(Nick1 Nick2 Nick3,$nick,32) && (!Güncelle == $1) { $iif($2 == Kapat,.timeroto off,.timeroto 0 10 oto) }  
  if (!bilgi == $1) { if (!%bilgi [ $+ [ $nick ] ])  { set -u25 %bilgi [ $+ [ $nick ] ] on | komutlar #  } }
  if (!haberler == $1) { if (!%haberler [ $+ [ $nick ] ])  { set -u25 %haberler [ $+ [ $nick ] ] on | haberler #  } }
  if ((!haber == $1) && $2) { if (!%haber [ $+ [ $nick ] ]) { set -u25 %haber [ $+ [ $nick ] ] on | sonhaber $2 | msg # $2 Haberleri Alınıyor Lütfen Sabırlı Olun! | .timer 1 3 play # $+(Haberler,\,%haber.konu,.txt) 2000   | halt  } }
  if (!link == $1) && $2 && $3 { if (!%link [ $+ [ $nick ] ]) { set -u25 %link [ $+ [ $nick ] ] on | var %hb $replace($gettok($gettok($readini(haberler\links.ini,$2,$3),3,47),$+(1,-,$calc($numtok($readini(haberler\links.ini,$2,$3),45) - 2)),45),-,$chr(32)) | memoserv send $nick  %hb Başlıklı Haberin Linki > $readini(haberler\links.ini,$2,$3) | msg # 4 %hb : Başlıklı Haberin Linki Memo Olarak Gönderilmiştir.   }  }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }
alias haberler { msg $1 [Haber Başlıkları]  | msg $1 4Guncel , Dunya , Spor , EKonomi , Magazin , Kultur-sanat | msg $1 Haber Başlıklarını Okumak İçin Örn: !haber Guncel  Yazınız. | msg $1 [Haberler SoN]   }
alias komutlar { msg $1 [Haber Botu Kullanabilecek Komutlar] | .timer 1 1 msg $1 !haberler Haber Başlıklarını Listeler | .timer 1 2 msg $1 !haber <Başlık> Belirtilen Haber Başlığındaki Haberleri Listeler.  | .timer 1 3 msg $1 !link <Başlık> <N> "N" Numaralı haberin Linkini Görmenizi/Almanızı sağlar. Örn: !link kultur-sanat 2 | .timer 1 5 msg $1 [Haber Botu Komut sonu] }

;#######Sondakika Haberler Oto##########
alias oto { $iif($sock(oto),sockclose oto) |  sockopen oto www.sondakika.haberler.com 80  }
on *:sockopen:oto:{
  var %write sockwrite -n $sockname
  %write Get /sondakika.asp?son_dakika=guncel HTTP/1.1
  %write Host: sondakika.haberler.com
  %write $crlf
}
on *:sockread:oto:{
  var %oto | sockread %oto
  if (<p> isin %oto) {
    if (%oto1 == $htmlfree(%oto)) { sockclose $sockname }
    else { 
      set %oto1 $htmlfree(%oto) 
      msg #Haber 4Yeni Haber: %oto1
      msg #Haber -
      sockclose $sockname
    }
  }
}
;#######Sondakika Haberler End##########

Kodu Botunuza Ekledikten Sonra Haber Kananlında !bilgi Yazdığınızda Gerekli Açıklamayı Göreceksiniz. Ben Haber Kanalı Olarak Ayarladım Siz Dilediğiniz Kanalı ayarlayabilirsiniz Gerekli yerden.

Koddaki Kırmızı renkte Olan Kısma Ekleyeceğiniz Nickler !güncelle Aç/kapat Komutunu Kullanabilecekler.
Bu Komutla Guncel Kategorisine Yeni Haber eklendiğinde Oto Güncelleme Yaparak Kanala Yansıtacaktır.

Komutlarda, Botu laga Sokmamak için Kullanımdan sonra 25 saniyelik Bekleme Süresine Tabi tutulmaktadır Komutu Kullanan Kişiler.