Difference between revisions of "Dialog NumberPad"
Jump to navigation
Jump to search
m (<lsl> tag to <source>) |
m (Replaced <source> with <syntaxhighlight>) |
||
| Line 3: | Line 3: | ||
---- | ---- | ||
< | <syntaxhighlight lang="lsl2"> | ||
// Dialog Number Pad | // Dialog Number Pad | ||
// DoteDote Edison | // DoteDote Edison | ||
| Line 74: | Line 74: | ||
} | } | ||
} | } | ||
</ | </syntaxhighlight> | ||
---- | ---- | ||
[[Category:LSL Library]] | [[Category:LSL Library]] | ||
Latest revision as of 05:04, 12 April 2022
| LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
// Dialog Number Pad
// DoteDote Edison
// 1-26-2007
// Dialog module which acts as a simple positive integer number pad.
// Send a link_message with the following format:
// integer num = max number of digits allowed
// string msg = "numpad_open"
// key id = key of the avatar the dialog should target
// A return link_message will be sent with the following format:
// integer num = The number entered by the dialog user
// string msg = "numpad_close"
// key id = key of the avatar who used the dialog
// Things to-do:
// --Add floating point compatability
// --Add negative sign
// --Add undo or cancel button (12-button limit makes this difficult)
float time_limit = 15.0; // seconds before dialog times-out
list numpad_buttons = ["0","00","Done", "7","8","9", "4","5","6", "1","2","3"];
key numpad_user;
string numpad_number;
integer numpad_channel;
integer numpad_sender;
integer numpad_limit;
default {
link_message(integer sender, integer n, string msg, key id) {
if (msg == "numpad_open" && id != NULL_KEY) {
numpad_sender = sender;
numpad_limit = n;
numpad_user = id;
state numberPad;
}
}
}
state numberPad {
state_entry() {
numpad_number = "";
numpad_channel = llCeil(llFrand(9999));
llListen(numpad_channel, "", numpad_user, "");
llDialog(numpad_user, "Use buttons to enter a number.", numpad_buttons, numpad_channel);
llSetTimerEvent(time_limit);
}
listen(integer ch, string n, key id, string msg) {
if (msg == "Done") state default;
numpad_number += msg;
integer length = llStringLength(numpad_number);
if (length < numpad_limit) {
llSetTimerEvent(time_limit);
llDialog(numpad_user, "Current number: " + numpad_number, numpad_buttons, numpad_channel);
}
else state default;
}
timer() {
llInstantMessage(numpad_user, "Dialog timed-out...");
state default;
}
state_exit() {
llSetTimerEvent(0.0);
integer numpad_return = (integer)llGetSubString(numpad_number, 0, numpad_limit - 1);
llMessageLinked(numpad_sender, numpad_return, "numpad_close", numpad_user);
numpad_sender = -1;
numpad_limit = -1;
numpad_user = NULL_KEY;
}
}