Çevrimdışı

Kahve falı bakanı yokmu bunun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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

 

Çevrimdışı

aCoustiC Nickli Üyeden Alıntı

Sistemin calismasi icin http.tcl ile birlikte kullanilmalidir. Ilgili adres: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Download: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bahsettigim tcl her ikisinde de yuklenip kullanilmazsa calismamasi cok normaldir.

__________________

Our brain is Our Weapon

 

Ç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 ?

 

Çevrimdışı

http.tcl yide indirdim confa ekledim ayrıca

 

Çevrimdışı

tamam cehennemin verdigi calıstı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

[Ü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.

__________________

Our brain is Our Weapon

 

Çevrimdışı

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.

 

Çevrimdışı

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

 

Çevrimdışı

shardad Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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..