if {[catch {
prefix_nick
set text [lindex $params 1]
- if {"$line_org_endchar" == "\001"} {
+ if {![string compare $line_org_endchar "\001"]} {
if {[regexp {^\?ACTION (.*)\?$} $text dummy text]} {
set towrite "* $n $text"
} else {
set bnnicks($n) 1
sendprivmsg $channel "[bnnick_clean $n] has joined $bnchanfn."
} elseif {[regexp {^1003 LEAVE ([^ ]+) \w+$} $l dummy n]} {
- if {"$n" == "$bnnick"} return
+ if {![ircnick_compare $n $bnnick]} return
catch { unset bnnicks($n) }
sendprivmsg $channel "[bnnick_clean $n] has left $bnchanfn."
} elseif {[regexp {^1004 WHISPER ([^ ]+) \w+ "(.*)"$} $l dummy n text]} {
foreach m $pub_msgs { bnbot_writemsg $botid "$n $m" }
}
} elseif {[regexp {^1001 USER ([^ ]+) \w+} $l dummy n]} {
- if {"$n" == "$bnnick"} return
+ if {![ircnick_compare $n $bnnick]} return
set bnnicks($n) 1
}
}
catch { unset onchan_nicks }
foreach n $nicklist {
regsub {^[@+]} $n {} n
- if {"$n" == "$nick"} continue
+ if {![ircnick_compare $n $nick]} continue
set onchan_nicks($n) 1
}
}