//This part is to be deleted ; only needed to generate buttons in big quantity
//ceci est a effacer ; seulement utilisé pour générer une grande quantité de boutons
integer iNbBut = 41; // vary it to test // Varier pour tester
prepar()
{
    lNameBut = [];
    integer i = 0;
    for(i = 1; i<=iNbBut; i++)
    {
        lNameBut = (lNameBut=[]) + lNameBut + ["Bout " + (string) i];
    }
}
//Function that puts buttons in "correct" human-readable order without relying on intelligent higher order list functions ~ Redux {Copied from a wiki}
list order_buttons(list buttons)
{
    return llList2List(buttons, -3, -1) + llList2List(buttons, -6, -4)
    + llList2List(buttons, -9, -7) + llList2List(buttons, -12, -10);
}

integer iPtrList = 0; // Attention // Zeroed it before 1st call (see Touch event)// Remettre à 0 avant le 1er appel (voir l'event Touch)
key kAgentTouch;    //Attention // Copy in it the key used for the first call (see Touch event)// Y copier le key du 1er appel (voir l'event Touch)

//Function used to cut the list in segment of 11 elements and add the "next" button // Fonction pour découper la list en segment de 11 éléments et ajouter le bouton "suivant"
list cut_list(list lBut)
{
    list lSubList;
    integer iLsub = 12;
    if(iPtrList + 12 < llGetListLength(lBut))
    {
        lSubList = llList2List(lBut, iPtrList, iPtrList + 10);
        lSubList = (lSubList=[]) + lSubList + ["Suiv/Next"];
        iPtrList += 11;
    }
    else
    {
        lSubList = llList2List(lBut, iPtrList, llGetListLength(lBut) - 1);
    }
    return lSubList;
}
//////////////////////////////////////////////
integer iChannel = -45327;
list lNameBut = ["S/s Sol", "RDC", "2nd Floor", "Himmel"];
// This is the message to be displayed by the dialog box
// Ceci est le message à afficher dans la boîte de dialogue
string sMessage;

default
{
    state_entry()
    {
        prepar();
        llListen(iChannel, "", NULL_KEY, "");
    }

    touch_start(integer iPNumb)
    {
        /////////////////////////////////////
        kAgentTouch = llDetectedKey(0);
        iPtrList = 0;
        ////////////////////////////////////
        sMessage = "Appuyez sur le bouton correspondant au numéro\nPress the button corresponding to the number";
        llDialog(kAgentTouch, sMessage, order_buttons(cut_list(lNameBut)), iChannel); // Combination of the 2 functions // Combinaison des 2 fonctions
    }
   
    listen(integer iChan, string sName, key kId, string sOption)
    {
        llOwnerSay(sName + " (" + (string)kId + ") a choisi l'option " + sOption);
        if(sOption == "Suiv/Next")
        {
            llDialog(kAgentTouch, sMessage, order_buttons(cut_list(lNameBut)), iChannel); //Following llDialog are exactly as the 1st // Les lldialog suivants sont comme le 1er
        }
        //Continuer ensuite avec les tests des valeurs des boutons
        else if(sOption == "ceci ou cela")
        {
            //Faire l'action requise
        }
        //etc etc
    }
}