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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Burc_u.tcl v2.0 (https://www.ircforumlari.net/tcl-scriptler/33480-burc_utcl-v20.html)

Cevap: Burc_u.tcl v2.0

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

Kod:

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:

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

Yanıt: Burc_u.tcl v2.0

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

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

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 ?

Cevap: Burc_u.tcl v2.0

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

oldugu gibi bu bolumu kopyalarsaniz sorun olmayacaktir.

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

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.

Cevap: Burc_u.tcl v2.0

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

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.

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 ?