i find this forum some code and modify that:
Code: Select all
set learn_db "data/learn.dat"
### - ### No need to edit below this line... ### - ###
# or at least i hope so ;)
bind pub m .cmd learn_learn
bind pub - ".bot" learn_explain
bind pub - "\*\*" learn_search
set learn_whodid ""
proc learn_learn { nick uhost hand chan args } {
set args [lindex $args 0]
set args [split $args " "]
switch [lindex $args 0] {
"add" {
if {[lindex $args 2] == ""} {
puthelp "PRIVMSG $chan :Try learn add word defenition!"
} else {
learn_addEntry $nick [lindex $args 1] [lrange $args 2 end]
puthelp "PRIVMSG $chan :Defenition added"
learn_flood "[lindex $args 1]" $chan
}
}
"del" {
if {[lindex $args 2]!=""} {
learn_delEntry [lindex $args 1] [lindex $args 2]
puthelp "PRIVMSG $chan :Defenition removed"
learn_flood "[lindex $args 1]" $chan
} else {
learn_delEntry [lindex $args 1]
puthelp "PRIVMSG $chan :Defenition removed"
}
}
default { puthelp "NOTICE $nick :Syntax: \002!cmd <add|del>" }
}
}
proc learn_explain { nick uhost hand chan args } {
global learn_db learn_whodid;if {![info exists learn_whodid]} {set learn_whodid ""}
set real_chan $chan
set args [split [lindex $args 0] " "]
if {$args == ""} { puthelp "PRIVMSG $chan :\002??\[\002x\002]: Usage: bot <cmd> \[> nick]" ; return }
set explain [string tolower [lindex $args 0]]; set chan [string tolower $chan]
if {([lindex $args 1] == ">" || [lindex $args 1] == ">>") && [lindex $args 2] != ""} { set chan [lindex $args 2]
# if {[lsearch -exact $learn_whodid [list $explain [string tolower $chan]]] != -1} {
# puthelp "PRIVMSG $real_chan :\002Hey ${nick}, i've already told $chan about \"$explain\"... no need to repeat (i think)"
# return 0
# }
}
set fp [open $learn_db r];set allEntrys ""
while {![eof $fp]} {gets $fp curEntry;set curEntry [split $curEntry " "];if {[string equal -nocase [lindex $curEntry 1] $explain]} {lappend allEntrys [join $curEntry " "]}}
close $fp
set count 0
if {[llength $allEntrys]==1} {
if {[lsearch -exact $learn_whodid [list $explain [string tolower $chan]]] != -1} {
puthelp "PRIVMSG $real_chan :\002Hey ${nick}, i've already told $chan about \"$explain\"... no need to repeat (i think)"
return 0
} else { puthelp "PRIVMSG $chan :[join [lrange [split [lindex $allEntrys 0] " "] 2 end]]";incr count }
} else {
if {[llength $allEntrys]>6&&[string index $chan 0]=="#"&&!(([lindex $args 1] == ">" || [lindex $args 1] == ">>") && [lindex $args 2] != "")} {set chan $nick;
puthelp "PRIVMSG $real_chan :\002\037${explain}?\002\037 What a huge defenition... i'll tell you in private instead..."
}
if {[lsearch -exact $learn_whodid [list $explain [string tolower $chan]]] != -1} {
puthelp "PRIVMSG $real_chan :\002Hey ${nick}, i've already told you about \"$explain\"... no need to repeat (i think)"
return 0
}
foreach curEntry $allEntrys {
incr count
puthelp "PRIVMSG $chan : [join [lrange [split $curEntry " "] 2 end]]"
} }
if {$count == 0} { puthelp "PRIVMSG $chan :\002${explain}\[\002x\002\]: \002No defenition found for word." }
if {([lindex $args 1] == ">" || [lindex $args 1] == ">>") && [lindex $args 2] != ""} {
puthelp "NOTICE $nick :Ok, done."
}
lappend learn_whodid [list $explain [string tolower $chan]]
set explain [learn_filterstr $explain] ;# Don't allow code to be executed
set chan [learn_filterstr $chan] ;# ensure []s are properly handled...
utimer 60 "learn_flood \"$explain\" \"$chan\""
}
proc learn_flood {word target} {
# removes from "already told so" list
global learn_whodid
set word [string tolower $word]; set target [string tolower $target]
set lin [lsearch -exact $learn_whodid [list $word $target]]
if {$lin == -1} {
return
} else {
set learn_whodid [lreplace $learn_whodid $lin $lin]
}
}
proc learn_addEntry { nick word defenition } {
global learn_db;set word [string tolower $word]
if {![file exists $learn_db]} {file mkdir [lindex [split $learn_db /] 0];set fp [open $learn_db w+]
puts $fp "Repdietu .bot Just do a \002.bot \037word\037\002 or \002?? \037word\037 > \037nick\037\002"
puts $fp "Repdientu !learn hal-learn script | mantained by the #Eggdrop team at irc.PTnet.org"
} else {set fp [open $learn_db a]};puts $fp "$nick $word [join $defenition]";close $fp
}
proc learn_delEntry { word {remnum "all"}} {
global learn_db
set word [string tolower $word]
set fp [open $learn_db r]
set allEntrys ""
set count 1
if {$remnum == "all"} {
while {![eof $fp]} {gets $fp curEntry;if {![string equal -nocase [lindex [split $curEntry] 1] $word]} {lappend allEntrys $curEntry}}
} else {
while {![eof $fp]} {
gets $fp curEntry
if {![string equal -nocase [lindex [split $curEntry] 1] $word] || ($count != $remnum && $remnum != -2)} {
if {[info exists curEntry]&&$curEntry!=""} {lappend allEntrys $curEntry}
if {[string equal -nocase [lindex [split $curEntry] 1] $word]} {incr count}
} else {incr count}
}
}
close $fp;set fp [open $learn_db w];foreach curEntry $allEntrys {puts $fp $curEntry};close $fp
}
proc learn_sortFile {a c d e f} {
global learn_db
set t_count [clock clicks -milliseconds]
set fp [open $learn_db r]
set allEntrys ""
while {![eof $fp]} {
set curEntry [gets $fp]
if {[info exists curEntry]&&$curEntry!=""} {lappend allEntrys [split $curEntry " "]}
}
close $fp; set allEntrys [lsort -index 1 $allEntrys]
set fp [open $learn_db w];foreach curEntry $allEntrys {puts $fp [join $curEntry " "]};close $fp
putlog "!learn \[by Hal9000@PTnet\]-> Done with sorting of data on the database ($learn_db)->[expr double([clock clicks -milliseconds]-$t_count)/1000]s"
}
bind time - "12 * * * *" learn_sortFile
proc learn_filterstr { data } {
regsub -all -- \\\\ $data \\\\\\\\ data
regsub -all -- \\\[ $data \\\\\[ data
regsub -all -- \\\] $data \\\\\] data
regsub -all -- \\\} $data \\\\\} data
regsub -all -- \\\{ $data \\\\\{ data
regsub -all -- \\\" $data \\\\\" data
return $data
}
proc learn_search { nick uhost hand chan args } {
global learn_db
set args [string tolower [lindex $args 0]]
if {$args==""} {puthelp "PRIVMSG $chan :Not enough arguments.";return}
set init_t [clock clicks -milliseconds]
set fp [open $learn_db r];set matches "";set allEntrys ""
while {![eof $fp]} {
gets $fp curEntry;if {[info exists curEntry]&&$curEntry!=""} {
set curEntry [split [string tolower $curEntry] " "]; set thisEntry [join [lrange $curEntry 1 end] " "]
if {[string match -nocase "*${args}*" $thisEntry]} {
# putserv "PRIVMSG #meta :worked $curEntry"
if {[lsearch $allEntrys [lindex curEntry 1]]==-1} {lappend allEntrys [lindex $curEntry 1];set allEntrys [lsort -unique $allEntrys]}
} } } ;set init_t [expr double(([clock clicks -milliseconds] - $init_t))/1000]
if {$allEntrys==""} {puthelp "PRIVMSG $chan :Sorry, no matches for $args on the defenition database. (\002\037${init_t}\037s)"
} else {
if {[llength $allEntrys]>10} {puthelp "PRIVMSG $chan :\002Too much matches.\002 Please try a more complex search."
} else {puthelp "PRIVMSG $chan :\002Found \037[llength $allEntrys]\037 matches.\002 Sorted: \037[join [lsort -dictionary $allEntrys] "\037, \037"]\037. (\002\037${init_t}\037s)"
}
}
}.cmd add Hello Hi $nick .Good luck to day
and when i type
.bot Hello Richard
Bot said that:
Hi $nick .Good luck to day
I want to bot said:
Hi Richard .Good luck to day
how to do this?. thank for advance