User:Fred Gandt/Scripts/Continued 3
| LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
My Contributions
More Pages
Legal Stuff
The legal stuff about contributing to this wiki (worth reading).
Tuition
Tuition scripts, notes, videos and screenshots etc. (hardly any content yet)
Free Scripts
Script'n'Chat
This script is useful for presentations like teaching etc. It will post text from notecards in inventory at any of the 3 volumes we have ("Whisper", "Say" and "Shout"). It can read from a script or convert ad-lib text by using an open NC as a chat window. Explanations to follow.
First you need the object (as a HUD). Create a two prim link_set and drop the following script on it. That's the basic object. Then add to it two NC's, one called "Chat" and another called "Script". Then add the script from further down this page.
HUD Maker
<lsl>default {
state_entry()
{
llSetPrimitiveParams([7,<0.01,0.58,0.04>,
8,<0.0,0.0,1.0,0.0>,
9,2,0,<0.174980,0.825,0.0>,0.0,<0.0,0.0,0.0>,<1.0,1.0,0.0>,<0.0,0.0,0.0>,
17,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,1,"51519f67-926a-3301-ee64-db65c0cf1b39",<1.0,0.15,0.0>,<0.74,0.0,0.0>,0.0,
17,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,3,"0a24d0af-47a5-c7a1-e18d-2b19c5ada706",<1.0,0.15,0.0>,<0.251,0.43,0.0>,0.0,
17,4,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,5,"0a24d0af-47a5-c7a1-e18d-2b19c5ada706",<0.5,0.15,0.0>,<0.0,-0.415,0.0>,0.0,
17,6,"0a24d0af-47a5-c7a1-e18d-2b19c5ada706",<0.5,0.15,0.0>,<0.0,0.0,0.0>,0.0,
18,0,<1.0,1.0,1.0>,1.0,
18,1,<1.0,0.0,0.0>,1.0,
18,2,<1.0,1.0,1.0>,1.0,
18,3,<1.0,0.0,0.0>,1.0,
18,4,<1.0,1.0,1.0>,1.0,
18,5,<1.0,0.0,0.0>,1.0,
18,6,<0.0,1.0,0.0>,1.0,
19,0,0,0,
19,1,0,1,
19,2,0,0,
19,3,0,1,
19,4,0,0,
19,5,0,1,
19,6,0,1]);
llSetLinkPrimitiveParams(2, [7,<0.5,0.01,0.04>,
6,<0.0,0.0,0.04>,
8,<-0.000137,0.000137,-0.707107,0.707107>,
9,0,0,<0.375,0.875,0.0>,0.9,<0.0,0.0,0.0>,<1.0,1.0,0.0>,<0.0,0.0,0.0>,
17,0,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,1,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,2,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,3,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,4,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,5,"5748decc-f629-461c-9a36-a35a221fe21f",<1.0,1.0,0.0>,<0.0,0.0,0.0>,0.0,
17,6,"c8433f60-3070-a4b7-dca3-a8ee279b6cfb",<0.7,0.8,0.0>,<0.0,0.0,0.0>,-1.570796,
17,7,"c8433f60-3070-a4b7-dca3-a8ee279b6cfb",<0.7,0.8,0.0>,<0.0,0.0,0.0>,1.570796,
18,0,<1.0,1.0,1.0>,1.0,
18,1,<1.0,1.0,1.0>,1.0,
18,2,<1.0,1.0,1.0>,1.0,
18,3,<1.0,1.0,1.0>,1.0,
18,4,<0.0,0.0,0.0>,1.0,
18,5,<1.0,1.0,1.0>,1.0,
18,6,<1.0,1.0,1.0>,1.0,
18,7,<1.0,1.0,1.0>,1.0]);
llRemoveInventory(llGetScriptName());
}
}</lsl>
The NC's can contain empty lines but, don't have two empty lines one after the other. That would cause the reading to end. Each line is any text added without pressing the return key. There are limits to how much text can be chatted in one go. This is a very basic script and those limits need to be worked within. The following NC would read as 12 lines each of which would be chatted separately.
The "Script" NC
<lsl>Confessions of a cigar smoker
I owe to smoking, more or less, Through life the whole of my success; With my Cigar I'm sage and wise - Without, I'm dull as cloudy skies. When smoking all my ideas soar, When not, they sink upon the floor. The greatest men have all been smokers, And so were all the greatest jokers. Then ye who'd bid adieu to care, Come here and smoke it into air.</lsl>
Another NC called "Chat" allows that you can chat from the same object at whatever volume is set. This NC when opened from the HUD inventory and left open on screen when the edit to the object contents is closed acts like a chat window (it can be minimized). Only the first line will be read from it. Add the text to chat and click "save". The next time you want to use that option overwrite the last text. ONE LINE ONLY.
The "Chat" NC
<lsl>Whatever text you want to chat...
</lsl>
The following is the working script for the HUD. Place it with the NC's in the root contents. It will automatically read the NC "Script" and automatically re-read it if it is changed. Don't change the names of the NC's (I didn't make this a sophisticated script and thus it is a bit sensitive to everything being done correctly).
There are 7 buttons -
- 2 Arrow buttons for searching a preview of the lines stored to the script memory from the "Script" NC.
- Behind the preview of the selected line to chat is a black background. This is the face to touch to chat the displayed line.
- 3 buttons marked "WHISPER", "SAY" and "SHOUT". They are the volume selections. The volume selected will be for both "Script"ed chat and "Chat"ed chat.
- A button marked "CHATTY". This is an on/off button for whether to chat the changes you make to the "Chat" NC. If using that option make sure "CHATTY" is selected (green).
Script'n'Chat script
<lsl>key CHAT_id;
key SCRIPT_key;
integer SCRIPT_line;
integer SCRIPT_count;
key SCRIPT_id;
key SCRIPT_L_id;
integer SCRIPT_L;
integer volume;
integer chatty;
list script;
key owner;
vector green = <0.0,1.0,0.0>;
vector red = <1.0,0.0,0.0>;
ReadScript() {
SCRIPT_count = 0;
SCRIPT_line = 0;
script = [];
SCRIPT_key = llGetInventoryKey("Script");
SCRIPT_L_id = llGetNumberOfNotecardLines("Script");
}
Spew(string s) {
if(!volume)
llWhisper(0, ("/me \n\n" + s + "\n"));
else if(volume == 1)
llSay(0, ("/me \n\n" + s + "\n"));
else if(volume == 2)
llShout(0, ("/me \n\n" + s + "\n"));
}
Display(integer i) {
string to_display = llList2String(script, i);
llSetText(("LINE " + ((string)(i + 1)) + " of " + ((string)SCRIPT_L) + " -- " + llGetSubString(to_display, 0, 59) + "..."), <1.0,1.0,1.0>, 1.0);
}
default {
on_rez(integer param)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
llSetObjectName(llKey2Name(owner));
llSetText("", ZERO_VECTOR, 0.0);
volume = 1;
llSetPrimitiveParams([PRIM_COLOR, 1, red, 1.0,
PRIM_COLOR, 3, red, 1.0,
PRIM_COLOR, 6, green, 1.0,
PRIM_COLOR, 5, red, 1.0]);
ReadScript();
}
dataserver(key q, string data)
{
if(q == CHAT_id)
{
Spew(data);
}
else if(q == SCRIPT_L_id)
{
SCRIPT_L = ((integer)data);
if(SCRIPT_L)
SCRIPT_id = llGetNotecardLine("Script", SCRIPT_count);
}
else if(q == SCRIPT_id)
{
if(data != EOF)
{
script += [data];
if((++SCRIPT_count) <= SCRIPT_L)
SCRIPT_id = llGetNotecardLine("Script", SCRIPT_count);
}
else
Display(0);
}
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
if(chatty)
CHAT_id = llGetNotecardLine("Chat", 0);
else
{
key k = llGetInventoryKey("Script");
if(k != SCRIPT_key)
{
SCRIPT_key = k;
llSetText("", ZERO_VECTOR, 0.0);
ReadScript();
}
}
}
}
touch_start(integer nd)
{
integer link = llDetectedLinkNumber(0);
integer face = llDetectedTouchFace(0);
if(link == 1)
{
list params;
if(face == 1)
{
chatty = (!chatty);
if(chatty)
params = [PRIM_COLOR, 1, green, 1.0];
else
params = [PRIM_COLOR, 1, red, 1.0];
}
else if(face == 3)
{
volume = 0;
params = [PRIM_COLOR, 3, green, 1.0,
PRIM_COLOR, 6, red, 1.0,
PRIM_COLOR, 5, red, 1.0];
}
else if(face == 6)
{
volume = 1;
params = [PRIM_COLOR, 6, green, 1.0,
PRIM_COLOR, 3, red, 1.0,
PRIM_COLOR, 5, red, 1.0];
}
else if(face == 5)
{
volume = 2;
params = [PRIM_COLOR, 5, green, 1.0,
PRIM_COLOR, 3, red, 1.0,
PRIM_COLOR, 6, red, 1.0];
}
llSetPrimitiveParams(params);
}
else
{
if(face == 7)
{
if(SCRIPT_line == 0)
SCRIPT_line = SCRIPT_L;
Display((--SCRIPT_line));
}
else if(face == 6)
{
if(SCRIPT_line == (SCRIPT_L - 1))
SCRIPT_line = -1;
Display((++SCRIPT_line));
}
else if(face == 4)
Spew(llList2String(script, SCRIPT_line));
}
}
}</lsl>