IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

1Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Temmuz 2007, 21:04   #21
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




sanırım çalıştıramayanlar şu yüzden çalıştıramamış;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
utimer $time[list unset throttled($id)]

satırında $time ile [list unset throttled($id)] birleşik olmuş. ikisi arasına bir boşluk koyarsanız çalışır. şu şekildeçalışıyor;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# Gunluk Burc yorumlari icin sunucunuza ek ozellikler katmak icin gelistirilmistir # Yapimci : aCoustiC (Adil Bülbül) # version : burc_u v2.0 # web :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
face="Courier New"># e-mail :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(msn degil)
# Burc_u veriler muneccim.com adresinden cekmektedir, bunun icin yasal bir izin alinmadigini # unutmayiniz, sitede ki ufak 1 degisiklik sayesinde bu sistem calismayacaktir. # # Muneccim.com'a web uzerinden webmaster ve kullanicilara daimi hizmet sunduklari icin tesekkur eder # basarilarinin devamini dilerim. #Burc komut erisimi (bind) bind pub - !burc pub:burc # Botun olaylari yansitacagi kanali seciniz. set burc_chan "#muhabbet" channel add $burc_chan #Ellemeyin (Siz Bilirsiniz) proc pub:burc {n u h c a} { global burc_chan set c [string tolower [lindex $c 0]] if {$c != $burc_chan} { putlog "hatali kanal" return 0 } if {[throttled $u,$c 30]} { putquick "PRIVMSG $n :\0037:::::" putquick "PRIVMSG $n :\0037::::: \0037\002Surekli olarak istekte bulunamazsiniz!" putquick "PRIVMSG $n :\0037::::: \0035\002Tekrar yorum almak icin lutfen 1dk bekleyip yeniden deneyiniz." putquick "PRIVMSG $n :\0037:::::" return 0 } else { set burc "[string tolower [lindex $a 0]]" switch -- $burc { "koc" { baglan $n 0035K0037037o0370035c 1 } "boga" { baglan $n 0035B0037037o0370035g0037037a037 2 } "ikizler" { baglan $n 0035I0037037k0370035i0037037z0370035l0037037e0370035r 3 } "yengec" { baglan $n 0035Y0037037e0370035n0037037g0370035e0037037c037 4 } "aslan" { baglan $n 0035A0037037s0370035l0037037a0370035n 5 } "basak" { baglan $n 0035B0037037a0370035s0037037a0370035k 6 } "terazi" { baglan $n 0035T0037037e0370035r0037037a0370035z0037037i037 7 } "akrep" { baglan $n 0035A0037037k0370035r0037037e0370035p 8 } "yay" { baglan $n 0035Y0037037a0370035y 9 } "oglak" { baglan $n 0035O0037037g0370035l0037037a0370035k 10 } "kova" { baglan $n 0035K0037037o0370035v0037037a037 11 } "balik" { baglan $n 0035B0037037a0370035l0037037i0370035k 12 } "info" { return 0 } default { putquick "PRIVMSG $n :Yanlis bir burc girdiniz!" putquick "PRIVMSG $n :koc\0034,\003boga\0034,\003ikizler\0034,\003aslan\0034,\003basak\0034,\003terazi\0034,\003akrep\0034,\003yay\0034,\003oglak\0034,\003kova\0034,\003balik" putquick "PRIVMSG $n :Yukaridaki tanimlamalara uygun olarak \0035\002!burc burcunuz\002\003 seklinde yaziniz." putquick "PRIVMSG $n :Aksi taktirde cevap alamayacaksiniz" return 0 } } } } #baglanti ayarlari proc baglan {nick burc id} { global burc_chan set url http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
face="Courier New">set token [::http::geturl $url
] set content [::http::data $token] ::http::cleanup $content if {[regexp -nocase {<font color="#000000" face="Arial Narrow"><strong>(.*)</strong></font>} $content 0 1]} { regexp -nocase {<p align="center"><big><big><font face="Arial Black">(.*)</font></big></big></p>} $content 0 2 puthelp "PRIVMSG $burc_chan :\00307\[\003\0034$nick\00307\] $burc \0035B\0037\037u\037\0035r\0037\037c\037\0035u icin \0035G\0037\037u\037\0035n\0037\037l\037\0035u\0037\037k\037 \0035yorumunuz o\037z\037e\037l\037i\037n\037i\037z\037e gönderildi l\037ü\037t\037f\037e\037n\037 kontrol ediniz." puthelp "PRIVMSG $nick :\0037::::: $burc \0035B\0037\037u\037\0035r\0037\037c\037\0035u icin \0035G\0037\037u\037\0035n\0037\037l\037\0035u\0037\037k\037 \0035yorumunuz" puthelp "PRIVMSG $nick :\0037:::::" foreach burc_u [wordwrap $1] { puthelp "PRIVMSG $nick :\0037:::\003 $burc_u" } puthelp "PRIVMSG $nick :\0037::::: \0035\002$2" puthelp "PRIVMSG $nick :\0035G\0037\037u\037\0035n\0037\037l\037\0035u\0037\037k\037 \0035B\0037\037u\037\0035r\0037\037c\037\0035 Yorumlama sistemi Muneccim.Com uzerinden verileri cekmekteir By aCoustiC E-mail <
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
>"
} } # kelimeler siniflara ayrilarak daha duzenli yayinlanmasi saglandi (thx egghelp.com) proc wordwrap {str {len 70} {splitChr { }}} { set out [set cur {}]; set i 0 foreach word [split [set str][unset str] $splitChr] { regsub -all {<br>} $word "" word regsub -all {<big>} $word "" word regsub -all {</big>} $word "" word regsub -all {.} $word "\0034.\003" word if {[incr i [string len $word]]>$len} { lappend out [join $cur $splitChr] set cur[list $word] set i [string len $word] } { lappend cur $word } incr i } lappend out [join $cur $splitChr] } # cok fazla tektar icin ufak bir onlem. (thx egghelp.com) proc throttled {id time} { global throttled if {[info exists throttled($id)]} { return 1 } { set throttled($id) [clock sec] utimer $time [list unset throttled($id)] return 0 } } set ctcp-version "${ctcp-version} (burc_u.tcl v2.o Yapimci aCoustiC)"


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 15 Ağustos 2007, 13:43   #22
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Burc_u.tcl v2.0




kardeşim emegine saglık ama bir türlü calışmadı

 
Alıntı ile Cevapla

Alt 15 Ağustos 2007, 14:06   #23
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




denqesiz eger cehennemm arkadasın verdiği tcl yi html.tcl ile beraber kullanırsan çalısıo örnegi : irc.perilichat.com adresinde mevcurt gelip görebilirsin verebilirimde...

 
Alıntı ile Cevapla

Alt 17 Eylül 2007, 18:02   #24
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




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

 
Alıntı ile Cevapla

Alt 17 Eylül 2007, 19:31   #25
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

oldugu gibi bu bolumu kopyalarsaniz sorun olmayacaktir.

__________________
Our brain is Our Weapon
 
Alıntı ile Cevapla

Alt 18 Eylül 2007, 21:23   #26
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




ßot oLdu ancak kanaLa giriyor !burc ikizler yaptığımda şöyLe ßi hata werior teLnette (./eggdrop -nm ßotum.conf oLarak sokunca gördüm )

[21:19] hatali kanal

kanaLımın adı AnTiViRüS acaßa Türkçe karakter oLduğu içinmi ßöyLe diyor? tcLden kanaLımı #AnTiViRüS oLarak yaptım

 
Alıntı ile Cevapla

Alt 18 Eylül 2007, 22:06   #27
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




turkce sozcukler eski surumlerde yada yamalarda sorun yasatabiliyor, bu eggdrop degil kurulu olan tcl libry leri ile alakali bir durum, kanal adini degistirirseniz sorun ortadan kalkacaktir.

[21:19] hatali kanal

bu mesaji alma nedeniniz ya komudu belirttiginiz kanalda uygulamiyorsunuz yada turkce karakter bu konuda size problem yasatmakta.

__________________
Our brain is Our Weapon
 
Alıntı ile Cevapla

Alt 28 Haziran 2009, 17:04   #28
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




arkadaşlar bunun bi confu yok mu örnek bi tane verseniz yada bu egdrop deil mi ?

 
Alıntı ile Cevapla

Alt 28 Haziran 2009, 19:30   #29
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




#
# Eggdrop Bot
#
#
#
###########################################
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
set username "Botun Identi"
set nick "Botun Nicki"
set altnick "Botun Diger Nicki"
set my-ip "Sunucu Ip Adresi"
set my-hostname "Hostname "
set realname "Real Name "
set init-server {
putserv "identify Botun Nick Sifresi"
putserv "oper Nick Sifre"
putserv "MODE BurcBot +B"
}
set servers {
Sunucu Ip Adresi:Port
}
channel add #Botun Gireci Kanal {
need-op { putserv "MODE #Kanal +v Botun Nicki " }
}

set net-type 5
set owner "Bot Yapımcısı"
set userfile "Komik.user"
set chanfile "Komik.chan"
logfile jpk #Admin "logs/Selvinaz.log"
set shortnick "Korku"
set home "#Kanal"
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3365 all
logfile msbxco * "logs/selvinaz.log"
set console "mkcobxs"
loadmodule uptime
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl
source scripts/burc.tcl


Edit yapman gereken yerleri kirmizi renk ile belirttim.

DAha sonrasinda ftpden eggdrop klasorunun icine at
telnetten
cd
cd eggdrop
./eggdrop -m burc.conf

yaptigin zaman sorunsuz calisacaktir.

 
Alıntı ile Cevapla

Alt 01 Temmuz 2009, 15:51   #30
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Burc_u.tcl v2.0




aCoustiC kardeş senin verdiğin tcleyi bi botun confuna attım !burc kova mesela diom cevap vermio biraz zaman geçiyo yine !burc kova diom özline şşunu gösterio [KBSC][15:50:30] <CimCime> :::::
[KBSC][15:50:30] <CimCime> ::::: Surekli olarak istekte bulunamazsiniz!
[KBSC][15:50:30] <CimCime> ::::: Tekrar yorum almak icin lutfen 1dk bekleyip yeniden deneyiniz.
[KBSC][15:50:31] <CimCime> :::::

sebeb ne olabilir #burc kanalını #sohbet olarak ayarladım sadece ?

 
Alıntı ile Cevapla

Cevapla

Etiketler
burcutcl, burc_utcl, v20


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Burc_u.TCL v2.0 (Beceriksizlere ozel) Brain TCL Scriptler 0 10 Ekim 2007 06:19