.

Posts Tagged “Haber.tcl”

May 29 2010

Haber.tcl

admin tarafýndan Hazır Kodlar içinde postalandý, tags: , , , , , , ,

#
# Haber_Okuyucu.tcl v1.5
# Bu tcl güncel haberleri haberokur.com sitesinden okuyarak kanalınıza yazdırmak için geliştirilmiştir.
# Kullanımı kanal genelinde !haber şeklindedir. ilk Komutta haberler kanala yansıtılmaya başlar
# Tekrar aynı komut verildiğinde o an okunan haberlerin bitiminde bot durur.
# Http.tcl ile birlikte kullanılmalıdır.
# Tcl’lericonfunuza ;
#
# source scripts/haber_okuyucu.tcl
# source scripts/http.tcl
#
# şeklinde ekleyebilirsiniz
#
# Yapımcı : BuCaLI
# e-mail : xbucalix@hotmail.com
#

# Haberlerin okunacağı kanal
set kanal “#haber”

# Haberlerin Kanala Yansıyacağı Zaman Aralığı (Dakika Cinsinden)
set zaman 10

bind pub – !haber basla

channel add $kanal

proc basla { n u h c a } {
global basladi zaman kanal okut
if {![isop $n $c]} { putserv “privmsg $c Kanal Operatörü Olmadığınız İçin Bu Komudu Kullanamazsınız $n ..!” ; return 0 }
if {[info exists basladi]} {
putserv “privmsg $c \00307Haberler Durduruldu..!”
killtimer $okut
unset basladi
} else {
putserv “privmsg $c \00307Haberler Başlatılıyor..! $zaman Dakika Arayla Haberler $kanal Kanalına Yansıtılacak…”
set basladi 1
oku
}
}

proc oku { } {
global kanal zaman okut
set okut [timer $zaman [list oku]]
set baglan [::http::geturl http://www.haberokur.com/rss.php?kat=1000]
set veriler [::http::data $baglan]
set list [split [subst -nocommands $veriler] “\n”]
foreach i $list {
regexp — {} $i – baslik
regexp — {

(.+?)

} $i – aciklama
regexp — {Devamı İçin Tıklayınız…} $i – link

if {[info exists baslik]} {
regsub -all “'” $baslik “‘” baslik
regsub -all “"” $baslik “\”" baslik
regsub -all “ ” $baslik ” ” baslik
putserv “privmsg $kanal \00304 ::::: $baslik :::::\003″
unset baslik
}

if {[info exists aciklama]} {
regsub -all “'” $aciklama “‘” aciklama
regsub -all “"” $aciklama “\”" aciklama
regsub -all “ ” $aciklama ” ” aciklama
putserv “privmsg $kanal \00301 $aciklama \003″
unset aciklama
}

if {[info exists link]} {
putserv “privmsg $kanal \00301Devamı İçin Tıklayınız »\00312 $link \003″
unset link
}

}
::http::cleanup $veriler
}

Oku: Botta yapılan yeni güncellemeyle bot sadece kanal oplarının kullanımı ile kısıtlanmış ve tcl’de belirttiğiniz kanalda !haber komutu ile yine tcl’de belirttiğiniz zaman aralığında başlayarak haberleri kanala yansıtmaktadır. Durdurmak için aynı kanal genelinde tekrar !haber komutunu yazmalısınız. Yanlız durması için o anki haberleri yazmayı bitirmesini bekleyingereklidir.Butun Eggdrop Tcl Yükleme İşlemlerinde Uygulamalar Geçerlidir.

Comments Yorum Yok »