Code:

# Set number of minutes between each timed public read line # # Set this to "0" to disable all timed public read lines # Note: file errors will be sent to the first channel in eTxFile(tchan) set eTxFile(timed) "0"

Code:

# EditTextFile Version 0.3 ## author:  SpiKe^^ ## e-mail:  spike<at>mytclscripts<dot>com ## webpage: http://mytclscripts.com/ ## This file is Copyrighted under the GNU Public License. ## http://www.gnu.org/copyleft/gpl.html ############  Begin Settings ############ set the full route & file name of the file to edit #set eTxFile(file) {/usr/home/spike/eggdrop/scripts/filename.txt}# set the channel for this script to run in #set eTxFile(chan) {#yourchannel}# set the public trigger for the add line command #set eTxFile(add) {!addline}# set the public trigger for the read line command #set eTxFile(read) {!readline}# set the public trigger for the edit line command #set eTxFile(edit) {!editline}# set the access flags to use the above public commands #set eTxFile(flags) {o|o}############  End Settings ############bind pub $eTxFile(flags) $eTxFile(add) etfProcAddbind pub $eTxFile(flags) $eTxFile(read) etfProcReadbind pub $eTxFile(flags) $eTxFile(edit) etfProcEditproc etfProcAdd {nk uh hn ch tx} {  if {[string tolower $ch] ne [string tolower $::eTxFile(chan)]} { return }  set tf $::eTxFile(file)  if {![file exists $tf]} {    puthelp "PRIVMSG $ch :Text file does not exist: $tf"    return  }  set tx [string trim $tx]  if {$tx eq ""} {    puthelp "PRIVMSG $ch :Correct syntax is: $::eTxFile(add) text to add to the end of the file."    return  }  puthelp "PRIVMSG $ch :Adding: $tx :to file: [file tail $tf]"  set id [open $tf a]  puts $id $tx  close $id  return}proc etfProcRead {nk uh hn ch tx} {  if {[string tolower $ch] ne [string tolower $::eTxFile(chan)]} { return }  set tf $::eTxFile(file)  if {![file exists $tf]} {    puthelp "PRIVMSG $ch :Text file does not exist: $tf"    return  }  set tx [string trim $tx]  if {![string is digit -strict $tx]} {    puthelp "PRIVMSG $ch :Correct syntax is: $::eTxFile(read) line#"    return  }  set tid [open $tf]  set lnum 0  while {![eof $tid]} {    set line [gets $tid]    if {$line ne ""} {  incr lnum      if {$lnum==$tx} {        puthelp "PRIVMSG $ch :Existing line $lnum text: $line"        break      }    }  }  close $tid  if {$tx>$lnum} {    puthelp "PRIVMSG $ch :File line $tx doesn't exist ($lnum lines in the file)"  }  return}proc etfProcEdit {nk uh hn ch tx} {  if {[string tolower $ch] ne [string tolower $::eTxFile(chan)]} { return }  set tf $::eTxFile(file)  if {![file exists $tf]} {    puthelp "PRIVMSG $ch :Text file does not exist: $tf"    return  }  set tx [split [string trim $tx]]  if {[llength $tx]<"2" || ![string is digit -strict [lindex $tx 0]]} {    puthelp "PRIVMSG $ch :Correct syntax is: $::eTxFile(edit) line# text to replace original line."    return  }  set find [lindex $tx 0]  set tx [string trim [join [lrange $tx 1 end]]]  set new [file dirname $tf]/newfile.tmp  set nid [open $new w]  set tid [open $tf]  set lnum 0  while {![eof $tid]} {    set line [gets $tid]    if {$line ne ""} {  incr lnum      if {$lnum==$find} {        puthelp "PRIVMSG $ch :Replacing existing line $lnum text: $line"        puthelp "PRIVMSG $ch :with the new text line: $tx"        puts $nid $tx      } else {  puts $nid $line  }    }  }  close $nid  ;  close $tid  if {$find>$lnum} {    puthelp "PRIVMSG $ch :File line $find doesn't exist ($lnum lines in the file)"    file delete $new  } else {  file rename -force $new $tf  }  return}

Code:

# EditTextFile Version 0.1 ## author:  SpiKe^^ ## e-mail:  spike<at>mytclscripts<dot>com ## webpage: http://mytclscripts.com/ ## This file is Copyrighted under the GNU Public License. ## http://www.gnu.org/copyleft/gpl.html ############  Begin Settings ############ set the full route & file name of the file to edit #set eTxFile(file) {/usr/home/spike/eggdrop/scripts/filename.txt}# set the channel for this scrip to run in #set eTxFile(chan) {#yourchannel}# change the flags and/or public trigger for the add command here #bind pub o|o !addline etfProcAdd############  End Settings ############proc etfProcAdd {nk uh hn ch tx} {  if {[string tolower $ch] ne [string tolower $::eTxFile(chan)]} { return }  set tf $::eTxFile(file)  if {![file exists $tf]} {    puthelp "PRIVMSG $ch :Text file does not exist: $tf"    return  }  puthelp "PRIVMSG $ch :Adding: $tx :to file: [file tail $tf]"  set id [open $tf a]  puts $id $tx  close $id  return}

Code:

source scripts/EditTextFile.tcl

Code:

# *************************************************************************************************************************************** ## ********** INSTALLATION *************************************************************************************************************** ## 1 configure database.tcl in a suitable text editor# 2 create the subdirectory scripts/database if it doesn't already exist# 3 put the configured database.tcl into the bot's scripts/database subdirectory# 4 add a line to the end of the bot's .conf file 'source scripts/database/database.tcl'# 5 restart the bot (not rehash)# 6 requires '.chanset #channelname +database' in the partyline to function in #channelname# *************************************************************************************************************************************** ## ********** CONFIGURATION ************************************************************************************************************** ## ***** configuration is not essential as some thought has been given to the optimal default settings below ***** ## set here the single character command trigger# ensure that it is set such that it does not interfere with similar commands on this or other bots in the same channel(s)# allowed values are as follows# , = comma# . = period# ! = exclamation mark# $ = dollar sign# & = ampersand# - = hyphen# ? = question mark# ~ = tilde# ; = semi-colon# : = colon# ' = apostrophe# % = percent# ^ = caret# * = asteriskset vDatabaseTrigger !# set here the text colours used in the bot's responses# settings are only valid where channel mode permits colour, otherwise all text is default colour# allowed values are as follows# 00  = white# 01  = black# 02  = blue# 03  = green# 04  = light red# 05  = brown# 06  = purple# 07  = orange# 08  = yellow# 09  = light green# 10 = cyan# 11 = light cyan# 12 = light blue# 13 = pink# 14 = grey# 15 = light greyset vDatabaseColor(arrow) 03set vDatabaseColor(compliance) 10set vDatabaseColor(dimmed) 14set vDatabaseColor(emphasis) 12set vDatabaseColor(errors) 04set vDatabaseColor(output) 05set vDatabaseColor(typo) 06# set here the bot user flag required to add, modify or delete database records# allowed values are as follows# o = global operator# m = global master# n = global ownerset vDatabaseFlag m# *************************************************************************************************************************************** ## ********** CODE *********************************************************************************************************************** ## *********************************** ## *** DO NOT EDIT BELOW THIS LINE *** ## *********************************** ## ---------- INITIALISE ------------------------------------------- #set vDatabaseVersion 10.04.29.15.48setudef flag databaseset vDatabaseCommands {add copy delete help keywords modify replace search show}proc pDatabaseTrigger {} {    global vDatabaseTrigger    return $vDatabaseTrigger}# ---------- BINDS ------------------------------------------------ #bind EVNT - init-server pDatabaseReadbind EVNT - rehash pDatabaseReadbind PUB - [pDatabaseTrigger]help pDatabaseHelpbind PUB - [pDatabaseTrigger]keywords pDatabaseKeywordsbind PUB - [pDatabaseTrigger]search pDatabaseSearchbind PUB - [pDatabaseTrigger]show pDatabaseShowbind PUB - [pDatabaseTrigger]add pDatabaseAddbind PUB - [pDatabaseTrigger]copy pDatabaseCopybind PUB - [pDatabaseTrigger]delete pDatabaseDeletebind PUB - [pDatabaseTrigger]modify pDatabaseModifybind PUB - [pDatabaseTrigger]replace pDatabaseReplacebind PUBM - "#% [pDatabaseTrigger]*" pDatabaseCheck# ---------- PROCS ------------------------------------------------ #proc pDatabaseAdd {nick uhost hand chan text} {    global vDatabaseData vDatabaseFlag    if {[channel get $chan database]} {        if {[matchattr $hand $vDatabaseFlag]} {            set txt [string trim $text]            set cmd add            if {[llength [split $txt]] > 1} {                set keyword [stripcodes bcruag [string tolower [lindex [split $txt] 0]]]                set body [join [lrange [split $txt] 1 end]]                switch -- [array size vDatabaseData] {                    0 {                        set vDatabaseData($keyword) $body                        pDatabaseWrite                        pDatabaseCompliance 001 0 $nick $chan $keyword 0                    }                    default {                        if {![info exists vDatabaseData($keyword)]} {                            set vDatabaseData($keyword) $body                            pDatabaseWrite                            pDatabaseCompliance 001 0 $nick $chan $keyword 0                        } else {pDatabaseError 003 0 $nick $chan $keyword 0}                    }                }            } else {pDatabaseError 001 $cmd $nick $chan 0 0}        } else {pDatabaseError 010 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseCheck {nick uhost hand chan text} {    global vDatabaseCommands    if {![isbotnick $nick]} {        set command [string trimleft [lindex [split $text] 0] [pDatabaseTrigger]]        if {[lsearch -exact $vDatabaseCommands $command] == -1} {            foreach item $vDatabaseCommands {                switch -- [expr {[string length $command] - [string length $item]}] {                    -1 {                        for {set loop 0} {$loop < [string length $item]} {incr loop} {                            set pattern [string replace $item $loop $loop]                            if {[string equal $pattern $command]} {                                pDatabaseTypo 001 0 $nick $chan $item 0                                return 0                            }                        }                    }                    0 {                        for {set loop 0} {$loop < [string length $item]} {incr loop} {                            set pattern [string replace $command $loop $loop \?]                            if {[string match $pattern $item]} {                                pDatabaseTypo 001 0 $nick $chan $item 0                                return 0                            }                        }                    }                    1 {                        for {set loop 0} {$loop <= [string length $item]} {incr loop} {                            switch -- $loop {                                0 {set pattern \?$item}                                [string length $item] {set pattern $item\?}                                default {set pattern [string range $item 0 [expr {$loop - 1}]]\?[string range $item $loop end]}                            }                            if {[string match $pattern $command]} {                                pDatabaseTypo 001 0 $nick $chan $item 0                                return 0                            }                        }                    }                    default {continue}                }            }        }    }    return 0}proc pDatabaseColor {chan type number} {    global vDatabaseColor    if {[regexp -- {^\+[^\-]*c} [getchanmode $chan]]} {        return ""    } else {        switch -- $number {            1 {                switch -- $type {                    0 {return "\003$vDatabaseColor(errors)"}                    1 {return "\003$vDatabaseColor(compliance)"}                    2 {return "\003$vDatabaseColor(output)"}                    3 {return "\003$vDatabaseColor(typo)"}                    default {}                }            }            3 {return "\003$vDatabaseColor(dimmed)"}            5 {return "\003$vDatabaseColor(arrow)"}            7 {return "\003$vDatabaseColor(emphasis)"}            2 - 4 - 6 - 8 {return "\003"}            default {}        }    }}proc pDatabaseCompliance {number cmd nick chan t1 t2} {    for {set loop 1} {$loop <= 8} {incr loop} {        set col($loop) [pDatabaseColor $chan 1 $loop]    }    set output1 "$col(1)Compliance$col(2) ($col(3)$nick$col(4)) $col(5)-->$col(6)"    switch -- $number {        001 {set output2 "$col(7)$t1$col(8) and associated text has been added"}        002 {set output2 "$col(7)$t1$col(8) has been deleted"}        003 {set output2 "text associated with $col(7)$t1$col(8) has been modified"}        004 {set output2 "found matching keywords $col(7)$t1$col(8)"}        005 {set output2 "keyword $col(7)$t1$col(8) replaced by $col(7)$t2$col(8) but retaining same text"}        006 {set output2 "keyword $col(7)$t1$col(8) copied to $col(7)$t2$col(8) with same text"}        default {}    }    putserv "PRIVMSG $chan :$output1 $output2"    return 0}proc pDatabaseCopy {nick uhost hand chan text} {    global vDatabaseData vDatabaseFlag    if {[channel get $chan database]} {        if {[matchattr $hand $vDatabaseFlag]} {            set txt [string trim $text]            set cmd copy            if {[llength [split $txt]] == 2} {                set old [stripcodes bcruag [string tolower [lindex [split $txt] 0]]]                set new [stripcodes bcruag [string tolower [lindex [split $txt] 1]]]                switch -- [array size vDatabaseData] {                    0 {pDatabaseError 002 0 $nick $chan 0 0}                    default {                        if {[info exists vDatabaseData($old)]} {                            if {![info exists vDatabaseData($new)]} {                                set vDatabaseData($new) $vDatabaseData($old)                                pDatabaseWrite                                pDatabaseCompliance 006 0 $nick $chan $old $new                            } else {pDatabaseError 003 0 $nick $chan $new 0}                        } else {pDatabaseError 004 0 $nick $chan $old 0}                    }                }            } else {pDatabaseError 001 $cmd $nick $chan 0 0}        } else {pDatabaseError 010 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseDelete {nick uhost hand chan text} {    global vDatabaseData vDatabaseFlag    if {[channel get $chan database]} {        if {[matchattr $hand $vDatabaseFlag]} {            set keyword [stripcodes bcruag [string tolower [string trim $text]]]            set cmd delete            if {[llength [split $keyword]] == 1} {                switch -- [array size vDatabaseData] {                    0 {pDatabaseError 002 0 $nick $chan 0 0}                    default {                        if {[info exists vDatabaseData($keyword)]} {                            unset vDatabaseData($keyword)                            pDatabaseWrite                            pDatabaseCompliance 002 0 $nick $chan $keyword 0                        } else {pDatabaseError 004 0 $nick $chan $keyword 0}                    }                }            } else {pDatabaseError 001 $cmd $nick $chan 0 0}        } else {pDatabaseError 010 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseError {number cmd nick chan t1 t2} {    for {set loop 1} {$loop <= 8} {incr loop} {        set col($loop) [pDatabaseColor $chan 0 $loop]    }    set output1 "$col(1)Error$col(2) ($col(3)$nick$col(4)) $col(5)-->$col(6)"    switch -- $number {        001 {            switch -- [pDatabaseSyntax $cmd] {                "" {set output2 "correct syntax is $col(7)[pDatabaseTrigger]$cmd$col(8) without additional arguments"}                default {set output2 "correct syntax is $col(7)[pDatabaseTrigger]$cmd [pDatabaseSyntax $cmd]$col(8)"}            }        }        002 {set output2 "keyword database is empty"}        003 {set output2 "keyword $col(7)$t1$col(8) already exists"}        004 {set output2 "keyword $col(7)$t1$col(8) does not exist"}        005 {set output2 "the text you entered for keyword $col(7)$t1$col(8) is the same as already exists"}        006 {set output2 "the <part-keyword> search text must be at least 3 characters in length"}        007 {set output2 "nothing found for <part-keyword> $col(7)$t1$col(8)"}        008 {set output2 "the character $col(7)\xA5$col(8) cannot be used anywhere in the keyword or associated text"}        009 {set output2 "unrecognised command $col(7)$t1$col(8)"}        010 {set output2 "you do not have access to the command $col(7)$cmd$col(8)"}        011 {set output2 "$col(7)[pDatabaseTrigger]$cmd$col(8) optional argument(s) must be a single letter"}        012 {set output2 "no keywords found matching $col(7)$t1$col(8)"}        013 {set output2 "no keywords found matching $col(7)$t1$col(8) through $col(7)$t2$col(8)"}        014 {set output2 "second $col(7)[pDatabaseTrigger]$cmd$col(8) optional argument must be lexicographically greater than the first"}        default {}    }    putserv "PRIVMSG $chan :$output1 $output2"    return 0}proc pDatabaseHelp {nick uhost hand chan text} {    global vDatabaseCommands    if {[channel get $chan database]} {        set txt [string tolower [string trim $text]]        set cmd help        switch -- [llength [split $txt]] {            0 {                foreach item $vDatabaseCommands {                    pDatabaseOutput 003 0 0 $chan $item 0                }            }            1 {                if {[lsearch -exact $vDatabaseCommands $txt] != -1} {                    pDatabaseOutput 003 0 0 $chan $txt 0                } else {pDatabaseError 009 0 $nick $chan $txt 0}            }            default {pDatabaseError 001 $cmd $nick $chan 0 0}        }    }    return 0}proc pDatabaseKeywords {nick uhost hand chan text} {    global vDatabaseData    if {[channel get $chan database]} {        set txt [string tolower [string trim $text]]        set cmd keywords        if {([llength [split $txt]] >= 0) && ([llength [split $txt]] <= 2)} {            switch -- [array size vDatabaseData] {                0 {pDatabaseError 002 0 $nick $chan 0 0}                default {                    switch -- [llength [split $txt]] {                        0 {set data [lsort -dictionary [array names vDatabaseData]]}                        1 {                            if {[regexp -- {^[a-z]$} $txt]} {                                set data [lsort -dictionary [array names vDatabaseData ${txt}*]]                                if {[llength $data] == 0} {                                    pDatabaseError 012 0 $nick $chan ${txt}* 0                                    return 0                                }                            } else {                                pDatabaseError 011 $cmd $nick $chan 0 0                                return 0                            }                        }                        2 {                            set arg1 [lindex [split $txt] 0]                            set arg2 [lindex [split $txt] 1]                            if {[regexp -- {^[a-z]$} $arg1] && [regexp -- {^[a-z]$} $arg2]} {                                if {$arg2 > $arg1} {                                    set data [lsort -dictionary [array names vDatabaseData -regexp [subst -nocommands {^[$arg1-$arg2]}]]]                                    if {[llength $data] == 0} {                                        pDatabaseError 013 0 $nick $chan ${arg1}* ${arg2}*                                        return 0                                    }                                } else {                                    pDatabaseError 014 $cmd $nick $chan 0 0                                    return 0                                }                            } else {                                pDatabaseError 011 $cmd $nick $chan 0 0                                return 0                            }                        }                        default {}                    }                    while {[llength $data] > 0} {                        pDatabaseOutput 002 0 0 $chan [lrange $data 0 24] 0                        set data [lrange $data 25 end]                    }                }            }        } else {pDatabaseError 001 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseModify {nick uhost hand chan text} {    global vDatabaseData vDatabaseFlag    if {[channel get $chan database]} {        if {[matchattr $hand $vDatabaseFlag]} {            set txt [string trim $text]            set cmd modify            if {[llength [split $txt]] > 1} {                switch -- [array size vDatabaseData] {                    0 {pDatabaseError 002 0 $nick $chan 0 0}                    default {                        set keyword [stripcodes bcruag [string tolower [lindex [split $txt] 0]]]                        set body [join [lrange [split $txt] 1 end]]                        if {[info exists vDatabaseData($keyword)]} {                            if {![string equal $body $vDatabaseData($keyword)]} {                                set vDatabaseData($keyword) $body                                pDatabaseWrite                                pDatabaseCompliance 003 0 $nick $chan $keyword 0                            } else {pDatabaseError 005 0 $nick $chan $keyword 0}                        } else {pDatabaseError 004 0 $nick $chan $keyword 0}                    }                }            } else {pDatabaseError 001 $cmd $nick $chan 0 0}        } else {pDatabaseError 010 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseOutput {number cmd nick chan t1 t2} {    for {set loop 1} {$loop <= 8} {incr loop} {        set col($loop) [pDatabaseColor $chan 2 $loop]    }    switch -- $number {        001 {set output "$col(1)$t1$col(2) $col(5)-->$col(6) $t2"}        002 {set output "$col(1)$t1$col(2)"}        003 {            switch -- [pDatabaseSyntax $t1] {                "" {set output "$col(1)[pDatabaseTrigger]$t1$col(2) $col(5)-->$col(6) [pDatabaseText $t1]"}                default {set output "$col(1)[pDatabaseTrigger]$t1 [pDatabaseSyntax $t1]$col(2) $col(5)-->$col(6) [pDatabaseText $t1]"}            }        }        default {}    }    putserv "PRIVMSG $chan :$output"}proc pDatabaseRead {type} {    global vDatabaseData    if {[file exists database.txt]} {        set id [open database.txt r]        set data [split [read -nonewline $id] \n]        foreach line $data {            set keyword [lindex [split $line \xA5] 0]            set body [lindex [split $line \xA5] 1]            set vDatabaseData($keyword) $body        }        close $id    }    return 0}proc pDatabaseReplace {nick uhost hand chan text} {    global vDatabaseData vDatabaseFlag    if {[channel get $chan database]} {        if {[matchattr $hand $vDatabaseFlag]} {            set txt [string trim $text]            set cmd replace            if {[llength [split $txt]] == 2} {                set old [stripcodes bcruag [string tolower [lindex [split $txt] 0]]]                set new [stripcodes bcruag [string tolower [lindex [split $txt] 1]]]                switch -- [array size vDatabaseData] {                    0 {pDatabaseError 002 0 $nick $chan 0 0}                    default {                        if {[info exists vDatabaseData($old)]} {                            if {![info exists vDatabaseData($new)]} {                                set vDatabaseData($new) $vDatabaseData($old)                                unset vDatabaseData($old)                                pDatabaseWrite                                pDatabaseCompliance 005 0 $nick $chan $old $new                            } else {pDatabaseError 003 0 $nick $chan $new 0}                        } else {pDatabaseError 004 0 $nick $chan $old 0}                    }                }            } else {pDatabaseError 001 $cmd $nick $chan 0 0}        } else {pDatabaseError 010 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseSearch {nick uhost hand chan text} {    global vDatabaseData    if {[channel get $chan database]} {        set keyword [stripcodes bcruag [string tolower [string trim $text]]]        set cmd search        if {[llength [split $keyword]] == 1} {            if {[string length $keyword] >= 3} {                foreach name [array names vDatabaseData] {                    if {[string match *${keyword}* $name]} {                        lappend result $name                    }                }                if {[info exists result]} {                    pDatabaseCompliance 004 0 $nick $chan [join $result] 0                } else {pDatabaseError 007 0 $nick $chan $keyword 0}            } else {pDatabaseError 006 0 $nick $chan 0 0}        } else {pDatabaseError 001 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseShow {nick uhost hand chan text} {    global vDatabaseData    if {[channel get $chan database]} {        set keyword [stripcodes bcruag [string tolower [string trim $text]]]        set cmd show        if {[llength [split $keyword]] == 1} {            switch -- [array size vDatabaseData] {                0 {pDatabaseError 002 0 $nick $chan 0 0}                default {                    if {[info exists vDatabaseData($keyword)]} {                        set output [join [lindex [array get vDatabaseData $keyword] 1]]                        pDatabaseOutput 001 0 0 $chan $keyword $output                    } else {pDatabaseError 004 0 $nick $chan $keyword 0}                }            }        } else {pDatabaseError 001 $cmd $nick $chan 0 0}    }    return 0}proc pDatabaseSyntax {command} {    switch -- $command {        add {set txt "<keyword> <text>"}        copy {set txt "<old-keyword> <new-keyword>"}        delete {set txt "<keyword>"}        help {set txt "?command?"}        keywords {set txt "?letter? ?letter?"}        modify {set txt "<keyword> <text>"}        replace {set txt "<old-keyword> <new-keyword>"}        search {set txt "<part-keyword>"}        show {set txt "<keyword>"}        default {}    }    return $txt}proc pDatabaseText {command} {    switch -- $command {        add {set txt "add a keyword and associated text"}        copy {set txt "copy old-keyword to new-keyword with same text"}        delete {set txt "delete a keyword and associated text"}        help {set txt "output help for all commands or specified command"}        keywords {set txt "show existing keywords, using optional argument(s) to restrict output"}        modify {set txt "modify the text associated with a keyword"}        replace {set txt "replace old-keyword with new-keyword but retain text"}        search {set txt "search keywords for incidences of part-keyword"}        show {set txt "show keyword and associated text"}        default {}    }    return $txt}proc pDatabaseTypo {number cmd nick chan t1 t2} {    for {set loop 1} {$loop <= 8} {incr loop} {        set col($loop) [pDatabaseColor $chan 3 $loop]    }    set output1 "$col(1)Typo$col(2) ($col(3)$nick$col(4)) $col(5)-->$col(6)"    switch -- $number {        001 {set output2 "perhaps you meant to type the command $col(7)[pDatabaseTrigger]$t1$col(8)"}        default {}    }    putserv "PRIVMSG $chan :$output1 $output2"    return 0}proc pDatabaseWrite {} {    global vDatabaseData    set id [open database.txt w]    if {[array size vDatabaseData] != 0} {        foreach {keyword body} [array get vDatabaseData] {            puts $id "$keyword\xA5$body"        }    }    close $id    return 0}# ---------- ACKNOWLEDGEMENT -------------------------------------- #putlog "database.tcl version $vDatabaseVersion loaded"