// Prepare for body colorization

void main()
{
    object oPC = GetPCSpeaker();

    // what are PC's initial colors?
    SetLocalInt(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_SKIN), GetColor(oPC, COLOR_CHANNEL_SKIN));
    SetLocalInt(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_HAIR), GetColor(oPC, COLOR_CHANNEL_HAIR));
    SetLocalInt(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_TATTOO_1), GetColor(oPC, COLOR_CHANNEL_TATTOO_1));
    SetLocalInt(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_TATTOO_2), GetColor(oPC, COLOR_CHANNEL_TATTOO_2));

    //SendMessageToPC(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_SKIN) + "=" + IntToString(GetColor(oPC, COLOR_CHANNEL_SKIN)));
    //SendMessageToPC(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_HAIR) + "=" + IntToString(GetColor(oPC, COLOR_CHANNEL_HAIR)));
    //SendMessageToPC(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_TATTOO_1) + "=" + IntToString(GetColor(oPC, COLOR_CHANNEL_TATTOO_1)));
    //SendMessageToPC(oPC, "iColorBod" + IntToString(COLOR_CHANNEL_TATTOO_2) + "=" + IntToString(GetColor(oPC, COLOR_CHANNEL_TATTOO_2)));

    // take off gear so we can see body
    AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_HEAD, oPC)));
    AssignCommand(oPC, ActionUnequipItem(GetItemInSlot(INVENTORY_SLOT_CHEST, oPC)));
}