Code: Select all
catch {unbind raw - PRIVMSG *raw:irc:msg}
bind raw - PRIVMSG striprivmsg
proc striprivmsg {f k a} {
set a [string map [list \017 ""] [stripcodes abcgru $a]]
*raw:irc:msg $f $k $a
}
bind pub - !version version
proc version {nick host hand chan arg} {
# !!!! If you are going to use the global $version, you must list it here !!!! #
global botnick version
puthelp "NOTICE $nick :I am a called $botnick. running in [lindex $version 0]"
}
Code: Select all
bind pub - !version version
proc version {nick host hand chan arg} {
global botnick
puthelp "NOTICE $nick :I am a called $botnick. running in [lindex $version 0]"
}
Code: Select all
catch {unbind raw - PRIVMSG *raw:irc:msg}
catch {unbind raw - PRIVMSG *raw:PRIVMSG}
bind raw - PRIVMSG striprivmsg
proc striprivmsg {f k a} {
set a [string map [list \017 ""] [stripcodes abcgru $a]]
*raw:irc:msg $f $k $a
*raw:PRIVMSG $f $k $a
}