///free to use and give away
///created by assistantofgabzo Resident
//write each hint on a seperate line
integer CHANNEL;

string notecardName;
list clues;
list clueButtons;
integer totalClues;
integer notecardLine;
key notecardQueryId;
key currentUser;
integer listenHandle;

list order_buttons(list buttons)
{
    return llList2List(buttons, -3, -1) + llList2List(buttons, -6, -4) +
        llList2List(buttons, -9, -7) + llList2List(buttons, -12, -10);
}

integer menuindex;

DialogPlus(key avatar, string message, list buttons, integer channel, integer CurMenu)
{
    if (12 < llGetListLength(buttons))
    {
        list lbut = buttons;
        list Nbuttons = [];
        if(CurMenu == -1)
        {
            CurMenu = 0;
            menuindex = 0;
        }

        if((Nbuttons = (llList2List(buttons, (CurMenu * 10), ((CurMenu * 10) + 9)) + ["Back", "Next"])) == ["Back", "Next"])
            DialogPlus(avatar, message, lbut, channel, menuindex = 0);
        else
            llDialog(avatar, message,  order_buttons(Nbuttons), channel);
    }
    else
        llDialog(avatar, message,  order_buttons(buttons), channel);
}

default
{
    state_entry()
    {
        CHANNEL = (integer)llFrand(-999999.);
        if (llGetInventoryNumber( INVENTORY_NOTECARD ) == 1)
        {
            notecardName = llGetInventoryName(INVENTORY_NOTECARD,0);

            if (llGetInventoryKey(notecardName) == NULL_KEY)
            {
            llOwnerSay( "Notecard '" + notecardName + "' missing or unwritten");
            return;
            }
            notecardQueryId = llGetNotecardLine(notecardName, notecardLine);
        }
        else
        {
            llOwnerSay("please add a single notecard with all your clues. put each clue on a seperate line");

        }
    }

    touch_start(integer total_number)
    {
    }
    dataserver(key query_id, string data)
    {
        if (query_id == notecardQueryId)
        {
            if (data == EOF)
            {
                llOwnerSay ("you have " + (string)(notecardLine) + " clues");
                state ready;
            }
            else
            {
                clueButtons+=(string)notecardLine;
                // bump line number for reporting purposes and in preparation for reading next line
                ++notecardLine;
                clues += data + ".";
                notecardQueryId = llGetNotecardLine(notecardName, notecardLine);
            }
        }
    }
    changed(integer change)
    {
        if (change & CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }
}

state ready
{
    state_entry()
    {
        currentUser = NULL_KEY;
    }
    changed(integer change)
    {
        if (change & CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }
    touch_start(integer n)
    {
        if(currentUser == NULL_KEY || llDetectedKey(0) == currentUser )
        {
            currentUser = llDetectedKey(0);
            llSetText ("in use by: " + llKey2Name(currentUser),<1,1,1>,1.0);
            listenHandle = llListen(CHANNEL, "", currentUser, "");
            llSetTimerEvent(30.);
            DialogPlus(currentUser, "Select an Option", clueButtons, CHANNEL, menuindex = 0);
        }
    }
    listen(integer chan, string name, key id, string msg)
    {
        key owner = llGetOwner();

        // If they clicked Next it will go to the next dialog window
        if(msg == "Next")
        {
            // ++menuindex will turn menuindex plus 1, making it give the next page.
            DialogPlus(currentUser, "Select an Option", clueButtons, CHANNEL, ++menuindex);
            llSetTimerEvent(30.);
        }

        // if they clicked back it will go to the last dialog window.
        else if(msg == "Back")
        {
            DialogPlus(currentUser, "Select an Option", clueButtons, CHANNEL, --menuindex);
            llSetTimerEvent(30.);
        }
            // --menuindex will turn menuindex minus 1, making it give the previous page.

        // If they choose anything besides Back/Next it will be in this section
        else
        {
            // Be Safe
            llListenRemove(listenHandle);
            //Example used, change to whatever you wish.
             if ( (string) ( (integer) msg) == msg)
             {
                 llDialog(currentUser,(llList2String(clues,(integer) msg)),["ok"],CHANNEL);
                 llSetTimerEvent(0.1);
             }
        }
    }
    timer()
    {
        llSetTimerEvent(0);
        currentUser == NULL_KEY;
        llListenRemove(listenHandle);
        llSetText ("",<1,1,1>,1.0);
    }
}