Difference between revisions of "Textbox2Hovertext"
Jump to navigation
Jump to search
Ackley Bing (talk | contribs) m (moved User:Ackley Bing/Textbox2Hovertext to Textbox2Hovertext) |
m (<lsl> tag to <source>) |
||
(2 intermediate revisions by one other user not shown) | |||
Line 1: | Line 1: | ||
< | <source lang="lsl2"> | ||
// Textbox2Hovertext by Ackley Bing & Omei Qunhua | // Textbox2Hovertext by Ackley Bing & Omei Qunhua | ||
// A simple script to allow object owners to change the "hovertext" | // A simple script to allow object owners to change the "hovertext" | ||
Line 10: | Line 10: | ||
touch_start(integer num) | touch_start(integer num) | ||
{ | { | ||
key | key Writer = llDetectedKey(0); | ||
if( | if(Writer!=llGetOwner()) return; // remove this line to allow anyone to change the hover text | ||
llListenRemove(listenhandle); | llListenRemove(listenhandle); | ||
llSetTimerEvent(60.0); // Time to input text until script closes listener in case target doesnt enter anything into textbox | llSetTimerEvent(60.0); // Time to input text until script closes listener in case target doesnt enter anything into textbox | ||
listenhandle=llListen(-12345, "", | listenhandle=llListen(-12345, "", Writer, ""); | ||
llTextBox( | llTextBox( Writer, "Set Hovertext", -12345); | ||
} | } | ||
listen(integer channel, string name, key id, string message) | listen(integer channel, string name, key id, string message) | ||
Line 29: | Line 29: | ||
} | } | ||
} | } | ||
</ | </source> | ||
[[Category:LSL Library]] | [[Category:LSL Library]] |
Latest revision as of 08:48, 25 January 2015
// Textbox2Hovertext by Ackley Bing & Omei Qunhua
// A simple script to allow object owners to change the "hovertext"
// on their prims using a text entry box (llTextBox).
integer listenhandle;
default
{
touch_start(integer num)
{
key Writer = llDetectedKey(0);
if(Writer!=llGetOwner()) return; // remove this line to allow anyone to change the hover text
llListenRemove(listenhandle);
llSetTimerEvent(60.0); // Time to input text until script closes listener in case target doesnt enter anything into textbox
listenhandle=llListen(-12345, "", Writer, "");
llTextBox( Writer, "Set Hovertext", -12345);
}
listen(integer channel, string name, key id, string message)
{
llSetText(message, <1, 1, 1>, 1);
llListenRemove(listenhandle);
llSetTimerEvent(0.0);
}
timer()
{
llListenRemove(listenhandle);
llSetTimerEvent(0.0);
}
}