Çevrimdışı

### Aciklama
### Burc_u v1.0.3
### Yapimci:
### aCoustiC
### E-mail:
###
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

###
### Thema:
### Batu Enes (Synx)
### E-mail:
###
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(irc.ozledim.net)
###
###
###
### Bu script Sohbet sunucularina renk vermek ve shell sahiplerinin musterilerine ek hizmetlerini
### Kucuk meblalarda sunmalari icin verilmistir.
### Yapimci hakkina saygi amaci ve acik kaynak kodlari gelisimine katkida bulunmak icin yapimci adini
### lütfen degistirmeyiniz, sizinde bu konuda projeleriniz ve gelisimlere katkilariniz olsun istiyorsaniz,
### betiklerinizi yapimci e-mail adresine gonderebilir veya calismalarimizi bize bildirebilirsiniz.
###
###
### Bu TCL [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden aldigi bilgilerle gunluk yorum vermektedir.
### Destek olmak, kisilere bu projelerinden dolayi tesekkur etmek icin sitelerini ziyaret ediniz
### herhangi bir nedenle alinan bilgiler kesinlikle muneccim.com disindan alinmistir kendi eserimizdir,
### gibi tanimlamalar Muneccim.Com tarafindan firmaniza dava acilmasina neden olabilir.
###
###
################################################## #################################
#
# Gerekli Bindler
#
bind pub - !burc pub:burc
#Ellemeyin (Siz Bilirsiniz)
proc pub:burc {nick uhost hand chan text} {
set burc "[string tolower [lindex $text 0]]"
if {$burc == "koc"} {
set burcutext "5K7­o­5c 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
set burcuchan "\00307\[\003\0034$nick\00307\] 5K7­o­5c 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

} elseif {$burc == "boga"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5B7­o­5g7­a­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5B7­o­5g7­a­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "ikizler"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5İ7­k­5i7­z­5l7­e­5r 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5İ7­k­5i7­z­5l7­e­5r 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "yengec"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5Y7­e­5n7­g­5e7­c­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5Y7­e­5n7­g­5e7­c­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "aslan"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5A7­s­5l7­a­5n 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5A7­s­5l7­a­5n 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "basak"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5B7­a­5s7­a­5k 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5B7­a­5s7­a­5k 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "terazi"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5T7­e­5r7­a­5z7­i­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5T7­e­5r7­a­5z7­i­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "akrep"} {
putquick "\00307\[\003\0034$nick\00307\] 5A7­k­5r7­e­5p 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5A7­k­5r7­e­5p 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "yay"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5Y7­a­5y 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5Y7­a­5y 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "oglak"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5O7­g­5l7­a­5k 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5O7­g­5l7­a­5k 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "kova"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5K7­o­5v7­a­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5K7­o­5v7­a­ 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} elseif {$burc == "balik"} {
set burcuchan "\00307\[\003\0034$nick\00307\] 5B7­a­5l7­i­5k 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz. "
set url "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
set burcutext "5B7­a­5l7­i­5k 5B7­u­5r7­c­5u icin 5G7­u­5n7­l­5u7­k­ 5yorumunuz"
} else {
putserv "PRIVMSG $nick :\002\0034$burc\002\003 Gecerli bir tanim degildir, lutfen kucuk harfler ve turkce karakter kullanmadan, assagidaki kurallara uyarak gunluk yorumunuzu ogrenebilirsiniz."
putserv "PRIVMSG $nick :\00304!burc koc\003 veya \00302!burc boga\003 veya \00307!burc balik\003 Orneklerine dayanarak"
putserv "PRIVMSG $nick :\002\00304!burc burcunuz\003 seklinde kanala yeniden yaziniz."

return 0
}
catch {set page [::http::geturl $url -timeout 10000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $nick :Hata: Gunluk yorumlariniz getirilirken baglanti saglanamadi.. Lutfen daha sonra yeniden deneyiniz. "
return
}
if { [::http::status $page] == "timeout" } {
putquick "PRIVMSG $nick :Hata: Gunluk yorumlariniz getirilirken bir hata olustu... Lutfen daha sonra yeniden deneyiniz."
return
}
set content [::http::data $page]
::http::cleanup $page
foreach line [split $content \n] {
regsub -all {<strong>} $content "" burc_u
regsub -all {<br>} $burc_u "" burc_u
regsub -all {</strong>} $burc_u "" burc_u
putquick "PRIVMSG $chan :$burcuchan"
putquick "PRIVMSG $nick :$burcutext"
putquick "PRIVMSG $nick :\00302$burc_u"
}
}
### Bu isimleri degistirmek firmanizi guclendirmez! (bunun icin ufak bir onlemim mevcuttur)
set ctcp-version "${ctcp-version} (burc_u.tcl 1.0.3 Yapimci aCoustiC)"
####
putlog "Burc_u TCL 1.0.3 version'u basariyla calistirildi"
putlog "iletisim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(aCoustiC)"
#### the end (bitti) ###


bunu kurdum !burc yengec yapıom kanalda
[14:01] <Yorumcu> [ATAHAN] Y­e­n­g­e­c­ B­u­r­c­u icin G­u­n­l­u­k­ yorumunuz o­z­e­l­i­n­i­z­e gönderildi l­ü­t­f­e­n­ kontrol ediniz.

diyor fakat özelime gelen
14:01] <Yorumcu> Y­e­n­g­e­c­ B­u­r­c­u icin G­u­n­l­u­k­ yorumunuz
[14:01] <Yorumcu>

bu kadar yorum yok neden acaba ?