egghelp.org community :: View topic - learn.tcl modification request

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

learn.tcl modification request

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

FmX
Voice

Joined: 06 Dec 2006
Posts: 7

Posted: Fri Dec 25, 2015 2:40 pm Post subject: learn.tcl modification request

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 ? <command_name>

# 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 !<command_name> 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, ? <cmd_name>, !stored

# dir with stored files
set dirname "learn.db"

################################################################################################
bind pub o|o !add add_fct
bind pub o|o !del del_fct
bind pub o|o !rep rep_fct
bind pub o|o !app app_fct
bind pub o|o !ren ren_fct
bind pub - ! show_fct
bind 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 <cmd_name> <info>"
}
}

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: ? <cmd_name> ... <cmd_name>"
}
}

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 <cmd_name> ... <cmd_name>"
}
}

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 <cmd_name> <new_info>"
}
}

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|fe> <cmd_name> <additional_info> | 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 <old_cmd_name> <new_cmd_name"
}
}

proc stored_cmds { nick uhost hand chan arg } {
global dirname

if {![channel get $chan learn]} {
return
}

set files [glob -tails -directory $dirname -nocomplain -type f *]

if {$files != ""} {
set names [join $files ", "]
} {
set names "none"
}

putquick "NOTICE $nick :stored commands: $names"
}

putlog "tklearn.tcl ver 0.6 by tomekk loaded"

SpiKe^^
Owner

Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA

Posted: Fri Dec 25, 2015 9:55 pm Post subject: tklearn.tcl by tomekk (v.0.7 mod. by SpiKe^^)

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 ! <command_name> OR !<command_name>

# 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 !<command_name> 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, ! <cmd_name> OR !<command_name>, !stored

# dir with stored files
set dirname "learn.db"

################################################################################################
bind pub o|o !add add_fct
bind pub o|o !del del_fct
bind pub o|o !rep rep_fct
bind pub o|o !app app_fct
bind pub o|o !ren ren_fct

#bind pub - ! show_fct
bind pubm - "% !*" show_fct

bind pub - !stored stored_cmds

setudef flag learn

# force this eggdrop conf setting to be disabled #
set exclusive-binds 0

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 <cmd_name> <info>"
}
}

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: ! <cmd_name> ... <cmd_name>"
putquick "NOTICE $nick :OR: !<cmd_name> ... <cmd_name>"
}
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 <cmd_name> ... <cmd_name>"
}
}

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 <cmd_name> <new_info>"
}
}

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|fe> <cmd_name> <additional_info> | 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 <old_cmd_name> <new_cmd_name"
}
}

proc stored_cmds { nick uhost hand chan arg } {
global dirname

if {![channel get $chan learn]} {
return
}

set files [glob -tails -directory $dirname -nocomplain -type f *]

if {$files != ""} {
set names [join $files ", "]
} {
set names "none"
}

putquick "NOTICE $nick :stored commands: $names"
}

putlog "tklearn.tcl by tomekk (v.0.7 mod. by SpiKe^^) loaded"

_________________
SpiKe^^

Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.

FmX
Voice

Joined: 06 Dec 2006
Posts: 7

Posted: Sat Dec 26, 2015 2:25 pm Post subject:

Its working but when you add or remove words got this:

Code:

<<20:23:30>> <FmX> !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>> <FmX> !test
<<20:23:47>> <X6> test: this is test

Code:

<<20:33:26>> <FmX> !ren test test2
<<20:33:26>> -X6:#globalnews- 'ren' doesn't exist
<<20:33:26>> <X6> test: this is test
<<20:33:26>> -X6:#globalnews- 'test2' doesn't exist
<<20:33:26>> -X6- 'test' has been renamed to 'test2'

SpiKe^^
Owner

Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA

Posted: Sat Dec 26, 2015 3:42 pm Post subject: tklearn.tcl by tomekk (v.0.8 mod. by SpiKe^^)

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 ! <command_name> OR !<command_name>

# 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 !<command_name> 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, ! <cmd_name> OR !<command_name>, !stored

# dir with stored files
set 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_fct
bind pub o|o !del del_fct
bind pub o|o !rep rep_fct
bind pub o|o !app app_fct
bind pub o|o !ren ren_fct

#bind pub - ! show_fct
bind pubm - "% !*" show_fct

bind pub - !stored stored_cmds

setudef flag learn

set ignored [split [string tolower $ignored]]

# force this eggdrop conf setting to be disabled #
set exclusive-binds 0

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 <cmd_name> <info>"
}
}

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: ! <cmd_name> ... <cmd_name>"
putquick "NOTICE $nick :OR: !<cmd_name> ... <cmd_name>"
}
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 <cmd_name> ... <cmd_name>"
}
}

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 <cmd_name> <new_info>"
}
}

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|fe> <cmd_name> <additional_info> | 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 <old_cmd_name> <new_cmd_name"
}
}

proc stored_cmds { nick uhost hand chan arg } {
global dirname

if {![channel get $chan learn]} {
return
}

set files [glob -tails -directory $dirname -nocomplain -type f *]

if {$files != ""} {
set names [join $files ", "]
} {
set names "none"
}

putquick "NOTICE $nick :stored commands: $names"
}

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

_________________
SpiKe^^

Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.

FmX
Voice

Joined: 06 Dec 2006
Posts: 7

Posted: Sat Dec 26, 2015 3:51 pm Post subject:

Working perfect

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum