Çevrimdışı

Serverime acele bu tip bot lazım Ama 7/24 online olcak o yüzden Eggdrop TCL ariyorum...

 

Çevrimdışı

özelde değil ama kanalda konuşur kendine göre editlersin biraz kelimeleri


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

 

Çevrimdışı

Güzel eline sağlık. Peki bunu nasıl kurucaz biraz bilgi verirmisin.

 

Çevrimdışı

örnek bir conf ekliyeyim tabi sen başka bir conf lada birleştire bilirsin



##########################
# BURAYA DOKUNMAYINIZ..!
##########################
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
loadmodule blowfish
##########################
#Botun Identi
set username "catlak"
# Botun Nicki
set nick "lucky"
# Botun Alt Nicki
set altnick "oyuncu`"
# Botun Ip Adresi
set my-ip "62.68.193.111"
# Botun Vhost`u (eger destekliyorsa.. Buradaki Vhostun my-ip ile uyusmasi gereklidir)
set ny-hostname "62.68.193.111"
# Botun Whois`inde Cikacak Olan yazi
set realname "GaMe BoT"
# Botun irc`ye baglandiginda yapicagi ilk sey
set init-server { putserv "identify orientalroller" }
# Botun girmeye calisacagi server listesi..
set servers {
62.68.193.111:6667
}
# Botun girecegi Ilk kanal(Bu Kanal Botun Hafizasinda Dewamli kalicaktir.)
# Bot bu kanaldan cikmaz..Ancak burdan silinirse cikar..
channel add #sohbet {
chanmode "+nt"
idle-kick 0
stopnethack-mode 0
}
# Burada Botun Serverdaki ana kanalini Ayarliyoruz..
set home "#sohbet"
# Burada Botun girecegi Server tipini belirlemelisiniz..
# 0= Efnet , 1= IRCnet , 2= undernet , 3= DALnet , 4=Efnet Hybrid , 5= Digerleri
set net-type 1
# Botun sahibinin nicki
set owner "aspawa"
# Botun kullanici dosyasi
set userfile "game_botu.user"
# Botun kanal listesi dosyasi
set chanfile "game_botu.chan"
# logunu tutmak istediginiz kanal icin kullanabilirsiniz..
logfile jpk #game "logs/game.log"
# tmp dir. Botun gecici dosyalari sakliyacagi yer.
# Eggdrop kullananlar icin
# set temp-path "/tmp"
# windrop kullananlar icin
# set temp-path "tmp/"
# Kullandiginiz Bot turune gore birisinin onundaki #
# kaldiriniz..!
# botun calismasi icin asagidaki "die" ile basyalan satiri kaldirmalisiniz..
# Eger IRCturk Multi Kullaniyosaniza Bu Bolumu
# Basindaki # Isaretini Kaldirarak Aktif Ediniz.!
# Botunuza kisa yoldan komut vermek icin...
#set shortnick "IRC"
##########################
#Bu bolumden asagisi uzmanlar icindir..
#Her ozelligin tam aciklamasi bir dahaki surumde..
##########################
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
listen 3334 all
logfile msbxco * "logs/eggdrop.log"
set console "mkcobxs"
loadmodule uptime
# bu bolum eklediginiz tcllere gore duzenliyeceginiz bolum..
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/compat.tcl
source scripts/userinfo.tcl
source scripts/slm.tcl
loadhelp userinfo.help

 

Çevrimdışı

aspawa dediğin adreste bi şey yok Ya arkadaşlar şuraya doruca yazamıyomusunuz atmasyon yazmayın

 

Çevrimdışı

hacettepe sapa sağlam link bir linki kopyala yapıştır yapamıyorsan biz ne yapalım burdan almasını burdan kopyalamasını becerirsin dimi



# 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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 gibiyim sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"bye:hoşçakal %nick"
"bye:%nick: yine gelme seni özlemiycez =P"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"catlakFM:efendim %nick"
"bot:%nick: benmi?"
"canım:birtanem"
"askım:canımın içi"
"bebegim:sevgilim"
"sevgilim:seni cok özledim %nick"
"hayatım:bi tanem bi bi bi"
"catlakFM:catlakFM diyen dilini %nick"
"sen:hadicanım sende"
"ordamısın:evet burdayım"
"eee:sustum"
"selamun aleykum:aleykum selam %nick hoş geldin"

}
# 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
, 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
, 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#########
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)

 

Çevrimdışı

equal valla senin verdiğinle benim tc leyi birleştirdim çok güzel oldu şimdi hem özelde hem kanalda konuşuyor bot

 

Çevrimdışı

HACETTEPE Nickli Üyeden Alıntı

aspawa dediğin adreste bi şey yok Ya arkadaşlar şuraya doruca yazamıyomusunuz atmasyon yazmayın

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

dosya için tesekkür ederim ama
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

şimdi ben bunu indirdim neyapacam bunu?

 

Çevrimdışı

kimse yokmuya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.