Difference between revisions of "Textbox2Hovertext"

From Second Life Wiki
Jump to navigation Jump to search
m (<lsl> tag to <source>)
 
(2 intermediate revisions by one other user not shown)
Line 1: Line 1:
<lsl>
<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 target = llDetectedKey(0);
         key Writer = llDetectedKey(0);
         if(target!=llGetOwner()) return; // remove this line to allow anyone to change the hover text
         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, "", target, "");
         listenhandle=llListen(-12345, "", Writer, "");
         llTextBox( target, "Set Hovertext", -12345);
         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:
     }
     }
}
}
</lsl>
</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);
    }
}