IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - konuşan bot (https://www.ircforumlari.net/eggdrop-neostats-bnc/31440-konusan-bot.html)

Alıntı:

# Begin - Entertainment, Message Auto-Reply. (ent_areply.tcl)
# Designed & Written by Ninja_baby ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]), © October 2000
# This TCL was made following the request of my friend Imran (ImRaN-- on DALnet) for his bot.
# This was a kewl idea, he ask how can his bots reply people who sent specific message-
# to the bot or to a channel, without getting lagged or stuffs. Thanks Imran ;) *hugs*
# Well as I said above, this TCL will make your bot reply people who send message-
# to it or to a channel (which listed in the variable). And that's the only purpose ;p
# but do not worry, the bot will auto-ignore people if it consider lines of messages-
# as excessive flood.
# 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 {
"#kanal"
}
# 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 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"
"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"
"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 ;), 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)

ya böyle bi şeyi mesela selam verdiğinde bütün kanallarda a.s demesi için ne yapa bilirim

Cevap: konuşan bot

Öncelikle Bu Tcl Ye Uygun Bir tane Conf Dosyası Hazırlayın Ve Conf Dosyasında Botun Gireceği Konuşacağı Kanalları Ayarlamanız Yeterli .

Örnek Olarak Bir Tane Ben Hazırladım .

Alıntı:

#================================================= ==================#
#
#=== # E G G D R O P C O N F I G BY M U R A T # ===#
#
#================================================= ==================#
#===================== LINE NEEDED FOR LOADCONF ====================#
#! /path/to/eggdrop
#======================= GENERAL DedectivE SETTINGS ======================#
set username "Domain"
set admin "Admin Nicki <email: Adminin Mail Adresi>"
set network "İrc adresi Buraya"
set timezone "EST"
set offset "5"
set my-hostname "İp- adresi"
set my-ip "İp Adresi"
#==================== GENERAL DedectivE LOGGING OPTIONS ==================#
set max-logsize 0
set quick-logs 0
logfile mco * "scripts/log/fasulye.log"
logfile bjk #Oyun "scripts/log/fasulye.log"
set log-time 1
set keep-all-logs 0
set switch-logfiles-at 300
set quiet-save 0
set console "mkcobxs"
#================ GENERAL DedectivE FILE/LOCATION SETTINGS ===============#
set userfile "scripts/log/DedectivEcan.user"
set sort-users 0
set help-path "help/"
set temp-path "/tmp"
set motd "motd"
set telnet-banner "telnet-banner"
#====================== GENERAL DedectivENET OPTIONS =====================#
#set DedectivEnet-nick "RoDedectivE"
#listen 3333 all
set protect-telnet 0
set dcc-sanitycheck 0
set ident-timeout 5
set require-p 0
set open-telnets 0
set stealth-telnets 0
set use-telnet-banner 0
set connect-timeout 15
set dcc-flood-thr 3
set telnet-flood 5:60
set paranoid-telnet-flood 1
set resolve-timeout 15
#===================== ADVANCED SETTINGS FOR DedectivE ===================#
#set firewall "proxy:178"
#set nat-ip "127.0.0.1"
#set reserved-port 9076
set ignore-time 0
set hourly-updates 00
set owner "Cyprus"
set notify-newusers "$owner"
set default-flags "hp"
set whois-fields "url birthday"
set remote-boots 2
set share-unlinks 1
set die-on-sighup 0
set die-on-sigterm 0
unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set
set must-be-owner 0
unbind dcc n simul *dcc:simul
set max-dcc 50
set dcc-portrange 1024:65535
set enable-simul 1
set allow-dk-cmds 1

#==================== GENERAL DedectivE MODULE SETTINGS ==================#
set mod-path "modules-1.6.17"
#==================== GENERAL DedectivE CHANNEL MODULES ==================#
loadmodule channels
set chanfile "scripts/log/DedectivEcak.chan"
set ban-time 0
set exempt-time 70
set invite-time 70
# set force-expire 0
set share-greet 0
set use-info 1
set global-flood-chan 5:3
set global-flood-deop 5:10
set global-flood-kick 0:0
set global-flood-join 8:30
set global-flood-ctcp 8:30
set global-chanset {
+clearbans +enforcebans
+dynamicbans +userbans
+autoop -bitch
+greet +nodesynch
+statuslog -stopnethack
-revenge -secret
-autovoice +cycle
+dontkickops -wasoptest
-inactive +protectfriends
+shared -seen
+userexempts +dynamicexempts
+userinvites +dynamicinvites
}

channel add #Sohbet {
need-op { putserv "MODE #Sohbet +h $nick" }
chanmode "+nt"
idle-kick 0
}
channel add #oyun {
need-op { putserv "MODE #oyun +h $nick" }
chanmode "+nt"
idle-kick 0
}
channel add #radyo {
need-op { putserv "MODE #oyun +h $nick" }
chanmode "+nt"
idle-kick 0
}
set global-chanmode ""
#==================== GENERAL DedectivE SERVER MODULES ===================#
loadmodule server
set net-type 0
set nick "Botun Nicki"
set realname "4 domain.net"
set init-server { putserv "identify qwerty"
putserv "OPER BoT şifresi"
}
set servers {
İp-adresi:6667
}
set keep-nick 1
set use-ison 1
set strict-host 0
set quiet-reject 1
set lowercase-ctcp 0
set answer-ctcp 3
set flood-msg 0:0
# how many CTCPs in how many seconds?
set flood-ctcp 0:0
set never-give-up 1
set strict-servernames 0
set default-port 6667
set server-cycle-wait 30
set server-timeout 15
set servlimit 0
set check-stoned 1
set use-console-r 0
set debug-output 0
set serverror-quit 1
set max-queue-msg 300
set trigger-on-ignore 0
set double-mode 0
set double-server 0
set double-help 0
#set use-silence 1
#set check-mode-r 1
loadmodule ctcp
set ctcp-mode 0
loadmodule irc
set bounce-bans 1
set bounce-modes 0
set kick-bogus-bans 1
set bounce-bogus-bans 1
set max-bans 20
set max-modes 30
set allow-desync 0
set kick-bogus 0
set ban-bogus 0
set kick-fun 0
set ban-fun 0
set learn-users 0
set wait-split 600
set wait-info 180
set mode-buf-length 200
#unbind msg - hello *msg:hello
#bind msg - myword *msg:hello
unbind msg - ident *msg:ident
unbind msg - addhost *msg:addhost
#bind msg - myidentword *msg:ident
set no-chanrec-info 0
set revenge-mode 1
set bounce-exempts 0
set bounce-invites 0
set max-exempts 20
set max-invites 20
set bounce-bogus-exempts 0
set kick-bogus-exempts 0
set bounce-bogus-invites 0
set kick-bogus-invites 0
# set use-exempts 0
# set use-invites 0
set prevent-mixing 1
#set kick-method 1
#set modes-per-line 3
#set use-354 0
#set rfc-compliant 1
#loadmodule transfer
set max-dloads 3
set dcc-block 1024
set copy-to-tmp 1
set xfer-timeout 30
#==================== GENERAL DedectivE SHARE MODULES ====================#
#loadmodule share
#set allow-resync 0
#set resync-time 900
#set private-owner 0
#set private-global 0
#set private-globals "mnot"
#set private-user 0
#================== GENERAL DedectivE FILESYSTEM MODULES =================#
#loadmodule filesys
set files-path "/home/mydir/filesys"
set incoming-path "/home/mydir/filesys/incoming"
set upload-to-pwd 0
set filedb-path ""
set max-file-users 20
set max-filesize 1024
#===================== GENERAL DedectivE NOTES MODULES ===================#
loadmodule notes
set notefile "scripts/log/Nothing.notes"
set max-notes 50
set note-life 60
set allow-fwd 0
set notify-users 1
set notify-onjoin 1
#==================== GENERAL DedectivE CONSOLE MODULES ==================#
loadmodule console
set console-autosave 1
set force-channel 0
set info-party 0
#==================== GENERAL DedectivE WOOBIE MODULES ===================#
#loadmodule woobie
#===================== GENERAL DedectivE SEEN MODULES ====================#
#loadmodule seen
#==================== GENERAL DedectivE BLOWFISH MODULES =================#
checkmodule blowfish
#===================== GENERAL DedectivE ASSOC MODULES ===================#
#loadmodule assoc
#===================== GENERAL DedectivE WRITE MODULES ===================#
#loadmodule wire
#======================== GENERAL DedectivE SCRIPTS ======================#
source scripts/Bilmemne.tcl
#===================== GENERAL DedectivE HELP MODULES ====================#
loadhelp scripts/userinfo.help

Not: Kırmızı Olan Yerleri İsteğe Göre Değişebilir Ve çoğaltabilirsin.

Yanıt: konuşan bot

arkadaşım öceklikle teşekkür ederim ama bunun conf dosyası zaten var ScanX bot var mesela o hanig kanalda 2 kişi olunca kendi otomatik giriyo benim amacımda bu şekilde bi tcl yi ona eklemek ama işte hangi kanal olursa olsun birisi selam verdiği zaman onu alması için böyle bi tcl yi kanal kısmını nasıl yaparsam hangi kanalda s.a denilirse densin botun a.s demesini

Cevap: konuşan bot

Mrb arkadaşım
once tcl dosyanda 14 15 satırlarda kanal ayarını yap şuan senin verdiğin tclede boyle gozukuyo
set repchan {
"#kanal"

Kod:

"#kanal"

yazan yeri konuşmasını istedigin kanal ismini ver.

Kod:

"#kanal1,#kanal2,#kanal3"

şeklinde kanalları cogaltabilirsin.şimdi tclyi düzelttik.kaydet eggdrop/scripts klasorune at tclyi.
Confun editlenmesi
confunu editorle aç.confun en alt satırlarında bakarsan gorursun

Kod:

source scripts/action.fix.tcl

source scripts/userinfo.tcl

source scripts/oyun.tcl

buraya kendi tclni konuşma tclni ekle kaydet

Kod:

source scripts/konusma.tcl

botu cıkarıp sok calışıcaktır kolay gelsin

Yanıt: konuşan bot

heh işte benimde demek istediğim #kanal1,#kanal2,#kanal3 değilde $kanal gibi bişey yazmış olsak tcl ye her kanalda karşılık verirmi yazdığımıza eggdrop da her kanalda konuşması için bişey mümkünmü çünkü her baktığımda #kanal1,#kanal2 gibi verilmiş o tcl yi her kanalda konuşturmak benim dediğimolay benim conf u ayarlamayla veya tcl yi eklemeyle ilgili bi problemim yok da işte bi tek kanalı genel olarak bot hangi kanala girmişse orda konuşturmak yapmak istediğim şey script olsa hallederdim ama eggdrop olunca hiç bi yerdede görmedim bende çareyi yazmakda buldum

Cevap: konuşan bot

ewet girecegi kanalları confda belirt konusacagı kanallarıda dediğim gibi kanal1 kanal2kanal3şeklinde ayarla kolay gelsin

Cevap: konuşan bot

PHP- Kodu:

   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}}
}

satirini

PHP- Kodu:

   proc replychan {nick uhost hand chan rest} {
global botnick
append reps "$chan $rest"
replyuser $nick $uhost $hand $reps 
return 0
}

olarak degistirin

girdigi tum kanallarada kosulsuz olarak haznesindeki mesajlara cevap verecektir

Yanıt: konuşan bot

Alıntı:

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"
"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"
"selamun aleykum:aleykum selam %nick hoş geldin"

Selamlar
Yukarida repwordsler sozkonusu ve bot bunlara gore yanit veriyor. Soyle 1 sey yapabilirmiyiz mesela selam dendiginde hep ayni yanit degilde 1 kac degisken olusturalim "selam" "selam hosgeldin" "selam naber" desin.
1 de mesela nick degiskeni olsun mesela herkes selam dediginde normal cevaplarini versin, fakat xxxx nickli kisi selam verdigin baska 1 yanit versin
bu gibi degiskenler olabilirmi ?