[SiLuet]

Öncelikle Selam Aleyküm Değerli İf Sakinleri.
Önceden Yazmış olup Kullandığım Kodu, Bot İçin editlenmiş Halini Paylaşıma Sunmak İstedim

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;#########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 class="time"> 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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

Umarım İşine Yarayan Olur.