///////////////////////////////////////////////////////////////////////////
//  Copyright (C) Wizardry and Steamworks 2013 - License: GNU GPLv3      //
//  Please see: http://www.gnu.org/licenses/gpl.html for legal details,  //
//  rights of fair usage, the disclaimer and warranty conditions.        //
///////////////////////////////////////////////////////////////////////////

list pList = [];

default
{
    state_entry()
    {
        integer i = llGetInventoryNumber(INVENTORY_TEXTURE)-1;
        do {
            pList += llGetInventoryName(INVENTORY_TEXTURE, i);
        } while(--i>-1);
    }
    on_rez(integer num) {
        llResetScript();
    }
    touch_start(integer num) {
        if(llGetListLength(pList) == 0) return;
        string tex = llList2String(pList, 0);
        pList = llDeleteSubList(pList, 0, 0);
        // change to correct face.
        llSetTexture(tex, 0);
        pList += tex;
    }
    changed(integer change) {
        if(change & CHANGED_INVENTORY) llResetScript();
    }
}