#include "x4_inc_functions"
void main()
{
    object oPC = GetPCSpeaker();
    TakeGoldFromCreature(1000, oPC, TRUE);
    object oHide = GetItemPossessedBy(oPC, "anc_it_wolfskin");
    //Let's change the PC's cloak to a wolf pelt
    object oCloak = GetItemInSlot(INVENTORY_SLOT_CLOAK, oPC);
    object oNew = CopyItemAndModify(oCloak, ITEM_APPR_TYPE_SIMPLE_MODEL, 0, 88, TRUE);
    object oNew2 = CopyItemAndModify(oNew, ITEM_APPR_TYPE_ARMOR_COLOR, ITEM_APPR_ARMOR_COLOR_CLOTH2, 133, TRUE);
    DestroyObject(oNew);
    if (oNew2 != OBJECT_INVALID) DestroyObject(oCloak);
    DelayCommand(0.1, EquipItem(oPC, oNew2));
}