Armor Color?

[Kingly_Krab]

I was wondering if there was a way to set a certain piece of an NPC's armor to a certain color using Perl. I know you can give them armor that is colored to bypass the effect of the npc_types settings, but I would like to do this with Perl rather than using items, as it would be much simpler and more efficient and changeable on the fly.

EDIT: Could this be done with WearChange or SetTint? I can't seem to find a list with the slot IDs used in these.

WearChange(material_slot, texture, color)
SetTint(slot_id, color)