I rather like colored affliction messages. I think they help with having
an idea of what's going on in combat. So, I've come up with the
following modification to acp_printaff that colors the message according
to a data record:

#CLASS {ACP|Interface}
#ALIAS acp_printaff {#if (@Settings.print_affs) {#if (%numitems("%-1") > 1) {acp_info Afflicted -- <%expandlist("%-1",", ")>} {acp_info %concat("<c ", %db(@AfflictionColors, %1), ">", Afflicted -- %1, "</c>")}}}
#CLASS 0

#CLASS {ACPcustom}
#VAR AfflictionColors {}
#ADDKEY AfflictionColors {paralysis}  {red}
#ADDKEY AfflictionColors {ablaze}     {red orange}
... and so on
#CLASS 0