Posted to tcl by kbk at Thu Feb 25 01:59:54 GMT 2021view raw

  1. set newchannel {}
  2. foreach c [split $channel {}] {
  3. append newchannel $c
  4. }
  5.  
  6. set thischannel [string range $newchannel 1 end]
  7. foreach ch [dict keys [dict get $ops $nickname]] {
  8. if {$ch eq $thischannel} {
  9. set l "$ch is $thischannel"
  10. } else {
  11. set l "$ch is not $thischannel $ch ="
  12. foreach c [split $ch {}] {
  13. scan $c %c x
  14. append l [format " %x" $x]
  15. }
  16. append l " " $thischannel " ="
  17. foreach c [split $thischannel {}] {
  18. scan $c %c x
  19. append l [format " %x" $x]
  20. }
  21. }
  22. putquick "PRIVMSG #ops :[encoding convertto utf-8 $l]"
  23. }