Tekil Mesaj gösterimi
Alt 04 Şubat 2012, 19:58   #1
Çevrimdışı
CLubber
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
IrcForumları TCL v1.0 - Written By CLubber




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###################################################################### # IrcForumları TCL v1.0 - Written By CLubber # # Bu TCL ile IF konularını sunucunuz üzerinden takip edebilirsiniz. # # TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır. # ###################################################################### # Botun konuları yazacağı kanal set forum_chan "#IF" # Botun kanala yazma süresi (dakika cinsinden) set forum_time "60" ############################################## # IrcForumları TCL v1.0 - Written By CLubber # ############################################## if {![string match "*forum_mesaj*" [timers]]} { timer $forum_time forum_mesaj } proc forum_mesaj {} { global botnick forum_time forum_chan set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] set files [::http::data $connect] set list [split [subst -nocommands $files] "\n"] foreach i $list { regexp -- {<title>(.+?)</title>} $i - topic regexp -- {>(.+?)</category>} $i - category regexp -- {<dc:creator>(.+?)</dc:creator>} $i - author regexp -- {<guid isPermaLink="true">(.+?)</guid>} $i - link if {[info exists topic]} { putserv "privmsg $forum_chan 4» Konu Başlığı:2 $topic" unset topic } if {[info exists category]} { putserv "privmsg $forum_chan 4» Konu Kategorisi:2 $category" unset category } if {[info exists author]} { putserv "privmsg $forum_chan 4» Konu Yazarı:2 $author" unset author } if {[info exists link]} { putserv "privmsg $forum_chan 4» Konu Linki:2 $link" unset link } } ::http::cleanup $files timer $forum_time forum_mesaj } putlog "IrcForumları TCL v1.0 - Written By CLubber"

Eggdrop botunuz IF'teki yeni konuları belirlediğiniz süre içerisinde kanala yazacaktır.

NOT: Botunuzun çalışması için http.tcl gereklidir. Http TCL'yi buradan indirebilirsiniz.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

http.tcl'yi eggdrop/scripts klasörüne attıktan sonra, botunuzun confunun en alt satırına

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
source scripts/http.tcl

kodunuda eklemeniz gerekmektedir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver