Untitled

bind pubm - * echopre
set conf(botnick) "Botname"
set conf(echochan) "#echochan"
set conf(word) "PRE"
proc echopre { nick uhost hand chan arg } {
global conf
if { $nick == $conf(botnick) } {
regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $arg "" args
set parts [split $arg " "]
set conf(word1) [lindex $parts 0]
set conf(section) [lindex $parts 2]
set conf(rls) [lindex $parts 7]
if { $conf(word1) == $conf(word) } {
  putserv "PRIVMSG $conf(echochan) :PRE in $conf(section) -- $conf(rls) "
}
}
}