// your textures here
list Textures = ["Texture1","Texture2","Texture3"];
// your colors here
list Colors = [<0,0,0>,<1,0,0>,<0,1,0>];
// your buttons for colors here
list Buttons = ["Black","Red","Green"];

integer Channel;
key User;

Menu1()
{
  llDialog(User, "Choose an option:", ["Textures", "Colors"], Channel);
}

Menu2()
{
    llDialog(User, "Choose a texture:", Textures, Channel);
}

Menu3()
{
    llDialog(User, "Choose a color:", Buttons, Channel);
}

default
{
    state_entry()
    {
        Channel = -((integer)llFrand(99999) + 999);
        llListen(Channel, "", NULL_KEY, "");
    }
    on_rez(integer start_param)
    {
        Channel = -((integer)llFrand(99999) + 999);
        llListen(Channel, "", NULL_KEY, "");
    }
    touch_start(integer total_number)
    {
        User = llDetectedKey(0);
        Menu1();
    }
    listen(integer channel, string name, key id, string message)
    {
        if(message == "Textures")
        {
            Menu2();
            return;
        } else if(message == "Colors")
        {
            Menu3();
            return;
        } else
        {
            integer x = llListFindList(Textures, [message]);
            if(x != -1)
            {
                llMessageLinked(LINK_SET, 0, llList2String(Textures, x), NULL_KEY);
            }
            x = llListFindList(Buttons, [message]);
            if(x != -1)
            {
                llMessageLinked(LINK_SET, 1, llList2String(Colors, x), NULL_KEY);
            }
        }
    }
}

default
{
    link_message(integer sender_number, integer number, string message, key id)
    {
        if(number == 0) llSetTexture(message, ALL_SIDES);
        else if(number == 1) llSetColor((vector)message, ALL_SIDES);
    }
}

// your colors here
list Colors = [<145,164,182>,<166,180,147>,<178,172,149>];
// your buttons for colors here
list Buttons = ["Soft Blue","Soft Green","Tan"];

// your colors here
list Colors = [<1,0,0>,<0,1,0>,<0,0,1>];
// your buttons for colors here
list Buttons = ["Soft Blue","Soft Green","Tan"];

// the buttons
list DlgItems = [];

string NEXT = ">>>";
string PREV = "<<<";
string DLGTITLE = "Choose a button:";
integer DLGCHANNEL;
integer DlgPage = 0;
integer Listener;
key User;

DlgShow()
{
    list Dlg = [];
    integer Count = llGetListLength(DlgItems);
    integer Start = (DlgPage - 1) * 10 + 11;
    if(DlgPage == 0)
    {
        Start = 0;
        if(Count < 13) Dlg = DlgItems;
        else Dlg = llList2List(DlgItems, 0, 1) + [NEXT] + llList2List(DlgItems, 2, 10);
    } else
    {
        if(Count < Start + 12) Dlg = [PREV] + llList2List(DlgItems, Start, Start + 11);
        else Dlg = [PREV] + llList2List(DlgItems, Start, Start) + [NEXT] + llList2List(DlgItems, Start + 1, Start + 9);
    }
    llListenRemove(Listener);
    Listener = llListen(DLGCHANNEL, "", User, "");
    llDialog(User, DLGTITLE, Dlg, DLGCHANNEL);
}

integer DlgMain(string msg)
{
    if(msg == PREV)
    {
        DlgPage--;
        DlgShow();
        return TRUE;
    } else if(msg == NEXT)
    {
        DlgPage++;
        DlgShow();
        return TRUE;
    } else if(msg == " ")
    {
        DlgShow();
        return TRUE;
    }
    else return FALSE;
}

default
{
    state_entry()
    {
        integer i;
        DLGCHANNEL = (integer)llFrand(10000) + 999;
        // just for demonstration
        DlgItems = [];
        for(i = 0; i < 35; i++) DlgItems += [(string)i];
    }
    touch_start(integer total_number)
    {
        User = llDetectedKey(0);
        DlgPage = 0;
        DlgShow();
    }
    listen(integer channel, string name, key id, string message)
    {
        if(DlgMain(message)) return;
        // your code here
        llSay(0, "Button " + message + " was pressed.");
    }
}

//Ignore the firs value
list COLORS=[0,"Soft Blue",<145,164,182>,"Soft Green",<166,180,147>,"Tan",<178,172,149>];
// Why hold textures in inventory? Use menunames + texture keys :3
list TEXTURES=[0,"Texturename","Texturekey","Texturename","Texturekey"]; 
list BUTTONS=["Colors","Textures","<<",">>"]; // for listener, not button display!
//Ignore the firs value
list COLORS=[0,"Soft Blue",<145,164,182>,"Soft Green",<166,180,147>,"Tan",<178,172,149>];
// Why hold textures in inventory? Use menunames + texture keys :3
list TEXTURES=[0,"Texturename","Texturekey","Texturename","Texturekey"]; 
list BUTTONS=["Colors","Textures","<<",">>"]; // for listener, not button display!
list BUTTONS=["Colors","Textures","<<",">>"]; // for listener, not button display!

list lSpecialPrims; // Link numbers of speshul prims!
list lTextures; // List of inventory-loaded textures
list lTemp; // Multi-Purpose List
integer iListener;
integer iPrimCount; // Amount of prims of object
integer iPage; // Page of Texture/Color buttons
integer iFlags; //FLAGS: 1 - in use, 2 - textures, not colors
integer iTemp; // Multi-purpose integer
string sTemp; // Selected color value or texture key
key kToucher; // key of person who touched the object

setFlag(integer flag) // For setting iFlag values safely
{
    if(!(iFlags & flag))
        iFlags+=flag;
}
unsetFlag(integer flag) // For unsetting iFlag values safely
{
    if(iFlags & flag)
        iFlags-=flag;
}
getPrims() // Get all special prims
{
    iTemp=iPrimCount=llGetNumberOfPrims();
    lSpecialPrims=[];
    do
    {
        if(llGetLinkName(iTemp) == "couchpotato")
            lSpecialPrims+=iTemp;
    }
    while(iTemp=~-iTemp);
}
doMenu(integer page) // Menu System for Colors/Textures
{
    llSetTimerEvent(10);
    if((iTemp=(lTemp != [])) < 27) // if less than 13 colors/textures
        llDialog(kToucher,"Colors:",llList2ListStrided(llDeleteSubList(lTemp,0,0),0,24,2),123456);
    else if(((((iPage+1) * 10)+1) < ((iTemp/2)-1)) && iPage) // If more than 12 colors/textures and not on first page
        llDialog(kToucher,"Colors:","<<" + llList2ListStrided(llDeleteSubList(lTemp,0,0),(iPage * 22),19 + (iPage * 22),2) + ">>",123456);
    else if(iPage) // More than 12, last page
        llDialog(kToucher,"Colors:","<<" + llList2ListStrided(llDeleteSubList(lTemp,0,0),(iPage * 22),21 + (iPage * 22),2),123456);
    else // more than 12, first page
        llDialog(kToucher,"Colors:",llList2ListStrided(llDeleteSubList(lTemp,0,0),0,21,2) + ">>",123456);
}
default
{
    state_entry()
    {
        getPrims();
    }
    changed(integer change)
    {
        if(change & CHANGED_LINK)
            getPrims();
    }
    touch_start(integer foo)
    {
        if(!(iFlags & 1)) // If nobody is using the menu, go go go!
        {
            setFlag(1);
            iListener=llListen(123456,"",kToucher=llDetectedKey(0),"");
        }
        if(kToucher == llDetectedKey(0)) // Might be re-touching while in use, check sepereately like this
        {
            iPage=0;
            llDialog(kToucher,"Change what?",["Colors","Textures"],123456);
            llSetTimerEvent(10);
        }
    }
    timer() // Turn off listener, allow others to use menu again
    {
        llListenRemove(iListener);
        llSetTimerEvent(0);
        unsetFlag(1);
        unsetFlag(2);
        kToucher=NULL_KEY;
    }
    listen(integer channel, string name, key id, string message)
    {
        llSetTimerEvent(10);
        iTemp=llListFindList(BUTTONS,[message]); // speedhax
        if(iTemp == 0) // "Colors"
        {
            unsetFlag(2);
            lTemp=COLORS;
            doMenu(iPage);
        }
        else if(iTemp == 1)  // "Textures"
        {
            setFlag(2);
            lTemp=TEXTURES;
            doMenu(iPage);
        }
        else if(iTemp == 2) // "<<"
            doMenu(iPage=~-iPage);
        else if(iTemp == 3) // ">>"
            doMenu(iPage=-~iPage);
        else
        {
            sTemp=llList2String(lTemp,llListFindList(lTemp,[message])+1);
            iTemp=(lSpecialPrims != []);
            if(iFlags & 2) // Set Textures
            {
                do
                    llSetLinkTexture(llList2Integer(lSpecialPrims,iTemp=~-iTemp),sTemp,ALL_SIDES);
                while(iTemp);
            }
            else // Set Colors
            {
                sTemp=(string)(((vector)sTemp) / 255);
                do
                    llSetLinkColor(llList2Integer(lSpecialPrims,iTemp=~-iTemp),(vector)sTemp,ALL_SIDES);
                while(iTemp);
            }
            llSetTimerEvent(0.01); // Shut off listener
        }
    }
}