Yanıt: Burc_u.tcl v2.0
 

Kahve falı bakanı yokmu bunun :D

Cevap: Burc_u.tcl v2.0
 

cehennem seninkide calısmadı

[13:31] <ATAHAN> !burc yengec
[13:31] <Yorumcu> İsteğiniz İşleme Alındı. Lütfen Bekleyiniz..
[13:31] <Yorumcu> .
[13:31] <Yorumcu> ..
[13:31] <Yorumcu> ...

burda kalıo

Cevap: Burc_u.tcl v2.0
 

bahsettigim tcl her ikisinde de yuklenip kullanilmazsa calismamasi cok normaldir.

Cevap: Burc_u.tcl v2.0
 

### Aciklama
### Burc_u v1.0.3
### Yapimci:
### aCoustiC
### E-mail:
### [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
###
### Thema:
### Batu Enes (Synx)
### E-mail:
### [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (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 ?

Cevap: Burc_u.tcl v2.0
 

http.tcl yide indirdim confa ekledim ayrıca

Cevap: Burc_u.tcl v2.0
 

tamam cehennemin verdigi calıstı :)

Cevap: Burc_u.tcl v2.0
 

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] eger yazdigin ve calismiyor dedigin kod ile benim yazmis oldugum ve 2.0 dedim version'u incelersen neden calismadigini anlayacksin, y,inede aciklayayim yazmis oldugun 1.3 version'u cok once yayinlamistim su an ki ile alakasi yok yani.

Cevap: Burc_u.tcl v2.0
 

ikiside denendi ikiside çalışıyor arkadaşlar. çalışıyo çalışmıyor gibisinden şikayetlerle değilde aldığınız hata cinsinden isteklerinizi yazarsanız size neyi yanlış yaptığınızı söyleyebiliriz.

Yanıt: Burc_u.tcl v2.0
 

peki birkaç kanala birden girebilmesi için bu bölümü ne yapmamız gerekiyor mesela oyun kanalı hariç diyalog kanalınada girsin .

channel add #oyun {
chanmode "+nt"
idle-kick 0
need-unban { putserv "PRIVMSG ChanServ :unban #oyun $botnick " }
flood-chan 4:4

Yanıt: Burc_u.tcl v2.0
 

O Satirin hemen altina

channel add #diyalog {
chanmode "+nt"
idle-kick 0
need-unban { putserv "PRIVMSG ChanServ :unban #oyun $botnick " }
flood-chan 4:4


Seklinde eklersen ikinci kanalada girer..