IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Burc_u.tcl v2.0 (https://www.ircforumlari.net/tcl-scriptler/33480-burc_utcl-v20.html)

Brain 02 Temmuz 2007 23:26
Burc_u.tcl v2.0
 
# Gunluk Burc yorumlari icin sunucunuza ek ozellikler katmak icin gelistirilmistir
# Yapimci : aCoustiC (Adil Bülbül)
# version : burc_u v2.0
# web : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# e-mail : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (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.



Assagidaki tcl sohbet sunucunuz uzerinde gunluk burclarinizi yayinlama olanagi saglamak icin yapilmistir

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

nasil sorunusu sormadan once eggdrop kurulumu ve kullanimi adli sabit basligi okuyunuz.

sistem ile ilgili sorular disinda lutfen post atmayiniz.

PHP- Kodu:
# 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.
style="color: #0000BB">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 \0035K\0037\037o\037\0035c 1 }
      "boga" { baglan $n \0035B\0037\037o\037\0035g\0037\037a\037 2 }
      "ikizler" { baglan $n \0035I\0037\037k\037\0035i\0037\037z\037\0035l\0037\037e\037\0035r 3 }
      "yengec" { baglan $n \0035Y\0037\037e\037\0035n\0037\037g\037\0035e\0037\037c\037 4 }
      "aslan" { baglan $n \0035A\0037\037s\037\0035l\0037\037a\037\0035n 5 }
      "basak" { baglan $n \0035B\0037\037a\037\0035s\0037\037a\037\0035k 6 }
      "terazi" { baglan $n \0035T\0037\037e\037\0035r\0037\037a\037\0035z\0037\037i\037 7 }
      "akrep" { baglan $n \0035A\0037\037k\037\0035r\0037\037e\037\0035p 8 }
      "yay" { baglan $n \0035Y\0037\037a\037\0035y 9 }
      "oglak" { baglan $n \0035O\0037\037g\037\0035l\0037\037a\037\0035k 10 }
      "kova" { baglan $n \0035K\0037\037o\037\0035v\0037\037a\037 11 }
      "balik" { baglan $n \0035B\0037\037a\037\0035l\0037\037i\037\0035k 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.
style="color: #0000BB">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)" 

irc_avukat 03 Temmuz 2007 00:35
Cevap: Burc_u.tcl v2.0
 
b&#246;yle yararlı şeyleri yazip sonrada bizle "paylaştığın" i&#231;in teşekk&#252;r ederiz.

yazip yazdim yazdim diye ortada gezip paylaşmayanlar utansın

BuCaLI 03 Temmuz 2007 22:44
Cevap: Burc_u.tcl v2.0
 
cıx bu kodların bi kısmı şifreli ben kullanmam :p
ellerine aklına fikrine sağlık abicim. ben senden bunu istedim ama sen verene kadar ben yine sabredemedim daha basit&#231;e bişeyler yaptım. yinede teşekk&#252;r ederim. y&#252;reğine sağlık.

Brain 04 Temmuz 2007 15:16
Cevap: Burc_u.tcl v2.0
 
not: f3 ile arama yaparak 003 yazisini bularap \003 sekline getirirseniz renklerle ilgili sorunlarinizda ortadan kalkacaktir, wb nin php code tahlari kaldirmista ;)

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

Kablosuz NET 04 Temmuz 2007 16:23
Cevap: Burc_u.tcl v2.0
 
o kadar çok 003 varki :) Hangisini düzeltsem inan karar veremedim

BuCaLI 04 Temmuz 2007 21:44
Cevap: Burc_u.tcl v2.0
 
Birde bişey sorucam yanlış anlama benim yaptığım basit tcl yide başka bi yerde versem kızmazsın dimi ?

Brain 06 Temmuz 2007 22:50
Cevap: Burc_u.tcl v2.0
 
deli :) herkezin tarzi farklidir nicin tavir takinmaliyim ki senin yaptigin 1 seye aksibe rakip olarak gorup rakibiminde neler yaptigini daha ii kavramis olurum ;)

BuCaLI 07 Temmuz 2007 02:32
Cevap: Burc_u.tcl v2.0
 
Rakip mi ? :p peh benmi sana rakip olucam :)
sadece fikrimi göstermek istedim izin almadan göstermim dedim yinede :) ben şu şekilde düşünmüştüm güzel de çalıştı ;

Kod:
bind pub - !burc basla
proc basla { n u h c a } {
set brc "[string tolower [lindex $a 0]]"
putserv "privmsg $c İsteğiniz İşleme Alındı. Lütfen Bekleyiniz.."
putserv "privmsg $c ."
putserv "privmsg $c .."
putserv "privmsg $c ..."
if {$brc=="koc"} {
set sy "1"
} elseif {$brc=="boga"} {
set sy "2"
} elseif {$brc=="ikizler"} {
set sy "3"
} elseif {$brc=="yengec"} {
set sy "4"
} elseif {$brc=="aslan"} {
set sy "5"
} elseif {$brc=="basak"} {
set sy "6"
} elseif {$brc=="terazi"} {
set sy "7"
} elseif {$brc=="akrep"} {
set sy "8"
} elseif {$brc=="yay"} {
set sy "9"
} elseif {$brc=="oglak"} {
set sy "10"
} elseif {$brc=="kova"} {
set sy "11"
} elseif {$brc=="balik"} {
set sy "12"
} else {
putserv "PRIVMSG $c :\00304Bilinmeyen komut! \00301günlük burc yorumunuzu görmek için \002!burc <burcunuz> \002şeklinde Kullanınız."
return 0
}
set baglan [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]
set veriler [::http::data $baglan]
set snr [string range $veriler [expr [string first "<strong><big>" $veriler]+13]  [expr [string first "<br> </big></strong>" $veriler]-1]]
putserv "privmsg $c \002[lrange $snr 0 30]"
putserv "privmsg $c \002[lrange $snr 31 60]"
putserv "privmsg $c \002[lrange $snr 61 end]"
::http::cleanup $veriler
return 0
}
set ctcp-version "${ctcp-version} (burc tcl Yapimci BuCaLI)" 
 
putlog "burc tcl v1.0 by bucali"
putlog "E-mail [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
putlog "Bu bot sunucunuz uzerinde günlük burc yorumlarını vermek icin tasarlanmistir"



aCoustiC bi de müsait olduğun bi an ufak bi mesele hakkında görüşsek süper olur seni bekliyorum.

janus 11 Temmuz 2007 17:26
Yanıt: Burc_u.tcl v2.0
 
Cehennemin verdigi tcl calisdirmayi basardim. Ama ne yaziki acustiC 'in verdigi tcl yi calisdiramadim..

Brain 12 Temmuz 2007 02:24
Cevap: Burc_u.tcl v2.0
 
ne gibi sorunlarla karsilastinizda bot calismadi?

shardad 12 Temmuz 2007 09:43
Yanıt: Burc_u.tcl v2.0
 
Kahve falı bakanı yokmu bunun :D

ATAHAN 12 Temmuz 2007 13:35
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

Brain 12 Temmuz 2007 14:04
Cevap: Burc_u.tcl v2.0
 
Alıntı:
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.

ATAHAN 12 Temmuz 2007 14:06
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 ?

ATAHAN 12 Temmuz 2007 14:09
Cevap: Burc_u.tcl v2.0
 
http.tcl yide indirdim confa ekledim ayrıca

ATAHAN 12 Temmuz 2007 14:13
Cevap: Burc_u.tcl v2.0
 
tamam cehennemin verdigi calıstı :)

Brain 12 Temmuz 2007 16:57
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.

BuCaLI 12 Temmuz 2007 22:24
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.

shardad 13 Temmuz 2007 05:20
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

janus 13 Temmuz 2007 20:12
Yanıt: Burc_u.tcl v2.0
 
Alıntı:
shardad Nickli Üyeden Alıntı (Mesaj 233499)
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..

BuCaLI 29 Temmuz 2007 21:04
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)" 

DeNQeSiZ 15 Ağustos 2007 13:43
Yanıt: Burc_u.tcl v2.0
 
kardeşim emegine saglık ama bir türlü calışmadı

ATAHAN 15 Ağustos 2007 14:06
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...

NoRToN 17 Eylül 2007 18:02
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 ?

Brain 17 Eylül 2007 19:31
Cevap: Burc_u.tcl v2.0
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

oldugu gibi bu bolumu kopyalarsaniz sorun olmayacaktir.

NoRToN 18 Eylül 2007 21:23
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

Brain 18 Eylül 2007 22:06
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.

MeeT 28 Haziran 2009 17:04
Cevap: Burc_u.tcl v2.0
 
arkadaşlar bunun bi confu yok mu örnek bi tane verseniz yada bu egdrop deil mi ?

Mirkan58 28 Haziran 2009 19:30
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.

MeeT 01 Temmuz 2009 15:51
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 ?

MeeT 01 Temmuz 2009 16:48
Cevap: Burc_u.tcl v2.0
 
Bucalı senin verdiğin tcl eyi çalıştırdım yalnız burcları kanala deilde kişinin özeline yazsa olmaz mı ?

BuCaLI 01 Temmuz 2009 20:57
Cevap: Burc_u.tcl v2.0
 
$c lerin hepsini $n olarak değiştirirsen cevabı özele verir.

MeeT 02 Temmuz 2009 14:43
Cevap: Burc_u.tcl v2.0
 
tşkler özele gönderiyo artık

Sephiroth 18 Ağustos 2009 14:14
Cevap: Burc_u.tcl v2.0
 
http tcl`de sorun alı[13:20] Tcl error in file 'koruma.conf':
[13:20] conflicting versions provided for package "http": 2.5.0, then 2.5.001
while executing
"package provide http 2.5.001"
(file "scripts/http.tcl" line 29)
invoked from within
"source scripts/http.tcl"
(file "koruma.conf" line 97)
[13:20] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
yorum yardımcı olurmusunuz..

YilmaS 15 Eylül 2009 00:42
Cevap: Burc_u.tcl v2.0
 
Alıntı:
aCoustiC Nickli Üyeden Alıntı (Mesaj 232863)
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.

ultumko 14 Ekim 2009 18:06
Cevap: Burc_u.tcl v2.0
 
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:D 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

BuCaLI 14 Ekim 2009 20:47
Cevap: Burc_u.tcl v2.0
 
Bu benim değil aCoustiC'in yazdığı tcl fir. Bota login olup komut verdikten sonra verdiği hatayı verirseniz bize yardımcı olabiliriz.

qusursuz 04 Kasım 2009 16:18
Cevap: Burc_u.tcl v2.0
 
Merhaba [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Konu tarihi eski farkındayım ..

Ben bu botu bir turlu calisdiramadim sunucuya eggdrop'un girişinde bir sorun yok , http.tcl de attım Kanali ayarlarım kanalda !burc !burc yay yazdigimda hic bir cevap alamiyorum ozelede kanalada yansiyan birsey yok ..

Bunu calisdirabilen herhangi bir arkadas calisan seklini paylasirsa sevinirim.

Eggdrop 'un en son fix surumunu kullanıyorum..

toXic 04 Kasım 2009 18:12
Cevap: Burc_u.tcl v2.0
 
Belki Kanal modelerinden olabilir yada söylediğiniz gibi kanal eski veri cekerken bir problem olabilir ( site kapanmıs yada ayarlamalar değişmiş olabilir )

¿ 04 Kasım 2009 20:07
Cevap: Burc_u.tcl v2.0
 
Merhaba, sitede bi kac degisiklik yapilmis. Sorunu duzelttim suanda sorunsuz calismaktadir.
aCoustiC puthelp kullanmis bagzi yerlerde onlari da putquick'e cevirdim daha hizli calisacak.

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:28.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net