Allowed Drop, Delete Everything but Textures

default
{
    state_entry()
    {
        llSetText("Drop ONLY TEXTURES here.\n \n All other items will be deleted \nautomatically, and will not be returned",<0.0,1.0,0.0>,1.0);
        llAllowInventoryDrop(TRUE);
    }

    changed(integer change)
    {
        if(change &(CHANGED_ALLOWED_DROP|CHANGED_INVENTORY))
        {
            integer num = llGetInventoryNumber(INVENTORY_ALL)-1;
            string myname = llGetScriptName();
            while(num >=0)
            {
                string name = llGetInventoryName(INVENTORY_ALL,num);
                integer type = llGetInventoryType(name);
                if(name != myname && type != INVENTORY_TEXTURE)
                {
                    llRemoveInventory(name);
                }
                num--;
            }
        }
    }
}