Difference between revisions of "User:Fred Gandt/Scripts/Continued 3"
< User:Fred Gandt | Scripts
Jump to navigation
Jump to search
Fred Gandt (talk | contribs) (Started new page. (needs finishing but I needed to save in case of an expected crash)) |
Fred Gandt (talk | contribs) m (→More Pages: Sorry bout all the lil edits.) |
||
| Line 12: | Line 12: | ||
'''[[User:Fred_Gandt/Scripts/Continued_1| More Free Scripts]]''' | '''[[User:Fred_Gandt/Scripts/Continued_1| More Free Scripts]]''' | ||
'''[[User:Fred_Gandt/Scripts/Continued_2| Even More Free Scripts]]''' | |||
=== Legal Stuff === | === Legal Stuff === | ||
Revision as of 21:06, 5 March 2010
| 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
Notes
<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>
More Notes
<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>
More Notes
<lsl>
</lsl>
More Notes
<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>