Ç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ışı

[17:59] Tcl error in file 'Security.conf':
[17:59] invalid command name " Gunluk Burc yorumlari icin sunucunuza ek ozellikler katmak icin gelistirilmistir"
while executing
" Gunluk Burc yorumlari icin sunucunuza ek ozellikler katmak icin gelistirilmistir"
(file "scripts/koruma/burc.tcl" line 1)
invoked from within
"source scripts/koruma/burc.tcl"
(file "Security.conf" line 64)
[17:59] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

ßöyLe ßi hata veriyor neden oLaßiLir ?

 

Çevrimdışı

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

ne gibi sorunlarla karsilastinizda bot calismadi?

Hocam bota eklediğimize özelden şu uyarıyı veriyor.

7:::::
7::::: 7Surekli olarak istekte bulunamazsiniz!
7::::: 5Tekrar yorum almak icin lutfen 1dk bekleyip yeniden deneyiniz.
7:::::


ve yorum cevabı gelmiyor.yardımcı olursanız sevinirim.

 

Çevrimdışı

Bucalı senin falcını kurdum arkdaşım
[SSC] 18:04 <Falci> İsteğiniz İşleme Alındı. Lütfen Bekleyiniz..
[SSC] 18:04 <Falci> .
[SSC] 18:04 <Falci> ..
[SSC] 18:04 <Falci> ...
evet fala bakaıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ama özele yukardakileri yazıyor Kanala ise falını yazıyor $c leri n yaptım aslında yardımlarınmı bekliyorum şimiden teşkkürler

 

Çevrimiçi

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ışı

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