command clean

[Salur 1]

I want to do command removing all discarded objects. How can I check the source all the objects lying on the ground and remove them?

 

ACMD (do_clean_earth)
{

[......]
    ch->ChatPacket (CHAT_TYPE_INFO, "Cleaning all object with earth.");
}

[.Devil. 28]

 

struct FuncPurgeOnGround
{
    void operator () (LPENTITY ent)
    {
        if (!ent->IsType(ENTITY_ITEM))
            return;

        M2_DESTROY_ITEM((LPITEM) ent);
    }
};

ACMD(do_purge_on_ground)
{
    FuncPurgeOnGround func;
    
    LPSECTREE sectree = ch->GetSectree(); // only current map
    if (sectree)
        sectree->ForEachAround(func);
    else
        sys_err("PURGE_ERROR.NULL_SECTREE(mapIndex=%d, pos=(%d, %d)", ch->GetMapIndex(), ch->GetX(), ch->GetY());
}