list Access = ["player name, player name"]; 

vector scale = <1,1,1>;//scale of the texture
vector offset = <0,0,0>;//offset of the texture
float rot = 0;//rotation of the texture
string gCard;
integer gLine;
key gLineKey;
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture

changetexture()//user fucntion to change texture;
{
    string texture = llGetInventoryName(INVENTORY_TEXTURE,currenttexture);//gets texture key
    //PRIM_TEXTURE:integer face, string name, vector repeats, vector offsets, float rotation
    llSetLinkPrimitiveParams(LINK_SET,[PRIM_TEXTURE,ALL_SIDES, texture, scale, offset, rot]);
}

default
{
    state_entry()
    {
        if (llGetInventoryNumber(INVENTORY_NOTECARD))
        {
            Access = []; // Clears internal Access list, prepares for external list
            gCard = llGetInventoryName(INVENTORY_NOTECARD,0); // Read from the first notecard in inventory
            gLine = 0; // Start with the first line
            gLineKey = llGetNotecardLine(gCard,gLine); // Queue a "read" request for the dataserver event
        }
        else
        {
            llOwnerSay("There's no configuration notecard in inventory. Using internal access list as default.");
            // Access will be read from the list at the top of this script
        }            
    }

    dataserver(key qID, string data)
    {
        if(qID == gLineKey) // If this really is a request from this script
        {
            if(data != EOF) // And if there's a line to read
            {
                Access += [data]; // Add the data from this line to the Access list
                ++gLine; // Advance to the next line
                gLineKey = llGetNotecardLine(gCard,gLine); // And queue a new "read" request for the dataserver
            }
        }
    }

    changed (integer change)
    {
        if (change & CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }

    touch_start(integer total_number)
    {
        numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);
        ++currenttexture;
        if(currenttexture == numberoftextures)
            currenttexture = 0;
        if (llDetectedKey(0) == llGetOwner() || ~llListFindList(Access, [llDetectedName(0)]))
            changetexture();
        else
            llSay(0,"Only those on the list can change me.");
    }
}

integer vIntCnt = llGetInventoryNumber( INVENTORY_TEXTURE );
while (vIntCnt--){
    vLstMnu = [llGetSubString( llGetInventoryName( INVENTORY_TEXTURE, --vIntCnt ), 0, 24 )] + vLstMnu;
}