bind pub - !burc basla
proc basla { n u h c a } { 
set brc "[string tolower [lindex $a 0]]"
putserv "privmsg $c İsteğiniz İşleme Alındı. Lütfen Bekleyiniz.."
putserv "privmsg $c ."
putserv "privmsg $c .."
putserv "privmsg $c ..."
if {$brc=="koc"} {
set sy "1"
} elseif {$brc=="boga"} {
set sy "2"
} elseif {$brc=="ikizler"} {
set sy "3"
} elseif {$brc=="yengec"} {
set sy "4"
} elseif {$brc=="aslan"} {
set sy "5"
} elseif {$brc=="basak"} {
set sy "6"
} elseif {$brc=="terazi"} {
set sy "7"
} elseif {$brc=="akrep"} {
set sy "8"
} elseif {$brc=="yay"} {
set sy "9"
} elseif {$brc=="oglak"} {
set sy "10"
} elseif {$brc=="kova"} {
set sy "11"
} elseif {$brc=="balik"} {
set sy "12"
} else {
putserv "PRIVMSG $c :\00304Bilinmeyen komut! \00301günlük burc yorumunuzu görmek için \002!burc <burcunuz> \002şeklinde Kullanınız."
return 0
}
set baglan [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 
set veriler [::http::data $baglan] 
set snr [string range $veriler [expr [string first "<strong><big>" $veriler]+13]  [expr [string first "<br> </big></strong>" $veriler]-1]]
putserv "privmsg $c \002[lrange $snr 0 30]"
putserv "privmsg $c \002[lrange $snr 31 60]"
putserv "privmsg $c \002[lrange $snr 61 end]"
::http::cleanup $veriler 
return 0
}
set ctcp-version "${ctcp-version} (burc tcl Yapimci BuCaLI)"  
 
putlog "burc tcl v1.0 by bucali"
putlog "E-mail 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putlog "Bu bot sunucunuz uzerinde günlük burc yorumlarını vermek icin tasarlanmistir"