![]() |
![]() |
![]() | #1 | |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | 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) | |
| ![]() |
![]() | #2 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: konusan.tcl PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Buradaki satırı silmen yeterli. Türkçe karakter kullandığın için putlog'da hata mesajı vermiş. |
| ![]() |
![]() | #3 | ||||
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: konusan.tcl
belirttiğin satırı sildim, botu kanalda gene konuşturamadım, yardımcı olmak istersen /server irc.gonulsohbeti.com tşk.ler | ||||
| ![]() |
![]() | #4 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | 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. |
| ![]() |
![]() | #5 |
Çevrimdışı ![]() IF Ticaret Sayısı: (1) | 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 |
| ![]() |
![]() | #6 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: konusan.tcl ORJİNALİ PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
|
| ![]() |
![]() |
Etiketler |
konusantcl |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
irc.konusan.net | lazerin | Yeni Sunucular | 111 | 21 Mayıs 2024 19:42 |
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 |