Code:

# set the route and file name of the categories file #set cats(file) "scripts/Categories.txt"# set the command to list all the categories #set cats(ccmd) "!categories"# set the command to read one of the categories #set cats(rcmd) "!category"# set the user file flags required to use this script ("-" = everyone) #set cats(flag) "-"###### END OF SETTINGS ######set cats(cats) ""if {![file exists $cats(file)]} {  return  }set cats(tm-open) [open $cats(file)]while {![eof $cats(tm-open)]} { set cats(tm-line) [string trim [gets $cats(tm-open)]] if {[string match {\[*\]} $cats(tm-line)]} {   lappend cats(cats) [string range $cats(tm-line) 1 end-1] }}close $cats(tm-open)if {$cats(cats) eq ""} {  return  }bind pub $cats(flag) $cats(ccmd) cats:listcatsproc cats:listcats {nk uh hn ch tx} {  global cats if {$cats(cats) eq ""} {  return  } puthelp "PRIVMSG $ch :[join $cats(cats) ", "]."}bind pub $cats(flag) $cats(rcmd) cats:readacatproc cats:readacat {nk uh hn ch tx} {  global cats if {$cats(cats) eq ""} {  return  } set tx [string trim [string tolower $tx]] if {$tx eq ""} {   puthelp "PRIVMSG $ch :${nk}: Use:  $cats(rcmd) <category-name>"   return } set pexact 0 if {[lsearch -exact [string tolower $cats(cats)] $tx]>"-1"} {  set patrn $tx  ;  set pexact 1 } elseif {[lsearch [string tolower $cats(cats)] $tx*]>"-1"} {  set patrn $tx* } elseif {[lsearch [string tolower $cats(cats)] *$tx*]>"-1"} {  set patrn *$tx* } else {   puthelp "PRIVMSG $ch :${nk}: No matching category found."   return } set open [open $cats(file)]  ;  set found 0 while {![eof $open]} {  set line [string trim [gets $open]]  if {$line eq ""} {  continue  }  set x ""  if {[string match {\[*\]} $line]} {  set x [string range $line 1 end-1]  }  if {$x ne "" && [string match -nocase $patrn $x]} {  set found 1  ;  set z $x  } elseif {$x ne ""} {    if {$found>"0"} {  break  }  } elseif {$found>"0"} {    if {$found=="1"} {  set found 2      if {$pexact=="0"} {  puthelp "PRIVMSG $ch :Reading category:  $z"  }    }    puthelp "PRIVMSG $ch :$line"  } } close $open}putlog "cats.tcl v1.1 loaded."

Code:

# set the route and file name of the categories file #set cats(file) "scripts/Categories.txt"# set the command to list all the categories #set cats(ccmd) "!categories"# set the command to read one of the categories #set cats(rcmd) "!category"# set the user file flags required to use this script ("-" = everyone) #set cats(flag) "-"###### END OF SETTINGS ######set cats(cats) ""if {![file exists $cats(file)]} {  return  }set cats(tm-open) [open $cats(file)]while {![eof $cats(tm-open)]} { set cats(tm-line) [gets $cats(tm-open)] if {[string match \[*\] $cats(tm-line)]} {   lappend cats(cats) [string range $cats(tm-line) 1 end-1] }}close $cats(tm-open)if {$cats(cats) eq ""} {  return  }bind pub $cats(flag) $cats(ccmd) cats:listcats proc cats:listcats {nk uh hn ch tx} {  if {$cats(cats) eq ""} {  return  } puthelp "PRIVMSG $ch :[join $cats(cats) ", "]."}bind pub $cats(flag) $cats(rcmd) cats:readacat proc cats:readacat {nk uh hn ch tx} {  if {$cats(cats) eq ""} {  return  } set tx [string trim $tx] if {[lsearch -exact $cats(cats) $tx]>"-1"} {  set patrn \[$tx\] } elseif {[lsearch $cats(cats) $tx*]>"-1"} {  set patrn \[$tx*\] } elseif {[lsearch $cats(cats) *$tx*]>"-1"} {  set patrn \[*$tx*\] } else {  return  } set open [open $cats(file)]  ;  set found 0 while {![eof $open]} {  set line [gets $open]  if {$line eq ""} {  continue  }  if {[string match $patrn $line]} {  set found 1  } elseif {[string match \[*\] $line]} {    if {$found>"0"} {  break  }  } elseif {$found>"0"} {      puthelp "PRIVMSG $ch :$line"  } } close $open}putlog "cats.tcl v1.1 loaded."