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

4Beğeni(ler)
  • 2 Post By CLubber
  • 1 Post By CLubber
  • 1 Post By MesqeN

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Temmuz 2012, 16:35   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
konusan.tcl




sunucuya konusan.conf attım telnetten, bot sunucuya girdi ama tepki vermiyor, ayrıca telnette Tcl için şu hata iletisini gösteriyor. Tcl error [replychan]: list element in quotes followed by "banlamayýn ende" instead of spac

değerli üstadlar TCL ye bakıp hatanın kaynağını söylerseniz minnettar kalırım. Şimdiden teşekkürler ve İF.lar



# greet for ;p
set repchan {
"#Sohbet"
}
# asagidaki kelimeleri isteginize gore turete bilirsiniz
set repwords {
"s.a:%nick, aleyküm selam hoş geldin"
"kimsin: ben benim %nick, ya sen kimsin?"
"yas kac:54 desem kacarsin %nick, o yüzden 21 diyorum ister inan ister inanma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)"
"cnm:%nick, balum hoş geldin"
"selam:selam hoş geldin %nick.."
"nasılsınız:teşekurler sen nasılsın %nick"
"nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"
"nasilsin:teşekurler ben iyi gibiyim sen nasılsın %nick"
"nasilsiniz:teşekurler bomba gibiyiz her an patliyabiliriz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"selam arzu:%nick: a.s hoş geldin"
"bye:hoşçakal %nick"
"harika:%kim bu harika ya sorup duruyon"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"anlayacaksın.:seni kimse anlamaz PpP %nick"
"bot:%nick: benmi cok akillisin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)?"
"canım:birtanem"
"askim:kim benmi ne zaman oldum ? benim haberim yoq
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)"
"gelecem:gelmesende olur seni özlemiycem"
"gelecem:cabuk gelmezsen beni burda göremezsin haa"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Hoppa yandan sagdan soldan amanin ciki ciki"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Hoppa yandan sagdan soldan of lilili"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Hoppa yandan sagdan soldan hoppidi sinanay ciki ciki"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Hoppa yandan sagdan soldan hoppidi sinanay ciki ciki"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Hoppa yavas yavas yoroluyorum ha
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Hoppa yandan sagdan soldan hoppidi sinanay ciki ciki"
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:yeter bea valla yoroldum "
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:yeter bea valla yoroldum "
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:oynamiyorum artik "
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:yeter bea valla yoroldum "
"bebegim:barbie bebeginemi seslendin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"sevgilim:seni cok özledim %nick"
"hayatım:bi tanem bi bi bi"
"istiyorum:bende admin olmak istiyorum ama nerde %nick"
"by:bi cıkamadın ha %nick"
"acıktı:boşalda semerimi ye daha az önce yemeğe gittin"
"fb:0,4C* 8,12Fenerbahçe 12,8Cumhuriyeti0,4C* "
"hoşçakalın:hoşçakal canım"
"bye:Selametle %nick kib görüsürüz"
"göruşürüz:görüşürüz canım kendine iyi bak %nick"
"gorusuruz:görüşürüz canım kendine iyi bak %nick"
"ben geldim:hoş geldin"
"anlat
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en Anlatmayı Değil Anlatılanı Dinlemeyi Severim"
"EzEL:Rahat birakin askumu aaa kiziyorum ha simdi !kb cekecem baq"
"arzu:efendim biri bana seslendi galiba %nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)"
"geveze:sen geveze değilsin sanki"
"nasilsin arzu:iyiyim %nick sen nasilsin"
"nerdesiniz:körmüsün burdayız ya"
"nickimi kayit:./ns register şifren mailin %nick"
"cevap:kusura bakma özellerim dolu sohbet ediyorum
"banlamayın:sende rahat dur bi"
"aloo:I m soryy canım.. kusura bakmıyorsun dimi.. ben bi okey oynuyup geliyom"
"kahve:hemen getiriyorum nasıl olsun %nick"
"cay:Caylar bugün benden %nick afiyet olsun"
"icecekler:icecekler bugün benden %nick afiyet olsun"
"hadi bana bye:nereye karpuz kesicez daha %nick"
"hadi bye:nereye gidiyon lem %nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"bjk:0,4 C*1,0Canımız 0,1Kara Kartalımız 1,0 Beşiktaşımız 0,4 C*"
"kactım:kaçma ALLAH'ın emri iler git %nick"
"selamın aleykum:aleykum selam %nick hoş geldin"
"eee:esi oyle iste hehe"
"off:ne ofluyon bea oflu musun yoksa
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)"
"evlenelim:hehe ne evlenmesi tamam sen yakışıklımısın bare
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"gelim:valla gelmessen üzülürsün zaten "
"gelmem:Gelmessen zorlamam güzel ve hızla gelişen bir kanal neyse baii canım"
"gidicem:tamam ama gitmeden önce bye demeyi unutma"
"hayır:hımm demek öyle tamam pek hoşlanmam bana hayır denmesinden ona göre "
"hosgeldin:Hoşbulduk Ne güzel yer burası :P"
"kabul: su an online degilim sonra acıcam"
"ne:dediklerimden anlamıyorsun galiba frekanslar ayrı"
"komik:hehe cem ozer"
"mail:yokya niye verim"
"msn:olur al eline kalemi yazmaya basla
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)"
"msnen:yok ne gerek var burda sohbet ederiz"
"merhaba:merhabalar"
"nasılsın:bomba gibi sen nasılsın"
"off:ne olduya sıkıldınmı"
"of:ne olduya sıkıldınmı"
"ya:Ne Yağı Bebek Yağımı :Pp"
"yaş:20 büyükmüyüm"
"cep:hadiya nerden cikti simdi bu."
"adınney:arzu"
"adın:arzu"
"isim:arzu"
"arzu:efendim"
"ismin:arzu"
"isminiz:arzu"
"h.g:%nick h.b sende h.g"
"selam millet:%nick a.s Hos Geldin"
"burasi neresi: burasi gelecegin en kaliteli sohbet sitesi gurbetcafe.net %nick Hos Geldin"
"nerede:%nick Uzaklarda bir yerlerde yapa yanliz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
}

# So don't set this too low ;pp
set maxmsgrep 5:10

# work too hard ;pp hehe
set msgfloodm {
"you're performing MSG which considered as FLOOD..."
}
# Set this as your bot auto-ignore time. Set this one in Minute(s) format.
set msgrepignore 1
#
set utlarlg "\[J--C-\]:"
#
proc replyuser {nick uhost hand rest} {
global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg
if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}
set repperf 0
foreach repwrd $repwords {
set rquestion [lindex [split $repwrd :] 0]
set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]
if {[string match [string tolower $rquestion]* [string tolower $rest]]} {
regsub -all "%nick" $ranswer "$nick" ranswer
set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0
}
}
if {!$repperf && $repto != $nick} {return 0}
set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]
if {[info exists msgcount($n)]} {
set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]
if {$currmsgcount >= $maxmsgreprecv} {
set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}
if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}
newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore
putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1
} else {
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}
utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"
}
} else {set msgcount($n) 1}
}
proc replychan {nick uhost hand chan rest} {
global botnick repchan
foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}
}
bind msgm - * replyuser
bind pubm - * replychan
putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."

bind msgm - slm* msg_slm*
bind msgm - nbr* msg_nbr*
bind msgm - msn* msg_msn*
bind msgm - nerden* msg_nerden*
bind msgm - selam* msg_selam*
bind msgm - naber* msg_naber*
bind msgm - alo* msg_alo*
bind msgm - ordamisin* msg_ordamisin*
bind msgm - seviyorum* msg_seviyorum*
bind msgm - oh* msg_bosal*
bind msgm - ahh* msg_biseyyok*
bind msgm - yermisin* msg_tokum*
bind msgm - root* msg_zorbey*
proc msg_slm* { nick uhost handle text } {
putserv "PRIVMSG $nick : slm."
}
proc msg_selam* { nick uhost handle text } {
putserv "PRIVMSG $nick : slm."
}
proc msg_nbr* { nick uhost handle text } {
putserv "PRIVMSG $nick : iim cnm saol sen?."
}
proc msg_naber* { nick uhost handle text } {
putserv "PRIVMSG $nick : iim cnm senden?."
}
proc msg_nerden* { nick uhost handle text } {
putserv "PRIVMSG $nick : izmir ama daha yeni geldik sen?."
}
proc msg_msn* { nick uhost handle text } {
putserv "PRIVMSG $nick : Msn'im daha yeni calindi ya kusura bakma"
}
proc msg_ordamisin* { nick uhost handle text } {
putserv "PRIVMSG $nick : Burdayim sen nerdesin!"
}
proc msg_alo* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ne be ne alla alla Telefondamisin?!"
}
proc msg_seviyorum* { nick uhost handle text } {
putserv "PRIVMSG $nick : Cokmu seviyorsun?!"
}
proc msg_bosal* { nick uhost handle text } {
putserv "PRIVMSG $nick : Niye ohladin? hosuna mi gitti yoksa? "
}
proc msg_biseyyok* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ah canim biseyin yok dimi?"
}
proc msg_tokum* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ben daha yenii yedim sagol"
}
proc msg_aspawa* { nick uhost handle text } {
putserv "PRIVMSG $nick : Buranin tek Root Admini "WorD" Dir."
}
proc benimle_konuscakmısın* { nick uhost handle text } {
putserv "PRIVMSG $nick : tmm ya bekle biraz!"
}
# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 07 Temmuz 2012, 17:25   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: konusan.tcl




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
"banlamayın:sende rahat dur bi" 

Buradaki satırı silmen yeterli.

Türkçe karakter kullandığın için putlog'da hata mesajı vermiş.

 
Alıntı ile Cevapla

Alt 07 Temmuz 2012, 21:16   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: konusan.tcl




CLubber Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
"banlamayın:sende rahat dur bi" 

Buradaki satırı silmen yeterli.

Türkçe karakter kullandığın için putlog'da hata mesajı vermiş.



belirttiğin satırı sildim, botu kanalda gene konuşturamadım, yardımcı olmak istersen /server irc.gonulsohbeti.com tşk.ler

 
Alıntı ile Cevapla

Alt 07 Temmuz 2012, 21:21   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: konusan.tcl




O kadar hata varki, çalışmaması gayet doğal.

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

Bu linkteki tcl scripti kullanmanı tavsiye ederim.

 
Alıntı ile Cevapla

Alt 13 Temmuz 2012, 15:05   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: konusan.tcl




CLubber 'ın önerilerine uymanı kesinlikle tavsiye ederim.Kendisi TCL konusunda uzmandir.Ama bu konusan tcl yi bende kullandım.Pek bir işe yaramadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
mazafaka
 
Alıntı ile Cevapla

Alt 15 Temmuz 2012, 00:37   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: konusan.tcl




ORJİNALİ

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 Begin EntertainmentMessage Auto-Reply. (ent_areply.tcl
#   Designed & Written by Ninja_baby (Jaysee[MENTION=9318]Jay[/MENTION]see.Tv), © October 2000 

# This TCL was made following the request of my friend Imran (ImRaN-- on DALnet) for his bot. 
# This was a kewl idea, he ask how can his bots reply people who sent specific message- 
# to the bot or to a channel, without getting lagged or stuffs. Thanks Imran ;) *hugs* 
# Well as I said above, this TCL will make your bot reply people who send message- 
# to it or to a channel (which listed in the variable). And that's the only purpose ;p 
# but do not worry, the bot will auto-ignore people if it consider lines of messages- 
# as excessive flood. 

# Set this as reply channel. The bot will reply people ONLY in channels listed here. Eventhou- 
# the words are same with what you sets below. You can set channelnames here as many as you- 
# wish, but carefull you might make your bot getting lagged coz it has too many channels to- 
# greet for ;p 
set repchan 
  
"#KELEBEK" 


# Ok fill this one with your words. Let me explain a little bit about HOW to set this variable. 
# The one on the left side of the ":" sign is the trigger words. And words on the right side- 
# of the ":" sign is what your bot will reply following the left one. 
# Example: you set "hi :hello hello". Your bot will reply "hello hello" to people who said "hi"- 
# in channel or to it. 
# As my auto-greet does, you might set "%nick" here as replacement of the real nick the bot- 
# will reply to. Example: there's a nick called "TheLamer" in channel, and you set- 
# "hello :hi %nick". Then your bot will reply with words "hi TheLamer" when TheLamer guy said "hello"- 
# in channel or to it. 
# set this carefully and you might set this as many as you wish. ;) 
set repwords 
  
"hi :heya %nick, nice to see you ^_^" 
  "hello:well hey there %nick.." 
  "asl:I'm 11, f, Jakarta. and you?" 
  "heh :%nick: eh?" 
  "brb:be back soon!" 
  "bye:%nick: hush! =P" 
  "gtg:%nick: by3 by3, see ya'" 
  "how r:fine thankie ^-_^, how r u?" 
  "how are:fine thankie ^-_^, how r u?" 
  "* bot:%nick: huh?" 


# Set this as maximum trigger or lines before your bot consider the line of words as a flood. 
# By setting this to "5:10", means if someone sent more than 5 lines within 10 seconds, the bot- 
# will consider this as flood and will auto-ignore the person without giving any answers. 
# So don't set this too low ;pp 
set maxmsgrep 5:10 

# Set this as messages which your bot will send to a user that just considered flooding. 
# Set this as many as you wish, but remember, the key like %nick, etc. is NOT avalable in this- 
# variable. I'm too lazy to convert those key in this variable, and will only get this script- 
# work too hard ;pp hehe 
set msgfloodm 
  
"you're performing MSG which considered as FLOOD..." 


# Set this as your bot auto-ignore time. Set this one in Minute(s) format. 
set msgrepignore 1 

# This is for your benefit hehe ;), you can either set your own LOGO here, your logo will appear- 
# when the bot notice you, or when it makes msgs/notices/kicks or scripts loading. So keep smiling- 
# and set this variable as you wish ;), you can either set this to "" to leave it blank. 
set utlarlg "\[J-C\]:" 

######### Please do not edit anything below unless you know what you are doing ;) ######### 

proc replyuser {nick uhost hand rest} { 
   global 
botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg 
   
if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick
   
set repperf 0 
   
foreach repwrd $repwords 
      
set rquestion [lindex [split $repwrd :] 0
      
set ranswer [string trim [lrange [split $repwrd :] 1 end"{}"
      if {[
string match [string tolower $rquestion]* [string tolower $rest]]} { 
         
regsub -all "%nick" $ranswer "$nick" ranswer 
         set repperf 1 
putquick "PRIVMSG $repto :$ranswer; return 
      

   } 
   if {!
$repperf && $repto != $nick} {return 0
   
set repperf 0 set n [string tolower *!*@[lindex [split $uhost @] 1]] 
   if {[
info exists msgcount($n)]} { 
      
set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0
      if {
$currmsgcount >= $maxmsgreprecv} { 
         
set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]] 
         foreach 
msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}} 
         if {
$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."
         
newignore *!*@[lindex [split $uhost @] 1$botnick "MSG flood" $msgrepignore 
         putlog 
"$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 
      
} else { 
         foreach 
msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}} 
         
utimer [lindex [split $maxmsgrep :] 1"unset msgcount($n)" 
      

   } else {
set msgcount($n1


proc replychan {nick uhost hand chan rest} { 
   global 
botnick repchan 
   
foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $restreplyuser $nick $uhost $hand $reps ; return 0}} 


bind msgm - * replyuser 
bind pubm 
- * replychan 
putlog 
"*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded." 

# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl) 


 
Alıntı ile Cevapla

Cevapla

Etiketler
konusantcl


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
Konusan Bot izmirturk Servisler 11 28 Ocak 2011 22:10
Konusan Bot teodelsym Chat ve IRC 1 06 Haziran 2010 17:24
KonuSan Bot aLemDeyiz Eggdrop, NeoStats, BNC 0 18 Temmuz 2009 16:31
tcl konusan bot TaaRuZ Eggdrop, NeoStats, BNC 1 15 Şubat 2007 01:59