This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

learn.tcl modification request

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
User avatar
FmX
Voice
Posts: 30
Joined: Wed Dec 06, 2006 12:42 pm

learn.tcl modification request

Post by FmX »

Hello, how to make this script to show learned words like that !WORD instead of ! WORD without space ?
Here is the code:

Code: Select all

# 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"
User avatar
SpiKe^^
Owner
Posts: 831
Joined: Fri May 12, 2006 10:20 pm
Location: Tennessee, USA
Contact:

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

Post by SpiKe^^ »

Try this and see what we got.
Make sure to .restart the bot with the new script (NOT .rehash).

Code: Select all

##########################
# 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
.
User avatar
FmX
Voice
Posts: 30
Joined: Wed Dec 06, 2006 12:42 pm

Post by FmX »

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

Code: Select all

<<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: Select all

<<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'
User avatar
SpiKe^^
Owner
Posts: 831
Joined: Fri May 12, 2006 10:20 pm
Location: Tennessee, USA
Contact:

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

Post 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: Select all

##########################
# 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
.
User avatar
FmX
Voice
Posts: 30
Joined: Wed Dec 06, 2006 12:42 pm

Post by FmX »

Working perfect 8)
Post Reply