Deliver Folder (no scripts)

// Written By: Ĵyм Ѡҩℓƒ (Jym Resident)
/*
LICENCE:
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
or you may visit - http://license.idjhost.com/
*/
// DESCRIPTION
// Delivers folder based on the name you type below without scripts

integer PRICE = 10;
string folderName = "Name of the folder";

default {
    state_entry() {
        llSetPayPrice(PAY_HIDE, (list)PRICE);
    }
    money(key id, integer amount) {
        list inv;
        integer i;
        integer max = llGetInventoryNumber(INVENTORY_ALL);
        for (i=0; i<max; ++i)
        {
            if (llGetInventoryType(llGetInventoryName(INVENTORY_ALL, i)) != INVENTORY_SCRIPT)
            {
                inv += [llGetInventoryName(INVENTORY_ALL, i)];
            }
        }
        llGiveInventoryList(id, folderName, inv);
    }
}