olabilecek en basit haliyle günlük burç yorumu eggdrop-tcl scripti :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: Kodu kopyalamak için üzerine çift tıklayın!
package require http
bind pub - "!burç" burc:pub
proc burc:pub {nick uhost hand chan text} {
set burc [lindex [split $text] 0]
set burc [string map {ç c ş s ğ g ı i Ç C Ş S Ğ G I İ} [join $burc]]
if {$burc == ""} { puthelp "privmsg $chan :\002kullanımı\002 : $::lastbind burcunuz." return 0;}
::http::config -useragent "UserAgent"
set url [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
15000]
set data [::http::data $url]
::http::cleanup $url
regexp -- {<h1 class="kucuk"><span class="tarih">(.*?)</span>(.*?)</h1>} $data "" gun bilgi
regexp -- {.+<p>(.*?)</p>.+<div class="clear="></div>} $data "" bir
foreach line [split $bir "\n"] {
puthelp "privmsg $chan :\00304$gun $bilgi\00304 : \002$line \002"
}
}
putlog "tamam..."
not : Türkçe karakter kullanarakta sorgulayabilirsiniz... ş ,ç ,ğ ,ı gibi Türkçe harfleri algılayabilecek şekilde kod içinde gereği yapılmıştır.
bknz :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gibi....