egghelp/eggheads community

learn.tcl modification request

2015-12-26T15:51:26-04:00

Working perfect

Statistics: Posted by FmX — Sat Dec 26, 2015 3:51 pm

tklearn.tcl by tomekk (v.0.8 mod. by SpiKe^^)

2015-12-26T15:42:01-04:00

The problem is that the read command is now triggering on any command matching this mask: !*

The easiest fix by far is just a setting in the script, that would allow the script operator to list the !commands being used by this script and other scripts in the channel.
Then have this scripts read process ignore those triggers and not reply.

Let's try this and see if it's better...

Code:

########################### tklearn.tcl by tomekk  ## v.0.8 mod. by SpiKe^^  ## www.mytclscripts.com   ## undernet #pc-mirc-help ## date:  26Dec2015       ############################ description: store some various information, new information can be added by public command !add and after# you can view this info by typing !   OR  ! # use: run script, and use !help on the channel, only op can add, replace, delete, rename, append# if you want to allow normal users to add/del/rep etc. you have to change bind from o|o to -|- # Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.6## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html # added: some notices# added: !stored command, shows stored commands# fixed: removed !help command, now each command has its own help, just type ! without arguments# added: now its possible to set on which channels should this script work # if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)# .chanset #channel_name +learn# and later .save # available commands: !add, !del, !rep, !app, !ren, !   OR  !, !stored # dir with stored filesset dirname "learn.db"# set a list of !commands that the read command should ignore and not reply to.# add any other trigger words for other scripts running in the same channel(s).set ignored "add del rep app ren stored" ################################################################################################bind pub o|o !add add_fctbind pub o|o !del del_fctbind pub o|o !rep rep_fctbind pub o|o !app app_fctbind pub o|o !ren ren_fct#bind pub - ! show_fctbind pubm - "% !*" show_fctbind pub - !stored stored_cmds setudef flag learnset ignored [split [string tolower $ignored]] # force this eggdrop conf setting to be disabled #set exclusive-binds 0if {[file exists $dirname] == 0} {    file mkdir $dirname} proc create_db { dbname definfo } {    if {[file exists $dbname] == 0} {        set crtdb [open $dbname a+]        puts $crtdb "$definfo"        close $crtdb    }} proc readdb { rdb } {    global dbout    set fs_open [open $rdb r]    gets $fs_open dbout    close $fs_open} proc add_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return                      }           set txt [split $arg]     set cmd [string tolower [lindex $txt 0]]     set msg [join [lrange $txt 1 end]]     if {$msg != ""} {        if {[file exists $dirname/$cmd] == 0} {            create_db "$dirname/$cmd" "$msg"            putquick "NOTICE $nick :'$cmd' has been added"        } {            putquick "NOTICE $nick :'$cmd' is already defined"        }    } {        putquick "NOTICE $nick :use: !add  "    }} proc show_fct { nick uhost hand chan arg } {    global dbout dirname ignored    if {![channel get $chan learn]} {        return 0    }    set arg [string trim [string trimleft $arg !]]    set txt [split [string tolower $arg]]    set cmd [lindex $txt 0]    if {[lsearch $ignored $cmd] > "-1"} {  return 0  }    if {$cmd != ""} {        foreach files $txt {            if {$files != ""} {                if {[file exists $dirname/$files] == 1} {                    readdb $dirname/$files                    putquick "PRIVMSG $chan :$files: $dbout"                } {                    putquick "NOTICE $chan :'$files' doesn't exist"                }            }        }    } {        putquick "NOTICE $nick :use: !  ... "        putquick "NOTICE $nick :OR: ! ... "    }    return 0} proc del_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return    }     set all_files [glob -tails -directory $dirname -nocomplain -type f *]       set txt [string tolower [split $arg]]         set cmd [lindex $txt 0]     if {$cmd != ""} {        if {$cmd == "all_cmds"} {            foreach xfiles $all_files {                file delete $dirname/$xfiles                putquick "NOTICE $nick :all commands have been deleted"            }        }         if {$cmd != "all_cmds"} {            foreach files $txt {                if {$files != ""} {                    if {[file exists $dirname/$files] == 1} {                        file delete $dirname/$files                        putquick "NOTICE $nick :'$cmd' command has been deleted"                    } {                        putquick "NOTICE $nick :'$cmd' doesn't exists"                    }                }            }        }    } {        putquick "NOTICE $nick :use: !del all_cmds or !del  ... "    }} proc rep_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return    }     set txt [split $arg]         set cmd [string tolower [lindex $txt 0]]         set msg [join [lrange $txt 1 end]]     if {$msg != ""} {        if {[file exists $dirname/$cmd] == 1} {            file delete $dirname/$cmd            create_db "$dirname/$cmd" "$msg"            putquick "NOTICE $nick :'$cmd' has been replaced"        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !rep  "    }} proc app_fct { nick uhost hand chan arg } {    global dirname dbout     if {![channel get $chan learn]} {        return    }       set txt [split $arg]       set start [lindex $txt 0]     set cmd [string tolower [lindex $txt 1]]     set app_info [join [lrange $txt 2 end]]     if {$app_info != "" } {        if {[file exists $dirname/$cmd] == 1} {                if {$start == "fb"} {                readdb $dirname/$cmd                file delete $dirname/$cmd                create_db "$dirname/$cmd" "$app_info $dbout"                putquick "NOTICE $nick :done"            }             if {$start == "fe"} {                    readdb $dirname/$cmd                file delete $dirname/$cmd                create_db "$dirname/$cmd" "$dbout $app_info"                putquick "NOTICE $nick :done"            }        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !app    | fb - from the beginning; fe - from the end;"    }} proc ren_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return        }     set txt [string tolower [split $arg]]         set old [lindex $txt 0]         set new [lindex $txt 1]       if {$new != ""} {        if {[file exists $dirname/$old] == 1} {            file rename $dirname/$old $dirname/$new            putquick "NOTICE $nick :'$old' has been renamed to '$new'"        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !ren

Statistics: Posted by SpiKe^^ — Sat Dec 26, 2015 3:42 pm



learn.tcl modification request
2015-12-26T14:25:05-04:00

Its working but when you add or remove words got this:Code: 
<<20:23:30>>  !add test this is test<<20:23:30>> -X6:#globalnews- 'add' doesn't exist<<20:23:30>> -X6:#globalnews- 'test' doesn't exist<<20:23:30>> -X6:#globalnews- 'this' doesn't exist<<20:23:30>> -X6:#globalnews- 'is' doesn't exist<<20:23:30>> -X6:#globalnews- 'test' doesn't exist<<20:23:33>> -X6- 'test' has been added<<20:23:47>>  !test<<20:23:47>>  test: this is test
Code: 
<<20:33:26>>  !ren test test2<<20:33:26>> -X6:#globalnews- 'ren' doesn't exist<<20:33:26>>  test: this is test<<20:33:26>> -X6:#globalnews- 'test2' doesn't exist<<20:33:26>> -X6- 'test' has been renamed to 'test2'
Statistics: Posted by FmX — Sat Dec 26, 2015 2:25 pm




tklearn.tcl by tomekk (v.0.7 mod. by SpiKe^^)
2015-12-25T21:55:21-04:00

Try this and see what we got.
Make sure to .restart the bot with the new script (NOT .rehash).Code: 
########################### tklearn.tcl by tomekk  ## v.0.7 mod. by SpiKe^^  ## www.mytclscripts.com   ## undernet #pc-mirc-help ## date:  25Dec2015       ############################ description: store some various information, new information can be added by public command !add and after# you can view this info by typing !   OR  ! # use: run script, and use !help on the channel, only op can add, replace, delete, rename, append# if you want to allow normal users to add/del/rep etc. you have to change bind from o|o to -|- # Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.6## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html # added: some notices# added: !stored command, shows stored commands# fixed: removed !help command, now each command has its own help, just type ! without arguments# added: now its possible to set on which channels should this script work # if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)# .chanset #channel_name +learn# and later .save # available commands: !add, !del, !rep, !app, !ren, !   OR  !, !stored # dir with stored filesset dirname "learn.db" ################################################################################################bind pub o|o !add add_fctbind pub o|o !del del_fctbind pub o|o !rep rep_fctbind pub o|o !app app_fctbind pub o|o !ren ren_fct#bind pub - ! show_fctbind pubm - "% !*" show_fctbind pub - !stored stored_cmds setudef flag learn # force this eggdrop conf setting to be disabled #set exclusive-binds 0if {[file exists $dirname] == 0} {    file mkdir $dirname} proc create_db { dbname definfo } {    if {[file exists $dbname] == 0} {        set crtdb [open $dbname a+]        puts $crtdb "$definfo"        close $crtdb    }} proc readdb { rdb } {    global dbout    set fs_open [open $rdb r]    gets $fs_open dbout    close $fs_open} proc add_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return                      }           set txt [split $arg]     set cmd [string tolower [lindex $txt 0]]     set msg [join [lrange $txt 1 end]]     if {$msg != ""} {        if {[file exists $dirname/$cmd] == 0} {            create_db "$dirname/$cmd" "$msg"            putquick "NOTICE $nick :'$cmd' has been added"        } {            putquick "NOTICE $nick :'$cmd' is already defined"        }    } {        putquick "NOTICE $nick :use: !add  "    }} proc show_fct { nick uhost hand chan arg } {    global dbout dirname    if {![channel get $chan learn]} {        return 0    }    set arg [string trim [string trimleft $arg !]]    set txt [split [string tolower $arg]]    set cmd [lindex $txt 0]    if {$cmd != ""} {        foreach files $txt {            if {$files != ""} {                if {[file exists $dirname/$files] == 1} {                    readdb $dirname/$files                    putquick "PRIVMSG $chan :$files: $dbout"                } {                    putquick "NOTICE $chan :'$files' doesn't exist"                }            }        }    } {        putquick "NOTICE $nick :use: !  ... "        putquick "NOTICE $nick :OR: ! ... "    }    return 0} proc del_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return    }     set all_files [glob -tails -directory $dirname -nocomplain -type f *]       set txt [string tolower [split $arg]]         set cmd [lindex $txt 0]     if {$cmd != ""} {        if {$cmd == "all_cmds"} {            foreach xfiles $all_files {                file delete $dirname/$xfiles                putquick "NOTICE $nick :all commands have been deleted"            }        }         if {$cmd != "all_cmds"} {            foreach files $txt {                if {$files != ""} {                    if {[file exists $dirname/$files] == 1} {                        file delete $dirname/$files                        putquick "NOTICE $nick :'$cmd' command has been deleted"                    } {                        putquick "NOTICE $nick :'$cmd' doesn't exists"                    }                }            }        }    } {        putquick "NOTICE $nick :use: !del all_cmds or !del  ... "    }} proc rep_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return    }     set txt [split $arg]         set cmd [string tolower [lindex $txt 0]]         set msg [join [lrange $txt 1 end]]     if {$msg != ""} {        if {[file exists $dirname/$cmd] == 1} {            file delete $dirname/$cmd            create_db "$dirname/$cmd" "$msg"            putquick "NOTICE $nick :'$cmd' has been replaced"        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !rep  "    }} proc app_fct { nick uhost hand chan arg } {    global dirname dbout     if {![channel get $chan learn]} {        return    }       set txt [split $arg]       set start [lindex $txt 0]     set cmd [string tolower [lindex $txt 1]]     set app_info [join [lrange $txt 2 end]]     if {$app_info != "" } {        if {[file exists $dirname/$cmd] == 1} {                if {$start == "fb"} {                readdb $dirname/$cmd                file delete $dirname/$cmd                create_db "$dirname/$cmd" "$app_info $dbout"                putquick "NOTICE $nick :done"            }             if {$start == "fe"} {                    readdb $dirname/$cmd                file delete $dirname/$cmd                create_db "$dirname/$cmd" "$dbout $app_info"                putquick "NOTICE $nick :done"            }        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !app    | fb - from the beginning; fe - from the end;"    }} proc ren_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return        }     set txt [string tolower [split $arg]]         set old [lindex $txt 0]         set new [lindex $txt 1]       if {$new != ""} {        if {[file exists $dirname/$old] == 1} {            file rename $dirname/$old $dirname/$new            putquick "NOTICE $nick :'$old' has been renamed to '$new'"        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !ren  
Statistics: Posted by SpiKe^^ — Fri Dec 25, 2015 9:55 pm




learn.tcl modification request
2015-12-25T14:40:55-04:00

Hello, how to make this script to show learned words like that !WORD instead of ! WORD without space ? 
Here is the code: 
Code: 
# description: store some various information, new information can be added by public command !add and after# you can view this info by typing ?  # use: run script, and use !help on the channel, only op can add, replace, delete, rename, append# if you want to allow normal users to add/del/rep etc. you have to change bind from o|o to -|- # Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.6## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html # added: some notices# added: !stored command, shows stored commands# fixed: removed !help command, now each command has its own help, just type ! without arguments# added: now its possible to set on which channels should this script work # if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)# .chanset #channel_name +learn# and later .save # available commands: !add, !del, !rep, !app, !ren, ? , !stored # dir with stored filesset dirname "learn.db" ################################################################################################bind pub o|o !add add_fctbind pub o|o !del del_fctbind pub o|o !rep rep_fctbind pub o|o !app app_fctbind pub o|o !ren ren_fctbind pub - ! show_fctbind pub - !stored stored_cmds setudef flag learn if {[file exists $dirname] == 0} {    file mkdir $dirname} proc create_db { dbname definfo } {    if {[file exists $dbname] == 0} {        set crtdb [open $dbname a+]        puts $crtdb "$definfo"        close $crtdb    }} proc readdb { rdb } {    global dbout    set fs_open [open $rdb r]    gets $fs_open dbout    close $fs_open} proc add_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return                      }           set txt [split $arg]     set cmd [string tolower [lindex $txt 0]]     set msg [join [lrange $txt 1 end]]     if {$msg != ""} {        if {[file exists $dirname/$cmd] == 0} {            create_db "$dirname/$cmd" "$msg"            putquick "NOTICE $nick :'$cmd' has been added"        } {            putquick "NOTICE $nick :'$cmd' is already defined"        }    } {        putquick "NOTICE $nick :use: !add  "    }} proc show_fct { nick uhost hand chan arg } {    global dbout dirname     if {![channel get $chan learn]} {        return    }     set txt [string tolower [split $arg]]     set cmd [lindex $txt 0]     if {$cmd != ""} {        foreach files $txt {            if {$files != ""} {                if {[file exists $dirname/$files] == 1} {                    readdb $dirname/$files                    putquick "PRIVMSG $chan :$files: $dbout"                } {                    putquick "NOTICE $chan :'$files' doesn't exists"                }            }        }    } {        putquick "NOTICE $nick :use: ?  ... "    }} proc del_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return    }     set all_files [glob -tails -directory $dirname -nocomplain -type f *]       set txt [string tolower [split $arg]]         set cmd [lindex $txt 0]     if {$cmd != ""} {        if {$cmd == "all_cmds"} {            foreach xfiles $all_files {                file delete $dirname/$xfiles                putquick "NOTICE $nick :all commands have been deleted"            }        }         if {$cmd != "all_cmds"} {            foreach files $txt {                if {$files != ""} {                    if {[file exists $dirname/$files] == 1} {                        file delete $dirname/$files                        putquick "NOTICE $nick :'$cmd' command has been deleted"                    } {                        putquick "NOTICE $nick :'$cmd' doesn't exists"                    }                }            }        }    } {        putquick "NOTICE $nick :use: !del all_cmds or !del  ... "    }} proc rep_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return    }     set txt [split $arg]         set cmd [string tolower [lindex $txt 0]]         set msg [join [lrange $txt 1 end]]     if {$msg != ""} {        if {[file exists $dirname/$cmd] == 1} {            file delete $dirname/$cmd            create_db "$dirname/$cmd" "$msg"            putquick "NOTICE $nick :'$cmd' has been replaced"        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !rep  "    }} proc app_fct { nick uhost hand chan arg } {    global dirname dbout     if {![channel get $chan learn]} {        return    }       set txt [split $arg]       set start [lindex $txt 0]     set cmd [string tolower [lindex $txt 1]]     set app_info [join [lrange $txt 2 end]]     if {$app_info != "" } {        if {[file exists $dirname/$cmd] == 1} {                if {$start == "fb"} {                readdb $dirname/$cmd                file delete $dirname/$cmd                create_db "$dirname/$cmd" "$app_info $dbout"                putquick "NOTICE $nick :done"            }             if {$start == "fe"} {                    readdb $dirname/$cmd                file delete $dirname/$cmd                create_db "$dirname/$cmd" "$dbout $app_info"                putquick "NOTICE $nick :done"            }        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !app    | fb - from the beginning; fe - from the end;"    }} proc ren_fct { nick uhost hand chan arg } {    global dirname     if {![channel get $chan learn]} {        return        }     set txt [string tolower [split $arg]]         set old [lindex $txt 0]         set new [lindex $txt 1]       if {$new != ""} {        if {[file exists $dirname/$old] == 1} {            file rename $dirname/$old $dirname/$new            putquick "NOTICE $nick :'$old' has been renamed to '$new'"        } {            putquick "NOTICE $nick :'$cmd' doesn't exists"        }    } {        putquick "NOTICE $nick :use: !ren  
Statistics: Posted by FmX — Fri Dec 25, 2015 2:40 pm