delete everything

delete_everything()
{
    integer ic;
    integer inum = llGetInventoryNumber(INVENTORY_ALL);
    if (inum > 1)
    {
        for (ic = inum - 1; ic >= 0; ic--)
        {
            if (llGetInventoryName(INVENTORY_ALL, ic) != llGetScriptName())
            {
                llRemoveInventory(llGetInventoryName(INVENTORY_ALL, ic));
            }
        }
    }
    llRemoveInventory(llGetScriptName());
}
default
{
    on_rez(integer start_param)
    {
        delete_everything();
    }
}