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 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##########