Difference between revisions of "User:DoteDote Edison"

From Second Life Wiki
Jump to navigation Jump to search
 
m
 
(20 intermediate revisions by 3 users not shown)
Line 1: Line 1:
Not a Wiki pro, so using this page to figure out how to format properly.
{{LSL Header}}
<lsl>
Thinker | Trouble-shooter | Problem-Solver
// Dialog Number Pad
----
// DoteDote Edison
// 1-26-2007


// Dialog module which acts as a simple positive integer number pad.
{{visl
// Send a link_message with the following format:
|name=DoteDote Edison
//    integer num = max number of digits allowed
|Greeters=
//    string msg  = "numpad_open"
|Helpers=*
//    key id      = key of the avatar the dialog should target
|Instructors=
// A return link_message will be sent with the following format:
|Mentors=*
//    integer num = The number entered by the dialog user
|LSL=
//    string msg  = "numpad_close"
|i18n=
//    key id      = key of the avatar who used the dialog
|l10n=
 
|SL4B=
// Things to-do:
|}}
// --Add floating point compatability
{{skills
// --Add negative sign
|Builder=*
// --Add undo or cancel button (12-button limit makes this difficult)
|Scripter=*
 
|}}
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;
    }
}
</lsl>

Latest revision as of 21:35, 5 October 2008

Thinker | Trouble-shooter | Problem-Solver

Retrieved from "https://wiki.secondlife.com/w/index.php?title=User:DoteDote_Edison&oldid=94546"