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 :))" "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 :)) 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 :))?" "canım:birtanem" "askim:kim benmi ne zaman oldum ? benim haberim yoq :))" "gelecem:gelmesende olur seni özlemiycem" "gelecem:cabuk gelmezsen beni burda göremezsin haa" ":alkis::Hoppa yandan sagdan soldan amanin ciki ciki" ":alkis::Hoppa yandan sagdan soldan of lilili" ":alkis::Hoppa yandan sagdan soldan hoppidi sinanay ciki ciki" ":alkis::Hoppa yandan sagdan soldan hoppidi sinanay ciki ciki" ":alkis::Hoppa yavas yavas yoroluyorum ha :D" ":alkis::Hoppa yandan sagdan soldan hoppidi sinanay ciki ciki" ":alkis::yeter bea valla yoroldum " ":alkis::yeter bea valla yoroldum " ":alkis::oynamiyorum artik " ":alkis::yeter bea valla yoroldum " "bebegim:barbie bebeginemi seslendin :D" "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:Ben 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 :))" "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 ;)" "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 :))" "evlenelim:hehe ne evlenmesi tamam sen yakışıklımısın bare :)" "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 :))" "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 :)" } # 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) |
Cevap: konusan.tcl PHP- Kodu: Türkçe karakter kullandığın için putlog'da hata mesajı vermiş. |
Cevap: konusan.tcl Alıntı:
belirttiğin satırı sildim, botu kanalda gene konuşturamadım, yardımcı olmak istersen /server irc.gonulsohbeti.com tşk.ler |
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. |
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ı :) |
Cevap: konusan.tcl ORJİNALİ PHP- Kodu: |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:12. |
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