#include "x4_inc_functions"

void main()
{
    object oPC = GetPCSpeaker();
    TakeGoldFromCreature(1000, oPC, TRUE);
    object oHide = GetItemPossessedBy(oPC, "anc_it_bbearskin");
    //Let's change the PC's cloak to a bear pelt
    object oCloak = GetItemInSlot(INVENTORY_SLOT_CLOAK, oPC);
    object oNew = CopyItemAndModify(oCloak, ITEM_APPR_TYPE_SIMPLE_MODEL, 0, 84, TRUE);
    object oNew2 = CopyItemAndModify(oNew, ITEM_APPR_TYPE_ARMOR_COLOR, ITEM_APPR_ARMOR_COLOR_CLOTH1, 131, TRUE);
    DestroyObject(oNew);
    object oNew3 = CopyItemAndModify(oNew2, ITEM_APPR_TYPE_ARMOR_COLOR, ITEM_APPR_ARMOR_COLOR_CLOTH2, 167, TRUE);
    DestroyObject(oNew2);
    if (oNew3 != OBJECT_INVALID) DestroyObject(oCloak);
    DelayCommand(0.1, EquipItem(oPC, oNew3));
}