Code: Select all
if {[string match *@*.undernet.org [strlwr [maskhost [lindex [split $arg] 3]]]} {
Code: Select all
if {$realname != $bah} {
Code: Select all
if {[strlwr [ctrl:filter $realname]] != $bah} {
Code: Select all
if {$nick == $realname} {
Code: Select all
if {[strlwr $nick] == [strlwr [ctrl:filter $realname]]} {
Code: Select all
proc ctrl:filter {str} {regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str ; return $str}
Code: Select all
proc strlwr {string} {
return [string tolower $string]
}
Code: Select all
if {[strlwr $nick] == [strlwr [ctrl:filter $realname]]} {
Code: Select all
if {[string equal -nocase $nick [ctrl:filter $realname]]} {
Code: Select all
if {[strlwr [ctrl:filter $realname]] != $bah} {
Code: Select all
if {[string equal -nocase $bah [ctrl:filter $realname]]} {