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

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

        object oItemToTake1;
        object oItemToTake2;
        object oItemToTake3;
        object oItemToTake4;
        object oItemToTake5;
        object oItemToTake6;
        object oItemToTake7;
        object oItemToTake8;
        object oItemToTake9;

        oItemToTake1 = GetItemPossessedBy(oPartyMember, "dcq02");
        oItemToTake3 = GetItemPossessedBy(oPartyMember, "dcq01");
        oItemToTake2 = GetItemPossessedBy(oPartyMember, "dcq03");
        oItemToTake4 = GetItemPossessedBy(oPartyMember, "dcq04");
        oItemToTake5 = GetItemPossessedBy(oPartyMember, "dcq_item_03");
        oItemToTake6 = GetItemPossessedBy(oPartyMember, "dcq05");
        oItemToTake7 = GetItemPossessedBy(oPartyMember, "MengariMap");
        oItemToTake8 = GetItemPossessedBy(oPartyMember, "dcq06");
        oItemToTake9 = GetItemPossessedBy(oPartyMember, "BloodContract");

        DestroyObject(oItemToTake1);
        DestroyObject(oItemToTake2);
        DestroyObject(oItemToTake3);
        DestroyObject(oItemToTake4);
        DestroyObject(oItemToTake5);
        DestroyObject(oItemToTake6);
        DestroyObject(oItemToTake7);
        DestroyObject(oItemToTake8);
        DestroyObject(oItemToTake9);

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