void main()
{
    // Remove some gold from the player

    object oPartyMember = GetFirstFactionMember(GetPCSpeaker(), TRUE);
    while (GetIsObjectValid(oPartyMember) == TRUE)
    {
        CreateItemOnObject("dcq08", oPartyMember, 1);

        object oItemToTake1;
        object oItemToTake2;
        object oItemToTake3;

        oItemToTake1 = GetItemPossessedBy(oPartyMember, "dcq06");
        oItemToTake2 = GetItemPossessedBy(oPartyMember, "BloodContract");
        oItemToTake3 = GetItemPossessedBy(oPartyMember, "dcq07");

        DestroyObject(oItemToTake1);
        DestroyObject(oItemToTake2);
        DestroyObject(oItemToTake3);

        object oItemToTaked1;
        object oItemToTaked2;
        object oItemToTaked3;
        object oItemToTaked4;
        object oItemToTaked5;
        object oItemToTaked6;
        object oItemToTaked7;

        oItemToTaked1 = GetItemPossessedBy(oPartyMember, "dcq02");
        oItemToTaked3 = GetItemPossessedBy(oPartyMember, "dcq01");
        oItemToTaked2 = GetItemPossessedBy(oPartyMember, "dcq03");
        oItemToTaked4 = GetItemPossessedBy(oPartyMember, "dcq04");
        oItemToTaked5 = GetItemPossessedBy(oPartyMember, "dcq_item_03");
        oItemToTaked6 = GetItemPossessedBy(oPartyMember, "dcq05");
        oItemToTaked7 = GetItemPossessedBy(oPartyMember, "MengariMap");

        DestroyObject(oItemToTaked1);
        DestroyObject(oItemToTaked2);
        DestroyObject(oItemToTaked3);
        DestroyObject(oItemToTaked4);
        DestroyObject(oItemToTaked5);
        DestroyObject(oItemToTaked6);
        DestroyObject(oItemToTaked7);

        object oTarget = GetWaypointByTag("mengaribay");
        AssignCommand(oPartyMember, JumpToObject(oTarget));
        oPartyMember = GetNextFactionMember(GetPCSpeaker(), TRUE);
    }
}