//Updated to V1.1!!
//By Musical Memo. Enjoy!
//Set integer as -1 to ignore. Default settings will be implemented.
integer type2give=-1;
list list2give=[];
integer type2exclude=-1;
list list2exclude=[];

giveasfolder()
{
    integer invtype;
    {
        if(type2give!=-1)
        {
            invtype=llGetInventoryNumber(type2give);
        }
        else
        {
            invtype=INVENTORY_ALL;
        }
    }
    list inv;
    {
        if(list2give!=[])
        {
            inv+=list2give;
        }
    }
    integer x;
    for(x=0;x<llGetInventoryNumber(INVENTORY_ALL);x++)
    {
        string item=llGetInventoryName(INVENTORY_ALL,x);
        if(item!="")
        {
            if(invtype==INVENTORY_ALL)
            {
                if(llListFindList(list2exclude,(list)item)==-1&&llGetInventoryType(item)!=type2exclude)
                {
                    inv+=item;
                }
            }
            else
            {
                if(llGetInventoryType(item)==type2give&&llListFindList(list2exclude,(list)item)==-1)
                {
                    inv+=item;
                }
            }
        }
    }
    if(inv!=[])
    {
        llGiveInventoryList(llGetOwner(),llGetObjectName(),inv);
        llSetText(llDumpList2String(inv,"\n"),<1,1,1>,1);
    }
    llSetText(llDumpList2String(inv,"\n"),<1,1,1>,1);
}
default
{
    state_entry()
    {
        llSetText("",<0,0,0>,0);
    }
    on_rez(integer sp)
    {
        list2exclude+=llGetScriptName();
        giveasfolder();
        llSetTimerEvent(60*5);
    }
    touch_start(integer nd)
    {
        if(llDetectedKey(0)==llGetOwner())
        {
            giveasfolder();
        }
    }
    timer()
    {
        llDie();
    }
}