hex.tcl

bind pub - .x hex:it

proc hex:it {n u h c t} {
	set hexit [join [lrange [split [string trim $t]] 0 end]]; set out ""
	if {$hexit eq ""} { putserv "privmsg $c :\00303$::lastbind <WHAT!>\003"; return }
	foreach _ [split $hexit {}] {
		lappend out [format "\\\u%04x" [scan $_ %c]]
	}
	putserv "privmsg $c :\002[join $out ""]\002"
	putserv "privmsg $c :[hexor $hexit]"
	return 0
}

proc hexor {str} {
	set out ""
	foreach _ [split $str {}] {
		binary scan $_ H* hexor
		lappend out $hexor
	}
	return "\002\\\x[join $out "\\\x"]\002"
}