Xchat::register('Distinguish Reply', '001', 'Place colors around a user if they are being addressed');

Xchat::hook_print('Channel Message', sub {
	$_[0][1] =~ m/^(\S+)([:,].*)/;
	return Xchat::EAT_NONE unless ($1 && Xchat::user_info($1));
	$_[0][1] = "\cB\cC03$1\cO$2";
	Xchat::emit_print('Channel Message', @{$_[0]});
	return Xchat::EAT_ALL;
});