delete prims after unpacking

default
{
    touch_start(integer total_number)
    {
        list inventory;
        integer num = llGetInventoryNumber(INVENTORY_ALL);
        string script = llGetScriptName();
        integer i = 0;

        for (; i < num; ++i) 
        {
            string name = llGetInventoryName(INVENTORY_ALL, i);
            //Don't give them the selling script.
            if(name != script)
            {
                if(llGetInventoryPermMask(name, MASK_OWNER) & PERM_COPY)
                {
                    inventory += name;
                }
                else
                {
                    llSay(0, "Don't have permissions to give you \""+name+"\".");
                }
            }
        }

        if (llGetListLength(inventory) < 1)
        {
            llSay(0, "No items to offer."); 
        }
        else
        {
            // give folder to agent, use name of object as name of folder we are giving
            llGiveInventoryList(llDetectedKey(0), llGetObjectName(), inventory);

            state RIP;
        }
    }
    
}
state RIP
{
    //the magic begins :P
    state_entry()
    {
        integer olf;
        for(olf = 5; olf > 0; --olf)
        llSay(0,"Deleting my self in: "+ (string)olf);
        llDie();


    }


}