Difference between revisions of "Dialog Control"

From Second Life Wiki
Jump to navigation Jump to search
m (Added lsl tags)
Line 16: Line 16:


If anyone uses this module, please IM ''Nargus Asturias'', I'd love to hear what you think.
If anyone uses this module, please IM ''Nargus Asturias'', I'd love to hear what you think.
<lsl>
<lsl>
// Dialog constants
// Dialog constants
integer lnkDialog = 14001;
integer lnkDialog = 14001;
integer lnkDialogNotify = 14004;
integer lnkDialogNotify = 14004;
integer lnkDialogResponse = 14002;
integer lnkDialogResponse = 14002;
integer lnkDialogTimeOut = 14003;
integer lnkDialogTimeOut = 14003;
 
integer lnkDialogReshow = 14011;
integer lnkDialogReshow = 14011;
integer lnkDialogCancel = 14012;
integer lnkDialogCancel = 14012;
 
string seperator = "||";
string seperator = "||";
integer dialogTimeOut = 0;
integer dialogTimeOut = 0;
 
// ********** DIALOG FUNCTIONS **********
// ********** DIALOG FUNCTIONS **********
string packDialogMessage(string message, list buttons, list returns){
string packDialogMessage(string message, list buttons, list returns){
    string packed_message = message + seperator + (string)dialogTimeOut;
    string packed_message = message + seperator + (string)dialogTimeOut;
   
   
    integer i;
    integer i;
    integer count = llGetListLength(buttons);
    integer count = llGetListLength(buttons);
    for(i=0; i<count; i++){
    for(i=0; i<count; i++){
        string button = llList2String(buttons, i);
        string button = llList2String(buttons, i);
        if(llStringLength(button) > 24) button = llGetSubString(button, 0, 23);
        if(llStringLength(button) > 24) button = llGetSubString(button, 0, 23);
        packed_message += seperator + button + seperator + llList2String(returns, i);
        packed_message += seperator + button + seperator + llList2String(returns, i);
    }
    }
 
    return packed_message;
    return packed_message;
}
}
 
dialogReshow(){llMessageLinked(LINK_THIS, lnkDialogReshow, "", NULL_KEY);}
dialogReshow(){llMessageLinked(LINK_THIS, lnkDialogReshow, "", NULL_KEY);}
dialogCancel(){
dialogCancel(){
    llMessageLinked(LINK_THIS, lnkDialogCancel, "", NULL_KEY);
    llMessageLinked(LINK_THIS, lnkDialogCancel, "", NULL_KEY);
    llSleep(1);
    llSleep(1);
}
}
 
dialog(key id, string message, list buttons, list returns){
dialog(key id, string message, list buttons, list returns){
    llMessageLinked(LINK_THIS, lnkDialog, packDialogMessage(message, buttons, returns), id);
    llMessageLinked(LINK_THIS, lnkDialog, packDialogMessage(message, buttons, returns), id);
  }
}
   
 
  dialogNotify(key id, string message){
dialogNotify(key id, string message){
     list rows;
    list rows;
 
    llMessageLinked(LINK_THIS, lnkDialogNotify,
        message + seperator + (string)dialogTimeOut + seperator,
        id);
}
// ********** END DIALOG FUNCTIONS **********
 
 
default{
  state_entry(){
      llSetText("Touch me to show dialog", <1,1,1>, 1);
  }
 
  link_message(integer sender_num, integer num, string str, key id){
      if(num == lnkDialogTimeOut){
          dialogNotify(llGetOwner(), "Menu time-out. Please try again.");
          state default;
      }else if(num == lnkDialogResponse){
          llWhisper(0, str);
      }
  }
 
  touch(integer num_detected){
      dialog(llGetOwner(),
     
          // Dialog message here
          "Messages go here",
         
          // List of dialog buttons
          [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, "Close" ],
 
          // List of return value from the buttons, in same order
          // Note that this value do not need to be the same as button texts
          [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, "X" ]
      );
  }
}
</lsl>
 
Nargus Dialog Control v1.58 (by Nargus Asturias)
 
<lsl>
// ********** SIMPLE DIALOG MODULE ********** //
// By Nargus Asturias
// Version 1.55
//
// Support only one dialog at a time. DO NOT request multiple dialog at once!
// Use of provided functions are recommented. Instruction here are for hardcore programmers only!
//
// Request: Send MessageLinked to the script. There are 3 dialog modes:
//      lnkDialog              : Normal dialog with message and buttons
//      lnkDialogNumericAdjust : A dialog with buttons can be used to adjust numeric value
//      lnkDialogNotify        : Just a simple notification dialog. No return value and no buttons.
//
// Send MessageLinked with code lnkDialogReshow to force active dialog to reappear.
// Send MessageLinked with code lnkDialogCancel to force cancel active dialog
//
// If a lnkDialog is requested with more than 12 buttons, multi-pages dialog is used to show the buttons.
//
// [ For lnkDialog ]
// MessageLinked Format:
//      String part: List dumped into string, each entry seperated by '||'
//          Field 1:    Dialog message (512 bytes maximum)
//          Field 2:    Time-out data (integer)
//          Field 3-4: Button#1 and return value pair
//          Field 5-6: Button#2 and return value pair
//          And go on...
//      Key part: Key of AV who attend this dialog
//
// Response: MessageLinked to the prim that requested dialog (but no where else)
//      num == lnkDialogResponse:  AV click on a button. The buttons value returned as a string
//      num == lnkDialogTimeOut:    Dialog timeout.
//
// [ For lnkDialogNumericAdjust ]
// MessageLinked Format:
//      String part: List dumped into string, each entry seperated by '||'
//          Field 1:    Dialog message (512 bytes maximum)
//                          Put {VALUE} where you want the current value to be displayed)
//          Field 2:    Time-out data (integer)
//          Field 3:    Most significant value (ie. 100, for +/-100)
//          Field 4:    String-casted numeric value to be adjusted
//          Field 5:    2nd most significant value (ie. 10, for +/-10)
//          Field 6:    Use '1' to enable "+/-" button, '0' otherwise.
//          Field 7:    3nd significant value (ie. 1, for +/-1)
//          Field 8:    Use '1' for integer, or '0' for float
//          Field 9:    Least significant value (ie. 0.1, for +/-0.1)
//          Field 10:  Reserved. Not used.
//      Key part: Key of AV who attend this dialog
//
// Response: MessageLinked to the prim that requested dialog (but no where else)
//      num == lnkDialogResponse:  OK or Cancel button is clicked. The final value returned as string.
//      num == lnkDialogTimeOut:    Dialog timeout.
//
// ******************************************* //
 
// Constants
integer lnkDialog = 14001;
integer lnkDialogNumericAdjust = 14005;
integer lnkDialogNotify = 14004;
 
integer lnkDialogReshow = 14011;
integer lnkDialogCancel = 14012;
 
integer lnkDialogResponse = 14002;      // A button is hit, or OK is hit for lnkDialogNumericAdjust
integer lnkDialogCanceled = 14006;      // Cancel is hit for lnkDialogNumericAdjust
integer lnkDialogTimeOut = 14003;      // No button is hit, or Ignore is hit
 
string seperator = "||";
 
// Dialog variables
integer dialogChannel;      // Channel number used to spawn this dialog
string message;            // Message to be shown with the dialog
integer timerOut;          // Dialog time-out
key keyId;                  // Key of user who attending this dialog
integer requestedNum;      // Link-number of the requested prim
list buttons;              // List of dialog buttons
list returns;              // List of results from dialog buttons
 
float numericValue;
integer useInteger;
 
// Other variables
integer buttonsCount;
integer startItemNo;
integer listenId;
 
string redirectState;
 
integer responseInt = -1;
string responseStr;
key responseKey;
 
 
// ********** String Functions **********
string replaceString(string pattern, string replace, string source){
    integer index = llSubStringIndex(source, pattern);
    if(index < 0) return source;
   
    source = llDeleteSubString(source, index, (index + llStringLength(pattern) - 1));
    return llInsertString(source, index, replace);
}
 
// ********** Dialog Functions **********
// Function: createDialog
// Create dialog with given message and buttons, direct to user with give id
integer createDialog(key id, string message, list buttons){
    integer channel = -((integer)llFrand(8388608))*(255) - (integer)llFrand(8388608) - 11;
 
    llListenRemove(listenId);
    listenId = llListen(channel, "", keyId, "");
    llDialog(keyId, message, buttons, channel);
 
    return channel;
}
 
// Function: createMultiDialog
// Create dialog with multiple pages. Each page has Back, Next, and a Close button. Otherwise same functionality as createDialog() function.
integer createMultiDialog(key id, string message, list buttons, integer _startItemNo){
    integer channel = -llRound(llFrand( llFabs(llSin(llGetGMTclock())) * 1000000 )) - 11;
 
    if(_startItemNo < 0) _startItemNo = 0;
    if(_startItemNo >= buttonsCount - 1) _startItemNo -= 9;
    startItemNo = _startItemNo;
   
    integer vButtonsCount = buttonsCount - 2;
   
    // Generate list of buttons to be shown
    string closeButton = llList2String(buttons, buttonsCount - 1);
   
    integer stopItemNo = startItemNo + 8;
    if(stopItemNo >= buttonsCount - 1) stopItemNo = vButtonsCount;
 
    list thisButtons = llList2List(buttons, startItemNo, stopItemNo);
 
    // Generate dialog navigation buttons
    integer i = stopItemNo - startItemNo + 1;
    i = i % 3;
    if(i > 0) while(i < 3){
        thisButtons += [" "];
        ++i;
    }
 
    if(startItemNo > 0)
        thisButtons += ["<< BACK"];
    else thisButtons += [" "];
   
    thisButtons += [closeButton];
   
    if(stopItemNo < vButtonsCount)
        thisButtons += ["NEXT >>"];
    else thisButtons += [" "];
   
    // Append page number to the message
    integer pageNumber = (integer)(stopItemNo / 9) + 1;
    integer pagesCount = llCeil(vButtonsCount / 9.0);
    string vMessage = "PAGE: " + (string)pageNumber + " of " + (string)pagesCount + "\n" +
        message;
 
    // Display dialog
    llListenRemove(listenId);
    listenId = llListen(channel, "", keyId, "");
    llDialog(keyId, vMessage, thisButtons, channel);
 
    return channel;
}
 
// Function: generateNumericAdjustButtons
// Generate numeric adjustment dialog which adjustment values are in given list.
// If useNegative is TRUE, "+/-" button will be available.
list generateNumericAdjustButtons(list adjustValues, integer useNegative){
    list dialogControlButtons;
    list positiveButtons;
    list negativeButtons;
    list additionButtons;
 
    dialogControlButtons = ["OK", "Cancel"];
 
    // Config adjustment buttons
    integer count = llGetListLength(adjustValues);
    integer index;
    for(index = 0; (index < count) && (index < 3); index++){
        string sValue = llList2String(adjustValues, index);
 
        if((float)sValue != 0){
            positiveButtons += ["+" + sValue];
            negativeButtons += ["-" + sValue];
        }
    }
 
    // Check positive/negative button
    if(useNegative)
        additionButtons = ["+/-"];
    else additionButtons = [];
 
    // If there is fourth adjustment button
    if(count > 3){
        if(llGetListLength(additionButtons) == 0) additionButtons = [" "];
 
        string sValue = llList2String(adjustValues, index);
        additionButtons += ["+" + sValue, "-" + sValue];
    }else if(additionButtons != []) additionButtons += [" ", " "];
   
    // Return list dialog buttons
     return additionButtons + negativeButtons + positiveButtons + dialogControlButtons;
}
 
setResponse(integer int, string str, key id){
    responseInt = int;
    responseStr = str;
    responseKey = id;
}
 
checkDialogRequest(integer sender_num, integer num, string str, key id){
    if((num == lnkDialogNotify) || (num == lnkDialogNumericAdjust) || (num == lnkDialog)){
        list data = llParseString2List(str, [seperator], []);
   
        message = llList2String(data, 0);
        timerOut = llList2Integer(data, 1);
        keyId = id;
        requestedNum = sender_num;
        buttons = [];
        returns = [];
   
        if(timerOut > 7200) timerOut = 7200;
   
        integer i;
        integer count = llGetListLength(data);
        for(i=2; i<count;){
            buttons += [llList2String(data, i++)];
            returns += [llList2String(data, i++)];
        }
       
        buttonsCount = llGetListLength(buttons);
      
      
    llMessageLinked(LINK_THIS, lnkDialogNotify,
        if(num == lnkDialogNotify){
        message + seperator + (string)dialogTimeOut + seperator,
            dialogChannel = -((integer)llFrand(8388608))*(255) - (integer)llFrand(8388608) - 11;
        id);
            llDialog(keyId, message, buttons, dialogChannel);
}
            return;
// ********** END DIALOG FUNCTIONS **********
        }else if(num == lnkDialogNumericAdjust)
            redirectState = "NumericAdjustDialog";
        else if(num == lnkDialog){
            if(buttonsCount > 12)
                redirectState = "MultiDialog";
            else redirectState = "Dialog";
        }
       
        state StartDialog;
    }
}
   
   
// ********** States **********
default{
default{
     state_entry(){
     state_entry(){
         llSetText("Touch me to show dialog", <1,1,1>, 1);
         if(responseInt > 0) llMessageLinked(requestedNum, responseInt, responseStr, responseKey);
     }
     }
   
     link_message(integer sender_num, integer num, string str, key id){
     link_message(integer sender_num, integer num, string str, key id){
         if(num == lnkDialogTimeOut){
        checkDialogRequest(sender_num, num, str, id);
            dialogNotify(llGetOwner(), "Menu time-out. Please try again.");
    }
            state default;
}
        }else if(num == lnkDialogResponse){
 
            llWhisper(0, str);
state StartDialog{
         }
    state_entry(){
         if(redirectState == "Dialog")                   state Dialog;
        else if(redirectState == "MultiDialog")        state MultiDialog;
        else if(redirectState == "NumericAdjustDialog") state NumericAdjustDialog;
        else state default;
    }
}
 
state Dialog{
    state_entry(){
        responseInt = -1;
        dialogChannel = createDialog(keyId, message, buttons);
        llSetTimerEvent(timerOut);
    }
   
    state_exit(){
        llSetTimerEvent(0);
    }
   
    on_rez(integer start_param){
        state default;
    }
   
    timer(){
        setResponse(lnkDialogTimeOut, "", keyId);
        //llMessageLinked(requestedNum, lnkDialogTimeOut, "", keyId);
         state default;
     }
     }
      
      
     touch(integer num_detected){
     link_message(integer sender_num, integer num, string str, key id){
         dialog(llGetOwner(),
         if(num == lnkDialogReshow){
            dialogChannel = createDialog(keyId, message, buttons);
            llSetTimerEvent(timerOut);
        }else if(num == lnkDialogCancel) state default;
 
        else checkDialogRequest(sender_num, num, str, id);
    }
 
    listen(integer channel, string name, key id, string msg){
        if((channel != dialogChannel) || (id != keyId)) return;
          
          
            // Dialog message here
        integer index = llListFindList(buttons, [msg]);
            "Messages go here",
        setResponse(lnkDialogResponse, llList2String(returns, index), keyId);
           
        //llMessageLinked(requestedNum, lnkDialogResponse, llList2String(returns, index), keyId);
            // List of dialog buttons
        state default;
            [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, "Close" ],
    }
}
            // List of return value from the buttons, in same order
 
            // Note that this value do not need to be the same as button texts
state MultiDialog {
            [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, "X" ]
    state_entry(){
         );
        responseInt = -1;
        startItemNo = 0;
        dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
        llSetTimerEvent(timerOut);
    }
   
    state_exit(){
        llSetTimerEvent(0);
    }
   
    on_rez(integer start_param){
        state default;
    }
   
    timer(){
        setResponse(lnkDialogTimeOut, "", keyId);
         state default;
     }
     }
}
   
    link_message(integer sender_num, integer num, string str, key id){
        if(num == lnkDialogReshow){
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
            llSetTimerEvent(timerOut);
        }else if(num == lnkDialogCancel) state default;


        else checkDialogRequest(sender_num, num, str, id);
    }


Nargus Dialog Control v1.58 (by Nargus Asturias)
    listen(integer channel, string name, key id, string msg){
        if((channel != dialogChannel) || (id != keyId)) return;


// ********** SIMPLE DIALOG MODULE ********** //
        // Dialog control buttons
// By Nargus Asturias
         if(msg == "<< BACK"){
// Version 1.55
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo - 9);
//
            llSetTimerEvent(timerOut);
// Support only one dialog at a time. DO NOT request multiple dialog at once!
        }else if(msg == "NEXT >>"){
// Use of provided functions are recommented. Instruction here are for hardcore programmers only!
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo + 9);
//
            llSetTimerEvent(timerOut);
// Request: Send MessageLinked to the script. There are 3 dialog modes:
        }else if(msg == " "){
//      lnkDialog              : Normal dialog with message and buttons
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
//      lnkDialogNumericAdjust  : A dialog with buttons can be used to adjust numeric value
            llSetTimerEvent(timerOut);
//      lnkDialogNotify         : Just a simple notification dialog. No return value and no buttons.
       
//
        // Response buttons
// Send MessageLinked with code lnkDialogReshow to force active dialog to reappear.
        }else{
// Send MessageLinked with code lnkDialogCancel to force cancel active dialog
            integer index = llListFindList(buttons, [msg]);
//
            setResponse(lnkDialogResponse, llList2String(returns, index), keyId);
// If a lnkDialog is requested with more than 12 buttons, multi-pages dialog is used to show the buttons.
            //llMessageLinked(requestedNum, lnkDialogResponse, llList2String(returns, index), keyId);
//
            state default;
// [ For lnkDialog ]
        }
// MessageLinked Format:
    }
//      String part: List dumped into string, each entry seperated by '||'
}
//          Field 1:    Dialog message (512 bytes maximum)
//          Field 2:    Time-out data (integer)
//          Field 3-4:  Button#1 and return value pair
//          Field 5-6:  Button#2 and return value pair
//          And go on...
//      Key part: Key of AV who attend this dialog
//
// Response: MessageLinked to the prim that requested dialog (but no where else)
//      num == lnkDialogResponse:  AV click on a button. The buttons value returned as a string
//      num == lnkDialogTimeOut:    Dialog timeout.
//
// [ For lnkDialogNumericAdjust ]
// MessageLinked Format:
//      String part: List dumped into string, each entry seperated by '||'
//          Field 1:    Dialog message (512 bytes maximum)
//                         Put {VALUE} where you want the current value to be displayed)
//          Field 2:    Time-out data (integer)
//          Field 3:    Most significant value (ie. 100, for +/-100)
//          Field 4:    String-casted numeric value to be adjusted
//          Field 5:    2nd most significant value (ie. 10, for +/-10)
//          Field 6:    Use '1' to enable "+/-" button, '0' otherwise.
//         Field 7:    3nd significant value (ie. 1, for +/-1)
//          Field 8:    Use '1' for integer, or '0' for float
//          Field 9:    Least significant value (ie. 0.1, for +/-0.1)
//          Field 10:  Reserved. Not used.
//      Key part: Key of AV who attend this dialog
//
// Response: MessageLinked to the prim that requested dialog (but no where else)
//      num == lnkDialogResponse:  OK or Cancel button is clicked. The final value returned as string.
//      num == lnkDialogTimeOut:    Dialog timeout.
//
// ******************************************* //
   
   
// Constants
state NumericAdjustDialog {
integer lnkDialog = 14001;
    state_entry(){
integer lnkDialogNumericAdjust = 14005;
         responseInt = -1;
integer lnkDialogNotify = 14004;
 
        numericValue = llList2Float(returns, 0);
integer lnkDialogReshow = 14011;
        useInteger = llList2Integer(returns, 2);
integer lnkDialogCancel = 14012;
        buttons = generateNumericAdjustButtons(buttons, llList2Integer(returns, 1));
       
integer lnkDialogResponse = 14002;      // A button is hit, or OK is hit for lnkDialogNumericAdjust
        string vMessage;
integer lnkDialogCanceled = 14006;      // Cancel is hit for lnkDialogNumericAdjust
        if(useInteger)
integer lnkDialogTimeOut = 14003;      // No button is hit, or Ignore is hit
            vMessage = replaceString("{VALUE}", (string)((integer)numericValue), message);
        else vMessage = replaceString("{VALUE}", (string)numericValue, message);
string seperator = "||";
       
        dialogChannel = createDialog(keyId, vMessage, buttons);
// Dialog variables
        llSetTimerEvent(timerOut);
integer dialogChannel;      // Channel number used to spawn this dialog
    }
string message;            // Message to be shown with the dialog
   
integer timerOut;          // Dialog time-out
    state_exit(){
key keyId;                  // Key of user who attending this dialog
        llSetTimerEvent(0);
integer requestedNum;      // Link-number of the requested prim
    }
list buttons;              // List of dialog buttons
   
list returns;              // List of results from dialog buttons
    on_rez(integer start_param){
        state default;
float numericValue;
    }
integer useInteger;
   
    timer(){
// Other variables
        setResponse(lnkDialogTimeOut, "", keyId);
integer buttonsCount;
        //llMessageLinked(requestedNum, lnkDialogTimeOut, "", keyId);
integer startItemNo;
        state default;
integer listenId;
    }
   
string redirectState;
    link_message(integer sender_num, integer num, string str, key id){
        if(num == lnkDialogReshow){
integer responseInt = -1;
            dialogChannel = createDialog(keyId, message, buttons);
string responseStr;
            llSetTimerEvent(timerOut);
key responseKey;
        }else if(num == lnkDialogCancel) state default;
 
        else checkDialogRequest(sender_num, num, str, id);
// ********** String Functions **********
string replaceString(string pattern, string replace, string source){
    integer index = llSubStringIndex(source, pattern);
    if(index < 0) return source;
   
    source = llDeleteSubString(source, index, (index + llStringLength(pattern) - 1));
    return llInsertString(source, index, replace);
}
// ********** Dialog Functions **********
// Function: createDialog
// Create dialog with given message and buttons, direct to user with give id
integer createDialog(key id, string message, list buttons){
    integer channel = -((integer)llFrand(8388608))*(255) - (integer)llFrand(8388608) - 11;
    llListenRemove(listenId);
    listenId = llListen(channel, "", keyId, "");
    llDialog(keyId, message, buttons, channel);
    return channel;
}
// Function: createMultiDialog
// Create dialog with multiple pages. Each page has Back, Next, and a Close button. Otherwise same functionality as createDialog() function.
integer createMultiDialog(key id, string message, list buttons, integer _startItemNo){
    integer channel = -llRound(llFrand( llFabs(llSin(llGetGMTclock())) * 1000000 )) - 11;
    if(_startItemNo < 0) _startItemNo = 0;
    if(_startItemNo >= buttonsCount - 1) _startItemNo -= 9;
    startItemNo = _startItemNo;
   
    integer vButtonsCount = buttonsCount - 2;
   
    // Generate list of buttons to be shown
    string closeButton = llList2String(buttons, buttonsCount - 1);
   
    integer stopItemNo = startItemNo + 8;
    if(stopItemNo >= buttonsCount - 1) stopItemNo = vButtonsCount;
    list thisButtons = llList2List(buttons, startItemNo, stopItemNo);
    // Generate dialog navigation buttons
    integer i = stopItemNo - startItemNo + 1;
    i = i % 3;
    if(i > 0) while(i < 3){
        thisButtons += [" "];
        ++i;
    }
   
    if(startItemNo > 0)
        thisButtons += ["<< BACK"];
    else thisButtons += [" "];
   
    thisButtons += [closeButton];
   
    if(stopItemNo < vButtonsCount)
        thisButtons += ["NEXT >>"];
    else thisButtons += [" "];
   
    // Append page number to the message
    integer pageNumber = (integer)(stopItemNo / 9) + 1;
    integer pagesCount = llCeil(vButtonsCount / 9.0);
    string vMessage = "PAGE: " + (string)pageNumber + " of " + (string)pagesCount + "\n" +
        message;
    // Display dialog
    llListenRemove(listenId);
    listenId = llListen(channel, "", keyId, "");
    llDialog(keyId, vMessage, thisButtons, channel);
    return channel;
}
// Function: generateNumericAdjustButtons
// Generate numeric adjustment dialog which adjustment values are in given list.
// If useNegative is TRUE, "+/-" button will be available.
list generateNumericAdjustButtons(list adjustValues, integer useNegative){
    list dialogControlButtons;
    list positiveButtons;
    list negativeButtons;
    list additionButtons;
    dialogControlButtons = ["OK", "Cancel"];
    // Config adjustment buttons
    integer count = llGetListLength(adjustValues);
    integer index;
    for(index = 0; (index < count) && (index < 3); index++){
        string sValue = llList2String(adjustValues, index);
        if((float)sValue != 0){
            positiveButtons += ["+" + sValue];
            negativeButtons += ["-" + sValue];
        }
    }
    // Check positive/negative button
    if(useNegative)
        additionButtons = ["+/-"];
    else additionButtons = [];
    // If there is fourth adjustment button
    if(count > 3){
        if(llGetListLength(additionButtons) == 0) additionButtons = [" "];
        string sValue = llList2String(adjustValues, index);
        additionButtons += ["+" + sValue, "-" + sValue];
    }else if(additionButtons != []) additionButtons += [" ", " "];
   
    // Return list dialog buttons
    return additionButtons + negativeButtons + positiveButtons + dialogControlButtons;
}
setResponse(integer int, string str, key id){
    responseInt = int;
    responseStr = str;
    responseKey = id;
}
checkDialogRequest(integer sender_num, integer num, string str, key id){
      if((num == lnkDialogNotify) || (num == lnkDialogNumericAdjust) || (num == lnkDialog)){
        list data = llParseString2List(str, [seperator], []);
   
        message = llList2String(data, 0);
        timerOut = llList2Integer(data, 1);
        keyId = id;
        requestedNum = sender_num;
        buttons = [];
        returns = [];
   
        if(timerOut > 7200) timerOut = 7200;
   
        integer i;
        integer count = llGetListLength(data);
        for(i=2; i<count;){
            buttons += [llList2String(data, i++)];
            returns += [llList2String(data, i++)];
        }
       
        buttonsCount = llGetListLength(buttons);
   
        if(num == lnkDialogNotify){
            dialogChannel = -((integer)llFrand(8388608))*(255) - (integer)llFrand(8388608) - 11;
            llDialog(keyId, message, buttons, dialogChannel);
            return;
        }else if(num == lnkDialogNumericAdjust)
            redirectState = "NumericAdjustDialog";
        else if(num == lnkDialog){
            if(buttonsCount > 12)
                redirectState = "MultiDialog";
            else redirectState = "Dialog";
        }
       
        state StartDialog;
    }
}
// ********** States **********
default{
    state_entry(){
        if(responseInt > 0) llMessageLinked(requestedNum, responseInt, responseStr, responseKey);
    }
   
    link_message(integer sender_num, integer num, string str, key id){
        checkDialogRequest(sender_num, num, str, id);
    }
}
state StartDialog{
    state_entry(){
        if(redirectState == "Dialog")                  state Dialog;
        else if(redirectState == "MultiDialog")         state MultiDialog;
        else if(redirectState == "NumericAdjustDialog") state NumericAdjustDialog;
        else state default;
    }
}
state Dialog{
    state_entry(){
        responseInt = -1;
        dialogChannel = createDialog(keyId, message, buttons);
        llSetTimerEvent(timerOut);
    }
   
    state_exit(){
        llSetTimerEvent(0);
    }
   
    on_rez(integer start_param){
        state default;
    }
   
    timer(){
        setResponse(lnkDialogTimeOut, "", keyId);
        //llMessageLinked(requestedNum, lnkDialogTimeOut, "", keyId);
        state default;
    }
   
    link_message(integer sender_num, integer num, string str, key id){
        if(num == lnkDialogReshow){
            dialogChannel = createDialog(keyId, message, buttons);
            llSetTimerEvent(timerOut);
        }else if(num == lnkDialogCancel) state default;
        else checkDialogRequest(sender_num, num, str, id);
    }
    listen(integer channel, string name, key id, string msg){
        if((channel != dialogChannel) || (id != keyId)) return;
       
        integer index = llListFindList(buttons, [msg]);
        setResponse(lnkDialogResponse, llList2String(returns, index), keyId);
        //llMessageLinked(requestedNum, lnkDialogResponse, llList2String(returns, index), keyId);
        state default;
    }
}
state MultiDialog {
    state_entry(){
        responseInt = -1;
        startItemNo = 0;
        dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
        llSetTimerEvent(timerOut);
    }
   
    state_exit(){
        llSetTimerEvent(0);
    }
   
    on_rez(integer start_param){
        state default;
    }
   
    timer(){
        setResponse(lnkDialogTimeOut, "", keyId);
        state default;
    }
   
    link_message(integer sender_num, integer num, string str, key id){
        if(num == lnkDialogReshow){
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
            llSetTimerEvent(timerOut);
        }else if(num == lnkDialogCancel) state default;
        else checkDialogRequest(sender_num, num, str, id);
    }
    listen(integer channel, string name, key id, string msg){
        if((channel != dialogChannel) || (id != keyId)) return;
        // Dialog control buttons
        if(msg == "<< BACK"){
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo - 9);
            llSetTimerEvent(timerOut);
        }else if(msg == "NEXT >>"){
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo + 9);
            llSetTimerEvent(timerOut);
        }else if(msg == " "){
            dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
            llSetTimerEvent(timerOut);
       
        // Response buttons
        }else{
            integer index = llListFindList(buttons, [msg]);
            setResponse(lnkDialogResponse, llList2String(returns, index), keyId);
            //llMessageLinked(requestedNum, lnkDialogResponse, llList2String(returns, index), keyId);
            state default;
        }
    }
}
state NumericAdjustDialog {
    state_entry(){
        responseInt = -1;
        numericValue = llList2Float(returns, 0);
        useInteger = llList2Integer(returns, 2);
        buttons = generateNumericAdjustButtons(buttons, llList2Integer(returns, 1));
       
        string vMessage;
        if(useInteger)
            vMessage = replaceString("{VALUE}", (string)((integer)numericValue), message);
        else vMessage = replaceString("{VALUE}", (string)numericValue, message);
       
        dialogChannel = createDialog(keyId, vMessage, buttons);
        llSetTimerEvent(timerOut);
    }
   
    state_exit(){
        llSetTimerEvent(0);
    }
   
    on_rez(integer start_param){
        state default;
    }
   
    timer(){
        setResponse(lnkDialogTimeOut, "", keyId);
        //llMessageLinked(requestedNum, lnkDialogTimeOut, "", keyId);
        state default;
    }
   
    link_message(integer sender_num, integer num, string str, key id){
        if(num == lnkDialogReshow){
            dialogChannel = createDialog(keyId, message, buttons);
            llSetTimerEvent(timerOut);
        }else if(num == lnkDialogCancel) state default;
        else checkDialogRequest(sender_num, num, str, id);
    }
    listen(integer channel, string name, key id, string msg){
        if((channel != dialogChannel) || (id != keyId)) return;
       
        // Dialog control button is hit
        if(msg == "OK"){
            setResponse(lnkDialogResponse, (string)numericValue, keyId);
            //llMessageLinked(requestedNum, lnkDialogResponse, (string)numericValue, keyId);
            state default;
        }else if(msg == "Cancel"){
            setResponse(lnkDialogCanceled, (string)numericValue, keyId);
            llMessageLinked(requestedNum, lnkDialogCanceled, (string)numericValue, keyId);
            state default;
       
        // Value adjustment button is hit
        }else if(msg == "+/-")
            numericValue = -numericValue;
        else if(llSubStringIndex(msg, "+") == 0)
            numericValue += (float)llDeleteSubString(msg, 0, 0);
        else if(llSubStringIndex(msg, "-") == 0)
            numericValue -= (float)llDeleteSubString(msg, 0, 0);
       
        // Spawn another dialog if no OK nor Cancel is hit
        string vMessage;
        if(useInteger)
            vMessage = replaceString("{VALUE}", (string)((integer)numericValue), message);
        else vMessage = replaceString("{VALUE}", (string)numericValue, message);
        dialogChannel = createDialog(keyId, vMessage, buttons);
        llSetTimerEvent(timerOut);
     }
     }
}
 
    listen(integer channel, string name, key id, string msg){
        if((channel != dialogChannel) || (id != keyId)) return;
       
        // Dialog control button is hit
        if(msg == "OK"){
            setResponse(lnkDialogResponse, (string)numericValue, keyId);
            //llMessageLinked(requestedNum, lnkDialogResponse, (string)numericValue, keyId);
            state default;
        }else if(msg == "Cancel"){
            setResponse(lnkDialogCanceled, (string)numericValue, keyId);
            llMessageLinked(requestedNum, lnkDialogCanceled, (string)numericValue, keyId);
            state default;
       
        // Value adjustment button is hit
        }else if(msg == "+/-")
            numericValue = -numericValue;
        else if(llSubStringIndex(msg, "+") == 0)
            numericValue += (float)llDeleteSubString(msg, 0, 0);
        else if(llSubStringIndex(msg, "-") == 0)
            numericValue -= (float)llDeleteSubString(msg, 0, 0);
       
        // Spawn another dialog if no OK nor Cancel is hit
        string vMessage;
        if(useInteger)
            vMessage = replaceString("{VALUE}", (string)((integer)numericValue), message);
        else vMessage = replaceString("{VALUE}", (string)numericValue, message);
        dialogChannel = createDialog(keyId, vMessage, buttons);
        llSetTimerEvent(timerOut);
  }
}
</lsl>
</lsl>
{{LSLC|Library|Dialog Control}}
{{LSLC|Library|Dialog Control}}

Revision as of 05:32, 26 February 2008

This is example of usage and function library needed in each scripts to use this dialog module.

Functions List
  1. Standard dialog with buttons. There can be more than 12 buttons.
    • dialog(key id, string message, list buttons, list returns);
  1. Normal notification dialog, ie: dialog which requires no response from user.
    • dialogNotify(key id, string message);
  1. To display current dialog again:
    • dialogReshow();
  1. To cancel current dialog; Currently displayed dialog will give no response when clicked.
    • dialogCancel();

If anyone uses this module, please IM Nargus Asturias, I'd love to hear what you think.

<lsl> // Dialog constants integer lnkDialog = 14001; integer lnkDialogNotify = 14004; integer lnkDialogResponse = 14002; integer lnkDialogTimeOut = 14003;

integer lnkDialogReshow = 14011; integer lnkDialogCancel = 14012;

string seperator = "||"; integer dialogTimeOut = 0;

// ********** DIALOG FUNCTIONS ********** string packDialogMessage(string message, list buttons, list returns){ 

   string packed_message = message + seperator + (string)dialogTimeOut;
   
   integer i;
   integer count = llGetListLength(buttons);
   for(i=0; i<count; i++){
       string button = llList2String(buttons, i);
       if(llStringLength(button) > 24) button = llGetSubString(button, 0, 23);
       packed_message += seperator + button + seperator + llList2String(returns, i);
   }

   return packed_message;

}

dialogReshow(){llMessageLinked(LINK_THIS, lnkDialogReshow, "", NULL_KEY);} dialogCancel(){ 

   llMessageLinked(LINK_THIS, lnkDialogCancel, "", NULL_KEY);
   llSleep(1);

}

dialog(key id, string message, list buttons, list returns){ 

   llMessageLinked(LINK_THIS, lnkDialog, packDialogMessage(message, buttons, returns), id);

}

dialogNotify(key id, string message){ 

   list rows;
  
   llMessageLinked(LINK_THIS, lnkDialogNotify,
       message + seperator + (string)dialogTimeOut + seperator,
       id);

} // ********** END DIALOG FUNCTIONS **********


default{ 

  state_entry(){
      llSetText("Touch me to show dialog", <1,1,1>, 1);
  }

  link_message(integer sender_num, integer num, string str, key id){
      if(num == lnkDialogTimeOut){
          dialogNotify(llGetOwner(), "Menu time-out. Please try again.");
          state default;
      }else if(num == lnkDialogResponse){
          llWhisper(0, str);
      }
  }
  
  touch(integer num_detected){
      dialog(llGetOwner(),
      
          // Dialog message here
          "Messages go here",
          
          // List of dialog buttons
          [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, "Close" ],

          // List of return value from the buttons, in same order
          // Note that this value do not need to be the same as button texts
          [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, "X" ]
      );
  }

} </lsl>

Nargus Dialog Control v1.58 (by Nargus Asturias)

<lsl> // ********** SIMPLE DIALOG MODULE ********** // // By Nargus Asturias // Version 1.55 // // Support only one dialog at a time. DO NOT request multiple dialog at once! // Use of provided functions are recommented. Instruction here are for hardcore programmers only! // // Request: Send MessageLinked to the script. There are 3 dialog modes: // lnkDialog  : Normal dialog with message and buttons // lnkDialogNumericAdjust  : A dialog with buttons can be used to adjust numeric value // lnkDialogNotify  : Just a simple notification dialog. No return value and no buttons. // // Send MessageLinked with code lnkDialogReshow to force active dialog to reappear. // Send MessageLinked with code lnkDialogCancel to force cancel active dialog // // If a lnkDialog is requested with more than 12 buttons, multi-pages dialog is used to show the buttons. // // [ For lnkDialog ] // MessageLinked Format: // String part: List dumped into string, each entry seperated by '||' // Field 1: Dialog message (512 bytes maximum) // Field 2: Time-out data (integer) // Field 3-4: Button#1 and return value pair // Field 5-6: Button#2 and return value pair // And go on... // Key part: Key of AV who attend this dialog // // Response: MessageLinked to the prim that requested dialog (but no where else) // num == lnkDialogResponse: AV click on a button. The buttons value returned as a string // num == lnkDialogTimeOut: Dialog timeout. // // [ For lnkDialogNumericAdjust ] // MessageLinked Format: // String part: List dumped into string, each entry seperated by '||' // Field 1: Dialog message (512 bytes maximum) // Put {VALUE} where you want the current value to be displayed) // Field 2: Time-out data (integer) // Field 3: Most significant value (ie. 100, for +/-100) // Field 4: String-casted numeric value to be adjusted // Field 5: 2nd most significant value (ie. 10, for +/-10) // Field 6: Use '1' to enable "+/-" button, '0' otherwise. // Field 7: 3nd significant value (ie. 1, for +/-1) // Field 8: Use '1' for integer, or '0' for float // Field 9: Least significant value (ie. 0.1, for +/-0.1) // Field 10: Reserved. Not used. // Key part: Key of AV who attend this dialog // // Response: MessageLinked to the prim that requested dialog (but no where else) // num == lnkDialogResponse: OK or Cancel button is clicked. The final value returned as string. // num == lnkDialogTimeOut: Dialog timeout. // // ******************************************* //

// Constants integer lnkDialog = 14001; integer lnkDialogNumericAdjust = 14005; integer lnkDialogNotify = 14004;

integer lnkDialogReshow = 14011; integer lnkDialogCancel = 14012;

integer lnkDialogResponse = 14002; // A button is hit, or OK is hit for lnkDialogNumericAdjust integer lnkDialogCanceled = 14006; // Cancel is hit for lnkDialogNumericAdjust integer lnkDialogTimeOut = 14003; // No button is hit, or Ignore is hit

string seperator = "||";

// Dialog variables integer dialogChannel; // Channel number used to spawn this dialog string message; // Message to be shown with the dialog integer timerOut; // Dialog time-out key keyId; // Key of user who attending this dialog integer requestedNum; // Link-number of the requested prim list buttons; // List of dialog buttons list returns; // List of results from dialog buttons

float numericValue; integer useInteger;

// Other variables integer buttonsCount; integer startItemNo; integer listenId;

string redirectState;

integer responseInt = -1; string responseStr; key responseKey;


// ********** String Functions ********** string replaceString(string pattern, string replace, string source){ 

   integer index = llSubStringIndex(source, pattern);
   if(index < 0) return source;
   
   source = llDeleteSubString(source, index, (index + llStringLength(pattern) - 1));
   return llInsertString(source, index, replace);

}

// ********** Dialog Functions ********** // Function: createDialog // Create dialog with given message and buttons, direct to user with give id integer createDialog(key id, string message, list buttons){ 

   integer channel = -((integer)llFrand(8388608))*(255) - (integer)llFrand(8388608) - 11;

   llListenRemove(listenId);
   listenId = llListen(channel, "", keyId, "");
   llDialog(keyId, message, buttons, channel);

   return channel;

}

// Function: createMultiDialog // Create dialog with multiple pages. Each page has Back, Next, and a Close button. Otherwise same functionality as createDialog() function. integer createMultiDialog(key id, string message, list buttons, integer _startItemNo){ 

   integer channel = -llRound(llFrand( llFabs(llSin(llGetGMTclock())) * 1000000 )) - 11;

   if(_startItemNo < 0) _startItemNo = 0;
   if(_startItemNo >= buttonsCount - 1) _startItemNo -= 9;
   startItemNo = _startItemNo;
   
   integer vButtonsCount = buttonsCount - 2;
   
   // Generate list of buttons to be shown
   string closeButton = llList2String(buttons, buttonsCount - 1);
   
   integer stopItemNo = startItemNo + 8;
   if(stopItemNo >= buttonsCount - 1) stopItemNo = vButtonsCount;

   list thisButtons = llList2List(buttons, startItemNo, stopItemNo);

   // Generate dialog navigation buttons
   integer i = stopItemNo - startItemNo + 1;
   i = i % 3;
   if(i > 0) while(i < 3){
       thisButtons += [" "];
       ++i;
   }
  
   if(startItemNo > 0)
       thisButtons += ["<< BACK"];
   else thisButtons += [" "];
   
   thisButtons += [closeButton];
   
   if(stopItemNo < vButtonsCount)
       thisButtons += ["NEXT >>"];
   else thisButtons += [" "];
   
   // Append page number to the message
   integer pageNumber = (integer)(stopItemNo / 9) + 1;
   integer pagesCount = llCeil(vButtonsCount / 9.0);
   string vMessage = "PAGE: " + (string)pageNumber + " of " + (string)pagesCount + "\n" +
       message;

   // Display dialog
   llListenRemove(listenId);
   listenId = llListen(channel, "", keyId, "");
   llDialog(keyId, vMessage, thisButtons, channel);

   return channel;

}

// Function: generateNumericAdjustButtons // Generate numeric adjustment dialog which adjustment values are in given list. // If useNegative is TRUE, "+/-" button will be available. list generateNumericAdjustButtons(list adjustValues, integer useNegative){ 

   list dialogControlButtons;
   list positiveButtons;
   list negativeButtons;
   list additionButtons;

   dialogControlButtons = ["OK", "Cancel"];

   // Config adjustment buttons
   integer count = llGetListLength(adjustValues);
   integer index;
   for(index = 0; (index < count) && (index < 3); index++){
       string sValue = llList2String(adjustValues, index);

       if((float)sValue != 0){
           positiveButtons += ["+" + sValue];
           negativeButtons += ["-" + sValue];
       }
   }

   // Check positive/negative button
   if(useNegative)
       additionButtons = ["+/-"];
   else additionButtons = [];

   // If there is fourth adjustment button
   if(count > 3){
       if(llGetListLength(additionButtons) == 0) additionButtons = [" "];

       string sValue = llList2String(adjustValues, index);
       additionButtons += ["+" + sValue, "-" + sValue];
   }else if(additionButtons != []) additionButtons += [" ", " "];
   
   // Return list dialog buttons
    return additionButtons + negativeButtons + positiveButtons + dialogControlButtons;

}

setResponse(integer int, string str, key id){ 

   responseInt = int;
   responseStr = str;
   responseKey = id;

}

checkDialogRequest(integer sender_num, integer num, string str, key id){ 

    if((num == lnkDialogNotify) || (num == lnkDialogNumericAdjust) || (num == lnkDialog)){
       list data = llParseString2List(str, [seperator], []);
   
       message = llList2String(data, 0);
       timerOut = llList2Integer(data, 1);
       keyId = id;
       requestedNum = sender_num;
       buttons = [];
        returns = [];
   
       if(timerOut > 7200) timerOut = 7200;
   
       integer i;
       integer count = llGetListLength(data);
       for(i=2; i<count;){
           buttons += [llList2String(data, i++)];
           returns += [llList2String(data, i++)];
       }
       
       buttonsCount = llGetListLength(buttons);
   
       if(num == lnkDialogNotify){
           dialogChannel = -((integer)llFrand(8388608))*(255) - (integer)llFrand(8388608) - 11;
           llDialog(keyId, message, buttons, dialogChannel);
           return;
       }else if(num == lnkDialogNumericAdjust)
           redirectState = "NumericAdjustDialog";
       else if(num == lnkDialog){
           if(buttonsCount > 12)
               redirectState = "MultiDialog";
           else redirectState = "Dialog";
       }
       
       state StartDialog;
   }

}

// ********** States ********** default{ 

   state_entry(){
       if(responseInt > 0) llMessageLinked(requestedNum, responseInt, responseStr, responseKey);
   }
   
   link_message(integer sender_num, integer num, string str, key id){
       checkDialogRequest(sender_num, num, str, id);
   }

}

state StartDialog{ 

   state_entry(){
       if(redirectState == "Dialog")                   state Dialog;
       else if(redirectState == "MultiDialog")         state MultiDialog;
       else if(redirectState == "NumericAdjustDialog") state NumericAdjustDialog;
       else state default;
   }

}

state Dialog{ 

   state_entry(){
       responseInt = -1;
       dialogChannel = createDialog(keyId, message, buttons);
       llSetTimerEvent(timerOut);
   }
   
   state_exit(){
       llSetTimerEvent(0);
   }
   
   on_rez(integer start_param){
       state default;
   }
   
   timer(){
       setResponse(lnkDialogTimeOut, "", keyId);
       //llMessageLinked(requestedNum, lnkDialogTimeOut, "", keyId);
       state default;
   }
   
   link_message(integer sender_num, integer num, string str, key id){
       if(num == lnkDialogReshow){
           dialogChannel = createDialog(keyId, message, buttons);
           llSetTimerEvent(timerOut);
       }else if(num == lnkDialogCancel) state default;

       else checkDialogRequest(sender_num, num, str, id);
   }

   listen(integer channel, string name, key id, string msg){
       if((channel != dialogChannel) || (id != keyId)) return;
       
       integer index = llListFindList(buttons, [msg]);
       setResponse(lnkDialogResponse, llList2String(returns, index), keyId);
       //llMessageLinked(requestedNum, lnkDialogResponse, llList2String(returns, index), keyId);
       state default;
   }

}

state MultiDialog { 

   state_entry(){
       responseInt = -1;
       startItemNo = 0;
       dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
       llSetTimerEvent(timerOut);
   }
   
   state_exit(){
       llSetTimerEvent(0);
   }
   
   on_rez(integer start_param){
       state default;
   }
   
   timer(){
       setResponse(lnkDialogTimeOut, "", keyId);
       state default;
   }
   
   link_message(integer sender_num, integer num, string str, key id){
       if(num == lnkDialogReshow){
           dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
           llSetTimerEvent(timerOut);
       }else if(num == lnkDialogCancel) state default;

       else checkDialogRequest(sender_num, num, str, id);
   }

   listen(integer channel, string name, key id, string msg){
       if((channel != dialogChannel) || (id != keyId)) return;

       // Dialog control buttons
       if(msg == "<< BACK"){
           dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo - 9);
           llSetTimerEvent(timerOut);
       }else if(msg == "NEXT >>"){
           dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo + 9);
           llSetTimerEvent(timerOut);
       }else if(msg == " "){
           dialogChannel = createMultiDialog(keyId, message, buttons, startItemNo);
           llSetTimerEvent(timerOut);
       
       // Response buttons
       }else{
           integer index = llListFindList(buttons, [msg]);
           setResponse(lnkDialogResponse, llList2String(returns, index), keyId);
           //llMessageLinked(requestedNum, lnkDialogResponse, llList2String(returns, index), keyId);
           state default;
       }
   }

}

state NumericAdjustDialog { 

   state_entry(){
       responseInt = -1;

       numericValue = llList2Float(returns, 0);
       useInteger = llList2Integer(returns, 2);
       buttons = generateNumericAdjustButtons(buttons, llList2Integer(returns, 1));
       
       string vMessage;
       if(useInteger)
           vMessage = replaceString("{VALUE}", (string)((integer)numericValue), message);
       else vMessage = replaceString("{VALUE}", (string)numericValue, message);
       
       dialogChannel = createDialog(keyId, vMessage, buttons);
       llSetTimerEvent(timerOut);
   }
   
   state_exit(){
       llSetTimerEvent(0);
   }
   
   on_rez(integer start_param){
       state default;
   }
   
   timer(){
       setResponse(lnkDialogTimeOut, "", keyId);
       //llMessageLinked(requestedNum, lnkDialogTimeOut, "", keyId);
       state default;
   }
   
   link_message(integer sender_num, integer num, string str, key id){
       if(num == lnkDialogReshow){
           dialogChannel = createDialog(keyId, message, buttons);
           llSetTimerEvent(timerOut);
       }else if(num == lnkDialogCancel) state default;

       else checkDialogRequest(sender_num, num, str, id);
   }

   listen(integer channel, string name, key id, string msg){
       if((channel != dialogChannel) || (id != keyId)) return;
       
       // Dialog control button is hit
       if(msg == "OK"){
           setResponse(lnkDialogResponse, (string)numericValue, keyId);
           //llMessageLinked(requestedNum, lnkDialogResponse, (string)numericValue, keyId);
           state default;
       }else if(msg == "Cancel"){
           setResponse(lnkDialogCanceled, (string)numericValue, keyId);
           llMessageLinked(requestedNum, lnkDialogCanceled, (string)numericValue, keyId);
           state default;
       
       // Value adjustment button is hit
       }else if(msg == "+/-")
           numericValue = -numericValue;
       else if(llSubStringIndex(msg, "+") == 0)
           numericValue += (float)llDeleteSubString(msg, 0, 0);
       else if(llSubStringIndex(msg, "-") == 0)
           numericValue -= (float)llDeleteSubString(msg, 0, 0);
       
       // Spawn another dialog if no OK nor Cancel is hit
       string vMessage;
       if(useInteger)
           vMessage = replaceString("{VALUE}", (string)((integer)numericValue), message);
       else vMessage = replaceString("{VALUE}", (string)numericValue, message);
       dialogChannel = createDialog(keyId, vMessage, buttons);
       llSetTimerEvent(timerOut);
  }

} </lsl>

Retrieved from "https://wiki.secondlife.com/w/index.php?title=Dialog_Control&oldid=56121"