10 Ağustos 2008, 18:10 | #3 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: ozelde konuşan eggdrop Yardımın için saol ama ordaki konuda geliştirilmiş ve kullanılan eggdrop ve tcl yok şuan elinde olup ve sunucusunda sorunsuz kullanan biri varsa ve paylaşırca memnun olurum |
|
11 Ağustos 2008, 14:22 | #4 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: ozelde konuşan eggdrop 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_x* bind msgm - mrb* msg_mrb* bind msgm - gelsene* msg_gelsene* bind msgm - asl* msg_asl* bind msgm - baksana* msg_baksana* bind msgm - msnen* msg_msnen* bind msgm - bitanem* msg_bitanem* 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_marashal* { nick uhost handle text } { putserv "PRIVMSG $nick : Buranin tek Root Admini "MaRaShaL" Dır." } proc benimle_konuscakmısın* { nick uhost handle text } { putserv "PRIVMSG $nick : tmm ya bekle biraz!" } proc msnen_varmı* { nick uhost handle text } { putserv "PRIVMSG $nick : var ama hemen vermem öle" } proc gelsene* { nick uhost handle text } { putserv "PRIVMSG $nick : ben heryere gitmem öle" } proc baksana* { nick uhost handle text } { putserv "PRIVMSG $nick : evet ne oldu gene" } proc asl* { nick uhost handle text } { putserv "PRIVMSG $nick : 23f cokmu onemli" } proc konuşsana* { nick uhost handle text } { putserv "PRIVMSG $nick : sen konuş ben dinliyorum Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. " } proc mrb* { nick uhost handle text } { putserv "PRIVMSG $nick : mrblar" } proc bitanem* { nick uhost handle text } { putserv "PRIVMSG $nick : efendim canim" } ben bunu kullanmıştım bi ara konusma.tcl işine yararmı bilmem Genelde de konuşmasını istiyorsan # 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 { "#sohbet" } # 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 { "s.a:%nick, aleyküm selam hoş geldin" "selam:selam hoş geldin %nick.." "nasılsınız:teşekurler sen nasılsın %nick" "nasılsın:teşekurler bomba gibiyiz sen nasılsın %nick" "mrb:%nick: hoş geldin?" "naber:iyidir senden naber %nick" "bye:%nick: yine gelme seni özlemiycez =P" "lan:%nick: lan kelimesini kullanmayınız lütfen'" "selamun aleykum:aleykum selam hoşgeldin %nick" "bahar:efendim %nick" "bot:%nick: benmi?" "helal:Sağol Abi" "askım:canımın içi" "enbuyuk Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. EŞİKTAŞŞŞŞŞŞŞ" "sevgilim:seni cok özledim %nick" "siyahhh Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. EYAZZZZZZZZZ" "by:Selametle %nick" "fener:hadicanım sende Her zaman her yerde en büyük KARTAL" "ordamısın:evet burdayım" "eee:ne eesi konuşun canım sıkılıyo atarım bak Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. " "selamun aleykum:aleykum selam %nick hoş geldin" "s.a:%nick, aleyküm selam 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" "mrb:%nick: 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?" "canım:birtanem" "gelecem:gelmesende olur ama neyse gel bare: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. " "bebegim:sevgilim" "sevgilim:seni cok özledim %nick" "hayatım:bi tanem bi bi bi" "istiyorum:bende admin olmak istiyorum ama nerde %nick" "cıkkkktım:bi cımakadı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" "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" "sade:hemen canımın içi" "BuLLdozer:efendim abi" "geveze:sen geveze değilsin sanki" "asl:19 aslında ama 20 yaşımdaim" "nerdesiniz:körmüsün burdayız ya" "nickimi:./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" "hadi bana bye:nereye karpuz kesicez daha %nick" "bjk:0,4 C*1,0Canımız 0,1Kara Kartalımız 1,0 Beşiktaşımız 0,4 C*" "kaçtım:kaçma ALLAH'ın emri iler git %nick" "selamın aleykum:aleykum selam %nick hoş geldin" "eee:esi oyle iste hehe" "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" "nerden: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] canım Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. " "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 ama genede vereyim 0535 243 ..." "adınney:arzu" "adın:arzu" "isim:arzu" "arzu:efendim" "ismin:arzu" "isminiz:arzu" } # 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 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." # End of - Entertainment, Message Auto-Reply. (ent_areply.tcl) Bu tcl ler tamamen alıntıdır. |
|
22 Mayıs 2009, 10:42 | #8 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: ozelde konuşan eggdrop Bunu tcl halinde, ftpden eggdrop/scripts klasorunun icine girip atacaksınız, Ardından Kullandıgınız Conf'un el altına, source scripts/tclismi.tcl seklinde yazıp eggdrop botu cıkarıp tekrar sokacaksınız. |
|
Etiketler |
eggdrop, konuşan, ozelde |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Kanal Geneli ve Özelden Konuşan Bot Eggdrop TCl si lazım Elinde olan varmi ? | seths | Eggdrop, NeoStats, BNC | 27 | 18 Şubat 2011 22:51 |
Ozelde video | QkLa | mIRC Scripting Sorunları | 4 | 17 Eylül 2008 00:14 |
Ozelde konusma | TheoFFSprinG | mIRC Scripting Sorunları | 3 | 31 Temmuz 2008 09:55 |
Ozelde Reklam hk. | Shadow | mIRC Scripting Sorunları | 3 | 21 Haziran 2007 12:37 |
Ozelde Karsılama | bLueman | mIRC Scripting Sorunları | 1 | 11 Ekim 2006 23:18 |