Posted to tcl by kbk at Thu Feb 25 01:59:54 GMT 2021view pretty
set newchannel {} foreach c [split $channel {}] { append newchannel $c } set thischannel [string range $newchannel 1 end] foreach ch [dict keys [dict get $ops $nickname]] { if {$ch eq $thischannel} { set l "$ch is $thischannel" } else { set l "$ch is not $thischannel $ch =" foreach c [split $ch {}] { scan $c %c x append l [format " %x" $x] } append l " " $thischannel " =" foreach c [split $thischannel {}] { scan $c %c x append l [format " %x" $x] } } putquick "PRIVMSG #ops :[encoding convertto utf-8 $l]" }