Çevrimdışı

s.a arkadaşlaer ozelllerde konuşan user gibi gorunen ozellerde konuşan eggdrop bot varmış bilgisi olan ve varsa paylaşacak olan birisi varmı

 

Çevrimdışı

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

Lütfen Arama yapınız . . .

 

Çevrimdışı

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

 

Çevrimdışı

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.

 

Çevrimdışı

kardeşim teşekkürler paylaşımın için böyle hazır guzel bişi arıyordum saol

 

Çevrimdışı

Güzel paylaşım umarım herkesin işine yarar

 

Çevrimdışı

kardeş bana kurulumu anlatırmısın yeniyim dahada...

 

Çevrimdışı

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.