def_bnbot onread {args} {
global channel
- if {[gets $bnchan l] == -1} { fail "bot $bot EOF/error on input" }
+ if {[gets $bnchan l] == -1} { fail "bot $botid EOF/error on input" }
if {[regexp {^1005 TALK ([^ ]+) \w+ \"(.*)\"$} $l dummy n text]} {
sendprivmsg $channel "\[$n] $text"
return
} elseif {[regexp {^1023 EMOTE ([^ ]+) \w+ \"(.*)\"$} $l dummy n text]} {
- if {"$n" == "$bnnick"} return
+ if {![ircnick_compare $n $bnnick]} return
sendprivmsg $channel "* $n $text"
return
}