integer myChan = 15;
integer myListener;



integer face = ALL_SIDES;


//MODULE 1, Section 1
list textureNames = ["Tex0", "Tex1", "Tex2", "Tex3", "Tex4", "Tex5", "Tex6", "Tex7", "Tex8", "Tex9", "Tex10", "Tex11"];

list textureIDs = [
"3e15e980-35ad-0cc1-8e47-dc8b4c375a49",
"e4c537db-55d2-baac-82c8-f6f68ac1cf1f",
"23f8c18c-0214-040c-d799-038191b0cc73",
"2d774205-3ae8-949f-27b4-c3829fce7631",
"fb5060eb-2a67-26e9-62ed-f7c34691ccef",
"f52148fb-e1e2-73e6-ce88-9aac0caa8e41",
"c8aac05f-4137-bdd9-e8f6-7afc032eab14",
"b905cce1-bb3e-ddda-6173-220906e49318",
"f31216d1-0756-ce80-d0d6-92956b4cb5ed",
"dc7c7f29-195b-34a1-0e0a-17d3f4fbf7f8",
"13c593d0-33d0-037d-7933-f8daf41021b3",
"56b1518d-8a2d-2843-e65a-b201a5d62b2a"];

//END MODULE 1, Section 1

default
{
    touch_start(integer total_number)
    {
        //if(llDetectedKey(0) == llGetOwner())
        {
            llListenRemove(myListener);
            myListener = llListen(myChan, "", llDetectedKey(0), "");
            llDialog(llDetectedKey(0), "Select an option:", textureNames, myChan);//a list for each module
        }
    }

    listen(integer channel, string name, key ID, string msg)
    {

        integer textureIndex = llListFindList(textureNames, [msg]);
        llOwnerSay("Texture Index =" + (string)textureIndex);

        if( textureIndex != -1)
        {

        llOwnerSay("Texture Index =" + (string)textureIndex);
        key textureUUID = llList2Key(textureIDs, textureIndex);

        llSetLinkTexture(2, textureUUID, face);
        }

        llListenRemove(myListener);
    }
}