Code:

               foreach line $lines {                  # puthelp will give you about 4 seconds delay between lines                  puthelp "PRIVMSG $chan :$line"               }

Code:

               foreach line $lines {                  # puthelp will give you about 4 seconds delay between lines                  utimer 30 [ putserv "PRIVMSG $chan :$line" ]               }

Code:

set time 0            if {[catch {get_file "$0 $1"} lines]} {               puthelp "PRIVMSG $chan :$nick: Error: $lines"            } {               foreach line $lines {                  # puthelp will give you about 4 seconds delay between lines                  utimer [incr time 30] [list putserv "PRIVMSG $chan :$line"]               }            }

Code:

puthelp "PRIVMSG $nick :$line"

Code:

puthelp "PRIVMSG $chan :$line"

Code:

namespace eval ::txthing {bind pub - !display ::txthing::pubcmdvariable basedir "~/"variable fileext ".txt"proc pubcmd {nick uhost hand chan arg} {# scan takes care of two things; stripping whitespace and counting the wordsswitch -- [scan $arg %s%s%s 0 1 2] {-1 - 0 {# 0 args - list dirsif {![llength [set dirs [list_dirs]]]} {puthelp "PRIVMSG $chan :$nick: Configuration error: basedir does not exist or is empty."} {puthelp "PRIVMSG $chan :$nick: [join $dirs ", "]"}}1 {# 1 arg - list files in a dirif {[catch {list_files $0} files]} {puthelp "PRIVMSG $chan :$nick: Error: $files"} {puthelp "PRIVMSG $chan :$nick: [join $files ", "]"}}2 {# 2 args - fetch file contentsif {[catch {get_file "$0 $1"} lines]} {puthelp "PRIVMSG $chan :$nick: Error: $lines"} {foreach line $lines {# puthelp will give you about 4 seconds delay between linesputhelp "PRIVMSG $nick :$line"}}}default {# 3 or more argsputhelp "PRIVMSG $chan :$nick: usage: $::lastbind ?category? ?subcategory?"}}}proc list_dirs {} {variable basedirset list {}foreach dir [glob -nocomplain -type d -dir $basedir *] {lappend list [file tail $dir]}set list}proc list_files dir {variable basedirvariable fileext# no . or / allowed in names (quick hack to prevent directory traversal)if {![regexp {^[^\./]+$} $dir]} {error "invalid category"}set dir [file join $basedir $dir]if {![file isdir $dir]} {error "invalid category"}set list {}foreach file [glob -nocomplain -type f -dir $dir *$fileext] {lappend list [file root [file tail $file]]}set list}proc get_file arg {variable basedirvariable fileext# no . or / allowed in names (quick hack to prevent directory traversal)if {![regexp {^([^\./ ]+)\s+([^\./ ]+)$} $arg arg dir file]} {error "invalid category or subcategory"}set dir [file join $basedir $dir]if {![file isdir $dir]} {error "invalid category"}set file [file join $dir $file$fileext]if {![file isfile $file]} {error "invalid subcategory"}split [read -nonewline [set file [open $file]]][close $file] \n}}