Second Life Wiki - User contributions [en]

User talk:Lady Sumoku

2023-03-07T06:51:34Z

Lady Sumoku: More testing

Replaced source tag with syntaxhighlight tag... And "lsl2" with "lsl".

<syntaxhighlight lang="lsl">
float min = 1.175494351E-38;
float max = 3.402823466E+38;
float sci = 2.6E-5;
float sci_a = 2.6E+3;
float sci_b = 2.6E3;
float sci_c = 26000.E-1;
float f = 2600;//implicitly typecast to a float
float E = 85.34859;
float cast = (float)"42";//explicit typecast to a float
float Infintity = (float)"inf"; //-- may be negative, will cause a math error if evaluated in LSO, see 'caveats' below
float NotANumber = (float)"nan"; //-- may be negative, will cause a math error if evaluated in LSO, see 'caveats' bleow
</syntaxhighlight>

User talk:Lady Sumoku

2023-03-07T06:48:18Z

Lady Sumoku: Testing new markup tags

<source lang="lsl2">
float min = 1.175494351E-38;
float max = 3.402823466E+38;
float sci = 2.6E-5;
float sci_a = 2.6E+3;
float sci_b = 2.6E3;
float sci_c = 26000.E-1;
float f = 2600;//implicitly typecast to a float
float E = 85.34859;
float cast = (float)"42";//explicit typecast to a float
float Infintity = (float)"inf"; //-- may be negative, will cause a math error if evaluated in LSO, see 'caveats' below
float NotANumber = (float)"nan"; //-- may be negative, will cause a math error if evaluated in LSO, see 'caveats' bleow
</source>

<syntaxhighlight lang="lsl2">
float min = 1.175494351E-38;
float max = 3.402823466E+38;
float sci = 2.6E-5;
float sci_a = 2.6E+3;
float sci_b = 2.6E3;
float sci_c = 26000.E-1;
float f = 2600;//implicitly typecast to a float
float E = 85.34859;
float cast = (float)"42";//explicit typecast to a float
float Infintity = (float)"inf"; //-- may be negative, will cause a math error if evaluated in LSO, see 'caveats' below
float NotANumber = (float)"nan"; //-- may be negative, will cause a math error if evaluated in LSO, see 'caveats' bleow
</syntaxhighlight>

LlTargetOmega test

2015-10-27T19:07:28Z

Lady Sumoku: Edited for style and readability

[[Category:Test Scripts]]
== Tests for [[llTargetOmega]] ==
=== Test 1 ===
<pre>
1) Create two boxes near each other, one above the other.
2) Add the following "TargetOmega cycling" script to each box.
3) Link the boxes together.
4) Click each of the boxes several times to cycle through rotating, rotating at increased speeds, and stopping.
5) Attach the object while it's rotating and verify it continues to rotate.
6) Detach to inventory, then attach it again, and verify it rotates at the same speed.
7) Click each of the boxes several times to cycle through rotating, rotating at increased speeds, and stopping.
8) Drop the object on the ground while it's rotating and verify it continues to rotate.
</pre>
<source lang="lsl2">
//// TargetOmega cycling
float rate = 0.0;
default
{
touch_start(integer total_number)
{
rate += 2.5;
if (rate > 10.0) rate = 0.0;
llOwnerSay("rate = " + (string) rate);
llTargetOmega(<0,0,1>, rate, 0.1);
}
}
////
</source>

=== Test 2 ===
<pre>
1) Create 2 boxes
2) Add the following Rotate Script to one box
</pre>
<source lang="lsl2">
//// Rotate Script
default {
state_entry() { llTargetOmega(<0,0,1>, 1, 1); }
}
////
</source>
<pre>
3) Make both boxes physical.
4) Link the rotating box as a child to the other box.
5) Verify the scripted box no longer rotates.
6) Toggle the linked set non-physical, then physical again.
7) Verify the scripted box is once again rotating, and that the linked set can be pushed around.
</pre>

=== Other tests to add ===

* Rotating around an axis of <0,0,0>

* Physical llTargetOmega prims and objects.

Style Guide

2015-10-27T19:01:46Z

Lady Sumoku: Corrected typo in link description

{{KBtip|While you aren't required to follow this Style Guide to make unofficial Wiki pages, it may help you be a more effective writer, so feel free to adopt these practices!}} {{TOCright}}{{otheruses4|style used in English articles}}

'''Interested in [[Extended Knowledge Base|contributing to the Extended Knowledge Base]]? Please read this style guide to gain a better understanding of the framework we're using to craft beautiful documents which aren't just well-written, but easy-to-read.'''

Our style guide is inspired by successful common conventions such as [http://en.wikipedia.org/wiki/Wikipedia:Manual_of_Style Wikipedia]'s, blended with specifics about the Second Life® experience. This guide is open to evolving over time, yet aims to provide consistency you can refer to when in doubt.

Please note that these style guidelines are meant to be more strictly enforced for material that's part of the Second Life Knowledge Base, but you can feel free to apply them elsewhere on this wiki wherever it may be beneficial! Consistency in communication helps clarity to a degree you may find startling.

Read the main [[Editing Guidelines]] before editing KB articles. Being well-primed will help you get started smoothly. You should also have a basic understanding of [[Help:Contents|wikicode]], a combination of plain text and formatting markup.

Furthermore, feel free to examine any established KB article in detail, such as [[How do I add someone to my Contacts list?]], for examples. Once an article's in the Wiki, of course, you can click the '''Edit''' tab near the top of the screen. You'll need to be logged in.

It is not a replacement for industry standards such as [http://en.wikipedia.org/wiki/The_Chicago_Manual_of_Style The Chicago Manual of Style] or [http://en.wikipedia.org/wiki/The_Elements_of_Style The Elements of Style]. However, when contributing to Linden Lab's written documentation and communication, it's a good idea to read through these notes to be sure your articles are meeting the standards.

== Knowledge Base articles ==

This section discusses the structure of articles and their arrangement within the Knowledge Base as a whole, sort of.

=== Knowledge Base article structure ===

There are two basic types of Knowledge Base article:

# The ones that answer a specific question ("How to save textures to your hard drive")
# The ones that give some general knowledge about a topic ("Guide to Jobs in Second Life")

In either case, the first paragraph of the article should answer an unspoken question:

# After I read this, what should I be able to do? (Pretty self-evident.)
# After I read this, what should I understand better?

This can be as simple as making the first paragraph say something like "This article discusses ___."

If all the articles in the Knowledge Base start off this way, readers will become accustomed to finding out very quickly whether the information in a particular article will be useful to them without having to read the whole thing.

=== Headers ===
Articles should be divided into headers, each one representing a distinct topic. For instance, in an article about different types of scripted objects, each type could have its own section with a header.

Top-level article headers are the equivalent to a "h2" in modern blog software and other content management systems:

<nowiki>== Header ==</nowiki>

Furthermore, content should begin on the next line, with each paragraph separated by two line breaks (if you use a single line break, text continues on the same line).

In a particularly extensive article, use sub-headers:

<nowiki>== Header ==</nowiki>
<nowiki>Text goes here...</nowiki>

<nowiki>=== Sub-Header ===</nowiki>
<nowiki>Even more text...</nowiki>

<nowiki>==== Sub-Header ====</nowiki>
<nowiki>You get the idea...</nowiki>

Keep flow a foremost priority. A table of contents will automatically appear in an article with four or more headers, but if an article feels tedious to scroll through, you may want to separate sections into their own pages, and link to them instead.

If you don't want an article to have the table of contents, insert this at the top:

<nowiki>__NOTOC__</nowiki>

To save space and right-align the table of contents, use this template:

<nowiki>{{TOCright}}</nowiki>

Note that this template doesn't work well if you are also using a navigation template that floats to the right.

=== Knowledge Base article scope ===
One problem that wikis and knowledge bases frequently run into is the proliferation of pages that contain closely interrelated or even duplicate subject matter, but with little connection between them. This is due to a lack of central planning, and the nature of wiki growth.

When it comes to Second Life documentation, we should remember that a FAQ on estate billing should be integrated with — or at the very least, closely linked to — the main article for estate billing. By linking the pages together and clearly indicating this, it provides readers with a clear path to follow to get more help, and editors with a better indicator of what they need to keep track of when editing a given subject.

Duplicate information on multiple pages increases the odds that those pages won’t be updated as that information changes. This vastly reduces the usefulness of the Knowledge Base as a whole. Whenever possible, try to modularize things such that information on how to do something lives in one place only, and gets linked to by other articles. That way, you only have to update it once if it changes.

=== Knowledge Base article tense ===
When you tell people what happens when they do things, use the present tense, for example:

* Click '''IM'''. The IM window opens.

As opposed to:

* Click '''IM'''. The IM window will open.

== Terminology ==

{{KBcaution|The closest thing to an "official glossary" is the [[Viewer 2 Help|Viewer 2]] built-in glossary, which uses the content from [[Viewerhelp:Glossary]].}}

=== Second Life-specific words ===

* "inworld" (this used to be "in-world," but it's closing up the same way "e-mail" and "web site" went)
* "rez" or "rezzed" (not ressed/rezed/res). Do not capitalize.
* Always capitalize "Second Life."
* Spell "plugin" with no hyphen.
* "SLurl" instead of "SLURL", when referring to Second Life URL's (http://www.SLurl.com). This is a Linden Lab trademark.

When referring to Linden Lab reflexively, we go with "We recommend" over "Linden Lab recommends," except in the case of something really formal, like a legal communication or something. It's probably likely we won't be writing actual legal briefs anytime soon, though.
* You can probably write around this sort of thing 99% of the time anyway, by simply saying something along the lines of "Do x to achieve y."
* You can also say things like "Our tests have found that x happens when y."

If you’re talking about a specific Linden program or service, always, always use the name of the program.

=== User interface elements ===

It would be good to have some standard terms that we use across the Knowledge Base to refer to elements of the UI.
* Is that thing a "dialog" or a "window"?
* Are those "forms" or "tabs" or what?

Maintaining consistency makes it easier for readers to understand what we're talking about, whether they realize it or not.

In general, capitalize and spell user interface (UI) elements exactly as they are in the interface. If there's some inconsistent capitalization in the UI, note it and we'll put it in a bucket that we'll eventually give to somebody. If there's a misspelling or a typo in the UI, that's probably bug material!

* '''Menus''' - We all know what menus are; they appear at the top of the Second Life window.
** Sometimes they also appear at the top of windows ''inside'' the Second Life window, like the Inventory window. In these cases, it's probably more helpful to refer to the internal window before the name of the menu. Like:
*** In the Inventory window, select '''File > Open'''.
** Otherwise we risk confusing people, since there are ''two'' "File" menus available if you've got the Inventory window open.
** The separator for menu item selections should be the > mark. For example:
*** Select '''Edit > Detach Object > Right Hand''' to drop the object you're holding.
* '''The Pie Menu''' - This is that wheel of selections that shows up whenever you right-click on something inworld.
** It's worth noting that it seems relatively easy to write around having to mention it by name. Just say "Right-click on the tree and select '''More > Wear'''," for example.
* '''Windows''' - Use this term for the windows that appear internally within the Second Life window, such as the Inventory window or the Search window.
** Note: A window is anything that satisfies most of these conditions:
*** It's got the '''_ X''' deal in the top right corner.
*** It's got a title in the upper left corner.
*** It can be moved around or resized.
** An example of something that's not a window is the thing that appears at the bottom of the Viewer when you click the '''Chat''' button. We should standardize on calling that the "Chat bar", since it basically satisfies none of these conditions.
* '''Dialogs''' - Use this term for the blue thing that pops up in the corner whenever something happens in Second Life, like when someone or something tries to give you inventory or if it turns out you can't sit on that thing you wanted to sit on.
** Sample usage might be something like "A dialog appears, telling you there's no room to sit there."
** It's worth noting that there are multiple kinds of these, like the group notification dialog and friend-status notifications, but they always pop up in a consistent place, so you can give the reader spatial references like "A dialog pops up in the lower right corner telling you your pal is online".
{{KBnote|In Viewer 2, we're considering calling these simply "notifications," as they really serve only to notify a Resident that something's occurred, and don't present a yes/no choice, which is what most "dialogs" typically do these days.}}
* '''Tabs''' - These are the tabs that live inside the windows in Second Life. Refer to these as you would windows, except bold them (see the formatting section below).
* '''Buttons''' - Use this term for the buttons that appear in the UI. Depending on the sentence that surrounds it, you're probably okay referring to a button any way you want.
** Click the '''Save''' button.
** or Click '''Save'''.
** Pet peeve: "Click on the '''Save''' button" contains a redundant word! The world won't end if you use it, but [[Jon Linden]] doesn't like it.
* '''Fields''' - Anything that you use to provide input to Second Life that's not a button is a field, pretty much. Notes on specific fields follow:
** Use "checkbox" rather than "check box."
*** Use "select" as a verb for checking or unchecking one, because the redundancy of (for example) "Check the '''Rotate''' checkbox". "Select the '''Rotate''' checkbox" feels better, because the repetition's gone.
** Use "dropdown" instead of "drop down."
*** This is another one where "select" works well, as in "From the '''Style''' dropdown, select '''Fancy'''." "Pick" also works, and is less formal, but there's slight potential for confusion if flower-picking ever becomes a widespread Second Life activity.
** "Radio button" is preferred for any field that presents you with a bunch of choices that have round circles next to them.
*** Somewhat unsurprisingly, "select" works really well here too, as in "Select the '''More swords''' radio button."
** There's at least one orphan field that doesn't actually have a prompt or a button next to it, which is the filter field in the Inventory window. That's the sort of thing you can probably write around, as in "Type something into the filter field at the top of the Inventory window."
** Any other interface item, like a text field or those number fields that are all over the prim editing one, can probably safely be referred to simply as "the ___ field."
** General idea: If you've got a long article, you can probably get away with referring to fields more directly (as in "Provide a '''Description'''" instead of "Provide a value for the '''Description''' field") as you progress through it. Unless you think the reader's not going to be able to follow you, this is OK to do.

=== Deprecated terminology ===
As Second Life has matured, Linden-favored terms have changed as well. We should take care to only use the current words for the concepts and items we describe, both to avoid confusion, as well as to avoid potential legal issues, such as the example of writing "money" rather than "Linden Dollars". Linden Dollars aren't money!

For example, "Private Islands" is a term we’ve deprecated in favor of "Estates" (when there's a group of Private Regions together) or "Private Region". (As many Residents have noted, if you have two adjacent non-mainland Regions, why are they individually considered "islands"?)

Please keep in mind that these are general guidelines; context is everything!

'''So, we use:'''
* "Region" instead of "sim" or "simulator" when referring to a single Region
* "Sim host" instead of "sim" or "simulator" when referring to a server hosting Regions
* "Residents" instead of "users", "subscribers", "customers", "avatars", etc.
** There are cases where "avatar" is, of course, a more appropriate term to use -- when discussing the actual inworld representation of a Resident that can be clicked upon or edited, for instance. In that case, use "avatar," by all means!
* "Estates" or "Private Regions" instead of "islands", "private islands", etc. (an Estate is a group of Private Regions)
* "Linden Dollars" instead of "money", "dollars", "cash", "lindens", etc.
* "L$" instead of "$", when denoting Linden Dollars
* "US$" instead of "$" when denoting US dollars
* "SLurl" instead of "SLURL", when referring to Second Life URL's (http://www.SLurl.com)

These terms may be in common usage among Residents, but it’s important to maintain a consistent message.

When it comes to search keywords, it’s important to remember that we do have to respect common usage. Thus, keywords for common terms should be placed on the appropriate pages.

=== What to capitalize ===

Follow standard rules for capitalization; that is, capitalize:
* Proper nouns
* The first letter of the first word in numbered or bulleted lists

Also capitalize:

* "Second Life Viewer" and "Viewer" when referring to our client software.
* Second Life
* Linden Lab
* Internet
* Linden Dollar
* Resident or Residents, when referring to the Second Life community members.
* Region (when referring to a Second Life Region), Private Region, Homestead Region, Openspace Region.

* Second Life Region names, for example:
** Ahern
** Help Island
** Serenity

* The first letter of each term that identifies the name of a key on a keyboard:
** Ctrl-A
** Escape key
** the M key
** Ctrl-Shift-Q

* The first letter of each term that identifies a particular button or menu item within the Second Life client:
** Inventory
** Fly
** IM button
** Edit menu

* Acronyms:
** SL
** HTML
** WWW

In general, capitalize any interface element (names of fields, buttons, menus, etc) exactly as it appears in the Second Life Viewer.

'''Do not capitalize the following words/phrases''':
* Web/website (Unless in the context of "World Wide Web")

=== Use of jargon ===
If you’re writing help docs for Second Life, you hopefully know the difference between a prim and a Class 4 server, but do the Residents reading your article? Depending on the audience your article is geared towards, they very well may not. With that in mind, we can avoid confusion in one of the following ways:

* If there’s an actual English word or phrase for what you’re describing, use that instead of Second Life jargon.
* If you can't do that for some reason, link the first occurrence of each Second Life-related technical term to its appropriate page, or to its entry in the glossary. "Rez" shouldn't have its own page, but a good place to point to would be a page on building terminology. Likewise, "Class 5 server" should link to the Region Sales page, if that’s the most applicable.

As a rule of thumb, if you’re working on something involving advanced subject matter, (such as a page on prim torturing) basic terms like "rez" or "IP address" might not need to be defined.

If you’re writing an article titled "I just started. What do I do now?", ''everything'' will be new to those reading. When writing for a general audience, the trick is balancing between the phrases "rez a prim" and "create a primitive, one of the simple building blocks that can be used to create everything you see in Second Life".

Supplementary to the [[Glossary]], let's remember jargon that might be confusing or just plain opaque to new Resis or non-English speakers. Such as:

* rez, rezzing = appear inworld
* av, avi = avatar
* TP, teep, port = teleport
* cam, alt-zoom = free camera motion using Alt + mouse
* AO = Animation Override

All SL-specific terms should be spelled properly based on their predominant usage. For example, it's "rez" and "rezzed", ''not'' "res" and "ressed".

Certain terms should be capitalized, others should not. Others will be changed in time.

Again, [[Glossary|refer to the glossary]] for proper contextual usage.

==== "First life" ====
Avoid using the term "first life" for anything that takes place in, well, first life. You can usually write around places where this comes up by including the phrase "outside of Second Life," which is handy.

== Formatting ==
This section covers the actual formatting of text. Should that thing be bold? Do we italicize the names of fields? Fortunately, since we're sticking more or less to HTML in the Knowledge Base, this will be extremely simple.

=== General rules ===

* '''Bold''' - Use '''bold text''' to refer to anything in the UI that you need to click on or interact with. This includes:
** Names of tabs
** Names of fields
*** Selections you would make from fields
** Labels of buttons
** Names of links
** Menus and menu item selections
** Examples:
*** In the Tools window, click the '''More''' button.
*** In the Tools window, click the '''Object''' tab.
*** From the '''Building Block Type''' dropdown, select '''Cube'''.
*** Select '''World''' > '''Force Sun''' > '''Sunset''' to make the sun set immediately.
* '''Not Bold''' - Do not use bold for window titles.
* '''Italics''' - Use italics sparingly, in cases of EXTREME EMPHASIS (which should be quite rare). On even rarer occasion, captions for images.
* '''Quotation Marks''' - Anytime you need to specify something that the user needs to input, put it inside quotation marks. This is usually only applicable to text fields, and it's probably rare that we would need to specify an exact string for someone to enter, but this might come in handy one day.
** I.e., In the '''About''' field, type "I am the king of this land and all that I survey."
* '''Punctuation''' - Jon thinks it makes more sense not to apply styles to punctuation.
** I.e., Click '''OK'''.
** The period isn't bold.
** Jon likes this because it's consistent: The period doesn't show up on the button, so why bold it?
** Confession: They did the opposite of this at Jon's old company, and it always vexed him.
* '''Superscript''' - Use <code><nowiki><sup></nowiki></code> tags to properly raise text as-needed. A common example is properly showing the abbreviation for "square meters".
** WRONG: m2
** RIGHT: m<sup>2</sup>
* '''Other typography''' - Use ''real'' em dashes to indicate a break in thought: "—", not "--" or "-".
** If you can't enter them on your keyboard, just copy them or use the <code>&mdash;</code> html entity.

=== Titles and subtitles ===
Use sentence capitalization for all titles and headings. This means to capitalize the first letter in the heading (as well as other words that are normally capitalized such as proper nouns). Do not capitalize other words that would not normally be capitalized. For example:

* INCORRECT: '''An Overview of Second Life Security'''
* CORRECT: '''An overview of Second Life security'''

* INCORRECT: '''How Do I Attach and Detach Objects From My Avatar?'''
* CORRECT: '''How do I attach and detach objects from my avatar?'''

=== Lists ===
What follows are some guidelines surrounding lists.

==== Numbered lists ====
Use numbered lists for a series of steps that ''must'' be followed in order:

<nowiki># Click the '''Log in''' button.</nowiki>
<nowiki># Read the Messsage of the Day.</nowiki>
<nowiki># Smile!</nowiki>

Results in:

# Click the '''Log in''' button.
# Read the Messsage of the Day.
# Smile!

In general, each item or instruction in a numbered list should be a complete sentence and should be punctuated accordingly — that is, with a period, an exclamation point or (in rare cases) a question mark.

==== Unordered lists ====
Use bullet points for series of brief points. They're often found in the form of mid-article "Quick tips" or "Related resources" at the end of an article:

<nowiki>* Consider that!</nowiki>
<nowiki>* Consider this!</nowiki>
<nowiki>** A sub-point, but don't go overboard on these.</nowiki>

If you find yourself writing bullet points with long paragraphs, consider whether a list is the best format.

=== Files, paths, URLs, code, and other typed user input ===
Use the <code><nowiki><code></nowiki></code> tag to show a background-colored, fixed-pitch font for file names, directory paths, URLs (or portions thereof), code snippets, and other typed user input. For example:

* Look in <code>C:\Program Files\Second Life\app_settings\</code>.
* Edit the <code>settings.xml</code> file.
* Retrieve your capability from <code>https://cap.secondlife.com/get_reg_capabilities</code>
* Use the <code>max_results</code> query parameter to limit the number of results returned.
* Use the <code>AgentLimit</code> object to programmatically limit the number of agents present in a Region.
* In the top box, type <code>512</code>.
* In the Region field, type <code>Sandbox Newcomb</code>.

Put lengthy URLs on a separate line using the <code><pre></code> tag.

For multi-line code samples, use the [[Syntax Highlighting Examples|syntax highlighting extension]]; for example:

<python> # Hello World in Python

def main():
print "Hello World!"

if __name__ == '__main__':
main()</python>

=== Tables ===
We use [[Template:KBtable]], to automatically style tables consistently. [[Template:KBtablehead]] is used if the table has a header row. The overall emphasis is on minimal, elegant readability without too much "boxiness". The style is subject to future revision.

For example, this:

<pre><nowiki>
{| {{KBtable}}
|- {{KBtablehead}}
!
! Column A
! Column B
! Column C

|-
| '''Row A'''
| fill
| in
| these

|-
| '''Row B'''
| values
| and
| win

|}
</nowiki></pre>

becomes:

{| {{KBtable}}
|- {{KBtablehead}}
!
! Column A
! Column B
! Column C

|-
| '''Row A'''
| fill
| in
| these

|-
| '''Row B'''
| values
| and
| win

|}

For advanced users, [http://www.mediawiki.org/wiki/Help:Tables further styling is available].

=== Warnings, notes, tips, and other templates ===
If there's something you think deserves some special emphasis in a Knowledge Base article, make a warning, a note, or a tip out of it.
The following table describes the main KB templates, part of a [[:Category:KB Templates|larger group of KB templates]].

{| {{KBtable}}
|- {{KBtablehead}}
! Template
! Wiki code
! Description
! What it looks like

|-
| '''[[Template:KBwarning]]'''
| <code><nowiki>{{KBwarning|Foo}}</nowiki></code>
| A strong notice of what NOT to do, and if applicable, the consequences, including something that can cause harm or damage.
| {{KBwarning|Foo}}

|-
| '''[[Template:KBcaution]]'''
| <code><nowiki>{{KBcaution|Foo}}</nowiki></code>
| An important notice of what NEEDS to or SHOULD be done — basically, the opposite of KBwarning.
| {{KBcaution|Foo}}

|-
| '''[[Template:KBtip]]'''
| <code><nowiki>{{KBtip|Foo}}</nowiki></code>
| A helpful hint to make a process easier to do.
| {{KBtip|Foo}}

|-
| '''[[Template:KBnote]]'''
| <code><nowiki>{{KBnote|Foo}}</nowiki></code>
| Additional considerations and things that are good to know.
| {{KBnote|Foo}}

|-
| '''[[Template:KBtrivia]]'''
| <code><nowiki>{{KBtrivia|Foo}}</nowiki></code>
| Optional, bonus knowledge. These are '''least''' relevant of the templates and an article should be able to be understood entirely ''without'' trivia.
| {{KBtrivia|Foo}}

|}

For example, here is an item that deserves use of the '''KBCaution''' template:

{{KBcaution|Be sure to click the '''Save''' button or your work will be lost!}}

==== Troubleshooting ====
If you have problems including certain styling or a link in a template, a "?" or other characters may be interfering. Use the format "<code><nowiki>{{TemplateName|1=text}}</nowiki></code>" with the "<code>1=</code>". For example:

<nowiki>{{KBcaution|1=[http://forums-archive.secondlife.com/327/85/252954/1.html Don't click this!]}}</nowiki>

becomes (RIGHT):

{{KBwarning|1=[http://forums-archive.secondlife.com/327/85/252954/1.html Don't click this!]}}

instead of (WRONG):

{{KBwarning|http://forums-archive.secondlife.com/327/85/252954/1.html Don't click this!]}}

=== Links ===
''Link liberally!'' [http://www.mediawiki.org/wiki/Help:Links Links] make it easier to discover more info about a given topic, and save someone the trouble of searching. If faced with a choice whether to link to relevant details or not, you can safely err on the side of linking.

Link to relevant pages where more info is provided or there are terms that benefit from further definition. For instance, in an article about performance tips:

: If you're in a crowded area, make sure to enable [[Avatar Impostors]].

This has a dual benefit:

# Saves space because you don't need to explain an advanced concept in the current article, since the knowledge already exists — a primer sentence or two is fine.
# Makes it easier to navigate through related topics, as [http://xkcd.com/214/ famously illustrated in ''xkcd''].

==== Imperative sentences ====
Linking "imperative sentences", as long as they're not an eyesore long, is encouraged to prompt action and tell the reader what happens if they click that link:

* '''RIGHT''' - You can [http://get.secondlife.com download Second Life]
* '''WRONG''' - You can download [http://get.secondlife.com Second Life]

Also, citing articles where there may be ambiguity, whether they're in the Knowledge Base or elsewhere, should be done like this:

* '''RIGHT''' - For more information, [http://support.secondlife.com/ics/support/default.asp?deptID=4417&task=knowledge&questionID=4356 see "What are Second Life's subnets?"].
* '''WRONG''' - For more information, see [http://support.secondlife.com/ics/support/default.asp?deptID=4417&task=knowledge&questionID=4356 What are Second Life's subnets?].
** The hyperlink may color the article title, but consider if this is printed, that won't be as evident. Just like non-hyperlinked print media, quotation marks should enclose titles of shorter written works.
* '''WRONG''' - Read [http://support.secondlife.com/ics/support/default.asp?deptID=4417&task=knowledge&questionID=4356 this article] for information on Second Life's subnets.

=== Images ===
Pictures show Second Life as-is. They can be uploaded using the "[[Special:Upload|Upload file]]" form. All images must be uploaded to this Wiki, we can't link to externally-hosted files.

Generally, upload images as PNG, since it's lossless and the Wiki will dynamically resize them to JPGs.

Images should be inserted into articles at a width of 640 pixels (640px), or less if the original image dimensions are readable at smaller sizes. This tends to be a good balance between visibility and content balance:

<nowiki>[[Image:Flying-car.jpg|640px]]</nowiki>

Results in:

: [[Image:Flying-car.jpg|640px]]

The original flying car is 1024px wide.

If an image has extreme dimensions, such as being very narrow and vertically long, consider cropping it selectively in an image editor, then reupload.

Thumbnails can be used sparingly if there's a need to include multiple images:

<nowiki>[[Image:Flying-car.jpg|none|thumb|''Oh look! A flying car!'']]</nowiki>

Results in:

: [[Image:Flying-car.jpg|none|thumb|''Oh look! A flying car!'']]

Also! You can [http://en.wikipedia.org/wiki/Image_markup#Link link an image to another Wiki page or external site].

==== Styles ====
* There's no need to center-align images. In edge cases, they may be desired for aesthetic purposes. It's alright to leave them default, or left-aligned.
* Emulate the official callouts and highlights as closely as possible. We use Camtasia's SnagIt software.
* Only include as much as you really need; if you're talking about the Tools window, you don't have to capture the entire Second Life window.
* If you're going to call out something specific, like circling a button or a menu choice, use pink, and make sure the line is thick enough to stand out without obscuring anything else excessively.
* Use PNG format rather than GIF, unless you're taking a picture of something inworld, in which case go with a JPEG.

Captions for screenshots! If you're going to put a sentence next to a screenshot, it should include some useful information that's not readily apparent in the actual screenshot itself.

* A caption should be below the picture with no extra white space between.
* Use a complete sentence, and punctuate it as you would a sentence.
* Italicize the whole thing too, why not.
* As far as we're aware, there's no need to label it ("Figure 1" or what-have-you).
* Use the default skin for consistency.

==== Revisions ====
Images can be automatically replaced by another with the same filename. This is useful if there's a new version of the Second Life Viewer with user interface changes and you have fresh screenshots. Simply upload, then confirm you want to replace the older version. This replaces it for all linked instances on the Wiki. If you make a mistake, you can revert.

=== Videos ===
You can embed videos & multimedia to make articles more useful and fun. [http://secondlife.com/video Video tutorials] make it easier to understand kinetic, 3D concepts. For example, "<code><nowiki>{{KBvideo|3578377}}</nowiki></code>" becomes:

{{KBvideo|3578377}}

Like images, embed videos at a width of 640px. See [[Template:KBvideo]] for more info. Also whenever appropriate: include the video in its own section with "Video tutorial" header, and a text summary of what it's about. This can be done as bullet points.

We standardized on [http://vimeo.com/torley/videos Vimeo for Torley's official video tutorials which you can search through], or "vidtuts" for short. (We also have an alternative [http://www.mediawiki.org/wiki/Extension:Widgets Widgets] extension, but it conflicts with FlaggedRevs, so ''don't'' use it for videos on official Knowledge Base articles.)

=== Navigation Templates ===
{{Navbox/Adult}}

{{KBtodo|This spec is still being defined. COME SEE [[Torley]] if you have questions.}}

You can use '''[[Template:Navbox|navigation templates]]''' to provide easy links to related articles, as shown in the actual example of [[Template:Navbox/Adult]] to the right. They can be any articles you choose; all you have to do is insert the template code at the top of a page. For ease of maintenance, you should create a new [[Special:PrefixIndex/Template:|template]] when designing a Navbox for a new set of related articles.

==== Best practices ====
'''Navigation templates provide helpful''' '''''navigation''''':

* Choose your articles carefully. Does this navbox help the reader move effectively between related topics? Pick any two articles in the template. Would a reader really want to go from A to B? An overpopulated navigation template creates clutter and loses its effectiveness.
* Navigation templates should be relatively small. If you find you have too many articles in a single template, consider separating some of them out into more than one template, or remove some from your list, leaving only the most directly related and relevant articles.
* Navigation templates shouldn't be ''too'' small. A navbox with only two links might be better served by a normal link in the body of each article.

'''Navigation templates provide navigation between ''existing'' articles''':
* Navigation templates shouldn't contain "red links". If the article doesn't exist yet, please write it first!
* Try to avoid unlinked text in a navigation template.
* Unless deemed essential, avoid the use of '''external, offsite links''' in navigation templates. Instead, include any external links in the main article.

==== Style ====
Many style concerns with navigation templates are automatically covered by the [[Template:Navbox|Navbox template]]. However, here are a few additional style guidelines:

* Article titles in a navigation template should always be presented as a '''bullet list'''.
* Always use each article's '''full title'''. This is for the purpose of standardization and navigational clarity; an article's title is its unique identifier. We understand that some article titles are exceptionally long, and we are currently considering options to universally shorten and standardize Knowledge Base article titles.
* Avoid unuseful font styles (bold, italic, etc) in article titles or the navbox title.

== Grammar and language ==
This section contains tips on grammar and dialect that are useful.

=== Thoughts on style ===
''"The best way to be boring is to leave nothing out" -Voltaire''

Edit articles consistent with their original "vibe" as established by employees of Linden Lab. Some topics will obviously be more jovial than others. Language (English and international equivalents) should be terse enough to communicate succinctly, but not so dry that it's boring. Humor is useful to get the point across with examples, but shouldn't distract from understanding.

Overall, since this is reference material, the Knowledge Base's tone is more formal than casual venues than the [https://blog.secondlife.com/ Official Second Life Blogs]. When in doubt, consult existing articles by the Doc Team and ask!

=== Common grammatical errors ===
'''Semicolons''' are used to separate two clauses of a compound sentence while still indicating a closer relationship between the two clauses than a period would. We can think of them as somewhere between a comma and a period.

Try to avoid using a comma where a semicolon would be more appropriate. If you're unsure, ask someone.

For a more detailed explanation of semicolons, see [http://www.wisc.edu/writing/Handbook/Semicolons.html UW-Madison's Writer's Handbook entry on semicolon usage].

Note: The best is to use short, concise sentences rather than longer ones.

=== Latin abbreviations ===

Latin abbreviations such as "e.g." may not be universally understood, and can cause difficulty with translation. Follow the guidelines below:

{| {{KBtable}}

|- {{KBtablehead}}
! Do not use
! Use instead

|-
| i.e.
| that is

|-
| e.g.
| for example

|-
| etc.
| and so on

|}

=== Mixing menus and windows ===
We use ">" to indicate hierarchy, and it's usually unnecessary to state "menu" unless there's abject confusion or the article is for newcomers.

* '''RIGHT''' - '''File > Take Snapshot'''
* '''WRONG''' - '''File —> Take Snapshot'''

The same applies for the pie menu, where ">" is explicitly shown for deeper levels.

When UI elements are mixed, make this obvious.

* '''RIGHT''' - Open the Preferences window by selecting '''Edit > Preferences''', click the '''Network''' tab, then uncheck '''Custom Port Connection'''.
* '''WRONG''' - '''Edit > Preferences > Network''' tab > uncheck '''Custom Port Connection'''.

We're aware the latter is used by the technically-savvy and in brief [http://jira.secondlife.com Issue Tracker] reports, but for the purposes of explaining Second Life as clearly as possible to newer Residents, we do the former.

=== Keystrokes ===
We're aware some conventions prefer "+" over "-" as a joiner, and some operating systems (like Mac OS X's own menus) dispense with them entirely. However, this Style Guide is about ''Second Life''; for now, represent shortcuts as they're shown in the Viewer menus.

* '''RIGHT''' - Ctrl-Shift-W
* '''WRONG''' - Ctrl + Shift + W

To visually prettify your keystrokes and make them stand out, use [[Template:K]]. For example:

* "<code><nowiki>{{K|T}} key</nowiki></code>" becomes {{K|T}} key
* "<code><nowiki>{{K|Ctrl|Shift|W}}</nowiki></code>" becomes {{K|Ctrl|Shift|W}}
* "<code><nowiki>{{K|Up}} {{K|Left}} {{K|Down}} {{K|Right}}</nowiki></code>" becomes {{K|Up}} {{K|Left}} {{K|Down}} {{K|Right}}
** This is great for symbols like arrow keys instead of spelling out "up arrow".
* See "[[PC and Mac shortcut key differences]]" for how this template looks in a live article.

The full list of special keys is shown when editing [[Template:K/core]].

=== Dialect ===
As Second Life began with a predominantly American user base, all Second Life English-language documentation should be standardized on American English. (We may revisit this policy in the far future, but it would require such an extensive overhaul to so many documents that it seems somewhat suboptimal from a time cost/benefit standpoint, given the other things we could be working on)

This means:
* We use "col'''o'''r" instead of "col'''ou'''r".
* "Recogni'''z'''e" instead of "recogni'''s'''e"
* Acronyms are written in all-caps without periods, except when they're a brand. (DOS, TCP/IP, NASA, WiFi, D.A.R.E. — these are all correct.)

Writing in another dialect may be a hard habit to get into. It's to be expected that some mistakes will slip through. We'll still work to correct them, but these sorts of errors should be considered low-priority, trumped first by technical inaccuracy and simply incorrect grammar and sentence structure.

=== Trademarks ===
The first instance of Second Life® in an article should have a [http://en.wikipedia.org/wiki/Registered_trademark_symbol registered trademark] after it to assert our brand. Our trademarks should always be respected, and [http://secondlife.com/corporate/trademark/ you can learn more].

=== Advanced additions ===
The Second Life Wiki keeps growing and we laud Resident enthusiasm to evolve styles. Be aware some styles are very useful for other sections on the Wiki but don't apply to us yet. Various issues of note are recorded on [[User:Torley/Code]].

Please don't make any broad style changes without consulting with the [[Doc_team|Documentation Team]] first. We're here to help and would be happy to have a look.

=== Commentary ===
If you want to discuss an article, ''don't'' place inline comments unless it's an article which explicitly invites them, because it leads to clutter. Instead, use the Discussion ("Talk") tab, located at the top of every article. The same style guidelines apply here, and you should sign your commentary for clear attribution.

[[Category:Knowledge Base Policy]]

LSL Portal Style

2015-09-26T15:37:23Z

Lady Sumoku: Grammar: "its", not "it is"

This is a place holder for the [[Talk:LSL_Portal_Style|discussion page]].

== FAQ ==
Questions about how to and why certain things are styled as they are.

=== Constants ===

:'''Q:''' Why are some integer constants written in hexadecimal and others in decimal notation?
:'''A:''' Patterns. No constant is an island, they all exists within a larger context. Some constants are intended to be OR'ed, some are just simple counting numbers, sometimes the notation can give hints as to how you can manipulate the answer. Some examples:
:* [[PARCEL_FLAG_USE_ACCESS_LIST]] - Written in hexadecimal to show the pattern of it and its siblings. In the table they are extra wide to aid in the reading.
:* [[llSetCameraParams]] - Written in decimal notation, the flags are consecutively allocated.
:* [[llParticleSystem]] is a good example where both notations are used for constants. Different constants used within the function have different relationships.

== Old Style Discussions ==

# [[LSL Category Style]] - Used for categorizing groups of LSL functions and other Tables of Contents.
# [[LSL Function Style]] - Used for the full specification of all LSL functions.
# [[LSL Topic Style]] - Used for topics of interest related to using LSL (XML-RPC, quaternions, etc).
# [[LSL Constants Style]] - Used for documenting constants.

User:Cow Taurog/Radio tuner

2015-04-12T03:46:44Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">, also for <php>

These scripts will allow you to change your land's [[Streaming Music|music url]] from a list of presets, or by saying the url of a <span class="plainlinks">[http://en.wikipedia.org/wiki/PLS_(file_format) *.pls playlist file] over chat. Place the fread.php file on a webhost, set the tuner script to use that url, and drop the tuner script into a prim. There is also a relay script for group land. You can copy the url of a playlist file from a webpage, or a 'Tune in' link from <span class="plainlinks">[http://shoutcast.com shoutcast.com]</span> as well.
==Tuner==
<source lang="lsl2">
string gsBaseURL="http://example.com/fread.php?url="; // Set this to point to your fread.php file
integer giChan=8437; // This channel is used to communicate with the relay.
integer giDialog=8957; // This channel is used for the dialog menu.
float gfResetDelay=20; // This is the number of seconds the script will wait for a response.
integer giPrivateChan=200; // This is a private channel for saying a playlist url.
//These are presets for the dialog menu
list gl1=["DI.fm","Somafm","-None-","XRM Alt","Hot 108","Open PLS"];
list glD1=["Trance","Vocal","ElecHouse","Chillout","EuroDance","House","SoulHouse","FunkHouse","TrblHouse","HardDance","Minimal","2>"];
list glD2=["<1","Techno","Progresve","GoaPsy","Hardstyle","Hardcore","DjMixes","Lounge","Drum&Bass","OldElectr","Ambient","3>"];
list glD3=["<2","Breaks","FutureSyn","Gabber","XRM Alt","-None-"];
list glS1=["Lush","Digi","GrvSalad","DrneZone","SpaceSta","BeatBlnd","IndiePop","Cliqhop","SncVerse","ILstreet","BootLiqr","2>"];
list glS2=["<1","TagsTrip","ScrtAgnt","Doomed"];
// Declarations
key gkDet;
string gsPlaylistURL;
key gkRequest;
integer giIndex1;
integer giIndex2;
string gsStart="File1=";
string gsEnd="Title1=";
integer DEBUG=2; // 0-none, 1-minimal, 2-verbose

default{
state_entry(){
llListen(giDialog,"","","");
llSetTimerEvent(gfResetDelay);
}
timer(){llResetScript();}
on_rez(integer param){llResetScript();}
touch_start(integer num){
//if(llSameGroup(llDetectedKey(num-1))==TRUE){
gkDet=llDetectedKey(num-1);
llDialog(gkDet,"Pick a station...",gl1,giDialog);
//}
}
listen(integer chan,string name,key id,string mess){
if(mess=="DI.fm"){state difm;}
if(mess=="Somafm"){state somafm;}
if(mess=="Open PLS"){state hearpls;}
if(mess=="-None-"){llRegionSay(giChan,"setmusic|");llResetScript();}
if(mess=="XRM Alt"){llRegionSay(giChan,"setmusic|http://72.236.163.63:12929");llResetScript();}
if(mess=="Hot 108"){llRegionSay(giChan,"setmusic|http://scfire-dtc-aa03.stream.aol.com:80/stream/1071");llResetScript();}
}
}
state hearpls{
state_entry(){
llSetTimerEvent(gfResetDelay);
llListen(0,"",gkDet,"");
llListen(giPrivateChan,"",gkDet,"");
llSay(0,"Say the URL of a *.pls file to play over public chat or /"+(string)giPrivateChan+".");
}
timer(){llSay(0,"Timeout.");llResetScript();}
listen(integer chan,string name,key id,string mess){
gsPlaylistURL=mess;
state openpls;
}
}
state openpls{
state_entry(){
gkRequest=llHTTPRequest(gsBaseURL+gsPlaylistURL,[],"");
llSetTimerEvent(gfResetDelay);
}
timer(){llSay(0,"Timeout.");llResetScript();}
http_response(key request,integer status,list meta,string body){if(gkRequest==request){if(status==200){if(body!=""){
giIndex1=(llSubStringIndex(body,gsStart)+llStringLength(gsStart));
giIndex2=(llSubStringIndex(body,gsEnd)-2);
body=llGetSubString(body,giIndex1,giIndex2);
llSetParcelMusicURL(body);
llRegionSay(giChan,"setmusic|"+body);
llResetScript();
}}}}
}

state difm{
state_entry(){
llListen(giDialog,"","","");
llDialog(gkDet,"Pick a station...",glD1,giDialog);
llSetTimerEvent(gfResetDelay);
}
timer(){llResetScript();}
on_rez(integer param){llResetScript();}
listen(integer chan,string name,key id,string mess){
if(mess=="3>"){llDialog(gkDet,"Pick a station...",glD3,giDialog);}
if(mess=="<2"){llDialog(gkDet,"Pick a station...",glD2,giDialog);}
if(mess=="2>"){llDialog(gkDet,"Pick a station...",glD2,giDialog);}
if(mess=="<1"){llDialog(gkDet,"Pick a station...",glD1,giDialog);}
if(mess=="-None-"){llRegionSay(giChan,"setmusic|");llResetScript();}
if(mess=="Trance"){llRegionSay(giChan,"setmusic|http://scfire-ntc-aa01.stream.aol.com:80/stream/1003");llResetScript();}
if(mess=="Vocal"){llRegionSay(giChan,"setmusic|http://scfire-ntc-aa02.stream.aol.com:80/stream/1065");llResetScript();}
if(mess=="ElecHouse"){llRegionSay(giChan,"setmusic|http://scfire-ntc-aa03.stream.aol.com:80/stream/1025");llResetScript();}
if(mess=="Chillout"){llRegionSay(giChan,"setmusic|http://scfire-mtc-aa02.stream.aol.com:80/stream/1035");llResetScript();}
if(mess=="EuroDance"){llRegionSay(giChan,"setmusic|http://scfire-mtc-aa02.stream.aol.com:80/stream/1024");llResetScript();}
if(mess=="House"){llRegionSay(giChan,"setmusic|http://scfire-mtc-aa01.stream.aol.com:80/stream/1007");llResetScript();}
if(mess=="SoulHouse"){llRegionSay(giChan,"setmusic|http://di-fm-01.quintex.com:8880");llResetScript();}
if(mess=="FunkHouse"){llRegionSay(giChan,"setmusic|http://91.121.228.33:8004");llResetScript();}
if(mess=="TrblHouse"){llRegionSay(giChan,"setmusic|http://di-fm-01.quintex.com:8882");llResetScript();}
if(mess=="HardDance"){llRegionSay(giChan,"setmusic|http://209.247.146.98:8000");llResetScript();}
if(mess=="Minimal"){llRegionSay(giChan,"setmusic|http://66.135.35.144:8000");llResetScript();}
if(mess=="Techno"){llRegionSay(giChan,"setmusic|http://208.122.59.30:7204");llResetScript();}
if(mess=="Progresve"){llRegionSay(giChan,"setmusic|http://scfire-ntc-aa04.stream.aol.com:80/stream/1026");llResetScript();}
if(mess=="GoaPsy"){llRegionSay(giChan,"setmusic|http://scfire-ntc-aa01.stream.aol.com:80/stream/1008");llResetScript();}
if(mess=="Hardstyle"){llRegionSay(giChan,"setmusic|http://72.51.40.90:8000");llResetScript();}
if(mess=="Hardcore"){llRegionSay(giChan,"setmusic|http://88.191.69.69:80");llResetScript();}
if(mess=="DjMixes"){llRegionSay(giChan,"setmusic|http://209.247.146.100:8000");llResetScript();}
if(mess=="Lounge"){llRegionSay(giChan,"setmusic|http://scfire-ntc-aa04.stream.aol.com:80/stream/1009");llResetScript();}
if(mess=="Drum&Bass"){llRegionSay(giChan,"setmusic|http://207.200.96.229:8030");llResetScript();}
if(mess=="OldElectr"){llRegionSay(giChan,"setmusic|http://205.188.215.225:8004");llResetScript();}
if(mess=="Ambient"){llRegionSay(giChan,"setmusic|http://205.188.215.228:8006");llResetScript();}
if(mess=="Breaks"){llRegionSay(giChan,"setmusic|http://205.188.215.225:8002");llResetScript();}
if(mess=="FutureSyn"){llRegionSay(giChan,"setmusic|http://208.122.59.30:7234");llResetScript();}
if(mess=="Gabber"){llRegionSay(giChan,"setmusic|http://205.188.215.226:8006");llResetScript();}
}
}

state somafm{
state_entry(){
llListen(giDialog,"","","");
llDialog(gkDet,"Pick a station...",glS1,giDialog);
llSetTimerEvent(gfResetDelay);
}
timer(){llResetScript();}
on_rez(integer param){llResetScript();}
listen(integer chan,string name,key id,string mess){
if(mess=="2>"){llDialog(gkDet,"Pick a station...",glS2,giDialog);}
if(mess=="<1"){llDialog(gkDet,"Pick a station...",glS1,giDialog);}
if(mess=="-None-"){llRegionSay(giChan,"setmusic|");llResetScript();}
if(mess=="Lush"){llRegionSay(giChan,"setmusic|http://standby.somafm.com:8802");llResetScript();}
if(mess=="Digi"){llRegionSay(giChan,"setmusic|http://standby.somafm.com:8902");llResetScript();}
if(mess=="GrvSalad"){llRegionSay(giChan,"setmusic|http://207.200.96.226:8000");llResetScript();}
if(mess=="DrneZone"){llRegionSay(giChan,"setmusic|http://207.200.96.226:8002");llResetScript();}
if(mess=="SpaceSta"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:8202");llResetScript();}
if(mess=="BeatBlnd"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:8386");llResetScript();}
if(mess=="IndiePop"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:8076");llResetScript();}
if(mess=="Cliqhop"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:8080");llResetScript();}
if(mess=="SncVerse"){llRegionSay(giChan,"setmusic|http://standby.somafm.com:8602");llResetScript();}
if(mess=="ILstreet"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:8502");llResetScript();}
if(mess=="BootLiqr"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:7002");llResetScript();}
if(mess=="TagsTrip"){llRegionSay(giChan,"setmusic|http://205.188.234.9:8000");llResetScript();}
if(mess=="ScrtAgnt"){llRegionSay(giChan,"setmusic|http://207.200.96.228:8000");llResetScript();}
if(mess=="Doomed"){llRegionSay(giChan,"setmusic|http://steady.somafm.com:8302");llResetScript();}
}
}
</source>
==Group relay==
If the land you want to change the music url on is [[Groups and Land|owned by a group]], you need to use this relay script. Place it in a prim, and deed it to the group that owns the land. This script is also useful if you have more than one parcel of land in the same sim, and want to change the music in more than one place at the same time. Make sure the both the script and the prim have full permissions set before deeding so you can sell it back to yourself and make changes if needed.
<source lang="lsl2">
integer giChan=8437; // replace this with something random, match with the tuner script
string gsOriginalMusic;
integer listen0;

default{
on_rez(integer param){llResetScript();}
state_entry(){llListen(giChan,"","","");}
listen(integer chan,string name,key id,string mess){
list lText=llParseString2List(mess,["|"],[]);
string s1=llList2String(lText,0);
string s2=llList2String(lText,1);
if(s1=="setmusic"){llSetParcelMusicURL(s2);}
}
}
</source>
==fread.php==
[[llHTTPRequest]] only supports the reading of certain filetypes, and *.pls is not one of them. This script will display any URL fed to it as text.
<source lang="php">
<?php
$file = $_GET['url'];
$handle = fopen($file, 'r');
$contents = '';
while (!feof($handle)) {
$contents .= fread($handle, 8192);
}
fclose($handle);
print $contents;
?>
</source>

LlGetInventoryKey

2015-04-12T03:40:44Z

Lady Sumoku: Formatting Fix

{{LSL_Function
|inject-2={{Issues/SVC-3670}}{{Issues/SVC-4050}}{{Issues/SVC-6374}}{{LSL_Function/inventory|name|uuid=false}}
|func_id=175|func_sleep=0.0|func_energy=10.0
|func=llGetInventoryKey|return_type=key|p1_type=string|p1_name=name
|func_footnote=If {{LSLP|name}} is not [[llGetInventoryPermMask|copy, mod, trans]] then the return is {{LSL Const|NULL_KEY|key|"00000000-0000-0000-0000-000000000000"|c=Evaluates to false in conditionals just like invalid keys.}}.<br/>Use [[llGetInventoryType]] instead of this function to verify the existence of inventory.
|func_desc
|sort=GetInventoryKey
|return_text=that is the [[UUID]] of the inventory {{LSLP|name}}
|spec
|caveats=*Inventory items are records that usually ''point'' to assets, but they are not the actual assets.
**Multiple inventory items can point to the same asset and return the same key.
**Some newly created inventory entries get default keys until they are edited and saved:
***Newly created notecard entries use [[NULL_KEY]] at present, until they are edited and saved.
***Newly created script entries point to the "[[Hello Avatar]]" script ("d0d40b7c-e32b-3bcb-3346-2be8470093c0" at this writing, not a guaranteed default) until they are edited and saved.
***Most other inventory entries are given unique asset keys at creation time, but this relies on client cooperation and is not guaranteed.
**When an asset is "edited" a new asset key is assigned to the edit. The inventory item used to open the asset for editing is updated with the new asset key.
***No other inventory items that share the original asset are updated with the new asset key.
|constants
|examples=
<source lang="lsl2">
// Put this script in an empty prim, and drag a full-perm texture into the prim's contents to find out its UUID
default
{
changed(integer change)
{
if (change & CHANGED_INVENTORY) // if there has been a change to the prim's contents ...
{
string name = llGetInventoryName(INVENTORY_TEXTURE, 0);
if (name) // if a texture exists ...
{
key uuid = llGetInventoryKey(name);
if (uuid) // if the uuid is valid ...
llOwnerSay( "The UUID of '" + name + "' is " + (string) uuid);
else // texture was not full-perm
llOwnerSay( "The UUID of '" + name + "' could not be determined");
}
}
}
}
</source>
<source lang="lsl2">string item = "Default";

default
{
state_entry()
{
llOwnerSay("Touch to get information about \"" + item + "\".");
}

touch_start(integer total_number)
{
integer type = llGetInventoryType(item);
integer index = llListFindList([ INVENTORY_NONE,
INVENTORY_TEXTURE, INVENTORY_SOUND, INVENTORY_LANDMARK, INVENTORY_CLOTHING,
INVENTORY_OBJECT, INVENTORY_NOTECARD, INVENTORY_SCRIPT, INVENTORY_BODYPART,
INVENTORY_ANIMATION, INVENTORY_GESTURE], [type]);
string name = llList2String(["does not exist",
"texture", "sound", "landmark", "clothing",
"object", "notecard", "script", "body part",
"animation", "gesture"], index);

llOwnerSay("Type: " + name);

if(type == INVENTORY_NONE)
return;

integer owner_perms = llGetInventoryPermMask(item, MASK_OWNER);
list perms;
if(owner_perms & PERM_COPY)
perms += "Copy";

if(owner_perms & PERM_MODIFY)
perms += "Modify";

if(owner_perms & PERM_TRANSFER)
perms += "Transfer";

if(owner_perms & PERM_MOVE)
perms += "Move";

llOwnerSay("Perms: " + llList2CSV(perms));

integer temp = PERM_COPY | PERM_MODIFY | PERM_TRANSFER;
if((owner_perms & temp) != temp)
return;

llOwnerSay("Key: " + (string)llGetInventoryKey(item));
}
}
</source>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetInventoryName]]|Returns the inventory item's name}}
{{LSL DefineRow||[[llGetInventoryType]]|Tests to see if an inventory item exists and returns its type}}
{{LSL DefineRow||[[llGetInventoryNumber]]|Returns the number of items of a specific type in inventory}}
{{LSL DefineRow||[[llGetInventoryPermMask]]|Returns the inventory item's permissions}}
{{LSL DefineRow||[[llGetInventoryCreator]]|Returns the inventory item's creator}}
|also_events
|also_tests
|also_articles
|notes=*The UUID returned is that of the asset to which the inventory item points, it is not the UUID of the inventory item itself. The assets themselves are immutable (they never change, they are only ever created and deleted); this allows multiple inventory handles to refer to the same asset without having to duplicate the asset. When it appears an asset is being modified, it is saved as a new asset. The consequence of this is that multiple copies of items in inventory all share the same asset UUID.
*It is still possible to inspect the UUID of any animation in inventory by triggering it and using [[llGetAnimationList|llGetAnimationList()]] like so:
<source lang="lsl2">llStartAnimation("myAnim");
llOwnerSay("myAnim's UUID is " + llList2String(llGetAnimationList(llGetPermissionsKey()), -1));</source>
|history=
* 0.2 - Introduced during the closed beta period.
* 1.2 - Restricted to full perm inventory items only.
* 1.24 - Objects and scripts no longer return their actual UUID but a hash (i.e. pseudo UUID which is consistent with the object/script) instead. -- {{JIRA|SVC-3670}}
<sup>The preceding version numbers are approximations.</sup>
|cat1=Inventory
|cat2=Key
|cat3
|cat4
}}

WhoAddedWhat

2015-04-12T03:17:04Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

To enable you to tell what has been added to a script in the event of '''CHANGED_ALLOWED_DROP''' you can use the following code:

<source lang="lsl2">// Scripted by Laronzo Fitzgerald

list content[]; // a list of all items already added to the object

if (change & (CHANGED_ALLOWED_DROP | CHANGED_INVENTORY))
{
integer n = llGetInventoryNumber(INVENTORY_ALL);

while(n)
{
integer valid = llGetListLength(contents);
if(valid != 0)
{
string added = llGetInventoryName(INVENTORY_ALL, --n);
integer index = llListFindList(content, [added]);
if(!(~index))
{
integer type = llGetInventoryType(added);

if(type != 10 && (string)type != "") // don't add the object's script to the list of items!
{
content += added; // add the new item to the checklist of inventory items
// Do anything else you want related to the new item here
}
}
}
}
}</source>

(This code contains an obvious bug: if "content" is empty, then "if (valid != 0)" is not true, and the "n" in "while(n)" doesn't get changed -> endless loop.)
(Weird code: if "content" is empty (which is always the case at startup), then nothing can get added to "content".)
(Also: the var is named "content", but also 1 time "contents" is used.)

[[llAllowInventoryDrop]]

User:Lady Sumoku

2015-01-26T18:01:44Z

Lady Sumoku:

<p>Another pixel-person Programmer in a sea of better examples</p>

Simple Texture Changer (input list)(multiple prims & multiple sides).lsl

2015-01-25T04:13:05Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

<source lang="lsl2">
//***********************************************************************************************************
// *
// --Simple Texture Changer (input list)(multiple prims & multiple side)-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: None required, but it is appreciated.
//Created: October 6, 2009
//Last Modified: November 28, 2009
//Released: Saturday, November 28, 2009
//License: Public Domain

//Status: Fully Working/Production Ready
//Version: 1.0.1

//Name: Simple Texture Changer (input list)(multiple prims & multiple side).lsl
//Purpose: To change the texture on certain prims on certain sides of a linked set.
//Technical Overview: The script finds how many textures there are in the input list, and uses a timer to change the
// texture on a side based on randomness or order. It changes all sides of the certain prim to the
// specified texture
//Description: A simple texture changer script that changes the texture on certain sides of certain prims in a linked
// set to those in the input list. It allows for a random order, or a logical "next up" order.
//Directions: Create a prim. Place the script in prim inventory. Modify the script parameters to suit your needs and
// save.

//Compatible: Mono & LSL compatible
//Other items required: None.
//Notes: Uses a timer event. Should be low lag. Commented for easier following.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Adjustable global variables...you may change these
//texture list...this list should have 2 or more textures
list textures = [
"00000000-0000-0000-0000-0000f0000000",
"00000000-0000-0000-0000-0000d0000000",
"00000000-0000-0000-0000-0000e0000000"];//put your texture UUIDs/keys in here

//Please note there is a .2 second delay between prims.
//"prim number, side number, side number...side number"
//-1 equals all sides for that prim
list sides = [
"0,1,2,5",
"1,3,4,1"];//put in which sides you want the texture to be changed on.
float frequency = 2.0;//how often to change the texture in seconds. Shouldn't be below 2.0

//please note that the last and first texture will be shown less frequently than those in between
integer random = TRUE;//whether to show the textures randomly, or in order
integer duplicatecheck = TRUE;//if random is true, this will check to make sure the random selection is a new texture

/////////////////////////////////////////////////////////////
//global variables...do not change
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture
integer numberofsidestochange;//the length of the sides list

changetexture()//user fucntion to change texture
{
integer counter;
key texture = llList2String(textures,currenttexture);//gets texture key from list
do
{
//also with another script
list primdata = llCSV2List(llList2String(sides,counter));
integer prim = llList2Integer(primdata,0);
integer primlistlength = llGetListLength(primdata);//speed hack could go here
integer primlistcounter = 1;//start at 1 since the prim datalist's 1st entry is the prim
do
{
//probably best to use llSetLinkPrimitiveParams
//prim, texture, side
llSetLinkTexture(prim,texture,llList2Integer(sides,primlistcounter));
}while(++primlistcounter < primlistlength);
}while(++counter <numberofsidestochange);
}

default
{
on_rez(integer start_param)//on rez reset...probably not needed.
{
llResetScript();
}
state_entry()
{
llOwnerSay("Bobbyb's 'Simple Texture Changer (input list)(multiple prims & multiple side).lsl' (Public Domain 2009)");
llOwnerSay("Scripting made easy.");
numberoftextures = llGetListLength(textures);//speed hack here
numberofsidestochange = llGetListLength(sides);//length of the sides list...possible speed hack goes here
//assume correct
llOwnerSay("There are " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds.");
llOwnerSay("My current free memory is : " + (string)llGetFreeMemory()
+ " bytes. If it is below 2500 bytes, I may not work properly.");
llSetTimerEvent(frequency);
}
timer()
{
if(random)//show pics randomly
{
integer randomtexture;
if(duplicatecheck)//whether to make sure random doesn't repeat itself
{
do
{
randomtexture= llRound(llFrand(numberoftextures - 1));//generate random number
}while(randomtexture == currenttexture);//make sure the random one isn't the same as the current one
}
else//no duplicate check
randomtexture = llRound(llFrand(numberoftextures - 1));//generate random texture number
currenttexture = randomtexture;//set the current one to the random one selected
changetexture();//change the texture
}
else//not random, go in order
{
++currenttexture;
if(currenttexture == numberoftextures)//if current texture = number of textures, reset counter
currenttexture = 0;
changetexture();//change the texture
}
}
}
</source>

Simple Texture Changer (for inventory)(multiple prims & multiple sides).lsl

2015-01-25T04:10:50Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

Part of [[Bobbyb's texture changer]] collection
<source lang="lsl2">
//https://wiki.secondlife.com/wiki/Simple_Texture_Changer_(for_inventory)(multiple_prims_%26_multiple_sides).lsl
//***********************************************************************************************************
// *
// --Simple Texture Changer (for inventory)(multiple prims & multiple sides)-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: None required, but it is appreciated.
//Created: November 26, 2009
//Last Modified: November 26, 2009
//Released: Saturday, November 28, 2009
//License: Public Domain

//Status: Fully Working/Production Ready
//Version: 1.0.3

//Name: Simple Texture Changer (for inventory)(multiple prims & multiple sides).lsl
//Purpose: To change the texture on multiple prim sides(faces) of certain prims in a linked set based on the
// textures in inventory.
//Technical Overview: The script finds how many textures there are in inventory, and uses a timer to change the
// texture on a side based on randomness or order. It takes into account inventory changes. It uses
// a user defined list to determine which sides to change.
//Description: A simple textre changer script that changes the texture on multiple sides of multiple linked prims to
// those in inventory. It allows for a random order, or a logical "next up" order.
//Directions: Create a prim. Place pictures in prim inventory. Place script in prim inventory. Modify script parameters
// to suit your needs. If you add pictures, and the script does not reset, manually reset the script. If you
// only need to change one side (or all sides), use the
// "Simple Texture Changer (for inventory)(for one side or all sides).lsl" script.

//Compatible: Mono & LSL compatible
//Other items required: More than 1 texture in inventory.
//Notes: Uses a timer event. Should be low lag. Commented for easier following. This will change the various sides
// of linked prims to the *same* texture.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Adjustable global variables...you may change these
//Please note there is a .2 second delay between sides.
//"prim number, side number, side number...side number"
//-1 equals all sides for that prim
list sides = [
"0,1,2,5",
"1,3,4,1"];//put in which sides you want the texture to be changed on.
float frequency = 2.0;//how often to change the texture in seconds. Shouldn't be below 2.0

//please note that the last and first texture will be shown less frequently than those in between
integer random = TRUE;//whether to show the textures randomly, or in order
integer duplicatecheck = TRUE;//if random is true, this will check to make sure the random selection is a new texture

/////////////////////////////////////////////////////////////
//global variables...do not change
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture
integer numberofsidestochange;//the length of the sides list

changetexture()//user fucntion to change texture;
{
integer counter;
string texture = llGetInventoryName(INVENTORY_TEXTURE,currenttexture);//gets texture name
do
{
//also with another script
list primdata = llCSV2List(llList2String(sides,counter));
integer prim = llList2Integer(primdata,0);
integer primlistlength = llGetListLength(primdata);//speed hack could go here
integer primlistcounter = 1;//start at 1 since the prim datalist's 1st entry is the prim
do
{
//probably best to use llSetLinkPrimitiveParams
//prim, texture, side
llSetLinkTexture(prim,texture,llList2Integer(sides,primlistcounter));
}while(++primlistcounter < primlistlength);
}while(++counter <numberofsidestochange);
}

default
{
on_rez(integer start_param)//on rez reset...probably not needed.
{
llResetScript();
}
state_entry()
{
llOwnerSay("Bobbyb's 'Simple Texture Changer (for inventory)(multiple prims & multiple sides).lsl' (Public Domain 2009)");
llOwnerSay("Because knowledge should be free.");
numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);//number of textures in inventory
numberofsidestochange = llGetListLength(sides);//length of the sides list...possible speed hack goes here
if(numberoftextures <= 0)//no textures
llOwnerSay("No textures were found in my inventory. Please add textures.");
else if(numberoftextures == 1)//only 1 texture
llOwnerSay("I only found 1 picture in my inventory. I need more in order to change them.");
//for 2 random isn't needed...but I'm too lazy to add that in
else//more than 1 texture found...
{
llOwnerSay("I found " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds.");
llSetTimerEvent(frequency);
}
}
timer()
{
if(random)//show pics randomly
{
integer randomtexture;
if(duplicatecheck)//whether to make sure random doesn't repeat itself
{
do
{
randomtexture= llRound(llFrand(numberoftextures - 1));
//llOwnerSay("r" + (string)randomtexture);//debug
}while(randomtexture == currenttexture);//make sure the random one isn't the same as the current one
}
else//no duplicate check
randomtexture = llRound(llFrand(numberoftextures - 1));//generate random texture number
currenttexture = randomtexture;//set the current one to the random one selected
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
else//not random, go in order
{
++currenttexture;
if(currenttexture == numberoftextures)//if current texture = number of textures, reset counter
currenttexture = 0;
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}

}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
llOwnerSay("Inventory change detected.");
numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);
llOwnerSay("I found " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds.");
}
}
}
</source>

Simple Texture Changer (input list)(certain prims & all sides).lsl

2015-01-25T04:09:11Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

Part of [[Bobbyb's texture changer]] collection
<source lang="lsl2">
https://wiki.secondlife.com/wiki/Simple_Texture_Changer_(input_list)(certain_prims_%26_all_sides).lsl
//***********************************************************************************************************
// *
// --Simple Texture Changer (input list)(certain prims & all sides)-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: None required, but it is appreciated.
//Created: November 20, 2008
//Last Modified: November 28, 2009
//Released: Saturday, November 28, 2009
//License: Public Domain

//Status: Fully Working/Production Ready
//Version: 1.0.2

//Name: Simple Texture Changer (input list)(certain prims & all sides).lsl
//Purpose: To change the texture of certain prims on all sides based on the textures in the input list.
//Technical Overview: The script finds how many textures there are in the input list, and uses a timer to change the
// texture on a side based on randomness or order. It changes all sides of the certain prim to the
// specified texture
//Description: A simple texture changer script that changes the texture on all the sides of a certain prims in a linked
// set to those in the input list. It allows for a random order, or a logical "next up" order.
//Directions: Create a prim. Place the script in prim inventory. Modify the script parameters to suit your needs and
// save.

//Compatible: Mono & LSL compatible
//Other items required: None.
//Notes: Uses a timer event. Should be low lag. Commented for easier following. This will change all of the sides
// of certain linked prims to the *same* texture based on the input texture list.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Adjustable global variables...you may change these
//texture list...this list should have 2 or more textures
list textures = [
"00000000-0000-0000-0000-0000f0000000",
"00000000-0000-0000-0000-0000d0000000",
"00000000-0000-0000-0000-0000e0000000"];//put your texture UUIDs/keys in here

//Please note there is a .2 second delay between prims.
list prims = [0,1,5,2];//which prims to change
float frequency = 2.0;//how often to change the texture in seconds. Shouldn't be below 2.0

//please note that the last and first texture will be shown less frequently than those in between
integer random = TRUE;//whether to show the textures randomly, or in order
integer duplicatecheck = TRUE;//if random is true, this will check to make sure the random selection is a new texture

/////////////////////////////////////////////////////////////
//global variables...do not change
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture
integer primslength;//length of the prims list

changetexture()//user fucntion to change texture;
{
integer counter;
string texture = llList2String(textures,currenttexture);
do
{
llSetLinkTexture(llList2Integer(primslength,counter),texture,ALL_SIDES);
}while(++counter <primslength);
}

default
{
on_rez(integer start_param)//on rez reset...probably not needed.
{
llResetScript();
}
state_entry()
{
llOwnerSay("Simple Texture Changer (input list)(certain prims & all sides).lsl' (Public Domain 2009)");
llOwnerSay("Because knowledge is power.");
numberoftextures = llGetListLength(textures);//speed hack here
primslength = llGetListLength(prims);//speed hack here
//assume correct
llOwnerSay("There are " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds on these prims: " + llList2CSV(prims));
llOwnerSay("My current free memory is : " + (string)llGetFreeMemory()
+ " bytes. If it is below 2500 bytes, I may not work properly.");
llSetTimerEvent(frequency);
}
timer()
{
if(random)//show pics randomly
{
integer randomtexture;
if(duplicatecheck)//whether to make sure random doesn't repeat itself
{
do
{
randomtexture= llRound(llFrand(numberoftextures - 1));
//llOwnerSay("r" + (string)randomtexture);//debug
}while(randomtexture == currenttexture);//make sure the random one isn't the same as the current one
}
else//no duplicate check
randomtexture = llRound(llFrand(numberoftextures - 1));//generate random texture number
currenttexture = randomtexture;//set the current one to the random one selected
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
else//not random, go in order
{
++currenttexture;
if(currenttexture == numberoftextures)//if current texture = number of textures, reset counter
currenttexture = 0;
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
}
}
</source>

Simple Texture Changer (for inventory)(certain prims & all sides).lsl

2015-01-25T04:08:07Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

Part of [[Bobbyb's texture changer]] collection
<source lang="lsl2">
//https://wiki.secondlife.com/wiki/Simple_Texture_Changer_(for_inventory)(certain_prims_%26_all_sides).lsl
//***********************************************************************************************************
// *
// --Simple Texture Changer (for inventory)(certain prims & all sides)-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: None required, but it is appreciated.
//Created: November 26, 2009
//Last Modified: November 26, 2009
//Released: Saturday, November 28, 2009
//License: Public Domain

//Status: Fully Working/Production Ready
//Version: 1.0.2

//Name: Simple Texture Changer (for inventory)(certain prims & all sides).lsl
//Purpose: To change the texture on all the sides of certain prims in a linked set.
//Technical Overview: The script finds how many textures there are in inventory, and uses a timer to change the
// texture on a side based on randomness or order. It takes into account inventory changes. It uses
// a user defined list to determine which sides to change.
//Description: A simple texture changer script that changes the texture on all the sides of a certain prims in a linked
// set to those in inventory. It allows for a random order, or a logical "next up" order.
//Directions: Create a prim. Place pictures in prim inventory. Place script in prim inventory. Modify script parameters
// to suit your needs. If you add pictures, and the script does not reset, manually reset the script.

//Compatible: Mono & LSL compatible
//Other items required: More than 1 texture in inventory.
//Notes: Uses a timer event. Should be low lag. Commented for easier following. This will change the all of the
// sides of certain linked prims to the *same* texture.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Adjustable global variables...you may change these
//Please note there is a .2 second delay between prims.
list prims = [0,1,5,2];//which prims to change
float frequency = 2.0;//how often to change the texture in seconds. Shouldn't be below 2.0

//please note that the last and first texture will be shown less frequently than those in between
integer random = TRUE;//whether to show the textures randomly, or in order
integer duplicatecheck = TRUE;//if random is true, this will check to make sure the random selection is a new texture

/////////////////////////////////////////////////////////////
//global variables...do not change
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture
integer primslength;//length of the prims list

changetexture()//user fucntion to change texture;
{
integer counter;
string texture = llGetInventoryName(INVENTORY_TEXTURE,currenttexture);//gets texture name
do
{
llSetLinkTexture(llList2Integer(prims,counter),texture,ALL_SIDES);
}while(++counter < primslength);
}

default
{
on_rez(integer start_param)//on rez reset...probably not needed.
{
llResetScript();
}
state_entry()
{
llOwnerSay("Simple Texture Changer (for inventory)(certain prims & all sides).lsl' (Public Domain 2009)");
llOwnerSay("Because knowledge should be free.");
numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);//number of textures in inventory
primslength = llGetListLength(prims);//speed hack here
if(numberoftextures <= 0)//no textures
llOwnerSay("No textures were found in my inventory. Please add textures.");
else if(numberoftextures == 1)//only 1 texture
llOwnerSay("I only found 1 picture in my inventory. I need more in order to change them.");
//for 2 random isn't needed...but I'm too lazy to add that in
else//more than 1 texture found...
{
llOwnerSay("I found " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds on these prims: " + llList2CSV(prims) + ".");
llSetTimerEvent(frequency);
}
}
timer()
{
if(random)//show pics randomly
{
integer randomtexture;
if(duplicatecheck)//whether to make sure random doesn't repeat itself
{
do
{
randomtexture= llRound(llFrand(numberoftextures - 1));
//llOwnerSay("r" + (string)randomtexture);//debug
}while(randomtexture == currenttexture);//make sure the random one isn't the same as the current one
}
else//no duplicate check
randomtexture = llRound(llFrand(numberoftextures - 1));//generate random texture number
currenttexture = randomtexture;//set the current one to the random one selected
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
else//not random, go in order
{
++currenttexture;
if(currenttexture == numberoftextures)//if current texture = number of textures, reset counter
currenttexture = 0;
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)//new or removed inventory...update texture count
{
llOwnerSay("Inventory change detected.");
numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);
llOwnerSay("I found " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds on these prims: " + llList2CSV(prims) +".");
}
}
}
</source>

Simple Texture Changer (input list)(all prims & all sides).lsl

2015-01-25T04:05:32Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

Part of [[Bobbyb's texture changer]] collection
<source lang="lsl2">
//***********************************************************************************************************
// *
// --Simple Texture Changer (input list)(all prims & all sides)-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: None required, but it is appreciated.
//Created: April 28, 2009
//Last Modified: November 28, 2009
//Released: Saturday, November 28, 2009
//License: Public Domain

//Status: Fully Working/Production Ready
//Version: 1.0.6

//Name: Simple Texture Changer (input list)(certain prims & all sides).lsl
//Purpose: To change the texture on all linked prims on all sides based on the textures in the input list.
//Technical Overview: The script finds how many textures there are in the input list, and uses a timer to change the
// texture on a side based on randomness or order. It changes all sides of the certain prim to the
// specified texture
//Description: A simple texture changer script that changes the texture on all the sides of all linked prims in a linked
// set to those in the input list. It allows for a random order, or a logical "next up" order.
//Directions: Create a prim. Place the script in prim inventory. Modify the script parameters to suit your needs and
// save. Reset script if you add/remove linked prims.

//Compatible: Mono & LSL compatible
//Other items required: None.
//Notes: Uses a timer event. Should be low lag. Commented for easier following. This will change all of the sides
// of certain linked prims to the *same* texture based on the input texture list.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Adjustable global variables...you may change these
//texture list...this list should have 2 or more textures
list textures = [
"00000000-0000-0000-0000-0000f0000000",
"00000000-0000-0000-0000-0000d0000000",
"00000000-0000-0000-0000-0000e0000000"];//put your texture UUIDs/keys in here

//Please note there is a .2 second delay between prims.
float frequency = 2.0;//how often to change the texture in seconds. Shouldn't be below 2.0

//please note that the last and first texture will be shown less frequently than those in between
integer random = TRUE;//whether to show the textures randomly, or in order
integer duplicatecheck = TRUE;//if random is true, this will check to make sure the random selection is a new texture
integer atonce = FALSE;//whether to change all the prims at once, or one at a time

/////////////////////////////////////////////////////////////
//global variables...do not change
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture
integer numberofprims;//number of prims

changetexture()//user fucntion to change texture;
{
string texture = llList2String(textures,currenttexture);
if(atonce)
llSetLinkTexture(LINK_SET,texture,ALL_SIDES);
else
{
integer counter = 1;
do
{
llSetLinkTexture(counter,texture,ALL_SIDES);
}while(++counter < (numberofprims + 1));
}
}

default
{
on_rez(integer start_param)//on rez reset...probably not needed.
{
llResetScript();
}
state_entry()
{
llOwnerSay("Simple Texture Changer (input list)(certain prims & all sides).lsl' (Public Domain 2009)");
llOwnerSay("Because knowledge should be free.");
numberoftextures = llGetListLength(textures);//speed hack here
numberofprims = llGetNumberOfPrims();
//assume correct
llOwnerSay("There are " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds on all the sides of all the sides.");
llOwnerSay("My current free memory is : " + (string)llGetFreeMemory()
+ " bytes. If it is below 2500 bytes, I may not work properly.");
llSetTimerEvent(frequency);
}
timer()
{
if(random)//show pics randomly
{
integer randomtexture;
if(duplicatecheck)//whether to make sure random doesn't repeat itself
{
do
{
randomtexture= llRound(llFrand(numberoftextures - 1));
//llOwnerSay("r" + (string)randomtexture);//debug
}while(randomtexture == currenttexture);//make sure the random one isn't the same as the current one
}
else//no duplicate check
randomtexture = llRound(llFrand(numberoftextures - 1));//generate random texture number
currenttexture = randomtexture;//set the current one to the random one selected
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
else//not random, go in order
{
++currenttexture;
if(currenttexture == numberoftextures)//if current texture = number of textures, reset counter
currenttexture = 0;
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
}
}
</source>

Simple Texture Changer (for inventory)(all prims & all sides).lsl

2015-01-25T04:03:19Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

Part of [[Bobbyb's texture changer]] collection
<source lang="lsl2">
//https://wiki.secondlife.com/wiki/Simple_Texture_Changer_(input_list)(multiple_prims_%26_multiple_sides).lsl
//***********************************************************************************************************
// *
// --Simple Texture Changer (for inventory)(all prims & all sides)-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: None required, but it is appreciated.
//Created: November 12, 2008
//Last Modified: November 28, 2009
//Released: Saturday, November 28, 2009
//License: Public Domain

//Status: Fully Working/Production Ready
//Version: 1.0.3

//Name: Simple Texture Changer (for inventory)(all prims & all sides).lsl
//Purpose: To change the texture on all the prims and all of their sides based on the textures in inventory.
//Technical Overview: The script finds how many textures there are in inventory, and uses a timer to change the
// texture on a side based on randomness or order. It takes into account inventory changes. It uses
// a user defined list to determine which sides to change.
//Description: A simple texture changer script that changes the texture on all the sides of all the prims in a
// linked prim set to those in inventory. It allows for a random order, or a logical "next up" order.
//Directions: Create a prim. Place pictures in prim inventory. Place script in prim inventory. Modify script parameters
// to suit your needs. If you add pictures, and the script does not reset, manually reset the script.

//Compatible: Mono & LSL compatible
//Other items required: More than 1 texture in inventory.
//Notes: Uses a timer event. Should be low lag. Commented for easier following. This will change the all the sides
// of linked prims to the *same* texture.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Adjustable global variables...you may change these
//Please note there is a .2 second delay between prims.
//all prims all sides
float frequency = 2.0;//how often to change the texture in seconds. Shouldn't be below 2.0

//please note that the last and first texture will be shown less frequently than those in between
integer random = TRUE;//whether to show the textures randomly, or in order
integer duplicatecheck = TRUE;//if random is true, this will check to make sure the random selection is a new texture
integer atonce = FALSE;//whether to change all the prims at once, or one at a time

/////////////////////////////////////////////////////////////
//global variables...do not change
integer numberoftextures;//number of textures in inventory
integer currenttexture;//inventory number of current texture
integer numberofprims;//the number of prims there are

changetexture()//user fucntion to change texture;
{

string texture = llGetInventoryName(INVENTORY_TEXTURE,currenttexture);//gets texture key
if(atonce)
llSetLinkTexture(LINK_SET,texture,ALL_SIDES);
else
{
integer counter=1;
do
{
llSetLinkTexture(counter,texture,ALL_SIDES);
}while(++counter < (numberofprims + 1));
}
}

default
{
on_rez(integer start_param)//on rez reset...probably not needed.
{
llResetScript();
}
state_entry()
{
llOwnerSay("Simple Texture Changer (for inventory)(all prims & all sides).lsl' (Public Domain 2009)");
llOwnerSay("Because knowledge should be free.");
numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);//number of textures in inventory
numberofprims = llGetNumberOfPrims();
if(numberoftextures <= 0)//no textures
llOwnerSay("No textures were found in my inventory. Please add textures.");
else if(numberoftextures == 1)//only 1 texture
llOwnerSay("I only found 1 picture in my inventory. I need more in order to change them.");
//for 2 random isn't needed...but I'm too lazy to add that in
else//more than 1 texture found...
{
llOwnerSay("I found " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds on " + (string)numberofprims + " prims.");
llSetTimerEvent(frequency);
}
}
timer()
{
if(random)//show pics randomly
{
integer randomtexture;
if(duplicatecheck)//whether to make sure random doesn't repeat itself
{
do
{
randomtexture= llRound(llFrand(numberoftextures - 1));
//llOwnerSay("r" + (string)randomtexture);//debug
}while(randomtexture == currenttexture);//make sure the random one isn't the same as the current one
}
else//no duplicate check
randomtexture = llRound(llFrand(numberoftextures - 1));//generate random texture number
currenttexture = randomtexture;//set the current one to the random one selected
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
else//not random, go in order
{
++currenttexture;
if(currenttexture == numberoftextures)//if current texture = number of textures, reset counter
currenttexture = 0;
changetexture();//change the texture
//llOwnerSay("c" + (string)currenttexture);//debug
}
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)//new or removed inventory...update texture count
{
llOwnerSay("Inventory change detected.");
numberoftextures = llGetInventoryNumber(INVENTORY_TEXTURE);
llOwnerSay("I found " + (string)numberoftextures + " pictures which I will change every "
+ (string)frequency + " seconds on " + (string)numberofprims + " prims."); }
else if(change & CHANGED_LINK)//new or removed prims...update prim count
{
llOwnerSay("Object links changed.");
numberofprims = llGetNumberOfPrims();
llOwnerSay("This object has " + (string)numberofprims + " prims.");

}
}
}
</source>

User:Xen Lisle/Texture Slide

2015-01-25T04:01:17Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header}}
<div id="box">
<div style="padding: 0.5em;">
=Texture Slide=

==General information:==

This is a proof of concept to show how to slide a texture across a prim face with mouse movement.<br><br>
The script will display a grid texture of 25 squares. Clicking on a grid square will return that squares value.<br>
Clicking and holding while moving the mouse, the texture will slide in the direction of the mouse movement.

==Script==

<source lang="lsl2">
// Touch and drag a texture across a prim face
// Useful for interfaces and such
// Example script gives you 25 buttons to click on
// By Xen Lisle
// Free to use

// prim face you want the script to work on
integer gFace = 0;

// the UV repeats of the texture. values smaller than one will show only part of the texture
vector UV_TEXTURE_REPEATS = <1.0, 1.0, 0.0>;

// your menu texture
string MENU_TEXTURE = "69737f61-1fdd-6033-7ea3-a52e61a40137";

// strided list to define button labels and values
// - vector one is top left button corner
// - vector two is bottom right button corner
// - next two elements hold data for the buttons
// elements in this example: LABEL, DATA
// assigning a label helps to filter different button actions
// not very helpful in our example but included anyway
list BUTTONS_STRIDED_LIST = [
<0.0, 1.0, 0.0>, <0.2, 0.8, 0.0>, "Button", "A-0",
<0.2, 1.0, 0.0>, <0.4, 0.8, 0.0>, "Button", "A-1",
<0.4, 1.0, 0.0>, <0.6, 0.8, 0.0>, "Button", "A-2",
<0.6, 1.0, 0.0>, <0.8, 0.8, 0.0>, "Button", "A-3",
<0.8, 1.0, 0.0>, <1.0, 0.8, 0.0>, "Button", "A-4",

<0.0, 0.8, 0.0>, <0.2, 0.6, 0.0>, "Button", "B-0",
<0.2, 0.8, 0.0>, <0.4, 0.6, 0.0>, "Button", "B-1",
<0.4, 0.8, 0.0>, <0.6, 0.6, 0.0>, "Button", "B-2",
<0.6, 0.8, 0.0>, <0.8, 0.6, 0.0>, "Button", "B-3",
<0.8, 0.8, 0.0>, <1.0, 0.6, 0.0>, "Button", "B-4",

<0.0, 0.6, 0.0>, <0.2, 0.4, 0.0>, "Button", "C-0",
<0.2, 0.6, 0.0>, <0.4, 0.4, 0.0>, "Button", "C-1",
<0.4, 0.6, 0.0>, <0.6, 0.4, 0.0>, "Button", "C-2",
<0.6, 0.6, 0.0>, <0.8, 0.4, 0.0>, "Button", "C-3",
<0.8, 0.6, 0.0>, <1.0, 0.4, 0.0>, "Button", "C-4",

<0.0, 0.4, 0.0>, <0.2, 0.2, 0.0>, "Button", "D-0",
<0.2, 0.4, 0.0>, <0.4, 0.2, 0.0>, "Button", "D-1",
<0.4, 0.4, 0.0>, <0.6, 0.2, 0.0>, "Button", "D-2",
<0.6, 0.4, 0.0>, <0.8, 0.2, 0.0>, "Button", "D-3",
<0.8, 0.4, 0.0>, <1.0, 0.2, 0.0>, "Button", "D-4",

<0.0, 0.2, 0.0>, <0.2, 0.0, 0.0>, "Button", "E-0",
<0.2, 0.2, 0.0>, <0.4, 0.0, 0.0>, "Button", "E-1",
<0.4, 0.2, 0.0>, <0.6, 0.0, 0.0>, "Button", "E-2",
<0.6, 0.2, 0.0>, <0.8, 0.0, 0.0>, "Button", "E-3",
<0.8, 0.2, 0.0>, <1.0, 0.0, 0.0>, "Button", "E-4"];

vector gStartST;
vector gEndST;
vector gOffsetUV;

list FindUV(vector v, list lst)
{
vector cordA;
vector cordB;
integer lines = llGetListLength(lst) / 4;

// roll values between 0 and 1
v -= <llFloor(v.x), llFloor(v.y), 0.0>;

integer i;
for (i = 0; i < lines; i++)
{
cordA = llList2Vector(lst,i * 4);
cordB = llList2Vector(lst, i * 4 + 1);

if (v.x > cordA.x && v.x < cordB.x &&
v.y < cordA.y && v.y > cordB.y)
{
return llList2List(lst, i*4 + 2, i*4 + 3);
}
}

return [];
}

default
{
state_entry()
{
if (MENU_TEXTURE == "")
{
MENU_TEXTURE = "69737f61-1fdd-6033-7ea3-a52e61a40137";
}

llSetLinkPrimitiveParamsFast(0, [
PRIM_TEXTURE, gFace, MENU_TEXTURE, UV_TEXTURE_REPEATS, ZERO_VECTOR, 0.0]);
}

touch_start(integer num_detected)
{
integer face = llDetectedTouchFace(0);

if (face == gFace)
{
gOffsetUV = llGetTextureOffset(gFace);
gStartST = llDetectedTouchST(0);

// scale the touch vector to match our texture scale
gStartST = <gStartST.x*UV_TEXTURE_REPEATS.x, gStartST.y*UV_TEXTURE_REPEATS.y, 0.0>;
}
}

touch(integer num_detected)
{
integer face = llDetectedTouchFace(0);

if (face == gFace)
{
gEndST = llDetectedTouchST(0);

// scale the touch vector to match our texture scale
gEndST = <gEndST.x*UV_TEXTURE_REPEATS.x, gEndST.y*UV_TEXTURE_REPEATS.y, 0.0>;

if (llVecDist(gStartST,gEndST) > 0.0)
{
vector newUV = gOffsetUV + (gStartST - gEndST);

// roll values between 0 and 1
newUV -= <llFloor(newUV.x), llFloor(newUV.y), 0.0>;

// apply new texture offset
llSetLinkPrimitiveParamsFast(0, [
PRIM_TEXTURE, gFace, MENU_TEXTURE, UV_TEXTURE_REPEATS, newUV, 0.0]);
}
}
}

touch_end(integer num_detected)
{
integer face = llDetectedTouchFace(0);

if (face == gFace)
{
if (llVecDist(gStartST, gEndST) > 0.0)
{
// compare mouse movement to see if texture was moved. maybe useful to do something here
}
else// did not slide the texture. was a button press
{
list list_data = FindUV(llDetectedTouchUV(0), BUTTONS_STRIDED_LIST);

//This next line is where we compare button labels
if (llList2String(list_data, 0) == "Button")
{
llSay(PUBLIC_CHANNEL, llList2String(list_data, 1));
}
}
}
}
}
</source>

</div>
</div>

Touring Balloon

2015-01-25T03:06:20Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">, <pre> formatting for notecard contents

{{LSL Header}}

My touring hot air balloon...

== Hot Air Balloon "Engine" ==
<source lang="lsl2">//Hot Air Touring Balloon
//by Hank Ramos

//=========
//Overview
//=========
//The Hot air balloon consists of a large number of scripts, working together. The balloon will not function properly without all of the scripts. The scripts are broken up by function, mainly for convenience but also because of the limitations of the LSL scripting memory.

//============================
//Scripts and their Function
//============================
//Hot Air Balloon:
//The main script and "engine" of the entire balloon. All major functions are done here

//Automated Tour:
//Handles automatic tours given by a pre-set Tour notecard. The script reads and follows the directions given in the script, and sends commands to the Hot Air Balloon script.

//Destination Script:
//Handles the file i/o of the tour notecards. It converts the notecard information to a list of destinations for the Automated Tour script to handle.

//Finder Script:
//Handles notification of the owner of the balloon in case the balloon is lost.

//ILS Navigation:
//Handles reception of communications from ILS beacons. The owner manually activates the ILS beacon, which then communicates docking or nav info to this script.

//Landmark Script:
//Handles drag-and-dropped landmarks. Reads the landmark information, then passes it along to the Hot Air Balloon Script

//Region Script:
//Used to be a separate script along with another script that read world coordinates of various sims from a notecard. Very slow, and required updating.
//Now, this script simply provides world coordinates from the llRequestSimulatorData function.

//Settings Script:
//Reads from the settings notecard and informs various scripts of their default settings.

//Voice Control:
//Provides centralized listen event to distribute voice commands to all of the scripts in the balloon.

//Air Bag Script (found in the invisible air bags and the bain air bag at the top):
//This script receives buoyancy values from the Hot Air Balloon script, and help make the balloon float and sink

//Display Script (found in the overhead display prim, invisible prim but visible text):
//Handles the display and timed request of information from the Hot Air Balloon Script. When not receiving text to display, it automatically triggers the Hot Air Balloon script to send distance, destination, and altitude info back to this script.

//MasterFlameScript
//Receives Flame 911 info, and controls all other flames and sound.

//FlameScript
//Works in conjunction with the MasterFlameScript to show coordinated flames.

//==================================
//Constants Used with Link Messages
//==================================
//100 : Request Region World Coordinates
//102 : >>>Deprecated<<<
//110 : Request Landmark Information for a particular Tour Stop #.
//200 : Receive Region World Coordinates sent by the 100 command
//203 : >>>Deprecated<<<
//210 : Send Landmark Information to the Hot Air Balloon.
//211 : Send number of destinations in the loaded tour to the Automated Tour Script.
//237 : Broadcast current TravelForce, ArriveForce, DefaultZ settings from Settings Script.
//238 : Broadcast current Upforce, DownForce, Precision settings from Settings Script.
//240 : Send "API" command to all script. Same as a voice command.
//411 : Text to display on the overhead display
//412 : Broadcast current Display Rate setting from Settings Script.
//482 : Broadcast current ChatChannel setting from Settings Script.
//487 : Send tour notecard name to the Destination Script. Triggers automatic loading of that card as well.
//501 : Air Bag Buoyancy Information.
//555 : Send the current "Distance to Destination" to the Automated Tour script
//850 : Instructs Hot Air Balloon to send "Destination Name" info to the overhead display.
//851 : Instructs Hot Air Balloon to send "Distance to Destination" info to the overhead display.
//852 : Instructs Hot Air Balloon to send "Altitude" info to the overhead display.
//911 : Flame control
//999 : Broadcast reset to all scripts
//2658 : Manual Mode. Informs the Automated Tour that we are currently in manual mode, and not following a tour notecard.
//95562 : Voice Command string broadcast by Voice Control Script. Each script processes their own particular commands.

vector LPos;
vector RPos;
vector hovL;
vector hovR;
string dest;
string region;
vector destV; //dock, undock, distance
integer hovering;
vector forces; //Upforce, DownForce, Precision
vector defs; //TravelForce, ArriveForce, DefaultZ
float comp = 0;
float mass;
vector pos;
integer broadcastCounter;
float currentFalseAlt;

string cap(string v)
{
v = llToUpper(llGetSubString(v, 0, 0)) + llGetSubString(v, 1, llStringLength(v) - 1);
return v;
}

disp(string message)
{
llMessageLinked(LINK_ALL_CHILDREN, 411, message, NULL_KEY);
}

vector totarget(float gx, float gy, float lx, float ly)
{
vector target;
vector dir;
vector corner = llGetRegionCorner();

pos.x = pos.x + corner.x;
pos.y = pos.y + corner.y;

target.x = gx + lx;
target.y = gy + ly;
target.z = pos.z;

dir = target - pos;
destV.z = llVecMag(dir);

dir = llVecNorm(dir);
return dir;
}

turn(integer dock, float tau)
{
return;
vector vel;

if(dock)
{
vel = <-0.00163, -0.00020, -1.00000>;
}
else
{
vel = llVecNorm(llGetVel());
}
vel.z = 0.0;
vector fwd = llRot2Up(llGetRot());
vector imp = fwd % vel;
imp = (1/tau) * imp;
vector omega = llGetOmega();
imp = (mass * (imp - omega));
llApplyRotationalImpulse(imp, FALSE);
}

push(vector direction, float speed)
{
vector ivel = llGetVel();
vector fvel = direction * speed;
vector imp = (mass * (fvel - ivel))/10;

llApplyImpulse(imp, FALSE);
}

alt(float tarz)
{
float setFloatHeight;
//float zdiff = llFabs(pos.z - tarz);
//
//if (zdiff > 15)
//{
// comp = 0.1 * ((zdiff - 15)/75);
// llOwnerSay("Compensation is now: " + (string)comp);
//}
//else
//{
// comp = 0;
//}
if(pos.z < tarz)
{
//llMessageLinked(LINK_ALL_CHILDREN, 501, (string)(forces.x + comp), "");
//llMessageLinked(LINK_ALL_CHILDREN, 501, (string)(forces.x), "");
llMessageLinked(LINK_ALL_CHILDREN, 911, (string)TRUE, NULL_KEY);
if (currentFalseAlt < tarz - 50) currentFalseAlt = tarz - 50 - forces.x;
currentFalseAlt += forces.x;
if (currentFalseAlt > tarz + 10) currentFalseAlt = tarz + 10;
//llOwnerSay("Decrementing currentFalseAlt by " + (string)forces.x);
//llSetBuoyancy(forces.x);
//llOwnerSay("Buoyance Set to = " + (string)forces.x);
}
else
{
//llMessageLinked(LINK_ALL_CHILDREN, 501, (string)(forces.y - comp), "");
//llMessageLinked(LINK_ALL_CHILDREN, 501, (string)(forces.y), "");
llMessageLinked(LINK_ALL_CHILDREN, 911, (string)FALSE, NULL_KEY);
if (currentFalseAlt > tarz + 50) currentFalseAlt = tarz + 50 + forces.y;
currentFalseAlt -= forces.y;
if (currentFalseAlt < tarz - 10) currentFalseAlt = tarz - 10;
//llOwnerSay("Decrementing currentFalseAlt by " + (string)forces.y);
//llSetBuoyancy(forces.y);
//llOwnerSay("Buoyance Set to = " + (string)forces.y);
}

setFloatHeight = currentFalseAlt - llGround( <0.0, 0.0, 0.0> );
if (pos.z < tarz)
{
if (setFloatHeight > 100) setFloatHeight = -100;
}
//if (setFloatHeight > 100) setFloatHeight = -(2147483648 - setFloatHeight);
llSetVehicleFloatParam( VEHICLE_HOVER_HEIGHT, setFloatHeight);
//llOwnerSay((string)setFloatHeight);
//llSetVehicleFloatParam( VEHICLE_HOVER_HEIGHT, currentFalseAlt);
}

vect(integer hovering)
{
//Update Global Info
//mass = llGetMass();
pos = llGetPos();

//The "engine" of the balloon...
vector dir = totarget(RPos.x, RPos.y, LPos.x, LPos.y);
if(destV.z > 15)
{
push(dir, defs.x);
}
else
{
push(dir, defs.y);
}
turn(0, 3.0);
alt(LPos.z);
broadcastCounter++;
if (broadcastCounter == 10)
{
if (!hovering){llMessageLinked(llGetLinkNumber(), 555, (string)destV.z, NULL_KEY);};
broadcastCounter = 0;
}
//currentFalseAlt -= 0.01;
}

checkC(string m, key id)
{
m = llToLower(m);
if (m == "reset scripts")
{
disp("Resetting Scripts...");
llResetScript();
}
if (m == "startup")
{
state startup;
}
if (m == "shutdown")
{
state shutdown;
}
if (m == "hover")
{
state hover;
}
if ((m == "resume") && (hovering))
{
LPos = hovL;
RPos = hovR;
state travel;
}
}

checkTC(string msg, key id)
{
float checkN;
integer listLength;
msg = llToLower(msg);
if (llSubStringIndex(msg, "landmark ") == 0)
{
llMessageLinked(LINK_SET, 2658, "", NULL_KEY);//Manual Mode

list tempList = llCSV2List(llGetSubString(msg,9,llStringLength(msg)));
listLength = llGetListLength(tempList);
region = llList2String(tempList, 0);
dest = "Manual Landmark";
if (listLength >= 1)
{
if (defs.z >= 1)
{
LPos = <128,128,defs.z>;
}
else
{
LPos = <128,128,LPos.z>;
}
}
if (listLength == 4)
{
LPos.z = llList2Float(tempList, 3);
}
if ((listLength == 4) || (listLength == 3))
{
LPos.x = llList2Float(tempList, 1);
LPos.y = llList2Float(tempList, 2);
}
llMessageLinked(LINK_SET, 100, region, NULL_KEY);
return;
}
if (llSubStringIndex(msg, "altitude ") == 0)
{
checkN = (float)llGetSubString(msg,9,18);
if (checkN > 0.001)
{
LPos.z = checkN;
disp("Altitude Set to " + (string)((integer)LPos.z) + " meters");
}
return;
}
if (llSubStringIndex(msg, "bump ") == 0)
{
checkN = (float)llGetSubString(msg,5,18);
LPos.z += checkN;
disp("Altitude bumped by " + (string)((integer)checkN) + " meters to " + (string)((integer)LPos.z) + " meters");
return;
}
if (msg == "dock")
{
LPos.z = destV.x;
disp("Docking at " + (string)((integer)LPos.z) + " meters");
return;
}
if (msg == "undock")
{
LPos.z = destV.y;
disp("Heading for " + (string)((integer)LPos.z) + " meters");
return;
}
}

checkM(integer n, string m, key id)
{
vector position = llGetPos();
list L;

//Destination Name = 850
if ((n == 850) && (dest != "None"))
{
disp("Destination: " + cap(dest) + ", " + cap(region) + "(" + (string)((integer)LPos.x) + "," + (string)((integer)LPos.y) + ")");
return;
}

//Distance To Destination = 851
if ((n == 851) && (dest != "None"))
{
disp("Distance To Destination: " + (string)((integer)destV.z) + " meters");
return;
}

//Altitude = 852
if (n == 852)
{
disp("Altitude: " + (string)((integer)position.z) + " meters");
return;
}

//Process Return of Landmark Info Retrieval
if (n == 210)
{
L = llCSV2List(m);

dest = llList2String(L, 0);
region = llList2String(L, 1);
LPos.x = llList2Float (L, 2);
LPos.y = llList2Float (L, 3);
destV.x = llList2Float (L, 4);
destV.y = llList2Float (L, 5);
LPos.z = destV.y;

if (region != "")
{
llMessageLinked(LINK_SET, 100, region, NULL_KEY);
}
return;
}
//Process API Commands
if (n == 240)
{
checkC(m, id);
checkTC(m, id);
return;
}
//Process API Forces Commands
if (n == 238)
{
forces = (vector)m;
return;
}
//Process API Other Commands
if (n == 237)
{
defs = (vector)m;
return;
}

//Process Return of Region Vector Determination
if (n == 200)
{
RPos = (vector)m;
state travel;
}
}

reset()
{
integer scriptCount = llGetInventoryNumber(INVENTORY_SCRIPT);
integer x;
string scriptName;

for (x=0; x < scriptCount ; x++)
{
scriptName = llGetInventoryName(INVENTORY_SCRIPT, x);
if (scriptName != llGetScriptName())
{
llResetOtherScript(scriptName);
}
}
llOwnerSay("To use the Touring Hot Air Balloon, simply sit on the balloon and say \"help\".");
}

init()
{
dest = "None";
llMessageLinked(LINK_SET, 102, "", "");
llSetStatus(STATUS_PHYSICS, FALSE);
llSetStatus(STATUS_PHANTOM, FALSE);
llMessageLinked(LINK_ALL_CHILDREN, 911, (string)FALSE, NULL_KEY); //Turn off Flames
llSetVehicleType(VEHICLE_TYPE_BALLOON);
//llSetVehicleFlags(VEHICLE_FLAG_HOVER_GLOBAL_HEIGHT);
llSetVehicleFlags(VEHICLE_FLAG_HOVER_TERRAIN_ONLY);
//llSetVehicleFloatParam(VEHICLE_VERTICAL_ATTRACTION_TIMESCALE, 1.0);
//llSetVehicleFloatParam(VEHICLE_VERTICAL_ATTRACTION_TIMESCALE, 3.0);
//llSetVehicleFloatParam(VEHICLE_VERTICAL_ATTRACTION_EFFICIENCY, 0.8);

//llSetVehicleFloatParam(VEHICLE_HOVER_TIMESCALE, 1.0);
//llSetVehicleFloatParam(VEHICLE_HOVER_TIMESCALE, 3.0);
//llSetVehicleFloatParam(VEHICLE_HOVER_EFFICIENCY, 0.8);
}
//STATES
default
{
state_entry()
{
reset();
init();
}

on_rez(integer start_param)
{
llResetScript();
}

link_message(integer sn, integer n, string m, key id)
{
//Process Listen Commands
if (n == 95562)
{
checkC(m, id);
return;
}
checkM(n, m, id);
}
}
state startup
{
state_entry()
{
vector cpos = llGetPos();

disp("Starting up...");
dest = "None";
llSetBuoyancy(1.0);
llSetStatus(STATUS_ROTATE_X | STATUS_ROTATE_Y, FALSE);
llSetStatus(STATUS_ROTATE_Z | STATUS_PHYSICS | STATUS_BLOCK_GRAB, TRUE);
llSetStatus(STATUS_PHYSICS, TRUE);
//llMessageLinked(LINK_ALL_CHILDREN, 501, (string)forces.y, "");
mass = llGetMass();
state hover;
}
on_rez(integer start_param)
{
llResetScript();
}
}
state shutdown
{
state_entry()
{
disp("Shutting Down...");
llMessageLinked(LINK_ALL_CHILDREN, 911, (string)FALSE, NULL_KEY);
llSetStatus(STATUS_PHYSICS, FALSE);
llSetTimerEvent(1);
}

on_rez(integer start_param)
{
llResetScript();
}

link_message(integer sender_num, integer n, string m, key id)
{
//Process Listen Commands
if (n == 95562)
{
checkC(m, id);
return;
}
checkM(n, m, id);
}

timer()
{
if (llGetStatus(STATUS_PHYSICS))
{
llSetStatus(STATUS_PHYSICS, FALSE);
}
else
{
llSetTimerEvent(0);
disp("Successfully Shut Down");
};
}
}
state hover
{
state_entry()
{
hovering = TRUE;
hovL = LPos;
hovR = RPos;
LPos = llGetPos();
RPos = llGetRegionCorner();
disp("Hovering at " + (string)((integer)LPos.z) + " meters");
currentFalseAlt = LPos.z;
llSetTimerEvent(forces.z);
}

on_rez(integer start_param)
{
llResetScript();
}

link_message(integer sn, integer n, string m, key id)
{
//Process Listen Commands
if (n == 95562)
{
checkTC(m, id);
checkC(m, id);
return;
}
checkM(n, m, id);
}

timer()
{
vect(TRUE);
}

state_exit()
{
hovering = FALSE;
}
}
state travel
{
state_entry()
{
disp("Heading for " + (string)((integer)LPos.z) + " meters");
llSetTimerEvent(forces.z);
}

on_rez(integer start_param)
{
llResetScript();
}

link_message(integer sender_number, integer number, string message, key id)
{
//Process Listen Commands
if (number == 95562)
{
checkTC(message, id);
checkC(message, id);
return;
}
checkM(number, message, id);
}

timer()
{
vect(FALSE);
}
}

</source>

== MegaPrim/LargeMass Vehicles ==

I've found that large mass vehicles pose a problem as llApplyImpulse uses [[energy]] faster than most megaprims, even those of smaller dimensions such as <11,11,.5>, can replenish. I've had success changing the following code.

Change the push function in the ATB Engine from:
<source lang="lsl2">
push(vector direction, float speed)
{
vector ivel = llGetVel();
vector fvel = direction * speed;
vector imp = (mass * (fvel - ivel))/10;

llApplyImpulse(imp, FALSE);
}
</source>

To the following code which applies a constant force:

<source lang="lsl2">
push(vector direction, float speed)
{
vector ivel = llGetVel();
vector fvel = direction * speed;
vector imp = (mass * (fvel - ivel))/10;

llSetForce(imp, FALSE);
}
</source>

- Cydkne Chronowire

== Automated Tour ==
<source lang="lsl2">//Automated Tour
//by Hank Ramos
//June 22, 2004

integer ListenAPI = 95562;
string destName = "None";
string region; //regionName
integer stop;
integer dests; //destionationsCount
integer regions;
integer wp = FALSE; //waypoint
integer pa; //pause
integer ar = TRUE; //arrived
vector localP; //localPosition
float distance;
integer distRecv; //distanceReceived
float time;

disp(string m)
{
llMessageLinked(LINK_SET, 411, m, NULL_KEY);
}

string cap(string v)
{
v = llToUpper(llGetSubString(v, 0, 0)) + llGetSubString(v, 1, llStringLength(v) - 1);
return v;
}

next()
{
if (stop > 0)
{
disp("Continuing to Next Stop.");
if(stop < dests)
{
stop += 1;
}
else
{
stop = 1;
}
llMessageLinked(LINK_SET, 110, (string)((integer)stop), NULL_KEY); //Process Landmark
state idle;
}
}

checkTC(string m, key id)
{
integer newStop;

m = llToLower(m);
if (llSubStringIndex(m, "goto ") == 0)
{
newStop = (integer)llGetSubString(m, 5,8);
if ((newStop <= dests) && (newStop > 0))
{
stop = newStop;
llMessageLinked(LINK_SET, 110, (string)((integer)stop), NULL_KEY); //Process Landmark
state idle;
}
else
{
disp("Stop #" + (string)newStop + " is Invalid.");
}
return;
}
if (llSubStringIndex(m, "timeout ") == 0)
{
pa = (integer)llGetSubString(m, 8,12);
return;
}
if (llSubStringIndex(m, "extend ") == 0)
{
pa += (integer)llGetSubString(m, 7,12);
return;
}
if (m == "next")
{
next();
return;
}
if (m == "shutdown")
{
stop = 0;
state idle;
}
}

checkM(integer n, string m, key id)
{
if (n == 210)
{
string tempS;
list L = llCSV2List(m);

destName = llList2String (L, 0);
region = llList2String (L, 1);
localP.x = llList2Float (L, 2);
localP.y = llList2Float (L, 3);
wp = llList2Integer(L, 6); //Waypont
pa = llList2Integer(L, 7); //Pause

//llMessageLinked(LINK_SET, 100, regionName, NULL_KEY); //This is done in the balloon script
if (stop > 0)
{
tempS ="Destination set to Landmark #" + (string)stop + ", ";
}
else
{
tempS ="Destination set to ";
}
disp(tempS + destName + ", " + region + \
"(" + (string)((integer)localP.x) + "," + (string)((integer)localP.y) + ").");
state enroute;
}
if (n == 555)
{
distance = (float)m;
distRecv = TRUE;
return;
}
if (n == 211)
{
dests = (integer)m;
return;
}
if (n == 2658)
{
stop = 0;
wp = FALSE;
pa = 0;
if (m == "reset")
{
state loading;
}
else
{
state idle;
}
}
}

//STATES
default
{
state_entry()
{
disp("Initializing Automated Tour...");
state loading;
}
}

state loading
{
link_message(integer sn, integer n, string m, key id)
{
if (n == 95562)
{
checkTC(m, id);
return;
}
if (n == 211)
{
dests = (integer)m;
state idle;
}
checkM(n, m, id);
}
}

state enroute
{
state_entry()
{
distRecv = FALSE;
distance = 999999999;
disp("Enroute to Destination...");
}

on_rez(integer sp)
{
state idle;
}

link_message(integer sn, integer n, string m, key id)
{
if (n == 95562)
{
checkTC(m, id);
return;
}
checkM(n, m, id);
if (distRecv)
{
if (distance < 20)
{
state arrive;
}
}
}
}

state arrive
{
state_entry()
{
string tempS;

if (stop > 0)
{
tempS = "Arrived at Landmark #" + (string)stop+ ", ";
}
else
{
tempS = "Arrived at ";
}

disp(tempS + destName + ", " + cap(region) + \
"(" + (string)((integer)localP.x) + "," + (string)((integer)localP.y) + ").");
if (pa > 0)
{
llGetAndResetTime();
llSetTimerEvent(5);
}
if (wp)
{
next();
}
}

on_rez(integer sp)
{
state idle;
}

link_message(integer sn, integer n, string m, key id)
{
if (n == 95562)
{
checkTC(m, id);
return;
}
checkM(n, m, id);
}

timer()
{
time = llGetTime();
float calcTime = pa - time;

if (pa > 0)
{
if (calcTime <= 0)
{
next();
}
else if ((calcTime > 1) && (calcTime < 60))
{
disp("Leaving in " + (string)((integer)calcTime) + " seconds.");
}
else if ((calcTime >= 60)&& (calcTime < 120))
{
disp("Leaving in approximately 1 minute.");
}
else if (calcTime >= 120)
{
disp("Leaving in " + (string)((integer)(calcTime / 60)) + " minutes.");
}
}
}
}

state idle
{
link_message(integer sn, integer n, string m, key id)
{
if (n == 95562)
{
checkTC(m, id);
return;
}
checkM(n, m, id);
}
}

</source>

== Destinations ==
<source lang="lsl2">integer count;
list dests;
string notecard;
integer lineCount;
key readKey;

displayMessage(string m)
{
llMessageLinked(LINK_SET, 411, m, NULL_KEY);
}
loadLandmarks()
{
displayMessage("Loading " + notecard + "...");
dests = [];
count = 0;
lineCount = 0;
readKey = llGetNotecardLine(notecard, lineCount);
}

checkC(string m, key id)
{
integer index;
list landmarkInfo;
string testM;

testM = llToLower(m);

if (llSubStringIndex(testM, "destination notecard ") == 0)
{
notecard =llGetSubString(m, 21, 100);
displayMessage("Destination Notecard Changed To: " + notecard + ".");
llMessageLinked(LINK_SET, 2658, "reset", NULL_KEY);
loadLandmarks();
return;
}
if (llSubStringIndex(testM, "notecard ") == 0)
{
notecard =llGetSubString(m, 9, 100);
displayMessage("Destination Notecard Changed To: " + notecard + ".");
llMessageLinked(LINK_SET, 2658, m, NULL_KEY);
loadLandmarks();
return;
}
if ((testM == "reset destinations") || (testM == "reset notecards"))
{
loadLandmarks();
return;
}
if (testM == "say destinations")
{
//Get Landmark Info
for (index = 0;index < count;index += 1)
{
landmarkInfo = llCSV2List(llList2String(dests, index));

llWhisper(0, "Destination #" + (string)(index +1) + ": " + llList2String(landmarkInfo,0));
}
return;
}
}

string getLandmark(integer index)
{
index -= 1;
return llList2String(dests, index);
}

default
{
state_entry()
{
}
link_message(integer sn, integer n, string m, key id)
{
if (n == 95562)
{
checkC(m, id);
return;
}
if (n == 487)
{
notecard = m;
loadLandmarks();
return;
}
if (n == 110)
{
//Get Landmark Info
llMessageLinked(LINK_SET, 210, getLandmark((integer)m), NULL_KEY);
}
}

dataserver(key requested, string data)
{
list L;

//Process Landmarks
if (requested == readKey)
{
L = llCSV2List(data);
if (data != EOF)
{
if ((llSubStringIndex(data, "#") != 0) && (llGetListLength(L) == 8))
{
dests += data;
count += 1;
}
lineCount += 1;
readKey = llGetNotecardLine(notecard, lineCount);
}
else
{
displayMessage("There are " + (string)(count) + " destinations loaded.");
llMessageLinked(LINK_SET, 211, (string)count, NULL_KEY);
}
}
}
}

</source>

== Finder ==
<source lang="lsl2">//Finder Script
//By Hank Ramos
//Portions originally by Eggy Lippmann
//===========================
//Configurable Options...
float sensorInterval = 1800; //Seconds between scans
float sensorDistance = 30.0; //Max distance owner can be from object, Max is 96 meters
//===========================
string OwnerName;
integer dispOnce;
integer gotName;

disp(string message)
{
llMessageLinked(LINK_ALL_CHILDREN, 411, message, NULL_KEY);
}

initialize()
{
dispOnce = FALSE;
gotName = FALSE;
llSensorRepeat("", llGetOwner(), AGENT, 96, TWO_PI, 1); //Get Name of Avatar, so use max diatance and min time
}

checkC(string message, key id)
{

if ((llSameGroup(id)) || (id == llGetOwner()))
{
message = llToLower(message);
if (llSubStringIndex(message, "finder rate ") == 0)
{
sensorInterval = (float)llGetSubString(message,12,18) * 60;
disp("Finder Sensor Rate Set To " + (string)((integer)(sensorInterval/60)) + " minutes");
}

else if (llSubStringIndex(message, "finder distance ") == 0)
{
sensorDistance = (float)llGetSubString(message,16,22) * 60;
disp("Finder Sensor Distance Set To " + (string)((integer)(sensorDistance/60)) + " meters");
}

else if ((message == "startup") || (message == "finder on"))
{
dispOnce = FALSE;
disp("Finder is On. If lost, will IM " + OwnerName);
}

else if ((message == "shutdown") || (message == "finder off"))
{
disp("Finder is Off. No lost notifications will be sent.");
llSensorRemove();
}
}
}
default
{
state_entry()
{
initialize();
}
on_rez(integer start_param)
{
llResetScript();
}
sensor(integer num_detected)
{
if (!gotName)
{
gotName = TRUE;
OwnerName = llDetectedName(0);
llSensorRepeat("", "", AGENT, sensorDistance, TWO_PI, 5); //Get Name of Avatar, so use max diatance and min time
}
dispOnce = FALSE;
}
no_sensor()
{
if ((llGetTime() >= sensorInterval) || (!dispOnce))
{
llWhisper(0, OwnerName + " lost me! Tell them to come and get me at " + (string) llGetPos() + " in the " + llGetRegionName() + " region.");
llInstantMessage(llGetOwner(), "I'm lost! Come and get me at " + (string) llGetPos() + " in the " + llGetRegionName() + " region.");
llResetTime();
}
if (!dispOnce)
{
dispOnce = TRUE;
llResetTime();
}
}
link_message(integer sender_number, integer number, string message, key id)
{
if (number == 95562)
{
checkC(message, id);
return;
}
//Process API Commands
if (number == 240)
{
checkC(message, id);
return;
}
}

}

</source>

== ILS Navigation ==
<source lang="lsl2">integer channel = 36658425;

default
{
state_entry()
{
llListen(channel, "", NULL_KEY, "");
}
on_rez(integer startup_param)
{
llResetScript();
}

listen(integer channel, string name, key id, string message)
{
list packet;
list navinfo;
string owner;

packet = llCSV2List(message);
owner = llKey2Name(llGetOwner());

if (owner == llList2String(packet, 1))
{
navinfo += llList2String(packet, 0);
navinfo += llToLower(llList2String(packet, 2));
navinfo += llList2Float(packet, 3);
navinfo += llList2Float(packet, 4);
navinfo += llList2Float(packet, 5);
navinfo += llList2Float(packet, 6);

llMessageLinked(llGetLinkNumber(), 210, llList2CSV(navinfo), NULL_KEY);
}

}
}

</source>

== Landmarks ==
<source lang="lsl2">//Landmark Inventory Script
//supports reading of drag and dropped landmarks on this vehicle

string landmarkName;
key reqID;

default
{
changed(integer change)
{
if (change == CHANGED_INVENTORY)
{
if (llGetInventoryNumber(INVENTORY_LANDMARK) > 0)
{
landmarkName = llGetInventoryName(INVENTORY_LANDMARK, 0);
if (llGetInventoryKey(landmarkName) != NULL_KEY)
reqID = llRequestInventoryData(landmarkName);
}
}
}
dataserver(key queryid, string data)
{
//vector localPos;
vector regionPos;
list tempList;
integer x;
integer test;
list navinfo;
vector targetPos;
vector targetRegionPos;

if (queryid == reqID)
{
llRemoveInventory(landmarkName);

test = llSubStringIndex(landmarkName, ",");
if (test >= 0)
{
tempList = llCSV2List(landmarkName);
landmarkName = llList2String(tempList, 0);
}

targetPos = (vector)data; //Get Offset to Local Position

regionPos = llGetRegionCorner();

targetPos = targetPos + regionPos; //Convert targetPos to absolute world coordinates

targetRegionPos = targetPos;
targetRegionPos.x = ((integer)((targetRegionPos.x) / 256)) * 256;
targetRegionPos.y = ((integer)((targetRegionPos.y) / 256)) * 256;

vector localPos = llGetPos();
navinfo += landmarkName;
navinfo += "";
navinfo += targetPos.x - targetRegionPos.x;
navinfo += targetPos.y - targetRegionPos.y;
navinfo += localPos.z;
navinfo += localPos.z;

llMessageLinked(llGetLinkNumber(), 210, llList2CSV(navinfo), NULL_KEY);
llMessageLinked(llGetLinkNumber(), 200, (string)targetRegionPos, NULL_KEY);
}
}
}

</source>

== Region ==
<source lang="lsl2">//Region Database Script
//by Hank Ramos

key RegionReadKey;

default
{
state_entry()
{
}

link_message(integer sn, integer n, string m, key id)
{
string tempString;
vector tempVector;
list tempList;

m = llToLower(m);
if (n == 100)
{
//Convert Name to Vector
RegionReadKey = llRequestSimulatorData(m, DATA_SIM_POS);
return;
}

if (n == 999)
{
llResetScript();
}
}

dataserver(key requested, string data)
{
if (requested == RegionReadKey)
{
llMessageLinked(llGetLinkNumber(), 200, data, NULL_KEY);
}
}
}

</source>

== Settings ==
<source lang="lsl2">integer Count;
string Notecard = "Settings";
integer LineCount;
key ReadKey;
vector forces; //Upforce, DownForce, Precision
vector defs; //TravelForce, ArriveForce, DefaultZ
integer altChatCH; //Alternative Chat Channel
string home;
integer distRecv; //distanceReceived
float distance;
float dockZ;
integer docking;
float dispRate;
integer chatChannel;
string TourName;

disp(string m)
{
llMessageLinked(LINK_SET, 411, m, NULL_KEY);
}
loadSettings()
{
disp("Loading " + Notecard + "...");
Count = 0;
LineCount = 0;
ReadKey = llGetNotecardLine(Notecard, LineCount);
}
checkC(string m, key id)
{
integer Index;
list landmarkInfo;
string tempString;

m = llToLower(m);
if (m == "help")
{
llGiveInventory(id, "Touring Balloon Instructions");
return;
}
if (m == "reset settings")
{
loadSettings();
return;
}
if (m == "return home")
{
disp("Returning home...");
docking = FALSE;
landmarkInfo = llCSV2List(home);
dockZ = llList2Float(landmarkInfo,3);
tempString = "Home," + llList2String(landmarkInfo,0) + "," + llList2String(landmarkInfo,1) + "," + \
llList2String(landmarkInfo,2) + "," + llList2String(landmarkInfo,3) +"," + llList2String(landmarkInfo,4);
llMessageLinked(LINK_SET, 210, tempString, NULL_KEY);
llSetTimerEvent(10.0);
return;
}
if (m == "say settings")
{
llWhisper(0, "Home = " + home);
llWhisper(0, "DefaultZ = " + (string)defs.z);
llWhisper(0, "Precision = " + (string)forces.z);
llWhisper(0, "UpForce = " + (string)forces.x);
llWhisper(0, "DownForce = " + (string)forces.y);
llWhisper(0, "TravelForce = " + (string)defs.x);
llWhisper(0, "ArriveForce = " + (string)defs.y);
llWhisper(0, "Alt Chat CH = " + (string)chatChannel);
return;
}
if (llSubStringIndex(m, "speed ") == 0)
{
defs.x = (float)llGetSubString(m,6,18);
llMessageLinked(LINK_SET, 237, (string)defs, llGetOwner());
disp("Speed Set to " + (string)defs.x);
return;
}
if (llSubStringIndex(m, "precision ") == 0)
{
forces.z = (float)llGetSubString(m,10,18);
llMessageLinked(LINK_SET, 238, (string)forces, llGetOwner());
disp("Timer Precision Set to " + (string)((integer)(forces.z*1000)) + " ms");
return;
}
if (llSubStringIndex(m, "upforce ") == 0)
{
forces.x = forces.x + ((float)llGetSubString(m,8,18))/1000;
llMessageLinked(LINK_SET, 238, (string)forces, llGetOwner());
disp("Up Force " + (string)((integer)(forces.x*1000)));
return;
}
if (llSubStringIndex(m, "downforce ") == 0)
{
forces.y = forces.y + ((float)llGetSubString(m,10,18))/1000;
llMessageLinked(LINK_SET, 238, (string)forces, llGetOwner());
disp("Down Force " + (string)((integer)(forces.y*1000)));
return;
}
if (llSubStringIndex(m, "display rate ") == 0)
{
dispRate = (float)llGetSubString(m,13,18);
llMessageLinked(LINK_SET, 412, (string)dispRate, llGetOwner());
disp("Display Rate Set to " + (string)dispRate + " seconds");
return;
}
if (llSubStringIndex(m, "chat channel ") == 0)
{
chatChannel = (integer)llGetSubString(m,13,18);
llMessageLinked(LINK_SET, 482, (string)chatChannel, llGetOwner());
disp("Chat Channel Set to " + (string)chatChannel);
return;
}
}
default
{
state_entry()
{
loadSettings();
}
on_rez(integer startup_param)
{
llResetScript();
}
timer()
{
vector position = llGetPos();
//Check to see if we have arrived, if so, dock and then shutdown
if (docking)
{
disp("Waiting to finish docking...");
if((position.z > (dockZ - 2)) && (position.z < (dockZ + 2)))
{
disp("Shutting Down...");
llMessageLinked(LINK_SET, 240, "shutdown", llGetOwner());
llSetTimerEvent(0);
}
}
else if (distance < 5)
{
disp("Sending Docking Command...");
llMessageLinked(LINK_SET, 240, "dock", llGetOwner());
docking = TRUE;
}

}
link_message(integer sn, integer n, string m, key id)
{
if (n == 555)
{
distance = (float)m;
distRecv = TRUE;
return;
}
//Process API Commands
if (n == 240)
{
checkC(m, id);
return;
}
if (n == 95562)
{
checkC(m, id);
return;
}
}

dataserver(key requested, string data)
{
//Process Settings
if (requested == ReadKey)
{
if (data != EOF)
{
if ((llSubStringIndex(data, "#") != 0) && (data != ""))
{
if (Count == 0)
{
home = data;
}
if (Count == 1)
{
defs.z = (float)data; //TravelForce, ArriveForce, DefaultZ
}
if (Count == 2)
{
forces.z = (float)data; //Upforce, DownForce, Precision
}
if (Count == 3)
{
forces.x = ((float)data)/1000; //Upforce, DownForce, Precision
}
if (Count == 4)
{
forces.y = ((float)data)/1000; //Upforce, DownForce, Precision
}
if (Count == 5)
{
defs.x = (float)data; //TravelForce, ArriveForce, DefaultZ
}
if (Count == 6)
{
defs.y = (float)data; //TravelForce, ArriveForce, DefaultZ
}
if (Count == 7)
{
dispRate = (float)data; //Display Rate
}
if (Count == 8)
{
chatChannel = (integer)data; //Chat Channel
}
if (Count == 9)
{
TourName = (string)data; //Default Tour Notecard Name
}
Count += 1;
}
LineCount += 1;
ReadKey = llGetNotecardLine(Notecard, LineCount);
}
else
{
disp("Settings are loaded");
//Send settings
llMessageLinked(LINK_SET, 238, (string)forces, llGetOwner());
llMessageLinked(LINK_SET, 237, (string)defs, llGetOwner());
llMessageLinked(LINK_SET, 412, (string)dispRate, llGetOwner());
llMessageLinked(LINK_SET, 482, (string)chatChannel, llGetOwner());
llMessageLinked(LINK_SET, 487, TourName, llGetOwner());
}
}
}
}

</source>

...and associated notecard...
<pre>#Settings
#This file contains your default settings
#The order of entries in this file is important.
#Do not change the order!
#You may add comments with lines beginning with "#"
#
#Home
#Region,X,Y,DockZ,TravelZ
#The location used when you tell the balloon to go home
#The balloon will automatically go there at the TravelZ
#altitude, then goto the DockZ altitude, then shutdown
Grignano,98.0,98.0,30,160
#Default Travel Height
#The default travel hight used when not specified
#Value of 0 means to use the current travel height
0
#Precision
#Timer precision, lower is bettter but harder on server
#Range 0.1-infinite. In seconds
0.15
#Upforce
#The amount of upward force applied when the flames are on
450
#DownForce
#The amount of downward force applied when the flames are off
650
#PushTravel
#The amount of push during flight
8.0
#PushArrive
#The amount of push when you are within 10 meters of your destination
1.0
#DisplayRate
#The time, in seconds, that an item will be displayed in the central display
2.75
#Alternate Command Chanel
#An additional chat channel that can be used to communicate with the
#balloon. Use "/channel command" format to silently communicate commands
#to the balloon. Use "//command" to repeat the last channel used.
#If value is 0, then only the public chat channel is used.
0
#Default Tour Notecard Name
Welcome Tour
</pre>

== Voice Control ==
<source lang="lsl2">integer LISTEN_API = 95562;
integer CHAT_CHANNEL = 482;

integer chatChannel = 0;
integer indexChat;

default
{
state_entry()
{
indexChat = llListen(chatChannel, "", NULL_KEY, "");
}
on_rez(integer startup_param)
{
llResetScript();
}
listen(integer channel, string name, key id, string message)
{
if (name != "Display Panel")
{
if ((llSameGroup(id)) || (id == llGetOwner()))
{
llMessageLinked(LINK_SET, LISTEN_API, message, id);
}
}
}
link_message(integer sender_num, integer num, string str, key id)
{
if (num == CHAT_CHANNEL)
{
chatChannel = (integer)str;
llListenRemove(indexChat);
indexChat = llListen(chatChannel, "", NULL_KEY, "");
}
}

}

</source>

== Sample Tour Notecard ==
<pre>
#Welcome Tour
#
#There are 9 Parameters for each Destination
#Landmarks are accessed in the order they are in this file
#Starting with Destination #1
#1 = Title
#2 = Simulator Name
#3 = Local X
#4 = Local Y
#5 = Docking Z. The docking altitude.
#6 = Travel Z. The altitude used to travel to the destination.
#7 = Waypoint. 0=False, Any other value is TRUE. If TRUE the the next landmark is automatically set when you are within 10 meters of the landmark.
#8= TimeToStay. 0=Disabled, Any other value waits at that position for the specified number of seconds and then selects next landmark.
#
#Note: any line beginning with "#" is a comment line, and is ignored
#
Vehicle Rezzing Area,Balance,194.0,226.0,24,53,0,60
Wild West Town,Oak Grove,67.8,48.0,12,35,0,60
Oak Grove,Oak Grove,109,168,40,50.0,1,0
Venice,bonifacio,24.5,150.5,28.0,115.0,0,120
Grignano,grignano,128,128,70,70,1,0
Sistiana,sistiana,235,17,70,70,1,0
Luna Oaks Galleria,Luna,53.0,53.0,33.0,50.0,0,60
Sistiana,sistiana,128,128,95,95,1,0
Grignano,grignano,170,250,95,95,1,0
Shangri-La,Dore,47.0,102.0,45.0,50.0,0,60
Bonifacio Waypoint,Bonifacio,110,43,60,60,1,0
Gibson Waypoint,Gibson,110,77,60,60,1,0
Oak Grove,Oak Grove,109,168,40,50.0,1,0
Vehicle Rezzing Area,Balance,194.0,226.0,24,53,0,60
</pre>

Google Translator

2015-01-25T03:00:29Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header}}
Google Translator by Ugleh Ulrik

Google Translator keeps their translated data in a Array. You can see this by looking at the HTTPRequests.

The URL is this

http://translate.google.com/translate_a/t?client=t&text=words here&hl=en&sl=es

This will make it go from Spanish to English. Then all you need to do is do a string replacement.

<source lang="lsl2">
key http_request_id;
string transtring = "";
string nothing = "";
string name;
string somestring;
string strReplace(string str, string search, string replace) {
return llDumpList2String(llParseStringKeepNulls((str = "") + str, [search], []), replace);
}
default
{
state_entry()
{
llListen(0, "", NULL_KEY, "");
}

http_response(key request_id, integer status, list metadata, string body)
{
if (request_id == http_request_id)
{
list trans1 = llParseString2List(body, ["\"orig\""], []);
transtring = strReplace(llList2String(trans1,0), "{\"sentences\":[{\"trans\":\"", "");
nothing = strReplace(transtring, "\",", "");
nothing = strReplace(nothing, ",", "");
nothing = strReplace(nothing, "\\" + "\"", "\"");
if (somestring != nothing){
llSay(0, nothing);
}
llSetObjectName("es2en Translator");
}
}
listen(integer channel, string name, key id, string message)
{
somestring = message;
if (name == llKey2Name(llGetOwner())){
transtring = llEscapeURL(message);
http_request_id = llHTTPRequest("http://translate.google.com/translate_a/t?client=t&text=" + transtring + "&hl=en&sl=es&tl=en&pc=0", [], "");
llSetObjectName(name);
}
}

}
</source>

LSL languageAPI

2015-01-25T02:56:23Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">, <pre> formatting for notecard contents

{{LSL Header}}

This is an API that will handle chat messages and HUD menus in multiple languages based on language files in notecards.
Included are two LSL files, the API itself, a simple example usage script and two language files ( English and French )

todo: floating text support is not yet included in this script.

<source lang="lsl2">
// LSL_languageAPI
// License: LGPL
// Version: 0.20
// Author: Gypsy Paz

//==============
// CONFIG
//==============
integer autoLoad = FALSE; // load the first notecard on CHANGED_INVENTORY
float menuTimeout = 10; // Set the blue menu time out ( in seconds )

//================================================================================================
// LINK CODES:
//================================================================================================
list langLinkCodes = [
"INIT", 0x88000, //Initialize
"INIT_R", 0x88001, //Confirm Initialized
"LOAD", 0x88002, //Load Language lang file name (blank loads first one)
"LOAD_R", 0x88003, //Confirm Lanugage Loaded
"MENU", 0x88004, //langMenu caption|button1|button2|etc... avkey
"MENU_R", 0x88005, //langMenu Response button uuid
"MENU_C", 0x88006, //Close the menu (turn off the listener)
"WHISPER", 0x88007, //langWhisper message uuid
"SAY", 0x88008, //langSay message uuid
"SHOUT", 0x88009, //langShout message uuid
"OSAY", 0x8800A, //langOwnerSay message uuid
"IM", 0x8800B, //langIM message|avkey uuid
"FTEXT", 0x8800C, //floating text message color alpha
"DUMP", 0x8800D, //dump lang from memory to chat (for debugging)
"ERROR", 0x8800E // return an error message ( not sure how I'll handle this yet
];

//================================================================================================
// LANGUAGE FUNCTIONS:
//================================================================================================
integer langGetCode(string langCode){
integer i = llListFindList(langLinkCodes, [langCode]);
return llList2Integer(langLinkCodes, i+1);
}

// Language Vars
string Language;
list langData;
list langIndex;
string curLangFile;

// llDialog Vars
string menuCaption;
list menuButtons;
key menuUser;
integer menuChannel;
integer menuListener;

// Data Server Vars
integer lines;
integer line;
key request = NULL_KEY;

string translate(string index, string id){
string val;
integer i = llListFindList(langIndex,[index]);
if ( i != ERR_GENERIC ){
return parse(llList2String(langData,i),id);
}
else{
return ">>>error<<<";
}
}

string parse(string val, string id){
// Memory
integer i;
i = llSubStringIndex(val,"<<memory>>");
if ( i != ERR_GENERIC ){
val = llDeleteSubString(val,i,llStringLength("<<memory>>")-1);
val = llInsertString(val,i,(string)llGetFreeMemory());
}
i = llSubStringIndex(val,"<<key2name>>");
if ( i != ERR_GENERIC ){
val = llDeleteSubString(val,i,i+llStringLength("<<key2name>>"));
val = llInsertString(val,i,llKey2Name((key)id));
}
return val;
}

integer processing = FALSE;
processData(string data){
if ( processing ){
if ( data == ">>>STOP<<<" ){
processing = FALSE;
return;
}
string prefix = llGetSubString(data,0,1);
if ( ( prefix == "//" ) || ( llStringLength(data) == 0 ) ){
return;
}
list s = llParseString2List(data,["|"],[]);
string cmd = llStringTrim(llList2String(s,0),STRING_TRIM);
string val = llStringTrim(llList2String(s,1),STRING_TRIM);

if ( cmd == "!PRINT" ){
llSay(PUBLIC_CHANNEL,parse(val,""));
}
else if ( cmd == "!SET_LANG" ){
Language = val;
}
else{
integer i = llListFindList(langIndex,[cmd]);
if ( i == ERR_GENERIC ) return; //<<<<<<<<<<<<<< this will silently fail missing indexes
langData = llListReplaceList(langData,[val],i,i);
}

}
else if ( data == ">>>START<<<" ){
processing = TRUE;
}
}

dumpData(){
integer i;
for ( i=0; i<llGetListLength(langIndex); i++ ){
llSay(PUBLIC_CHANNEL,llList2String(langIndex,i)+" | "+llList2String(langData,i));
}
}

default{
link_message(integer sender, integer num, string msg, key id){
list s;
integer i;
if ( num == langGetCode("INIT") ){ //Initialize
curLangFile = "";
Language = "";
langIndex = llParseString2List(msg,["|"],[]);
langData = [];
for ( i = 0; i < llGetListLength(langIndex); i++ ){
langData += ["..."];
}
llMessageLinked(LINK_THIS,langGetCode("INIT_R"),"ok"," ");
}
else if ( num == langGetCode("LOAD") ){ // Load Language
if ( llStringLength(msg) == 0 ){
curLangFile = llGetInventoryName(INVENTORY_NOTECARD,0);
}
else{
curLangFile = msg;
}
if ( llGetInventoryType(curLangFile) != INVENTORY_NOTECARD ){
llSay(PUBLIC_CHANNEL,"Error, Language File Doesn't Exist");
return;
}
state prep;
}
else if ( num == langGetCode("MENU") ){ // llDialog
s = llParseString2List(msg,["|"],[]);
menuCaption = translate(llList2String(s,0),"");
menuButtons = [];
for ( i=1; i<llGetListLength(s); i++ ){
menuButtons += translate(llList2String(s,i),"");
}
menuUser = id;
state menu;
}
else if ( num == langGetCode("WHISPER") ){ // Whisper
llWhisper(PUBLIC_CHANNEL,translate(msg,id));
}
else if ( num == langGetCode("SAY") ){ // Say
llSay(PUBLIC_CHANNEL,translate(msg,id));
}
else if ( num == langGetCode("SHOUT") ){ // Shout
llShout(PUBLIC_CHANNEL,translate(msg,id));
}
else if ( num == langGetCode("OSAY") ){ // OwnerSay
llOwnerSay(translate(msg,id));
}
else if ( num == langGetCode("IM") ){ // Instant Message
s = llParseString2List(msg,["|"],[]);
llInstantMessage(llList2Key(s,1),translate(llList2String(s,0),id));
}
else if ( num == langGetCode("DUMP") ){
dumpData();
}
}

changed(integer change){
if ( change & CHANGED_INVENTORY ){

}
}

}

state menu{
state_entry(){
menuChannel = PUBLIC_CHANNEL;
while(menuChannel == PUBLIC_CHANNEL ){
menuChannel = (integer)llRound(llFrand(5)*10000000);
}
llDialog(menuUser,menuCaption,menuButtons,menuChannel);
llSetTimerEvent(menuTimeout);
menuListener = llListen(menuChannel, "", menuUser, "");
}

listen(integer channel, string name, key id, string msg){
llSetTimerEvent(0.0);
integer i = llListFindList(langData,[msg]);
if ( i != ERR_GENERIC ){
llMessageLinked(LINK_THIS,langGetCode("MENU_R"),llList2String(langIndex,i),id);
}
else{
llMessageLinked(LINK_THIS,langGetCode("MENU_R"),">>>error<<<",id);
}
state default;
}

timer(){
llSetTimerEvent(0.0);
llMessageLinked(LINK_THIS,langGetCode("MENU_R"),">>>timeout<<<", menuUser);
state default;
}

link_message(integer sender, integer num, string str, key id){
if ( num == langGetCode("MENU_C") ){
llSetTimerEvent(0.0);
state default;
}
}

state_exit(){
llSetTimerEvent(0.0);
}
}

state prep{
state_entry(){
if ( llGetInventoryType(curLangFile) == INVENTORY_NOTECARD ){
request = llGetNumberOfNotecardLines(curLangFile);
llSetTimerEvent(5.0);
}
else{
llOwnerSay("Error, Language File Does Not Exist");
}
}

dataserver(key query_id, string data){
if (query_id == request){
llSetTimerEvent(0.0);
lines = (integer)data;
state read;
}
}

timer(){
state timeout;
}
}

state read{
state_entry(){
line = 0;
request = llGetNotecardLine(curLangFile, line);
llSetTimerEvent(5.0);
}

dataserver(key query_id, string data){
if (query_id == request){
llSetTimerEvent(0.0);
processData(data);
line++;
if ( line <= lines ){
request = llGetNotecardLine(curLangFile, line);
llSetTimerEvent(5);
}
else{
state default;
}
}
}

timer(){
state timeout;
}
}

state timeout{
state_entry(){
llSetTimerEvent(0.0);
llSay(PUBLIC_CHANNEL,"Error, reading the language file timed out");
llMessageLinked(LINK_THIS,51,"error","timeout");
state default;
}

}
</source>

<source lang="lsl2">

//================================================================================================
// LANGUAGE API:
//------------------------------------------------------------------------------------------------

//================================================================================================
string langName;
list langIndex = [
"HELLO_WORLD",
"HELLO_AVATAR",
"OBJECT_NAME",
"OWNED_BY",
"CAPTION",
"BUTTON_1",
"BUTTON_2",
"BUTTON_3",
"BUTTON_4",
"BUTTON_5",
"BUTTON_6"
];

//================================================================================================
// LINK CODES:
//================================================================================================
list langLinkCodes = [
"INIT", 0x88000, //Initialize
"INIT_R", 0x88001, //Confirm Initialized
"LOAD", 0x88002, //Load Language lang file name (blank loads first one)
"LOAD_R", 0x88003, //Confirm Lanugage Loaded
"MENU", 0x88004, //langMenu caption|button1|button2|etc... avkey
"MENU_R", 0x88005, //langMenu Response button uuid
"MENU_C", 0x88006, //Close the menu (turn off the listener)
"WHISPER", 0x88007, //langWhisper message uuid
"SAY", 0x88008, //langSay message uuid
"SHOUT", 0x88009, //langShout message uuid
"OSAY", 0x8800A, //langOwnerSay message uuid
"IM", 0x8800B, //langIM message|avkey uuid
"FTEXT", 0x8800C, //floating text message color alpha
"DUMP", 0x8800D, //dump lang from memory to chat (for debugging)
"ERROR", 0x8800E // return an error message ( not sure how I'll handle this yet
];

//================================================================================================
// LANGUAGE FUNCTIONS:
//================================================================================================
integer langGetCode(string langCode){
integer i = llListFindList(langLinkCodes, [langCode]);
return llList2Integer(langLinkCodes, i+1);
}

langInit(){
llMessageLinked(LINK_THIS,langGetCode("INIT"),llDumpList2String(langIndex,"|")," ");
}

langLoad(string notecard){
langName = "";
llMessageLinked(LINK_THIS,langGetCode("LOAD"),notecard, " ");
}

langWhisper(string msg, key id){
llMessageLinked(LINK_THIS,langGetCode("WHISPER"),msg,id);
}

langSay(string msg, key id){
llMessageLinked(LINK_THIS,langGetCode("SAY"),msg,id);
}

langShout(string msg, key id){
llMessageLinked(LINK_THIS,langGetCode("SHOUT"),msg,id);
}

langMenu(string caption, list buttons, key id){
llMessageLinked(LINK_THIS,langGetCode("MENU"),caption+"|"+llDumpList2String(buttons,"|"),id);
}

default{
state_entry(){
langInit();
}

link_message(integer sender, integer num, string msg, key id){
// Language is initialized
if ( num == langGetCode("INIT_R") ){
if ( msg == "ok" ){
// load the default language (first notecard)
langLoad("");
}
else if ( msg == "error" ){
// something went wrong
llOwnerSay((string)id);
}
}

// Language is loaded
else if ( num == langGetCode("LOAD_R") ){
if ( msg == "ok" ){
// load the default language (first notecard)
langName = (string)id;
}
else if ( msg == "error" ){
// something went wrong
llOwnerSay((string)id);
}
llMessageLinked(LINK_THIS,langGetCode("DUMP"),"dump data"," ");
}

// Blue Menu Response
else if ( num == langGetCode("MENU_R") ){
if ( msg == "BUTTON_1" ){
langSay("HELLO_AVATAR", id);
}
else if ( msg == "BUTTON_2" ){
langSay("OBJECT_NAME", llGetKey());
}
else if ( msg == "BUTTON_3" ){
langSay("OWNED_BY", llGetOwner());
}
else if ( msg == "BUTTON_4" ){
llMessageLinked(LINK_THIS,langGetCode("DUMP"),"dump"," ");
}
else if ( msg == "BUTTON_5" ){
langLoad("language - ENGLISH");
}
else if ( msg == "BUTTON_6" ){
langLoad("language - FRENCH");
}
}
}

touch_start(integer n){
langMenu("CAPTION", ["BUTTON_1", "BUTTON_2", "BUTTON_3", "BUTTON_4", "BUTTON_5", "BUTTON_6"], llDetectedKey(0));

}

}
</source>

<pre>
Instructions go up here

>>>START<<<
// start processing the notecard
!SET_LANG | Engilish
!PRINT | Loading Language File...

HELLO_WORLD | Hello, I'm a multi-lingual api
HELLO_AVATAR | Hello <<key2name>>
OBJECT_NAME | I am a <<key2name>>
OWNED_BY | I belong to <<key2name>>
CAPTION | Language API Sample, choose your option
BUTTON_1 | Avatar
BUTTON_2 | Object
BUTTON_3 | Owner
BUTTON_4 | Dump
BUTTON_5 | ENGLISH
BUTTON_6 | FRENCH

!PRINT | Language file loaded.
!PRINT | <<memory>> bytes free

>>>STOP<<<
</pre>

<pre>
Mettez vos instructions ici

>>>START<<<
// commencez à traiter le notecard
!SET_LANG | Francais
!PRINT | Chargement du Dossier de Langue...

HELLO_WORLD | Bonjour, je suis api multilingue
HELLO_AVATAR | Bonjour <<key2name>>
OBJECT_NAME | Je suis <<key2name>>
OWNED_BY | J'appartiens à <<key2name>>
CAPTION | L'Échantillon d'API de langue, choisissez votre option
BUTTON_1 | Avatar
BUTTON_2 | Objet
BUTTON_3 | Propriétaire
BUTTON_4 | Décharge publique

!PRINT | Le dossier de langue a chargé.
!PRINT | octets de <<memory>> libres

>>>STOP<<
</pre>

Morse Code

2015-01-25T02:49:59Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header}}{{RightToc}}
=Description=
The following is a script which you can use to convert to and from morse code. In addition, the script can play morse code. The script was written in LSLEditor. The script should work fine in both mono & LSO.

= Creator =
*{{User|Bobbyb30 Swashbuckler }}

= Contributors =
* Stephen C Phillips
* Michael R Ditto
where I based my script off [http://www.omnicron.com/~ford/java/NMorse.java java source]
If you modify/improve upon the script, please add your name here.

= License =
The following script is licensed under the GNU GPL V3 license.

<source lang="lsl2">
// Bobbyb30 Swashbuckler (C) 2009
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
</source>

= Disclaimer =
These programs are distributed in the hope that it will be useful, but '''WITHOUT ANY WARRANTY'''; without even the implied warranty of '''MERCHANTABILITY''' or '''FITNESS FOR A PARTICULAR PURPOSE'''.

=Directions=
Create a prim and drop the script in. Aside from that it has 3 functions:
* tomorsecode which converts to morse code
* frommorsecode which converts morse code to english
* playmorsecode which plays the morse code

The script should be fairly easy to follow...Enjoy.

=Morse Code=
<source lang="lsl2">
//***********************************************************************************************************
// *
// --Morse Code-- *
// *
//***********************************************************************************************************
// www.lsleditor.org by Alphons van der Heijden (SL: Alphons Jano)
//Creator: Bobbyb30 Swashbuckler
//Attribution: Original java work by Stephen C Phillips (C) 1999 and Michael R Ditto (C) 2001
//Created: March 9, 2007
//Last Modified: December 3, 2009
//Released: Wed, December 2, 2009
//License: GNU GPL V3
// Bobbyb30 Swashbuckler (C) 2009
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>.
//Some parts taken from http://www.omnicron.com/~ford/java/NMorse.java

//Status: Fully Working/Production Ready
//Version: 1.2.7

//Name: Morse Code.lsl
//Purpose: To be able to convert to and from morse code and be able to play morse code in sound.
//Technical Overview: Uses a list and a string of characters to determine morse code. Uses 2 sounds to play.
//Description: This script will convert to and from morse code and can play morse code.
//Directions: This is meant to be used by scripters...the script has 3 functions which you can use...

//Compatible: Mono & LSL compatible
//Other items required: Correct sound UUIDs for dit and dah.
//Notes: Uses more than standard characters, commented for fellow scripters. Morse code is always capital.
// Sounds dit and dah made in audacity using tone generator and sin wave
// dit: Tone generator->frequency:800hz, amplitude:.5, length.05 @ 44.KHz
// dah: Tone generator->frequency:800hz, amplitude:.5, length.15 @ 44.KHz
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//you may use a period . or a raised dot · or a bullet •
//you may use a dash,(hyphen, or minus) - or underscore _

//from http://www.omnicron.com/~ford/java/NMorse.java
string inputcharacters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.!,:?\\`'-/()\"=+;_$@& ";

//string characters = "abcdefghijklmnopqrstuvwxyz0123456789.!,?'/()&:;=+-_\"$@";
list morsecodecharacters = [
".-",//A
"-...",//B
"-.-.",//c
"-..",//D
".",//E
"..-.",//F
"--.",//G
"....",//H
"..",//I
".---",//J
"-.-",//K
".-..",//L
"--",//M
"-.",//N
"---",//O
".--.",//P
"--.-",//Q
".-.",//R
"...",//S
"-",//T
"..-",//U
"...-",//V
".--",//W
"-..-",//X
"-.--",//Y
"--..",//Z
"-----",//0
".----",//1
"..---",//2
"...--",//3
"....-",//4
".....",//5
"-....",//6
"--...",//7
"---..",//8
"----.",//9
".-.-.-",//. (period)
"-.-.--",//! -this may not be a standard
"--..--",//, -comma
"---...",//: -colon
"..--..",//? -question mark
".----.",//\ -backslash
".----.",//` treat ` as '
".----.",//' apostrophe
"-....-",//-
"-..-.",// /-foward slash , fraction bar
"-.--.-",//( -Parenthesis open [(]-please note these are the same
"-.--.-",//) - Parenthesis close [)]
".-..-.",//"-quotes
"-...-",//=
".-.-.",//+
"-.-.-.",//;
"..--.-",//_
"...-..-",//$
".--.-.",//@
".-...",//& Ampersand -http://en.wikipedia.org/wiki/Morse_code
"/ ",//space //you may rerange the bottom these two spaces so that your morse code does have space for /
"/"//space-this second space doesn't have a space and is used for converting from morose code
];

string tomorsecode(string input)//converts to morse code from english
{
input = llToUpper(input);//convert to upper as Morse code is in uppper case
integer counter;
integer inputlength = llStringLength(input);//speed hack here
string morsecode;
do
{
integer index = llSubStringIndex(inputcharacters,llGetSubString(input,counter,counter));//get a character
if(index != -1)//speed hack here
{//this means the character can be converted to morse code

//pull out morse character from list and append a space
morsecode += llList2String(morsecodecharacters,index) + " ";//mem hack here,
}
else//unknown character
{
morsecode += "?";//add question for unknown character
}
}while(++counter <inputlength);
return morsecode;
}

string frommorsecode(string input)//converts from morse code to english
{
//you could do some string replaces for other characters such as dots and bullets...but I'm lazy=D

list inputlist = llParseString2List(input,[" "],["/"]);//parse out spaces, added "/" for / without spaces
input = "";//remove input
integer counter;
integer inputlength = llGetListLength(inputlist);//speed hack here
string english;
do
{
//its pretty much the same procedure in reverse
integer index = llListFindList(morsecodecharacters,[llList2String(inputlist,counter)]);
if(index != -1)//speed hack here
{//this means the character can be converted to morse code

//pull out english character from inputstring
english += llGetSubString(inputcharacters,index,index);//mem hack here,
}
else//unknown character
{
english += "?";//add question for unknown character
}
}while(++counter <inputlength);
return english;
}

//sounds..you could actually use all the sounds for all the letters...but thats more work
//use t and e to make sounds at 10wpm

string ditsound = "98303801-d733-e49a-9bb1-34f140c35ca6";//short mark, dot or 'dit' .equals E .05 sec
string dahsound = "e2c6a9db-8bcc-d78f-7c69-732da1295542";//longer mark, dash or 'dah'-T .15 sec
//string ditsound = "bda8929e-0e34-f32d-340d-1226c1e0c5b5";//short mark, dot or 'dit' .equals E .1 sec
//string dahsound = "b35ac99d-86a5-1df1-eb8c-85966ac8b2a9";//longer mark, dash or 'dah'-T .3 sec
string errorsound = "539ae7d0-eaa3-1450-9014-316c24ea4721";//an error sound

//you may recalibrate sound times or change sounds for faster printing
float ditsoundwait = .05;//how long to wait after playing dit .05 seconds long
float dahsoundwait = .15;//how long to wait after playing dah.15 seconds long
float spacepause = .3;//how long to pause for spaces

//dashes and dots
string dit = ".";//the dot being used
string dah = "-";//the dash being used

//input should be given in morsecode
playmorsecode(string input)//plays morsecode in sound=D
{
//similar to frommorsecode
list inputlist = llParseString2List(input,[" "],["/"]);//parse out spaces,added to parse out / without spaces
input = "";//remove input
integer counter;
integer inputlength = llGetListLength(inputlist);//speed hack here
do
{
string morsecharacter = llList2String(inputlist,counter);//pull that morse character from the inputlist
integer index = llListFindList(morsecodecharacters,[morsecharacter]);//check to make sure its valid morsecode
if(index != -1)//speed hack here
{
//if its valid play the right sounds;
integer morsecharacterlength = llStringLength(morsecharacter);//length of the morse character we're playing
integer soundcounter;
//llOwnerSay("c" + morsecharacter + "|" + (string)morsecharacterlength + "soundcounter:" + (string)soundcounter);//debug
do
{
string character = llGetSubString(morsecharacter,soundcounter,soundcounter);
if(character == dit)
{
//llSay(0,"dit" + character);//debug
llTriggerSound(ditsound,1.0);
llSleep(ditsoundwait);//how long to wait after sound
}
else if(character == dah)
{
//llSay(0,"dah" + character);//debug
llTriggerSound(dahsound,1.0);
llSleep(dahsoundwait);//how long to wait after sound
}
else//must be a space /
{
llSleep(spacepause);
//llSay(0,"other" + character);//debug
}

}while(++soundcounter < morsecharacterlength);
soundcounter = 0;//makes it work in lsleditor
}
else//unknown character
{
//llSay(0,"error");//debug
llTriggerSound(errorsound,1.0);
}
}while(++counter <inputlength);
}

test()//this is a removable function that I used to make sure it ran correctly
{
string testphrase= "the quick brown fox jumps right over the lazy dog";
llOwnerSay(testphrase + "|" + frommorsecode(tomorsecode(testphrase)));
// string test = "HELLO WORLD!";
// string to = tomorsecode(test);
// string fro = frommorsecode(to);
// playmorsecode(to);
// llSay(0,"test:" + test);
// llSay(0,"t:" + to + "|" + fro);
// llSay(0,"f:" + tomorsecode(fro) + "|" + frommorsecode(tomorsecode(fro)));
// llSubStringIndex("1 "," ");

}

default
{
state_entry()
{
//test();
llOwnerSay("On the wiki at https://wiki.secondlife.com/wiki/Morse_Code");
llOwnerSay("Morse Code.lsl' released under GNU GPL V3 by Bobbyb30 Swashbuckler (C) 2009");
llOwnerSay(tomorsecode("Because nothing speaks 1337 like morse code."));
playmorsecode(tomorsecode("Hello World"));
llOwnerSay("Because nothing speaks 1337 like morse code.");
llOwnerSay("I'll be listening on channel 0...use the folowing commands without <> or :\n "
+ "english <morse code goes here>: this will translate morse code to english\n"
+ "morsecode <english goes here>: this will translate english to morse code\n"
+ "play english <english goes here>: this will play the english in morse code\n"
+ "play morse <morse code goes here>: this will play the morse code.");
llOwnerSay("Please input morse code using . (periods) and dashes as -");
llOwnerSay("I only support the following english characters and their morse code counterparts:\n" + inputcharacters);
llOwnerSay("Enjoy!");
llListen(0,"",llGetOwner(),"");//i advise against a 0 listener...but I didn't optimize this part
}
listen(integer channel, string name, key id, string msg)//not optimized...for example use
{
string cleanmsg = llStringTrim(llToLower(msg),STRING_TRIM);//trim head and tail
//english
//012345678
if(llSubStringIndex(cleanmsg,"english ") == 0)
llOwnerSay(frommorsecode(llGetSubString(cleanmsg,8,-1)));
//morsecode
//01234567891
else if(llSubStringIndex(cleanmsg,"morsecode ") == 0)
llOwnerSay(tomorsecode(llGetSubString(cleanmsg,10,-1)));
//play english
//01234567891123
else if(llSubStringIndex(cleanmsg,"play english ") == 0)
playmorsecode(tomorsecode(llGetSubString(cleanmsg,13,-1)));
//play morse
//012345678911
else if(llSubStringIndex(cleanmsg,"play morse ") == 0)
playmorsecode(llGetSubString(cleanmsg,11,-1));
}
changed(integer change)
{
if(change & CHANGED_OWNER)
{
llOwnerSay("Under new management...resetting.");
llResetScript();
}
}
}
</source>

Universal Translator

2015-01-25T02:47:39Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header}}
This is the complete source code to the widely popular and free "HR Universal Translator" by [[Hank Ramos]]. This device is a dynamic public chat listener that automatically translates between 50+ languages and delivers translations of spoken text to those nearby that don't speak the language of the original speaker.

Please help to further development on this open-source project.

== Future Upgrades Needed ==
1. Support for Google Spellcheck. Would be great to be able to spell-check chat first, and automatically do suggested corrections before the translation.

2. Break the engine script into two or more scripts to allow for future expansion and to be able to handle low memory situations better.

3. Support pseudo-instant message. This could be done with avatars wearing the device within 100m of each others, or could be done world-wide using email or some other communications mechanism. Avatars would chat on a hidden channel, and would be able to communicate with another avatar or group chat. Would require inworld servers of prims to link translators up together and find one another.

4. Ensure that unicode is supported correctly. Ensure that Right-to-Left languages are input and output correctly. May need additional options since the SL client doesn't support this correctly and sometimes people speak backwards into SL chat to get around this.

5. Rework auto-detection of language code. Should only automatically change the avatar's language if it is reliably predicted that they have changed languages.

6. Add in automatic "spam" detection and prevent translation. Find way to detect gesture "chat spam" and filter that out from the translation. Filter out bad translations that only return the same or similar input. Support replacement of common abbreviations or slang so that the google translation system can translate correctly. May require support of a user-definable dictionary notecard.

7. Handle translation errors from Google and resubmit the translation, rather than just ignoring it.

8. Can you think of other improvements?

= The Code =
The device consists of 3 key scripts, with several ancillary scripts to function. The key scripts are listed here...

==Universal Translator Engine==
This is the "heart" of the translator. It handles communications with other translators, handles listening to avatars for chat, and handles most of the HTTP traffic.

How do multiple translators communicate? There are two chat channels at work...

The heartbeat channel: this channel is fixed and common amongst all Universal Translators. This is where each translator regularly announces its presence to other translators in the area. If another one is found, a "master' translator is elected at random (with higher version releases of the translators getting higher values). The master translator is in charge of listening to all chat, and sending text to be translated and IMed to the recipient to the other "slave" translators.

Unique translator channel: each translator will select it's own channel to listen for incoming translations. This serves as a unique conduit for the master translator to communicate with each individual slave. This allows the heartbeat channel to be free for command messages to be sent, since the translated text being passed around can quickly saturate it.

This multi-translator communication might be useful in other scripting projects.

<source lang="lsl2">
//Universal Translator
//Version 1.9.0
//November 12, 2009
//LSL Script copyright 2006-2009 by Hank Ramos
//Web Server Services powered by Google

//Variables
list agentsInTranslation;
list agentsInTranslationOptions;
list requestList;
integer listenID;

integer isMaster = 1;
integer autoLanguage = TRUE;
integer enabled = FALSE;
integer showTranslation = FALSE;
integer tranObjects = TRUE;

integer lastHeartBeat;
list languageCodes = [
"zh-CN", "zh-TW", "hr",
"bg", "be", "ca",
"af", "sq", "ar",

"tl", "fr", "gl",
"fi", "en", "et",
"cs", "da", "nl",

"id", "ga", "it",
"hi", "hu", "is",
"de", "el", "iw",

"mt", "no", "fa",
"lt", "mk", "ms",
"ja", "ko", "lv",

"sl", "es", "sw",
"ru", "sr", "sk",
"pl", "pt-PT", "ro",

"yi", "", "",
"uk", "vi", "cy",
"sv","th", "tr"];

list translators;
list sayCache;
list sayCachePrivate;
integer priorityNumber;
integer priorityNumListenID;
integer isInitialized = FALSE;
string options;

//Options
//integer debug = TRUE;
integer broadcastChannel = -9999999; //note this is not the channel used by the HR Universal Translator
string password = "password"; //note this is not the password used to encrypt comms of the HR Universal Translator
integer version = 190;
sendIM(key id, string str)
{
if (llGetParcelFlags(llGetPos()) & PARCEL_FLAG_ALLOW_SCRIPTS)
{
llMessageLinked(LINK_ALL_CHILDREN, 85234119, str, id);
}
else
{
llMessageLinked(LINK_THIS, 85304563, str, id);
}
}

sendTextBatch(integer channel, string sendText)
{
sendText = llXorBase64StringsCorrect(llStringToBase64(sendText), llStringToBase64(password));;
while (llStringLength(sendText) > 508) //If string is 509 characters or longer
{
llSay(channel, llGetSubString(sendText, 0, 507)); //send 508 character chunk
sendText = llGetSubString(sendText, 508, -1); //delete 508 character chunk
}
llSay(channel, sendText); //send out any remainder chunk or original chunk
if (llStringLength(sendText) == 508)
llSay(channel, (string)(channel*4958654));
llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<0.25, 0, 0.25>, "");
}

string receiveTextBatch(key id, string message)
{
integer listPos;
string tempString = "";

listPos = llListFindList(sayCache, [id]);
if (listPos >= 0)
{
while (listPos >= 0)
{
tempString = tempString + llList2String(sayCache, listPos + 1);
sayCache = llDeleteSubList(sayCache, listPos, listPos + 1);
listPos = llListFindList(sayCache, [id]);
}
message = tempString + message;
}
message = llBase64ToString(llXorBase64StringsCorrect(message, llStringToBase64(password)));
return message;
}
string receiveTextBatchPrivate(key id, string message)
{
integer listPos;
string tempString = "";

listPos = llListFindList(sayCachePrivate, [id]);
if (listPos >= 0)
{
while (listPos >= 0)
{
tempString = tempString + llList2String(sayCachePrivate, listPos + 1);
sayCachePrivate = llDeleteSubList(sayCachePrivate, listPos, listPos + 1);
listPos = llListFindList(sayCachePrivate, [id]);
}
message = tempString + message;
}
message = llBase64ToString(llXorBase64StringsCorrect(message, llStringToBase64(password)));
return message;
}
updateTranslatorList()
{
integer x;
integer listLength;
list newList;
string tempString;
integer newMaster;

//Scan and remove translators not in the area
for (x = 0; x < llGetListLength(translators); x += 2)
{
tempString = llList2String(llGetObjectDetails(llList2Key(translators, x + 1), [OBJECT_POS]), 0);
if ((llVecDist(llGetPos(), (vector)tempString) <= 20.0) && (tempString != ""))
newList += llList2List(translators, x, x + 1);
}
translators = newList;

listLength = llGetListLength(translators);
llMessageLinked(LINK_THIS, 65635544, (string)listLength, "");

if (listLength == 0)
{
newMaster = 1;
}
else
{
if (enabled)
{
newMaster = 2;
for (x = 0; x < llGetListLength(translators); x += 2)
{
//llOwnerSay("Checking Priority Number(" + (string)priorityNumber + "): " + (string)llList2Integer(translators, x));
if (llList2Integer(translators, x) > priorityNumber)
{
newMaster = 0;
}
}
}
else
{
newMaster = 0;
}
}

if ((isMaster > 0) && (newMaster == 0))
{
//We are being demoted from master to slave
//Flush agentsInTranslation to master
if (llGetListLength(agentsInTranslation) > 0)
{
//Demotion Dump of agentsInTranslation to Master
sendTextBatch(broadcastChannel, llList2CSV([1003, llList2CSV(agentsInTranslation)]));
if (isInitialized == FALSE) return;
sendTextBatch(broadcastChannel, llList2CSV([1004, options])); //error
}
llListenRemove(listenID);
}
if ((isMaster == 0) && (newMaster > 0))
{
llListenRemove(listenID);
listenID = llListen(0, "", "", "");
}
isMaster = newMaster;
llMessageLinked(LINK_THIS, 34829304, (string)isMaster, "");
}

sendHeartbeat()
{
updateTranslatorList();
sendTextBatch(broadcastChannel, llList2CSV([1001, priorityNumber]));

//Broadcast agentList to Slaves
if (isMaster == 2)
{
sendTextBatch(broadcastChannel, llList2CSV([1002, llList2CSV(agentsInTranslation)]));
}

}

//Functions
checkThrottle(integer num, string msg, list params)
{
integer x;
integer maxCount;
float oldTime;
float sleepTime;
list newList;
key returnValue;
integer channelToSpeak;

//loop though list and remove items older than 25 seconds
for (x = 0; x < llGetListLength(requestList); x += 1)
{
oldTime = llList2Float(requestList, x);
//Construct new list with only times less than 25 seconds
if ((llGetTime() - oldTime) <= 25.0)
newList += oldTime;
}
requestList = newList;

x = llGetListLength(requestList);

//Shunt all translations to linked translators if master
if (isMaster == 2)
{
if (num == 0)
{
//Send HTTP request to other translator
//Send out Request to Random Translator Channel

channelToSpeak = llList2Integer(llListRandomize(llList2ListStrided(translators, 0, -1, 2), 1), 0);
if (channelToSpeak > 0)
{
sendTextBatch(channelToSpeak, llList2CSV([num, llList2CSV(params)]) + "~" + msg);
return;
}
}
}

if (x == 19)
{
sleepTime = 25.0 - (llGetTime() - llList2Float(requestList, 0));
if (sleepTime > 0)
{
llSleep(sleepTime);
}
requestList = llDeleteSubList(requestList, 0, 0);
}

if (num == 0)
{
msg = "translate?v=1.0&q=" + msg;
}
else
msg = "detect?v=1.0&q=" + msg;

requestList += llGetTime();
returnValue = llHTTPRequest("http://ajax.googleapis.com/ajax/services/language/" + msg, [HTTP_METHOD, "GET", HTTP_MIMETYPE, "plain/text;charset=utf-8"], " ");

if (returnValue != NULL_KEY)
{
if (num == 0)
llMessageLinked(LINK_THIS, 235365342, llList2CSV(params), returnValue);
else
llMessageLinked(LINK_THIS, 235365343, llList2CSV(params), returnValue);
}
else
{
llSleep(40.0); //Something has gone horribly wrong, sleep 40 seconds to clear throttle
}
}

string checkLanguage(string tempString)
{
if (llGetSubString(tempString, 0, 1) == "zh") tempString = "zh-CN";
else if (tempString == "und") tempString = "el";
else if (llListFindList(languageCodes, [tempString]) < 0) tempString = "";
tempString = llGetSubString(tempString, 0, 1);
return tempString;
}
addAgent(key id, string language, integer recheckLangauge)
{
integer listPos;
integer listPosID;
integer idNum;
string tempString;

listPos = llListFindList(agentsInTranslation, [id]);
if (listPos < 0)
{
while (listPosID >= 0)
{
idNum = llRound(llFrand(2000000)) + 1;
listPosID = llListFindList(agentsInTranslation, [idNum]);
}
agentsInTranslation += [id, language, recheckLangauge, idNum];
llMessageLinked(LINK_THIS, 64562349, language, id);
}
else
agentsInTranslation = llListReplaceList(agentsInTranslation, [language, recheckLangauge], listPos + 1, listPos + 2);
}

string addNewAgent(key id)
{
string speakerLanguage;

if (llList2Key(llGetObjectDetails(id, [OBJECT_CREATOR]), 0) == NULL_KEY)
{
speakerLanguage = checkLanguage(llGetAgentLanguage(id));
if (speakerLanguage == "")
{
speakerLanguage = "en";
addAgent(id, speakerLanguage, TRUE);
}
else
{
addAgent(id, speakerLanguage, FALSE);
}
}
return speakerLanguage;
}

key getAgentKey(integer agentID)
{
integer listPos = llListFindList(agentsInTranslation, [agentID]);
if (listPos < 0)
{
return "";
}
else
{
return llList2Key(agentsInTranslation, listPos - 3);
}
}
processHTTPResponse(integer type, string body, list params)
{
integer listPos;
list recepientList;
key recepientID;
string recepientLanguage;
string languagePair;
key speakerID;
string speakerName;
string speakerLanguage;
string translatedText;
string tempString;
integer x;
integer speakerLanguageReliable;
float speakerLanguageConfidence;
list tempList;

//===================
//Process Translation
//===================
if (type == 0)
{
speakerID = llList2Key(params, 1);
speakerName = llKey2Name(speakerID);
if (speakerName == "")
speakerName = llList2String(llGetObjectDetails(speakerID, [OBJECT_NAME]), 0);

recepientList = llParseString2List(llList2String(params, 2), ["@"], []);
tempList = llParseStringKeepNulls(llList2String(params, 3), ["|"],[]);
recepientLanguage = llList2String(tempList, 1);
languagePair = llDumpList2String(tempList, ">>");

//Perform Text Cleanup
x = llSubStringIndex(body, "\",\"detectedSourceLanguage\":\"");
if (x >= 0)
{
translatedText = llGetSubString(body, llSubStringIndex(body, "{\"translatedText\":\"") + 18, x);
speakerLanguage = checkLanguage(llGetSubString(body, x + 28, llSubStringIndex(body, "\"}, \"responseDetails\":") - 1));

listPos = llListFindList(agentsInTranslation, [speakerID]);
if (listPos >= 0)
{
if (speakerLanguage != llList2String(agentsInTranslation, listPos + 1))
agentsInTranslation = llListReplaceList(agentsInTranslation, [TRUE], listPos + 2, listPos + 2); //Mark for recheck of actual spoken language.
}
}
else
{
translatedText = llGetSubString(body, llSubStringIndex(body, "{\"translatedText\":\"") + 18, llSubStringIndex(body, "\"}, \"responseDetails\""));
}

//Reverse order if Recepient Language is Hebrew or Arabic
if ((recepientLanguage == "iw") || (recepientLanguage == "ar"))
{
tempString = "";
for(x = llStringLength(translatedText);x >= 0; x--)
{
tempString += llGetSubString(translatedText, x, x);
}
translatedText = tempString;
}
tempString = speakerName + "(" + languagePair + "): " + translatedText;
if (showTranslation)
sendIM(speakerID, tempString);
for (x = 0; x < llGetListLength(recepientList); x += 1)
{
recepientID = getAgentKey(llList2Integer(recepientList, x));

if (recepientID != "")
{
recepientLanguage = llList2String(agentsInTranslation, llListFindList(agentsInTranslation, [recepientID]) + 1);
if (recepientLanguage != speakerLanguage)
sendIM(recepientID, tempString);
}
}
return;
}

//===========================
//Process Language Detection
//===========================
if (type == 1)
{
speakerID = llList2Key(params, 1);

speakerLanguageReliable = llToLower(llGetSubString(body, llSubStringIndex(body, "\",\"isReliable\":") + 15, llSubStringIndex(body, ",\"confidence\":") - 1)) == "true";
speakerLanguageConfidence = (float)llGetSubString(body, llSubStringIndex(body, ",\"confidence\":") + 14, llSubStringIndex(body, "}, \"responseDetails\":") - 1);

listPos = llListFindList(agentsInTranslation, [speakerID]);

if (((listPos < 0) && (speakerLanguageReliable) || (speakerLanguageConfidence >= 0.18)))
{
//Analyze Data
tempString = checkLanguage(llToLower(llGetSubString(body, llSubStringIndex(body, "{\"language\":\"") + 13, llSubStringIndex(body, "\",\"isReliable\":") - 1)));
if (tempString == "") return;

if (speakerLanguageConfidence < 0.14)
addAgent(speakerID, tempString, TRUE);
else
addAgent(speakerID, tempString, FALSE);
}
}
}

default
{
state_entry()
{
//Multiplexor Initialization
priorityNumber = version*1000000 + llRound(llFrand(499999) + 50000);
llListen(broadcastChannel, "", NULL_KEY, "");
priorityNumListenID = llListen(priorityNumber, "", NULL_KEY, "");

//Send out initial heartbeat
lastHeartBeat = llGetUnixTime();
sendTextBatch(broadcastChannel, llList2CSV([1001, priorityNumber]));

//Wait for the network to settle down
llSetTimerEvent(5);
//llSetTimerEvent(10 + ((1-llGetRegionTimeDilation()) * 1));
}

sensor(integer num_detected)
{
integer x;
key id;

for (x = 0; x < num_detected; x += 1)
{
id = llDetectedKey(x);
if (llListFindList(agentsInTranslation, [id]) < 0)
{
addNewAgent(id);
}
}
}
link_message(integer sender_num, integer num, string str, key id)
{
integer x;
integer listPos;
list tempList;
integer channelToSpeak;

//Old Multiplexor
if (num == 8434532)
{
enabled = (integer)str;
}
else if (num == 3342976)
{
//Send Preferences
options = str;
if (isInitialized == FALSE) return;
tempList = llCSV2List(options);
showTranslation = llList2Integer(tempList, 0);
tranObjects = llList2Integer(tempList, 1);
autoLanguage = llList2Integer(tempList, 2);
sendTextBatch(broadcastChannel, llList2CSV([1004, options]));

}
else if (num == 9384610)
{
if (isMaster == 0) //markering
//llMessageLinked(LINK_THIS, 5598321, llList2CSV([id, str, FALSE]), "");
sendTextBatch(broadcastChannel, llList2CSV([1003, id, str, FALSE]));
else
addAgent(id, str, TRUE);
}
else if (num == 345149625)
{
//Return Translation
processHTTPResponse(0, str, llCSV2List(id));
}
else if (num == 345149626)
{
//Return Detection
processHTTPResponse(1, str, llCSV2List(id));
}
}
timer()
{
integer x;
string tempString;
list newList;
integer translatorCount = llGetListLength(translators)/2;

if (isInitialized == FALSE)
{
isInitialized = TRUE;
enabled = TRUE;
listenID = llListen(0, "", "", "");
llListen(777, "", NULL_KEY, "");

llMessageLinked(LINK_THIS, 6877259, (string)enabled, NULL_KEY);
}

llMessageLinked(LINK_THIS, 94558323, llList2CSV(agentsInTranslation), "");
if (isMaster > 0)
{
for (x = 0; x < llGetListLength(agentsInTranslation); x += 4)
{
tempString = llList2String(llGetObjectDetails(llList2Key(agentsInTranslation, x), [OBJECT_POS]), 0);
if ((llVecDist(llGetPos(), (vector)tempString) <= 20.0) && (tempString != ""))
newList += llList2List(agentsInTranslation, x, x + 3);
}

agentsInTranslation = newList;
if ((llGetUnixTime() - lastHeartBeat) >= 5)
{
//Send heartbeat
sendHeartbeat();
lastHeartBeat = llGetUnixTime();
}
}
else
{
if ((llGetUnixTime() - lastHeartBeat) >= 0 + llGetListLength(agentsInTranslation)*2 + llPow(translatorCount, 1.4) + translatorCount + ((1-llGetRegionTimeDilation()) * 5))
{
//Send heartbeat
sendHeartbeat();
lastHeartBeat = llGetUnixTime();
}
}

//turn on and off scanner
if ((autoLanguage) && (isMaster > 0))
{
llSensor("", NULL_KEY, AGENT, 20.0, PI);
}
//llSetTimerEvent(4 + ((1-llGetRegionTimeDilation()) * 5));
}

listen(integer channel, string name, key id, string message)
{
integer x;
string speakerLanguage;
string recepientLanguage;
integer recepientID;
integer listPos;
string languagePair;
list translationCache;
list tempList;
integer ImessageType;
string Imessage;
string tempString;
string tempString2;

//Multiplexor Code
if ((channel == broadcastChannel) || (channel == priorityNumber))
{
//==========================
//Process Proxy HTTP Request
//==========================

if (channel == priorityNumber)
{
if (llStringLength(message) >= 508)
{
if (((integer)message/channel) != 4958654)
{
sayCachePrivate += [id, message];
return;
}
message = "";
}
message = receiveTextBatchPrivate(id, message);
//Received packet to translate
llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<0.25, 0.05, 0.25>, "");

tempList = llParseString2List(message, ["~"], []);
tempString = llList2String(tempList, 0);
tempList = llDeleteSubList(tempList, 0, 0);

tempString2 = llDumpList2String(tempList, "|");
tempList = llCSV2List(tempString);
listPos = llList2Integer(tempList, 0);
tempList = llDeleteSubList(tempList, 0, 0);

checkThrottle(listPos, tempString2, tempList);

return;
}

//=======================
//Process Global Messages
//=======================
if (llStringLength(message) >= 508)
{
if (((integer)message/channel) != 4958654)
{
sayCache += [id, message];
return;
}
message = "";
}
message = receiveTextBatch(id, message);

tempList = llCSV2List(message);

if (llGetListLength(tempList) >= 2)
{
ImessageType = llList2Integer(tempList, 0);
tempList = llDeleteSubList(tempList, 0, 0);
Imessage = llList2CSV(tempList);

llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<0.25, 0, 0.25>, "");
//Process Message Here
if (ImessageType == 1001)
{
//Incoming Heartbeat
if ((integer)Imessage == priorityNumber)
{
llOwnerSay("Priority Number Conflict! Resetting Script...");
llResetScript(); //Reset if conflicting priority number
}
listPos = llListFindList(translators, [id]);
if (listPos < 0)
{
translators += [(integer)Imessage, id];
if ((isMaster > 0) && (isInitialized))
{
sendTextBatch((integer)Imessage, llList2CSV([1002, llList2CSV(agentsInTranslation)]));
sendTextBatch((integer)Imessage, llList2CSV([1004, options]));
}
}
else
{
translators = llListReplaceList(translators, [(integer)Imessage], listPos - 1, listPos - 1);
}
}
else if (ImessageType == 1002)
{
//Incoming agentsInTranslation Master Broadcast
if (isMaster == 0)
{
//llMessageLinked(LINK_THIS, 9458021, Imessage, "");
tempList = llCSV2List(Imessage);
agentsInTranslation = [];
for (x = 0; x < llGetListLength(tempList); x += 4)
{
agentsInTranslation += [llList2Key(tempList, x), llList2String(tempList, x + 1), llList2Integer(tempList, x + 2), llList2Integer(tempList, x + 3)];
}
}
}
else if (ImessageType == 1003)
{
//Incoming agentsInTranslation dump from Slave
tempList = llCSV2List(Imessage);
for (x = 0; x < llGetListLength(tempList); x += 4)
{
addAgent(llList2Key(tempList, x), llList2String(tempList, x + 1), llList2Integer(tempList, x + 2));
}
}
else if (ImessageType == 1004)
{
//Incoming Preferences
options = Imessage;
tempList = llCSV2List(options);
showTranslation = llList2Integer(tempList, 0);
tranObjects = llList2Integer(tempList, 1);
autoLanguage = llList2Integer(tempList, 2);

llMessageLinked(LINK_THIS, 3342977, Imessage, "");
}
}

return;
}

//Translator Engine Code
if ((llToLower(message) == "translator") && (isMaster > 0))
{
llMessageLinked(LINK_THIS, 2540664, message, id);
return;
}
if ((!enabled) && (isMaster == 1)) return;

if (!tranObjects)
{
if (llList2Key(llGetObjectDetails(id, [OBJECT_CREATOR]), 0) != NULL_KEY) return;
}

listPos = llListFindList(agentsInTranslation, [id]);
if (listPos >= 0)
{
speakerLanguage = llList2String(agentsInTranslation, listPos + 1);
}
else
{
speakerLanguage = addNewAgent(id);
}

if (speakerLanguage == "xx") return; //Agent Opt-Out

llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<1, 1, 0>, "");
//===============================
//Formulate Translation Requests
//===============================
for (x = 0; x < llGetListLength(agentsInTranslation); x += 4)
{
//Loop through translation group and do appropriate translations as needed
recepientID = llList2Integer(agentsInTranslation, x + 3);
recepientLanguage = checkLanguage(llList2Key(agentsInTranslation, x + 1));
if ((speakerLanguage != recepientLanguage) && (recepientLanguage != "") && (recepientLanguage != "xx"))
{
languagePair = speakerLanguage + "|" + recepientLanguage;

listPos = llListFindList(translationCache, [languagePair]);
if (listPos < 0)
translationCache += [languagePair, recepientID];
else
translationCache = llListReplaceList(translationCache, [llList2String(translationCache, listPos + 1) + "@" + (string)recepientID], listPos + 1, listPos + 1);
}
}

//Process Requests
if (llGetListLength(translationCache) > 0)
{
for (x = 0; x < llGetListLength(translationCache); x += 2)
{
//====================================
//Translation
//====================================
//Forumulate and Send Translation Request
languagePair = "|" + llList2String(llParseStringKeepNulls(llList2String(translationCache, x), ["|"],[]), 1);
checkThrottle(0, llEscapeURL(message) + "&langpair=" + llEscapeURL(languagePair), [llGetTime(), id , llList2String(translationCache, x + 1), llList2String(translationCache, x)]);
}
}
else
speakerLanguage = "";

//====================================
//Language Detection
//====================================
if (llList2Key(llGetObjectDetails(id, [OBJECT_CREATOR]), 0) == NULL_KEY)
{
if (((speakerLanguage == "") || (llList2Integer(agentsInTranslation, llListFindList(agentsInTranslation, [id]) + 2) == TRUE)) || (isMaster == 2))
{
//Forumulate and Send Language Detect Request
checkThrottle(1, llEscapeURL(message), [llGetTime(), id]);
}
}
}

http_response(key request_id, integer status, list metadata, string body)
{
string tempString;

if (status != 200)
{
//llOwnerSay("WWW Error:" + (string)status);
llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<1, 0, 0>, "");
//llOwnerSay(body);
return;
}

//Process Resonse Code
tempString = llGetSubString(body, llSubStringIndex(body, "\"responseStatus\":"), -1);
status = (integer)llGetSubString(tempString, 17, llSubStringIndex(tempString, "}") - 1);
if (status != 200)
{
//llOwnerSay("Language Server Returned Error Code: " + (string)status);
//llOwnerSay(body);
llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<1, 0, 0>, "");
return;
}
llMessageLinked(LINK_ALL_CHILDREN, 6634934, (string)<0, 0, 1>, "");
llMessageLinked(LINK_THIS, 345149624, body, request_id);
}
}
</source>

==HTTP Handler==
Even though the name of this script is "HTTP Handler", it really just stores the requested translation traffic so that we can match incoming translations from Google with what was requested. Since this takes a lot of memory for storage, this information is kept out of the engine script. When an incoming HTTP response comes in, we fetch the data from here. If the requests didn't come back in a timely fashion, we remove it from the queue.

<source lang="lsl2">
//HTTP Handler
//Copyright 2006-2009 by Hank Ramos

list requestedTranslations;
list requestedDetections;

default
{
state_entry()
{
llSetTimerEvent(5);
}

timer()
{
integer x;
list newList;
float timeElapsed;

for (x = 0; x < llGetListLength(requestedDetections); x += 2)
{
timeElapsed = llGetTime() - llList2Float(llCSV2List(llList2String(requestedDetections, x + 1)), 0);
if (timeElapsed < 60.0)
newList += llList2List(requestedDetections, x, x + 1);
}
requestedDetections = newList;
newList = [];
for (x = 0; x < llGetListLength(requestedTranslations); x += 2)
{
timeElapsed = llGetTime() - llList2Float(llCSV2List(llList2String(requestedTranslations, x + 1)), 0);
if (timeElapsed < 60.0)
{
newList += llList2List(requestedTranslations, x, x + 1);
}
}
requestedTranslations = newList;
}

link_message(integer sender_num, integer num, string str, key id)
{
integer listPos;

if (num == 235365342)
{
//Translation
requestedTranslations += [id, str];
}
else if (num == 235365343)
{
//Detection
requestedDetections += [id, str];
}
else if (num == 345149624)
{
listPos = llListFindList(requestedTranslations, [id]);
if (listPos >= 0)
{
llMessageLinked(LINK_THIS, 345149625, str, llList2String(requestedTranslations, listPos + 1));
requestedTranslations = llDeleteSubList(requestedTranslations, listPos, listPos + 1);
return;
}

listPos = llListFindList(requestedDetections, [id]);
if (listPos >= 0)
{
llMessageLinked(LINK_THIS, 345149626, str, llList2String(requestedDetections, listPos + 1));
requestedDetections = llDeleteSubList(requestedDetections, listPos, listPos + 1);
}
}
}
}
</source>

==Interface Handler==
This is the interface, or menu-system of the translator. It handles all of the numerous dialogs, language selection, etc. of the translator.

<source lang="lsl2">
//Menu System
//Copyright 2006-2009 by Hank Ramos

//Variables
integer randomDialogChannel;
integer lastAttachPoint;
list detectedAgentKeyList;
list detectedAgentNameList;
key agentInDialog;
integer isInitialized = FALSE;
list agentsInTranslation;
integer translatorCount;

//Options
integer groupAccess = FALSE;
integer autoLanguage = TRUE;
integer deviceAttached;
integer enabled = FALSE;
integer isShowTran = FALSE;
integer showAgents = TRUE;
string displayStringMD5;
integer isMaster = 1;
integer tranObjects = TRUE;

//Constants
list languages= [
"Chinese-Simple", "Chinese-Trad", "Croatian",
"Bulgarian", "Belarusian", "Catlan",
"Afrikaans", "Albanian", "Arabic",

"Filipino", "French", "Galician",
"Finnish", "English", "Estonian",
"Czech", "Danish", "Dutch",

"Indonesian", "Irish", "Italian",
"Hindi", "Hungarian", "Icelandic",
"German", "Greek", "Hebrew",

"Maltese", "Norwegian", "Persian",
"Lithuanian", "Macedonian", "Malay",
"Japanese", "Korean", "Latvian",

"Slovenian", "Spanish", "Swahili",
"Russian", "Serbian", "Slovak",
"Polish", "Portuguese", "Romanian",

"Yiddish", "\t ", "\t ",
"Ukrainian", "Vietnamese", "Welsh",
"Swedish", "Thai", "Turkish"];

list languageCodes = [
"zh-CN", "zh-TW", "hr",
"bg", "be", "ca",
"af", "sq", "ar",

"tl", "fr", "gl",
"fi", "en", "et",
"cs", "da", "nl",

"id", "ga", "it",
"hi", "hu", "is",
"de", "el", "iw",

"mt", "no", "fa",
"lt", "mk", "ms",
"ja", "ko", "lv",

"sl", "es", "sw",
"ru", "sr", "sk",
"pl", "pt-PT", "ro",

"yi", "", "",
"uk", "vi", "cy",
"sv", "th", "tr"];

//Functions
//Takes in the offsets, and the attach point
vector fn_makePos(integer attach_point, vector offset) {
if ((attach_point == 31) || (attach_point == 35)) { //center 2 & center
return <0,0,0>;
} else if (attach_point == 32) { // Top right
return <offset.x, offset.y, offset.z * -1>;
} else if (attach_point == 33) { // Top
return <offset.x, 0, offset.z * -1>;
} else if (attach_point == 34) { // Top Left
return <offset.x, offset.y * -1, offset.z * -1>;
} else if (attach_point == 36) { // Bottom Left
return <offset.x, offset.y * -1 , offset.z>;
} else if (attach_point == 37) { // Bottom
return <offset.x, 0, offset.z>;
} else if (attach_point == 38) { // Bottom Right - Baseline
return offset;
} else { //Not a HUD point? Then return it's current pos
return llGetLocalPos();
}
}

updateDisplay()
{
string tempString;
integer listLength;
integer x;
string agentName;

if (isInitialized == FALSE) return;
tempString = "Universal Translator";
if (isMaster != 1)
tempString += " (Link-" + (string)(translatorCount + 1) + ")";
tempString += "\n===============";

if (enabled)
{
listLength = llGetListLength(agentsInTranslation);
if (((showAgents) && (listLength <= 40)) && (listLength != 0))
{
for (x = 0; x < listLength; x += 4)
{
agentName = llList2String(llGetObjectDetails(llList2Key(agentsInTranslation, x), [OBJECT_NAME]), 0);
if (llStringLength(agentName) > 25)
agentName = llGetSubString(agentName, 0, 24);
if (agentName != "")
tempString += "\n" + agentName + "(" + llList2String(agentsInTranslation, x + 1) + ")";
}
}
else
{
tempString += "\n# Agents Translated: " + (string)llRound(listLength/3);
}
}
else
{
tempString += "\n>> Disabled <<";
}

if (llMD5String(tempString, 0) != displayStringMD5)
{
displayStringMD5 = llMD5String(tempString, 0);
llSetText(tempString, <1,1,1>, 1);
}
}

showMainMenu(key id)
{
if (isInitialized == FALSE) return;
integer avatarParticipating;
list buttonList = ["Language", "Help"];
string dialogMsg = "Main Menu\nLANGUAGE: manually choose your source language. Target languages are detected automatically\nHELP: get help notecard";
buttonList += "FREE Copy";
dialogMsg += "\nFREE COPY: receive FREE copy of Universal Translator.";

if (llList2String(agentsInTranslation, llListFindList(agentsInTranslation, [(string)id]) + 1) != "xx")
{
buttonList += "Opt-Out";
dialogMsg += "\nOPT-OUT: disable receipt of translations";
}
else
{
buttonList += "Opt-In";
dialogMsg += "\nOPT-IN: join the translations";
}

if (id == llGetOwner())
{
buttonList += "Donate";
dialogMsg += "\nDONATE: donate L$ to the developer of Universal Translator.";
}
if ((id == llGetOwner()) || ((groupAccess) && (llSameGroup(id))))
{
buttonList += "Reset";
buttonList += "Options";
buttonList += "Send Copy";
dialogMsg += "\nSEND COPY: send FREE copy of Universal Translator.";

if (enabled)
{
buttonList += "Disable";
}
else
{
buttonList += "Enable";
}

dialogMsg += "\nRESET: reset all scripts in translator";
}

llDialog(id, dialogMsg, buttonList, randomDialogChannel);
}

showOptionsMenu(key id)
{
integer avatarParticipating;
list buttonList = [];
string dialogMsg = "Options Menu.";
if (id == llGetOwner())
{
if (groupAccess)
{
buttonList += "Group OFF";
}
else
{
buttonList += "Group ON";
}
dialogMsg += "\nGROUP: allow group members to admin.";
}
if ((id == llGetOwner()) || ((groupAccess) && (llSameGroup(id))))
{
buttonList += "Main Menu";
if (!deviceAttached)
{
if (autoLanguage)
{
buttonList += "Scan OFF";
}
else
{
buttonList += "Scan ON";
}
}
dialogMsg += "\nSCAN: scan for Avatars and automatically add to translation matrix.";

if (isShowTran)
{
buttonList += "Echo OFF";
}
else
{
buttonList += "Echo ON";
}
dialogMsg += "\nECHO: show translations of your chat sent to others.";

if (tranObjects)
{
buttonList += "Objects OFF";
}
else
{
buttonList += "Objects ON";
}
dialogMsg += "\nOBJECTS: translate chat of scripted objects";

if (showAgents)
{
buttonList += "Agents OFF";
}
else
{
buttonList += "Agents ON";
}
dialogMsg += "\nAGENTS: show list of agents translated.";
}

llDialog(id, dialogMsg, buttonList, randomDialogChannel);
}

showLanguageDialog1(key id)
{
llDialog(id, "Select your TARGET language...", ["\t", "\t", ">> NEXT"] + llList2List(languages, 0, 8), randomDialogChannel);
}
showLanguageDialog2(key id)
{
llDialog(id, "Select your TARGET language..", ["<< BACK", "\t ", ">> NEXT "] + llList2List(languages, 9, 17), randomDialogChannel);
}
showLanguageDialog3(key id)
{
llDialog(id, "Select your TARGET language..", ["<< BACK ", "\t ", ">> NEXT "] + llList2List(languages, 18, 26), randomDialogChannel);
}
showLanguageDialog4(key id)
{
llDialog(id, "Select your TARGET language..", ["<< BACK ", "\t ", ">> NEXT "] + llList2List(languages, 27, 35), randomDialogChannel);
}
showLanguageDialog5(key id)
{
llDialog(id, "Select your TARGET language..", ["<< BACK ", "\t ", ">> NEXT "] + llList2List(languages, 36, 44), randomDialogChannel);
}showLanguageDialog6(key id)
{
llDialog(id, "Select your TARGET language..", ["<< BACK ", "\t ", "\t "] + llList2List(languages, 45, 53), randomDialogChannel);
}
processListen(string name, key id, string message)
{
key listenKey;

if (llListFindList(languages, [message]) > -1) //Language Selected in Dialog
{
if (message != "") llMessageLinked(LINK_THIS, 9384610, llList2String(languageCodes, llListFindList(languages, [message])), id);
}
else if (llToLower(message) == "help")
{
llGiveInventory(id, "Universal Translator Help");
}
else if (message == "Main Menu")
{
showMainMenu(id);
}
else if (message == "Options")
{
showOptionsMenu(id);
}
else if (message == "Language")
{
showLanguageDialog1(id);
}
else if (message == "Opt-In")
{
showLanguageDialog1(id);
}
else if (message == "Opt-Out")
{
llMessageLinked(LINK_THIS, 9384610, "xx", id);
}
else if (message == "FREE Copy")
{
llMessageLinked(LINK_THIS, 9455209, llKey2Name(id), id);
}
if (id == llGetOwner())
{
if (message == "Group ON")
{
groupAccess = TRUE;
showMainMenu(id);
}
else if (message == "Group OFF")
{
groupAccess = FALSE;
showMainMenu(id);
}
else if (message == "Donate")
{
llMessageLinked(LINK_THIS, 324235353254, "", llGetOwner());
}
}
if ((id == llGetOwner()) || ((groupAccess) && (llSameGroup(id))))
{
if (message == "Reset")
{
llResetScript();
}
else if (message == "Enable")
{
enabled = TRUE;
llMessageLinked(LINK_THIS, 8434532, (string)enabled, id);
}
else if (message == "Disable")
{
enabled = FALSE;
llMessageLinked(LINK_THIS, 8434532, (string)enabled, id);
}
else if (message == "Echo ON")
{
isShowTran = TRUE;
//llMessageLinked(LINK_THIS, 2734322, (string)isShowTran, id);
}
else if (message == "Echo OFF")
{
isShowTran = FALSE;
}
else if (message == "Objects OFF")
{
tranObjects = FALSE;
}
else if (message == "Objects ON")
{
tranObjects = TRUE;
}
else if (message == "Agents OFF")
{
showAgents = FALSE;
llMessageLinked(LINK_THIS, 455832, (string)showAgents, id);
}
else if (message == "Agents ON")
{
showAgents = TRUE;
llMessageLinked(LINK_THIS, 455832, (string)showAgents, id);
}
else if (message == "Scan ON")
{
autoLanguage = TRUE;
showMainMenu(id);
}
else if (message == "Scan OFF")
{
autoLanguage = FALSE;
showMainMenu(id);
}
else if ((message == "Send Copy") || (message == ">>RESCAN<<"))
{
agentInDialog = id;
llSensor("", NULL_KEY, AGENT, 20.0, TWO_PI);
}
else
{
if (llGetListLength(detectedAgentNameList) > 0)
{
listenKey = llList2Key(detectedAgentKeyList, llListFindList(detectedAgentNameList, [message]));
if (listenKey != "")
{
llMessageLinked(LINK_THIS, 9455209, message, listenKey);
}
detectedAgentNameList = [];
}
}
}
if (message == ">> NEXT")
{
showLanguageDialog2(id);
}
else if (message == ">> NEXT ")
{
showLanguageDialog3(id);
}
else if (message == ">> NEXT ")
{
showLanguageDialog4(id);
}
else if (message == ">> NEXT ")
{
showLanguageDialog5(id);
}
else if (message == ">> NEXT ")
{
showLanguageDialog6(id);
}
else if (message == "<< BACK")
{
showLanguageDialog1(id);
}
else if (message == "<< BACK ")
{
showLanguageDialog2(id);
}
else if (message == "<< BACK ")
{
showLanguageDialog3(id);
}
else if (message == "<< BACK ")
{
showLanguageDialog4(id);
}
else if (message == "<< BACK ")
{
showLanguageDialog5(id);
}
if (message == "\t")
{
showLanguageDialog1(id);
}
else if (message == "\t ")
{
showLanguageDialog2(id);
}
else if (message == "\t ")
{
showLanguageDialog3(id);
}
else if (message == "\t ")
{
showLanguageDialog4(id);
}
else if (message == "\t ")
{
showLanguageDialog5(id);
}
else if (message == "\t ")
{
showLanguageDialog6(id);
}

llMessageLinked(LINK_THIS, 3342976, llList2CSV([isShowTran, tranObjects, autoLanguage]), id);
}
checkAttach()
{
if (llGetAttached() > 0)
{
llSetScale(<0.125, 0.125, 0.087>);
if(lastAttachPoint != llGetAttached())
{
llSetPos(fn_makePos(llGetAttached(), <0.00000, 0.13500, 0.15433>));
llSetRot(<0,0,0,1>);
lastAttachPoint = llGetAttached();
}
llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
llMessageLinked(llGetLinkNumber(), 3792114, (string)TRUE, NULL_KEY);
}
else
{
llSetScale(<0.5, 0.5, 0.750>);
llReleaseControls();
llMessageLinked(llGetLinkNumber(), 3792114, (string)FALSE, NULL_KEY);
}
}

default
{
run_time_permissions(integer perms)
{
//integer hasPerms = llGetPermissions();
llTakeControls( CONTROL_UP , TRUE, TRUE);
}
state_entry()
{
//llRequestPermissions(llGetOwner(),PERMISSION_TAKE_CONTROLS );

string speakerLanguage;
//llOwnerSay("Welcome to the Universal Translator, the best FREE translator in SL! Please consider making a L$ donation to help with maintenance and further updates. Select DONATE in the translator menu to make a donation.");
//llSetText("Initializing...", <1,1,1>, 1);

llSetText("Searching for\nnearby translators...", <1,1,1>, 1);
checkAttach();

randomDialogChannel = -(integer)llFrand(2147483647);

llMessageLinked(LINK_SET, 20957454, "", NULL_KEY);
llResetOtherScript("Universal Translator Engine");
llResetOtherScript("HTTP Handler");
llResetOtherScript("No-Script IM Handler");
llResetOtherScript("Auto-Update");
llResetOtherScript("Donation");

//Other Setup
llSleep(5);
llListen(randomDialogChannel, "", NULL_KEY, "");
llMessageLinked(LINK_THIS, 3342976, llList2CSV([isShowTran, tranObjects, autoLanguage]), "");

//llOwnerSay("Mem Free=" + (string)llGetFreeMemory());
}

on_rez(integer startup_param)
{
//checkAttach();
llResetScript();
}

sensor(integer num_detected)
{
integer x;
string tempString;

if (num_detected > 11)
num_detected = 11;

detectedAgentKeyList = [];
detectedAgentNameList = [];
for (x = 0; x < num_detected; x += 1)
{
detectedAgentKeyList += llDetectedKey(x);
tempString = llDetectedName(x);
if (llStringLength(tempString) > 24) tempString = llGetSubString(tempString, 0, 23);
detectedAgentNameList += tempString;
}
if (llGetListLength(detectedAgentNameList) > 0)
{
llDialog(agentInDialog, "Select someone nearby to receive FREE a copy of the Universal Translator...", [">>RESCAN<<"] + detectedAgentNameList, randomDialogChannel);
}
}
link_message(integer sender_num, integer num, string str, key id)
{
integer listPos;
list tempList;
string tempString;

if (num == 2540664)
{
showMainMenu(id);
}
else if (num == 3792114)
{
deviceAttached = (integer)str;
if (deviceAttached) autoLanguage = TRUE;
}
else if (num == 65635544)
{
translatorCount = ((integer)str)/2;
}
else if (num == 6877259)
{
if (isInitialized == FALSE)
{
isInitialized = TRUE;
//Owner Language Detection
tempString = llGetAgentLanguage(llGetOwner());
if (llGetSubString(tempString, 0, 1) == "en") tempString = "en";

if (tempString == "")
{
tempString = "en";
}
llMessageLinked(LINK_THIS, 9384610, tempString, llGetOwner());
}

enabled = (integer)str; //marker
updateDisplay();
}
else if (num == 34829304)
{
isMaster = (integer)str;
updateDisplay();
}
else if (num == 455832)
{
showAgents = (integer)str;
updateDisplay();
}
else if (num == 94558323)
{
agentsInTranslation = llCSV2List(str);
updateDisplay();
}
else if (num == 3342977)
{
//Options are Show Tran and tranObjects at this time
tempList = llCSV2List(str);
isShowTran = llList2Integer(tempList, 0);
tranObjects = llList2Integer(tempList, 1);
autoLanguage = llList2Integer(tempList, 2);
}
else if (num == 32364364)
{
//Send Options
llMessageLinked(LINK_THIS, 8434532, (string)enabled, NULL_KEY);
}
}

touch_start(integer num_detected)
{
integer x;
key avatarKey;

for (x = 0; x < num_detected; x++)
{
avatarKey = llDetectedKey(x);
showMainMenu(avatarKey);
}
}

listen(integer channel, string name, key id, string message)
{
processListen(name, id, message);
}

attach(key id)
{
checkAttach();
if (id) //tests if it is a valid key and not NULL_KEY
{
llRequestPermissions(llGetOwner(),PERMISSION_TAKE_CONTROLS );
}
}
control(key id,integer held, integer change) {
return;
}
}
</source>

BuildSlurl (NewAge)

2015-01-25T02:44:57Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header}}
A way of creating SLURL's by using a pre-made function;
BuildSlurl(string region_name, vector pos);

''Pre-made Function''

<source lang="lsl2">
string BuildSlurl(string region_name, vector pos){
return "secondlife://" + llEscapeURL(region_name)
+ "/"+ (string)((integer)pos.x)
+ "/"+ (string)((integer)pos.y)
+ "/"+ (string)(llCeil(pos.z));
}</source>

----

''Example Script''

<source lang="lsl2">
string BuildSlurl(string region_name, vector pos){
return "secondlife://" + llEscapeURL(region_name)
+ "/"+ (string)((integer)pos.x)
+ "/"+ (string)((integer)pos.y)
+ "/"+ (string)(llCeil(pos.z));
}

default
{
touch_start(integer x)
{
llWhisper(0, BuildSlurl(llGetRegionName(), llGetPos()));
//Returns slurl like this;
// secondlife://Phoenix%20Rising/214/160/24
}
}
</source>

RLV Collision Grabber

2015-01-25T02:43:47Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header}}
==Introduction==
This script placed in a prim makes that prim a collision detector that tries to force sit the colliding avatar on a set target using RLV.

The victim needs [[LSL_Protocol/RestrainedLoveAPI|RLV]] and a relay to be grabbed by the script.

<source lang="lsl2">
/* This program is free software. It comes without any warranty, to
* the extent permitted by applicable law. You can redistribute it
* and/or modify it under the terms of the Do What The Fuck You Want
* To Public License, Version 2, as published by Sam Hocevar. See
* http://sam.zoy.org/wtfpl/COPYING for more details. */

/* Place the script in the prim you want to turn into the sensor.
* The object will then detect collisions and tries to
* force sit and lock the victim on the set target (see below).
* It also tries to detect and lock people who just sit on the target
* Feel free to contact me, Vala Vella, if you have questions
* If you use this in your project I'd like to hear about it :) */

key target = "00000000-0000-0000-0000-000000000000"; // UUID of the target object the victim will sit on. Must contain any sit script
integer sitscan = TRUE; // try to detect and lock people who sit manually (TRUE/FALSE)
integer lockseconds = 30; // time in seconds the victim will be locked to the target
integer sleeptime = 10; // time in seconds the victim has to leave the area after being freed to avoid instant regrabbing
// do not set sleeptime to 0!

//=======================================================================================================================//

key victim = NULL_KEY; //current victim
integer freetime; //end of timer as unix timestamp
list queue; // list for queueing victims in case more than one walk into the trap

integer RLVchan = -1812221819; //RLV Relay channel. do NOT change!
integer commchan; // channel to listen for client answers
float targetmass; // mass of the target to check if someone is sitting
string locktime; // lock time in human readable format
integer locked; // TRUE if someone is locked up
integer sitting; // TRUE is the victim is sitting on target (checked via RLV)

debug(string txt)
{
// uncomment the next line to see debugging messages
//llSay(DEBUG_CHANNEL, "DEBUG-INFO: "+txt);
}

relay(string type,key victim,string command) //send command to relay
{
llRegionSayTo(victim, RLVchan, type+","+(string)victim+","+command);
}

next() //process next entry in queue
{
debug("next()");
if (llGetObjectMass(target) > targetmass) //stop here if someone is sitting on the object
{
debug("Someone is sitting");
queue = [];
return;
}
if (victim == NULL_KEY && llGetListLength(queue) > 0)
{
key this = llList2Key(queue, 0);
if (llVecDist(llList2Vector(llGetObjectDetails(this, [OBJECT_POS]), 0), llGetPos() ) < 10.0)
{
locked = FALSE;
sitting = FALSE;
relay("sit", llList2Key(queue, 0), "@sit:"+(string)target+"=force");
llSetTimerEvent(10);
}
else
{
queue = llDeleteSubList(queue, 0, 0);
next();
}
}
}

default
{
state_entry()
{
list objectinfo = llGetObjectDetails(target, [OBJECT_NAME, OBJECT_POS]);
if (llList2Vector(objectinfo, 1) != <0,0,0>) //check if target exists
{
targetmass = llGetObjectMass(target);
locktime = (string)llFloor((float)lockseconds / 60)+" minutes";
if (lockseconds%60) locktime += ", "+(string)(lockseconds%60)+" seconds";
llOwnerSay("Set to target: "+llList2String(objectinfo, 0));
llOwnerSay("Locktime: "+locktime);
commchan = (integer)("0x"+llGetSubString((string)llGetKey(), 0, 6))+(integer)"0x70000000";
debug("command channel: "+(string)commchan);
debug("object mass: "+(string)targetmass);
llListen(RLVchan, "", "", "");
llListen(commchan, "", victim, "");
llVolumeDetect(TRUE);
llSetTimerEvent(10);
}
else
{
llOwnerSay("Set target not found. Please edit the script and check the settings");
}
}

on_rez(integer num)
{
llResetScript();
}

collision_start(integer num)
{
debug ((string)num+" collisions");
if (!locked)
{
while (num)
{
num--;
if (!~llListFindList(queue, [llDetectedKey(num)]) && victim == NULL_KEY) //if detected agent is not queued and no victim queue them
{
queue += llDetectedKey(num);
debug (llList2CSV(queue));
if (llGetListLength(queue) == 1) next(); //process queue if it has one entry
}
}
}
}

listen(integer chn, string name, key id, string msg)
{
if (chn == RLVchan) //answers from relay
{
list answer = llCSV2List(msg);
key rkey = llList2Key(answer, 1);
if (rkey == llGetKey())
{
debug("RLV answer: "+msg);
string rhandle = llList2String(answer, 0);
string rcommand = llList2String(answer, 2);
string rok = llList2String(answer, 3);
if (rhandle == "sit" && rok == "ok")
{
llSetTimerEvent(0);
victim = llGetOwnerKey(id);
llSleep(1);
relay("sitcheck", victim, "@getsitid="+(string)commchan);
llSetTimerEvent(3);
}
if (rhandle == "sitlock" && rok == "ok" && llGetOwnerKey(id) == victim)
{
llRegionSayTo(victim, 0, "You are locked for "+locktime);
}
if (rcommand == "!release" && rok == "ok" && llGetOwnerKey(id) == victim)
{
debug("released");
locked = FALSE;
victim = NULL_KEY;
next();
}
}
}
else if (chn == commchan) //answers from the victims client
{
debug("Comm answer: "+msg);
if ((key)msg == target) //when the victim is sitting on the target it will send the targets key on the comm channel
{
if (!locked)
{
victim = id;
llSetTimerEvent(10);
freetime = llGetUnixTime()+lockseconds;
relay("sitlock", victim, "@unsit=n");
locked = TRUE;
}
sitting = TRUE;
}
}
}

timer()
{
if (locked)
{
if (llGetUnixTime() >= freetime)
{
relay("release", victim, "!release");
llRegionSayTo(victim, 0, "You are free. You have "+(string)sleeptime+" seconds to leave!");
locked = FALSE;
llSetTimerEvent(sleeptime);
}
else if (sitting == TRUE)
{
sitting = FALSE;
relay("sitcheck", victim, "@getsitid="+(string)commchan);
}
}
else
{
llSetTimerEvent(5);
if (llGetObjectMass(target) > targetmass && sitscan == TRUE) //is someone sitting?
{
llSensor("", "", AGENT, llVecDist(llGetPos(), llList2Vector(llGetObjectDetails(target, [OBJECT_POS]), 0))+2.0, PI); // find possible victims
}
else
{
queue = llDeleteSubList(queue, 0, 0);
victim = NULL_KEY;
locked = FALSE;
next();
}
}
}

sensor(integer num)
{
while(num)
{
num--;
if (llGetAgentInfo(llDetectedKey(num)) & AGENT_SITTING) relay("sitcheck", llDetectedKey(0), "@getsitid="+(string)commchan); // check if sitting and if so ask relay for object they are sitting on
}
}
}
</source>

[[Category:LSL Library|RLV Collision Grabber]]

Linkset resizer with menu

2015-01-24T19:38:19Z

Lady Sumoku: Instead of <pre> generic formatting, used <source> for context highlighting to match the current (in progress) wiki updates

{{LSL Header}}

==== A single script that rescales every prim in a linkset====
by [[User:Brilliant Scientist|Brilliant Scientist]], 25th April 2010

This script uses the [[LlGetLinkPrimitiveParams|llGetLinkPrimitiveParams()]] and [[LlSetLinkPrimitiveParamsFast|llSetLinkPrimitiveParamsFast()]] functions introduced in server 1.38 to rescale every prim in an arbitrary linkset. Based on [[Linkset resizer]] script by [[User:Maestro Linden|Maestro Linden]].

The main differences between the two scripts are:

<ul>
<li>this script is menu-controlled</li>
<li>the script's listen channel is generated dynamically</li>
<li>more comments in the code for beginner scripters</li>
<li>it's just less chatty</li>
</ul>

<br><b>Special thanks to:</b><br>
[[User:Ann Otoole|Ann Otoole]] for contributing with a script removal function. The source code on this wiki page has been modified to reflect this contribution.
<br>

==== Source Code ====

<source lang="lsl2">
// Linkset Resizer with Menu
// version 1.00 (25.04.2010)
// by: Brilliant Scientist
// --
// This script resizes all prims in a linkset, the process is controlled via a menu.
// The script works on arbitrary linksets and requires no configuration.
// The number of prims of the linkset it can process is limited only by the script's memory.
// The script is based on "Linkset Resizer" script by Maestro Linden.
// http://wiki.secondlife.com/wiki/Linkset_resizer
// This script still doesn't check prim linkability rules, which are described in:
// http://wiki.secondlife.com/wiki/Linkability_Rules
// Special thanks to:
// Ann Otoole

float MIN_DIMENSION=0.01; // the minimum scale of a prim allowed, in any dimension
float MAX_DIMENSION=10.0; // the maximum scale of a prim allowed, in any dimension

float max_scale;
float min_scale;

float cur_scale = 1.0;
integer handle;
integer menuChan;

float min_original_scale=10.0; // minimum x/y/z component of the scales in the linkset
float max_original_scale=0.0; // minimum x/y/z component of the scales in the linkset

list link_scales = [];
list link_positions = [];

makeMenu()
{
llListenRemove(handle);
menuChan = 50000 + (integer)llFrand(50000.00);
handle = llListen(menuChan,"",llGetOwner(),"");

//the button values can be changed i.e. you can set a value like "-1.00" or "+2.00"
//and it will work without changing anything else in the script
llDialog(llGetOwner(),"Max scale: "+(string)max_scale+"\nMin scale: "+(string)min_scale+"\n \nCurrent scale: "+
(string)cur_scale,["-0.05","-0.10","-0.25","+0.05","+0.10","+0.25","MIN SIZE","RESTORE","MAX SIZE","DELETE..."],menuChan);
}

integer scanLinkset()
{
integer link_qty = llGetNumberOfPrims();
integer link_idx;
vector link_pos;
vector link_scale;

//script made specifically for linksets, not for single prims
if (link_qty > 1)
{
//link numbering in linksets starts with 1
for (link_idx=1; link_idx <= link_qty; ++link_idx)
{
link_pos=llList2Vector(llGetLinkPrimitiveParams(link_idx, [PRIM_POS_LOCAL]),0);
link_scale=llList2Vector(llGetLinkPrimitiveParams(link_idx,[PRIM_SIZE]),0);

// determine the minimum and maximum prim scales in the linkset,
// so that rescaling doesn't fail due to prim scale limitations
if(link_scale.x<min_original_scale) min_original_scale=link_scale.x;
else if(link_scale.x>max_original_scale) max_original_scale=link_scale.x;
if(link_scale.y<min_original_scale) min_original_scale=link_scale.y;
else if(link_scale.y>max_original_scale) max_original_scale=link_scale.y;
if(link_scale.z<min_original_scale) min_original_scale=link_scale.z;
else if(link_scale.z>max_original_scale) max_original_scale=link_scale.z;

link_scales += [link_scale];
link_positions += [link_pos];
}
}
else
{
llOwnerSay("error: this script doesn't work for non-linked objects");
return FALSE;
}

max_scale = MAX_DIMENSION/max_original_scale;
min_scale = MIN_DIMENSION/min_original_scale;

return TRUE;
}

resizeObject(float scale)
{
integer link_qty = llGetNumberOfPrims();
integer link_idx;
vector new_size;
vector new_pos;

if (link_qty > 1)
{
//link numbering in linksets starts with 1
for (link_idx=1; link_idx <= link_qty; link_idx++)
{
new_size = scale * llList2Vector(link_scales, link_idx-1);

if (link_idx == 1)
{
//because we don't really want to move the root prim as it moves the whole object
llSetLinkPrimitiveParamsFast(link_idx, [PRIM_SIZE, new_size]);
}
else
{
new_pos = scale * llList2Vector(link_positions, link_idx-1);
llSetLinkPrimitiveParamsFast(link_idx, [PRIM_SIZE, new_size, PRIM_POSITION, new_pos]);
}
}
}
}

default
{
state_entry()
{
if (scanLinkset())
{
//llOwnerSay("resizer script ready");
}
else
{
llRemoveInventory(llGetScriptName());
}
}

touch_start(integer total)
{
if (llDetectedKey(0) == llGetOwner()) makeMenu();
}

listen(integer channel, string name, key id, string msg)
{
//you can never be too secure
if (id == llGetOwner())
{
if (msg == "RESTORE")
{
cur_scale = 1.0;
}
else if (msg == "MIN SIZE")
{
cur_scale = min_scale;
}
else if (msg == "MAX SIZE")
{
cur_scale = max_scale;
}
else if (msg == "DELETE...")
{
llDialog(llGetOwner(),"Are you sure you want to delete the resizer script?",
["DELETE","CANCEL"],menuChan);
return;
}
else if (msg == "DELETE")
{
llOwnerSay("deleting resizer script...");
llRemoveInventory(llGetScriptName());
}
else
{
cur_scale += (float)msg;
}

//check that the scale doesn't go beyond the bounds
if (cur_scale > max_scale) { cur_scale = max_scale; }
if (cur_scale < min_scale) { cur_scale = min_scale; }

resizeObject(cur_scale);
}
}
}
</source>

----

==== Crunching and Inflating ====

* This is an addition by [[User:Kira Komarov|Kira Komarov]] to the former script by [[User:Brilliant Scientist|Brilliant Scientist]].

I have been faced with the following problem: [[User:Stephen Xootfly|Stephen Xootfly]] handed me a representation of a caffeine molecule. I wanted to scale that molecule down so that I may create a necklace out of it. This is what the molecule looks like in comparison to my avatar:

[[File:Resize_-_Comparison.png|800px]]

On the lower right, you can see the result after using the script above and using the minimal size option AND replacing the molecules and bindings with a set of nanoprims that I carry around. Here is a blow-up so you can see what it looks like after those operations:

[[File:Resize_-_BadCrunch.png|800px]]

As you can see, the distances between the bindings and the atoms are relatively larger than in the original picture. This is NOT because the script above does not function correctly. The script above functions correctly however, by replacing the atoms and bindings with their equivalent nanoprim-sized sculpt shapes, I have thereby increased the "visible distance" artificially. In other words, the primitives are still the same size but by using nanoprims only a subpart of that is visible.

One way to solve this problem, would have been to roll-up my sleeves and start manually putting each molecule and binding in place. I went as far as doing one peripheral cluster and then I gave up. This would have wasted probably the rest of my day...

So, I took again at the script above and wondered how the script repositions the primitives after it has scaled them. The key is to be found in the script above, at this line:

<lsl>
link_positions += [(link_pos-llGetRootPosition())/llGetRootRotation()];
</lsl>

which repositions the primitive relative to the root position.

Since I used n_20-size nanoprims for bindings between atoms, n_10-size nanoprims for small atoms and n_5-size nanoprims for large atoms, I figured that in fact, I am just inducing an error by a factor of 5.

To fix the problem, I used the script as it is to scale the molecule to its maximum size, after I had scaled it down and replaced the atoms and bindings with nanoprims. I then edited the script and alter it in order to take the factor out:

<lsl>
link_positions += [(link_pos/5-llGetRootPosition())/llGetRootRotation()];
</lsl>

And then I clicked the gigantic molecule and selected "minimum size" to crunch it back into place, hoping to eliminate that factor of 5. This is the result:

[[File:Resize_-_GoodCrunch.png|800px]]

As you see, the factor has been taken out and the molecule is now a perfect nano-replica of the original, scaled down to a n_20-size nano and respecting the relative distances between atoms and bindings.

This spared me a lot of time. Perhaps one could take this concept to the next level and write a script that would eliminate such a factor. It would be mightily useful for builders using nanoprims.

[[Category:LSL Examples]]

User talk:ObviousAltIsObvious Resident

2015-01-24T18:49:29Z

Lady Sumoku:

Thank you for the many useful wiki edits. I run across yours now and again when I'm using the wiki as a reference myself. --[[User:Soft Linden|Soft Linden]] 12:57, 10 December 2013 (PST)

Shoot. I didn't realize until now that I've been taking you for granted. I'm sorry. Thank you for your hard work, I really appreciate it. -- '''[[User:Strife_Onizuka|Strife]]''' <sup><small>([[User talk:Strife_Onizuka|talk]]|[[Special:Contributions/Strife_Onizuka|contribs]])</small></sup> 21:56, 10 December 2013 (PST)

== <nowiki><lsl></nowiki> tag conversion ==

walking thru [[:Category:LSL Functions]], have got as far as [[llGetWallclock]] ... need to break for RL stuff. [[Special:Contributions/Lady Sumoku|Lady Sumoku]] has been barreling through some of the other categories this morning! --[[User:ObviousAltIsObvious Resident|ObviousAltIsObvious Resident]] ([[User talk:ObviousAltIsObvious Resident|talk]]) 02:17, 22 January 2015 (PST)

<p>'''*waves*'''Couldn't sleep, and the formatting change was bugging me until I saw you fixing them. I did most of the "LSL Reference" section (at least one level down) except for [[:Category:LSL Constants|Constants]] and [[LSL Errors|Errors]]. (And Functions, since you were on that!) --[[User:Lady Sumoku|Lady Sumoku]] ([[User talk:Lady Sumoku|talk]]) 02:35, 22 January 2015 (PST)</p>

Trying to get to the top of the [[User:Zai_Lynch/Wiki_Spammer_Ranking|wiki spammer ranking]] I see. Thank you both for working on this. -- '''[[User:Strife_Onizuka|Strife]]''' <sup><small>([[User talk:Strife_Onizuka|talk]]|[[Special:Contributions/Strife_Onizuka|contribs]])</small></sup> 13:18, 23 January 2015 (PST)

:I feel as if this may come across as bitchy and/or unhelpful, but: Swapping out tags can be done in no time with little effort by using [https://www.mediawiki.org/wiki/Extension:Replace_Text a MediaWiki function/extension using regex to search and replace strings] which is already part of this wiki. All this manual labour makes my head spin. Call me lazy if you like, but why waste energy doing the work of machines?
:P.S. [[MediaWiki:Common.js|The common JS]] is laughably bad and out of date, and I'm guessing (not looked) that the CSS will be as bad. Someone really ought to clean them up. [[User:Fred_Gandt|'''<span style="font-family:arial;color:#055;font-size:16px;">f<i style="color:#0dd;font-size:10px;">red</i>g<i style="color:#0dd;font-size:10px;">andt</i></span>''']] 13:40, 23 January 2015 (PST)

::Manually reviewed changes are a deliberate choice. See the messes that were made with the use of automated tools on http://forums-archive.secondlife.com/15/1.html and http://community.secondlife.com/t5/Scripting-Library/bd-p/2122 for why. --[[User:ObviousAltIsObvious Resident|ObviousAltIsObvious Resident]] ([[User talk:ObviousAltIsObvious Resident|talk]]) 14:15, 23 January 2015 (PST)

::I considered suggesting changing this to use a template that specified the tag (this way it we wouldn't have to worry about doing this again). Who wants to do the <nowiki><cpp> and <php></nowiki> tags? I'm going to work on redoing primitive params (collapsible sections will make it rock). -- '''[[User:Strife_Onizuka|Strife]]''' <sup><small>([[User talk:Strife_Onizuka|talk]]|[[Special:Contributions/Strife_Onizuka|contribs]])</small></sup> 16:58, 23 January 2015 (PST)

:::Knew this change was going to have to come sooner or later, and did think about that. Like-for-like substitution was less likely to disturb the syntax in the existing template soup, and we're reasonably safe for a long time since we're now in sync with that Wikipedia and Wikia use. --[[User:ObviousAltIsObvious Resident|ObviousAltIsObvious Resident]] ([[User talk:ObviousAltIsObvious Resident|talk]]) 17:16, 23 January 2015 (PST)

::I am of a simliar mindset about the "auto" fixing. While it's nice when it works, it is usually much more trouble in the instances where it doesn't. I was skimming over each page to make sure my changes weren't doing anything I didn't want them to. Long and boring, sure. But I didn't want to cause a mess later for someone else.

Basic Sim Status Button Indicator HUD

2015-01-23T02:44:45Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

<source lang="lsl2">
// Generic Sim Status Button Indicator
// HUD / 1 prim
// by Ackley Bing
//
// A HUD button for remote monitoring of sims.
// Color indicates the sim status
// Green = SIM available
// When the sim goes down it turns red/black
//
// To use: Put this in a prim and attach to your preferred HUD location.
// Go to the sim you want to monitor and and click the prim
// Click and HOLD the hud button (5 seconds) to choose another sim.
//
// Modify // Attach / Connect this to your HUD/Vehicle/etc any way you like.

string homeregion;
SimStutusButtonColor(string data)
{
vector simstatuscolor;
if (data=="") simstatuscolor = <0.0,0.0,0.0>; // set color to black
else
{
if ( data == "up" ) simstatuscolor = <0.0,1.0,0.0>; // set color to green
else if ( data == "down" ) simstatuscolor = <1.0,0.0,0.0>; // set color to red
else if ( data == "starting" || data == "stopping" ) simstatuscolor = <1.0,1.0,0.0>; // set color to yellow
// if (homeregion!="") llOwnerSay(": http://maps.secondlife.com/secondlife/"+(llEscapeURL(homeregion))+" is "+data+"."); // uncomment if you want constant chat notifications
}
if (homeregion=="") simstatuscolor = <0.0,0.0,0.0>;
llSetPrimitiveParams( [ PRIM_COLOR, 4, simstatuscolor, 1.0 ] );
llSetText(homeregion, simstatuscolor, 1.0*(homeregion!="") );
}
default
{
state_entry()
{
llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS);
SimStutusButtonColor("");
}
touch_start(integer n)
{
llResetTime();
}
touch_end(integer n)
{
if(llGetTime()<5.0 && homeregion != "") llRequestSimulatorData(homeregion,DATA_SIM_STATUS);
else
{
llSetTimerEvent(30.0);
llListenRemove(1);
llListen(1, "", llGetOwner(), "");
llDialog(llGetOwner(), "Monitor Sim Status for "+llGetRegionName()+"?", ["Yes","No","Reset"], 1);
}
}
listen(integer channel, string name, key id, string message)
{
if (message!="Yes" && message!="No")
{
if (message=="Reset") llResetScript();
return;
}
else
{
if (message=="No")
{
if (homeregion=="") return;
llSetTimerEvent(0.0);
homeregion="";
}
else homeregion=llGetRegionName();
llRequestSimulatorData(homeregion,DATA_SIM_STATUS);
llSetPrimitiveParams( [ PRIM_NAME, homeregion+" Sim Status" ] );
}
}
timer()
{
llListenRemove(1);
if (homeregion!="") llRequestSimulatorData(homeregion,DATA_SIM_STATUS);
else llSetTimerEvent(0.0);
}
dataserver(key requested, string data)
{
SimStutusButtonColor(data);
}
run_time_permissions(integer perms)
{
llTakeControls((perms && PERMISSION_TAKE_CONTROLS)*CONTROL_BACK, TRUE, TRUE);
}
}
</source>
[[Category:LSL Library]]

LlSetAnimationOverride

2015-01-22T22:05:56Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2=
{{LSL_Function/permission|PERMISSION_OVERRIDE_ANIMATIONS}}
{{LSL_Function/inventory|anim|uuid=false|type=animation}}
|func_id=?|func_sleep=0.0|func_energy=?
|func=llSetAnimationOverride|sort=SetAnimationOverride
|p1_type=string|p1_name=anim_state|p1_desc=animation state to be overriden
|p2_type=string|p2_name=anim|p2_desc= or the name of a [[Internal Animations|built-in animation]]|p2_hover= or the name of a built-in animation
|func_footnote=Note: Animation overrides survive everything, except relog.
|func_desc=Set the animation ({{LSLPT|anim}}) that will play for the given animation state ({{LSLPT|anim_state}}).
|spec
|caveats=*Animation overrides survive script reset, script removal, attachment removal, crossing into another region and teleporting, but not relog.
* State "Sit on Ground" will play the default animation in addition to any override set. This is required for correct viewer behavior.
* Some states are transitional and have undefined behavior if set to continuously looping animations. These states are "PreJumping", "Landing", "Soft Landing" and "Standing Up".
** Usually this means your avatar will become frozen in place unless you run "Stop Animating My Avatar" from the viewer, so avoid using looping animations for these states.
* Permissions aren't auto granted if you sit on an object asking for PERMISSION_OVERRIDE_ANIMATIONS.
* Starting a default animation ("sit" "walk" "fly") with [[llStartAnimation]] will not start the Override Animation.
* When this function is used to override the Walking animation, the avatar can no longer walk backward - attempting to do so causes the avatar to turn around. Presumably this is because there's no way to specify a "walking backwards" animation, so actually moving backwards while your legs are moving forward would look wrong.
|constants={{LSL Animation States}}
|examples=<source lang="lsl2">// Override the Sit, Stand and Walk animations
// 1. place this script and your animations in a prim
// 2. edit the animation names in the script to your animation's names
// 3. attach the prim to your avatar

string gMySit = "chop_sit";
string gMyStand = "FStand _02";
string gMyWalk = "Kort gang F v4.1";

default
{
attach(key id)
{
if ( id ) llRequestPermissions(id , PERMISSION_OVERRIDE_ANIMATIONS);
else if ( llGetPermissions() & PERMISSION_OVERRIDE_ANIMATIONS ) llResetAnimationOverride("ALL");
}
run_time_permissions(integer perms)
{
if ( perms & PERMISSION_OVERRIDE_ANIMATIONS )
{
llSetAnimationOverride( "Sitting", gMySit);
llSetAnimationOverride( "Standing", gMyStand);
llSetAnimationOverride( "Walking", gMyWalk);
}
}
}</source>
|helpers
|also_functions={{LSL DefineRow||[[llGetAnimationOverride]]|}}
{{LSL DefineRow||[[llResetAnimationOverride]]|}}
|also_tests
|also_events
|also_articles={{LSL DefineRow||[[Internal_Animations]]|lists internal Animations always available}}
|notes
|cat1=Animation
|cat2=Animation/Override
|cat3
|cat4
|history = Date of Release [[ Release_Notes/Second_Life_Server/13#13.04.12.273874 | 12/04/2013 ]]
}}

FollowCam

2015-01-22T22:04:58Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

== FollowCam ==

[[FollowCam]] functionality allows [[script|scripts]] to [[control]] the {{LSLGC|Camera|camera}}.

* Scripts on {{LSLGC|Attachment|attachments}} and {{LSLGC|Vehicle|vehicles}} can now control camera behavior through a call to [[llSetCameraParams]](), once they have acquired the [[PERMISSION_CONTROL_CAMERA]] {{LSLGC|Permissions/Script|permission}}
* The script will control the [[user|user's]] camera as long as the resident doesn't override it (use Alt-zoom or enter [[mouselook]], for example) and the [[object]] remains attached or the {{LSLGC|Avatar|avatar}} continues to {{LSLGC|Sit|sit}} on it:
** When multiple scripts attempt to control the camera, the last script to set the [[CAMERA_ACTIVE]] [[bitflags|flag]] will have control
** Older scripts will regain control as soon as the newer one is deactivated
* The new [[FollowCam]] scripts enable a huge variety of vehicle-following behaviors:
* For instance, a loose camera setting allows sudden changes in vehicle acceleration to happen without causing dizzying jolts in the camera
** By turning off the "behindness" feature, the camera will be simply dragged along, but it will not try to stay exactly behind the vehicle
** Other parameters, like pitch (the angle at which it "looks down" at the vehicle), distance, and others, allow you to customize the cinematics of vehicular fun

===[[FollowCam]] family of camera functions===

* [[llRequestPermissions]](agent_key, [[PERMISSION_CONTROL_CAMERA]])
** Requests permissions
*** Note, [[PERMISSION_CONTROL_CAMERA]] permissions are only supported for attachments and vehicles at this time
*** Accepting permissions via a dialog is not currently implemented.

* [[llClearCameraParams]](): Resets all camera values to their default.

* [[llSetCameraParams]]([]): sets up the camera movement rules based on the parameter list
** [[CAMERA_ACTIVE]] ([[TRUE]] or [[FALSE]]) Default = [[FALSE]]
*** Turns on or off scripting control of Scripted Camera
** [[CAMERA_DISTANCE]] (0.5 to ? meters) Default = 3.0
*** Sets how far away the Scripted Camera wants to be from its subject
** [[CAMERA_PITCH]] (-45.0 to 80.0 degrees) Default = 0.0
*** Adjusts the angular amount that the Scripted Camera aims straight ahead vs. straight down, maintaining the same distance. Analogous to 'incidence'
** [[CAMERA_FOCUS_OFFSET]] (<-10,-10,-10> to <10,10,10> meters) Default = <0.0, 0.0, 0.0>
*** Adjusts the position of the Scripted Camera focus position relative to the subject
** [[CAMERA_POSITION_LAG]] (0.0 to 3.0 seconds) Default = 0.1
*** How much the Scripted Camera lags as it tries to move towards its 'ideal' position
** [[CAMERA_FOCUS_LAG]] (0.0 to 3.0 seconds) Default = 0.1
*** How much the Scripted Camera lags as it tries to aim towards the subject
** [[CAMERA_BEHINDNESS_ANGLE]] (0.0 to 180.0 degrees) Default = 10.0
*** Sets the angle in degrees within which the Scripted Camera is not constrained by changes in subject rotation. 180 effectively turns behindness off.
** [[CAMERA_BEHINDNESS_LAG]] (0.0 to 3.0 seconds) Default = 0.0
*** How much the Scripted Camera lags as it tries to stay behind the target if outside of behindness angle
** [[CAMERA_POSITION_THRESHOLD]] (0.0 to 4.0 meters) Default = 1.0
*** Sets the radius of a sphere around the Scripted Camera's ideal position within which it is not affected by subject motion
** [[CAMERA_FOCUS_THRESHOLD]] (0.0 to 4.0 meters) Default = 1.0
*** Sets the radius of a sphere around the Scripted Camera's subject position within which its focus is not affected by subject motion
** [[CAMERA_POSITION]] (vector position within the region)
*** Sets the position of the Scripted Camera
** [[CAMERA_FOCUS]] (vector position within the region)
*** Sets the focus position of the Scripted Camera
** [[CAMERA_POSITION_LOCKED]] ([[TRUE]] or [[FALSE]]) Default = [[FALSE]]
*** Locks the camera position so it will not move
** [[CAMERA_FOCUS_LOCKED]] ([[TRUE]] or [[FALSE]]) Default = [[FALSE]]
*** Locks the camera focus so it will not move

===Known issues===

* The camera appears to jitter back and forth. This is a problem with our avatar motion model that will be worse at lower framerate. We are continuing to investigate potential solutions.
* Free standing objects cannot control the user camera. This will continue to be the case until we can implement a robust mechanism for letting residents cancel scripted camera behaviors.

<source lang="lsl2">//Linden Lab
//Dan Linden
integer CHANNEL; // dialog channel
list MENU_MAIN = ["Default", "Overhead Cam", "Spin Cam", "Trap Toggle", "Spaz Cam", "Drop Cam",
"Worm Cam", "Side Cam", "Driving Cam", "More...", "Cam ON", "Cam OFF"]; // the main menu
list MENU_2 = ["More...", "...Back"]; // menu 2

integer on = FALSE;
integer flying;
integer falling;
integer spaz = 0;
integer trap = 0;

take_camera_control(key agent)
{
llOwnerSay("take_camera_control"); // say function name for debugging
llOwnerSay( (string)agent);
llRequestPermissions(agent, PERMISSION_CONTROL_CAMERA);
llSetCameraParams([CAMERA_ACTIVE, 1]); // 1 is active, 0 is inactive
on = TRUE;
}

release_camera_control(key agent)
{
llOwnerSay("release_camera_control"); // say function name for debugging
llSetCameraParams([CAMERA_ACTIVE, 0]); // 1 is active, 0 is inactive
llReleaseCamera(agent);
on = FALSE;
}

focus_on_me()
{
llOwnerSay("focus_on_me"); // say function name for debugging
// llClearCameraParams(); // reset camera to default
vector here = llGetPos();
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 0.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.0, // (0 to 3) seconds
CAMERA_DISTANCE, 0.0, // ( 0.5 to 10) meters
CAMERA_FOCUS, here, // region relative position
CAMERA_FOCUS_LAG, 0.0 , // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
// CAMERA_PITCH, 80.0, // (-45 to 80) degrees
CAMERA_POSITION, here + <4.0,4.0,4.0>, // region relative position
CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, TRUE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, ZERO_VECTOR // <-10,-10,-10> to <10,10,10> meters
]);
}

default_cam()
{
// llOwnerSay("default_cam"); // say function name for debugging
llClearCameraParams(); // reset camera to default
llSetCameraParams([CAMERA_ACTIVE, 1]);
}

driving_cam()
{
llOwnerSay("driving_cam"); // say function name for debugging
default_cam();
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 45.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.5, // (0 to 3) seconds
CAMERA_DISTANCE, 8.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 0.05 , // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_PITCH, 20.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
CAMERA_POSITION_LAG, 0.1, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <3.0,0.0,2.0> // <-10,-10,-10> to <10,10,10> meters
]);
}

side_cam()
{
llOwnerSay("side_cam"); // say function name for debugging
llClearCameraParams(); // reset camera to default
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 0.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.0, // (0 to 3) seconds
CAMERA_DISTANCE, 0.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 0.0 , // (0 to 3) seconds
// CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
// CAMERA_PITCH, 80.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
// CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <0.0,3.0,0.0> // <-10,-10,-10> to <10,10,10> meters
]);
}

rearview_cam()
{
llOwnerSay("rearview_cam"); // say function name for debugging
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 180.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.0, // (0 to 3) seconds
// CAMERA_DISTANCE, 10.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 3.0 , // (0 to 3) seconds
// CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
// CAMERA_PITCH, 80.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
// CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
// CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <5.0,2.0,-2.0> // <-10,-10,-10> to <10,10,10> meters
]);
}

overhead_cam()
{
llOwnerSay("overhead_cam"); // say function name for debugging
default_cam();
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 180.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.5, // (0 to 3) seconds
CAMERA_DISTANCE, 10.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 0.05 , // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_PITCH, 80.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <0.0,0.0,0.0> // <-10,-10,-10> to <10,10,10> meters
]);
}

drop_camera_5_seconds()
{
llOwnerSay("drop_camera_5_seconds"); // say function name for debugging
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 0.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.5, // (0 to 3) seconds
CAMERA_DISTANCE, 3.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 2.0, // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_PITCH, 0.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
CAMERA_POSITION_LAG, 0.05, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, TRUE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <0.0,0.0,0.0> // <-10,-10,-10> to <10,10,10> meters
]);
llSleep(5);
default_cam();
}

worm_cam()
{
llOwnerSay("worm_cam"); // say function name for debugging
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 180.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.0, // (0 to 3) seconds
CAMERA_DISTANCE, 8.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 0.0 , // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 4.0, // (0 to 4) meters
CAMERA_PITCH, -45.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
CAMERA_POSITION_LAG, 1.0, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 1.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <0.0,0.0,0.0> // <-10,-10,-10> to <10,10,10> meters
]);
}

spaz_cam()
{
llOwnerSay("spaz_cam for 5 seconds"); // say function name for debugging
float i;
for (i=0; i< 50; i+=1)
{
vector xyz = llGetPos() + <llFrand(80.0) - 40, llFrand(80.0) - 40, llFrand(10.0)>;
// llOwnerSay((string)xyz);
vector xyz2 = llGetPos() + <llFrand(80.0) - 40, llFrand(80.0) - 40, llFrand(10.0)>;
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 180.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, llFrand(3.0), // (0 to 3) seconds
CAMERA_DISTANCE, llFrand(10.0), // ( 0.5 to 10) meters
//CAMERA_FOCUS, xyz, // region relative position
CAMERA_FOCUS_LAG, llFrand(3.0), // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, llFrand(4.0), // (0 to 4) meters
CAMERA_PITCH, llFrand(125.0) - 45, // (-45 to 80) degrees
CAMERA_POSITION, xyz2, // region relative position
CAMERA_POSITION_LAG, llFrand(3.0), // (0 to 3) seconds
CAMERA_POSITION_LOCKED, TRUE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, llFrand(4.0), // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <llFrand(20.0) - 10, llFrand(20.0) - 10, llFrand(20) - 10> // <-10,-10,-10> to <10,10,10> meters
]);
llSleep(0.1);
}
default_cam();
}

spin_cam()
{
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 180.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.5, // (0 to 3) seconds
//CAMERA_DISTANCE, 10.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0.0,0.0,5.0>, // region relative position
CAMERA_FOCUS_LAG, 0.05 , // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_PITCH, 30.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0.0,0.0,0.0>, // region relative position
CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <0.0,0.0,0.0> // <-10,-10,-10> to <10,10,10> meters
]);

float i;
vector camera_position;
for (i=0; i< 2*TWO_PI; i+=.05)
{
camera_position = llGetPos() + <0.0, 4.0, 0.0> * llEuler2Rot(<0.0, 0.0, i>);
llSetCameraParams([CAMERA_POSITION, camera_position]);
}
default_cam();
}

setup_listen()
{
llListenRemove(1);
CHANNEL = llRound(llFrand(1) * 100000);
integer x = llListen(CHANNEL, "", "", ""); // listen for dialog answers
}

default
{
state_entry()
{
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);
setup_listen();
llSetTimerEvent(2.0);
}

touch_start(integer total_number)
{
integer perm = llGetPermissions();
if (perm & PERMISSION_DEBIT)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_DEBIT perms for "+(string)llGetPermissionsKey()); }
if (perm & PERMISSION_TAKE_CONTROLS)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_TAKE_CONTROLS perms for "+(string)llGetPermissionsKey()); }
if (perm & PERMISSION_TRIGGER_ANIMATION)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_TRIGGER_ANIMATION perms for "+(string)llGetPermissionsKey()); }
if (perm & PERMISSION_ATTACH)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_ATTACH perms for "+(string)llGetPermissionsKey()); }
if (perm & PERMISSION_CHANGE_LINKS)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_CHANGE_LINKS perms for "+(string)llGetPermissionsKey()); }
if (perm & PERMISSION_TRACK_CAMERA)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_TRACK_CAMERA perms for "+(string)llGetPermissionsKey()); }
if (perm & PERMISSION_CONTROL_CAMERA)
{ llOwnerSay(llGetScriptName() + " has PERMISSION_CONTROL_CAMERA perms for "+(string)llGetPermissionsKey()); }
if (perm == 0)
{ llOwnerSay(llGetScriptName() + " has NO perms for "+(string)llGetPermissionsKey()); }

llDialog(llDetectedKey(0), "What do you want to do?", MENU_MAIN, CHANNEL); // present dialog on click
}

listen(integer channel, string name, key id, string message)
{
if (~llListFindList(MENU_MAIN + MENU_2, [message])) // verify dialog choice
// if (~llListFindList(MENU_MAIN, [message])) // verify dialog choice
{
// llOwnerSay(name + " picked the option '" + message + "'."); // output the answer
if (message == "More...")
llDialog(id, "Pick an option!", MENU_2, CHANNEL); // present submenu on request
else if (message == "...Back")
llDialog(id, "What do you want to do?", MENU_MAIN, CHANNEL); // present main menu on request to go back

else if (message == "Cam ON")
{
take_camera_control(id);
}

else if (message == "Cam OFF")
{
release_camera_control(id);
}

else if (message == "Default")
{
default_cam();
}

else if (message == "Driving Cam")
{
driving_cam();
}

else if (message == "Worm Cam")
{
worm_cam();
}

else if (message == "Overhead Cam")
{
overhead_cam();
}

else if (message == "Spaz Cam")
{
spaz_cam();
}

else if (message == "Side Cam")
{
side_cam();
}

else if (message == "Drop Cam")
{
drop_camera_5_seconds();
}

else if (message == "Trap Toggle")
{
trap = !trap;
if (trap == 1) {
llOwnerSay("trap is on");
}
else {
llOwnerSay("trap is off");
}
}

else if (message == "Spin Cam")
{
spin_cam();
}

} else
llOwnerSay(name + " picked invalid option '" + llToLower(message) + "'."); // not a valid dialog choice
}

run_time_permissions(integer perm) {
if (perm & PERMISSION_CONTROL_CAMERA) {
llSetCameraParams([CAMERA_ACTIVE, 1]); // 1 is active, 0 is inactive
llOwnerSay("Camera permissions have been taken");
}
}

changed(integer change)
{
if (change & CHANGED_LINK)
{
key agent = llAvatarOnSitTarget();
if (agent)
{
setup_listen();
llRequestPermissions(agent, PERMISSION_CONTROL_CAMERA);
}
}
}

attach(key agent)
{
if (agent)
{
setup_listen();
llRequestPermissions(agent, PERMISSION_CONTROL_CAMERA);
}
}

timer()
{
if (trap == 1)
{
focus_on_me();
}
}
}</source>

LlSetBuoyancy

2015-01-22T22:03:25Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Function
|func_id=122
|func_sleep=0.0
|func_energy=10.0
|func=llSetBuoyancy
|p1_type=float|p1_name=buoyancy|p1_desc
|func_desc=Sets the buoyancy of the task or object. Requires [[STATUS_PHYSICS|physics]] to be enabled.
|func_footnote=A '''buoyancy''' value of 0.0 disables the effect<br/>when '''buoyancy''' is < 1.0, the object sinks <br/>when '''buoyancy''' equals 1.0 it floats <br/>when '''buoyancy''' is > 1.0 the object rises
|spec
|caveats=*[[llWind|Wind]] can cause the prim to drift. (server 1.38.4 this appears not to be true)
*Unlike some other characteristics, a buoyancy effect is cancelled if the script that set buoyancy is removed from the prim.
*This function cannot be used to set relative levels of buoyancy in parts of a linked object e.g. to simulate a helium balloon weighted by its string. The most recent call of <code>llSetBuoyancy</code> in any child prim appears to set the global buoyancy level for the object.
*This function eats [[energy]] to keep the object floating. Large objects may not be able to supply enough energy to keep the object floating.
* For better performance, replace by [[llSetPhysicsMaterial]](GRAVITY_MULTIPLIER, gravity, 0.0,0.0,0.0) which doesn't eat energy
<br> For example, replace llSetBuoyancy(1.5) by llSetPhysicsMaterial( GRAVITY_MULTIPLIER, -0.5 ,0.0, 0.0, 0.0 ) to raise an object; replace llSetBuoyancy(1.0) by llSetPhysicsMaterial( GRAVITY_MULTIPLIER, 0.0 ,0.0, 0.0, 0.0 ) to float an object
* When buoyancy is changed, the object briefly continues to be affected by the last value. For example, if buoyancy was set it to 1.5 to raise an object, and whilst moving, buoyancy is changed it to 0.0, the object continues to rise for a moment, because the force is not reversed, only cancelled. With llSetPhysicsMaterial( GRAVITY_MULTIPLIER, -0.5 ,0.0, 0.0, 0.0 ) followed by llSetPhysicsMaterial( GRAVITY_MULTIPLIER, 1.0 ,0.0, 0.0, 0.0 ), the change in movement is immediate, and the object starts to fall at the instant that the second call is done.
|constants .
|examples=Makes an object float up slowly (e.g. a red balloon)<source lang="lsl2">default
{
state_entry()
{
llSetStatus(STATUS_PHYSICS, TRUE);
llSetBuoyancy(1.05);
}
}</source>
|helpers
|also_functions
|also_tests
|also_events
|also_articles
|notes=Often used to make an object appear to be unaffected by gravity.
|cat1=Hover
|cat2=Physics
|cat3=Movement
|cat4
}}

LlSetCameraAtOffset

2015-01-22T22:02:05Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{LSL Function/offset|offset}}
|func_id=244|func_sleep=0.0|func_energy=10.0
|func=llSetCameraAtOffset
|p1_type=vector|p1_name=offset
|func_desc=Sets the point the camera is looking at to {{LSLP|offset}} for avatars that sit on the object.
|func_footnote=This is the point the camera looks at, not the [[llSetCameraEyeOffset|position of the camera's eye]].
|return_text
|spec
|caveats=
* Setting this will not update the cameras of seated avatars, it will only effect avatars that subsequently sit down. The camera settings have to be prepared in advance.
* The {{LSLP|offset}} is [[Viewer_coordinate_frames#Local|locally relative]] to the object, if you want it relative to the seated [[Viewer_coordinate_frames#Agent|avatar]] (which likely has a custom sit rotation and offset) or the [[Viewer_coordinate_frames#Region|region]], you must do the computation yourself.
* [[ZERO_VECTOR]] {{LSLP|offset}} will cancel any offset.
* Camera focus set by this function is a '''Prim Property'''. '''It will survive the script''' and it will survive prim taking and prim rezzing
|constants
|examples=<source lang="lsl2">// Set the seated avatar looking at an arbitrary direction
// Look over the avatar's shoulders from behind once it sits down

back_view(float degrees)
{
rotation sitRot = llAxisAngle2Rot(<0, 0, 1>, degrees * DEG_TO_RAD);

llSitTarget(<0, 0, 0.1>, sitRot);

llSetCameraEyeOffset(<-2, 0, 1> * sitRot);
llSetCameraAtOffset(<2, 0, 1> * sitRot);
}

default
{
state_entry()
{
back_view( 208 );
llSay(0, "Please sit down");
}
}</source>
|helpers
|also_functions=
{{LSL DefineRow||[[llSetLinkCamera]]|}}
{{LSL DefineRow||[[llSetCameraEyeOffset]]|}}
{{LSL DefineRow||[[llForceMouselook]]|}}
{{LSL DefineRow||[[llSetCameraParams]]|}}
|also_events
|also_tests
|also_articles
|notes
|sort=SetCameraAtOffset
|cat1=Camera
|cat2=Sit
|cat3=Vehicle
|cat4=Prim
}}

LlSetCameraEyeOffset

2015-01-22T22:01:24Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{LSL Function/offset|offset}}
|func_id=243|func_sleep=0.0|func_energy=10.0
|func=llSetCameraEyeOffset|p1_type=vector|p1_name=offset
|func_desc=Sets the camera eye {{LSLP|offset}} for avatars that sit on the object.
|func_footnote=This is the position of the camera's eye, not the [[llSetCameraAtOffset|point it looks at]].
|return_text
|spec
|caveats=
* Setting this will not update the cameras of seated avatars, it will only effect avatars that subsequently sit down. The camera settings have to be prepared in advance.
* The {{LSLP|offset}} is [[Viewer_coordinate_frames#Local|locally relative]] to the object, if you want it relative to the seated [[Viewer_coordinate_frames#Agent|avatar]] (which likely has a custom sit rotation and offset) or the [[Viewer_coordinate_frames#Region|region]], you must do the computation yourself.
* [[ZERO_VECTOR]] {{LSLP|offset}} will cancel any eye offset.
* Camera position set by this function is a '''Prim Property'''. '''It will survive the script''' and it will survive prim taking and prim rezzing
|constants
|examples=<source lang="lsl2">// Sit the avatar looking at an arbitrary direction
// Look over the avatar's shoulders from behind once it sits down

back_view(float degrees)
{
rotation sitRot = llAxisAngle2Rot(<0, 0, 1>, degrees * DEG_TO_RAD);

llSitTarget(<0, 0, 0.1>, sitRot);

llSetCameraEyeOffset(<-2, 0, 1> * sitRot);
llSetCameraAtOffset(<2, 0, 1> * sitRot);
}

default
{
state_entry()
{
back_view( 208 );
llSay(0, "Please sit down");
}
}</source>
|helpers
|also_functions=
{{LSL DefineRow||[[llSetLinkCamera]]|}}
{{LSL DefineRow||[[llSetCameraAtOffset]]|}}
{{LSL DefineRow||[[llForceMouselook]]|}}
{{LSL DefineRow||[[llSetCameraParams]]|}}
|also_events
|also_tests
|also_articles
|notes
|cat1=Camera
|cat2=Sit
|cat3=Vehicle
|cat4=Prim
|cat5
|cat6
|cat7
|cat8
}}

LlSetCameraParams

2015-01-22T22:00:32Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{Issues/SCR-325}}{{Issues/SCR-326}}{{Issues/SCR-327}}{{LSL_Function/permission|PERMISSION_CONTROL_CAMERA}}
|func_id=313|func_sleep=0.0|func_energy=10.0
|func=llSetCameraParams
|p1_type=list|p1_subtype=instructions|p1_name=rules|p1_desc=Format is [ rule1, data1, rule2, data2 . . . rulen, datan ]
|func_footnote
|func_desc=Sets multiple camera parameters at once.
|return_text
|spec
|caveats=*Camera control currently (server 1.38) only supported for attachments and objects on which you are sitting. An attempt otherwise will result in an error being shouted on [[DEBUG_CHANNEL]].
*Scripted camera parameters will not set for the agent if the last controls they used were their camera controls. Manual camera control will override set parameters too.
|examples=

You can either set the camera in region relative coordinates or you can make the camera follow your avatar.

'''Region relative coordinates, an example:'''

<source lang="lsl2">lookAtMe( integer perms )
{
if ( perms & PERMISSION_CONTROL_CAMERA )
{
vector camPos = llGetPos() + (relCamP * llGetRot() * turnOnChair) ;
vector camFocus = llGetPos() ;
llClearCameraParams(); // reset camera to default
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_FOCUS, camFocus, // region relative position
CAMERA_FOCUS_LOCKED, TRUE, // (TRUE or FALSE)
CAMERA_POSITION, camPos, // region relative position
CAMERA_POSITION_LOCKED, TRUE // (TRUE or FALSE)
]);
}
}</source>
Note that Focus and Position are both locked. This first example makes the camera look at ''camFocus'' from ''camPos''.

'''Camera follow avatar, an example:'''

<source lang="lsl2">lookAtMe( integer perms )
{
if ( perms & PERMISSION_CONTROL_CAMERA )
{
llClearCameraParams(); // reset camera to default
llSetCameraParams([
CAMERA_ACTIVE, 1, // 1 is active, 0 is inactive
CAMERA_BEHINDNESS_ANGLE, 30.0, // (0 to 180) degrees
CAMERA_BEHINDNESS_LAG, 0.0, // (0 to 3) seconds
CAMERA_DISTANCE, 10.0, // ( 0.5 to 10) meters
//CAMERA_FOCUS, <0,0,5>, // region relative position
CAMERA_FOCUS_LAG, 0.05 , // (0 to 3) seconds
CAMERA_FOCUS_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_FOCUS_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_PITCH, 10.0, // (-45 to 80) degrees
//CAMERA_POSITION, <0,0,0>, // region relative position
CAMERA_POSITION_LAG, 0.0, // (0 to 3) seconds
CAMERA_POSITION_LOCKED, FALSE, // (TRUE or FALSE)
CAMERA_POSITION_THRESHOLD, 0.0, // (0 to 4) meters
CAMERA_FOCUS_OFFSET, <2.0, 0.0, 0.0> // <-10,-10,-10> to <10,10,10> meters
]);
}
}
</source>
Note that in this second example Focus and Position are NOT locked and not even set. This is appropriate for making the camera follow a pilot on a vehicle.
|helpers
|also_functions=
{{LSL DefineRow||[[llClearCameraParams]]}}
{{LSL DefineRow||[[llGetCameraPos]]}}
{{LSL DefineRow||[[llGetCameraRot]]}}
|also_events
|also_tests=
{{LSL DefineRow||[[llSetCameraParams Test]]}}
|also_articles=
{{LSL DefineRow||[[FollowCam]]}}
|notes
|cat1=Camera
|cat2
|cat3
|cat4
|constants={{{!}} class="sortable" {{Prettytable|style=margin-top:0;}}
{{!}}- {{Hl2}}
! Rule
!
! Parameter
!class="unsortable"{{!}} Default
!class="unsortable"{{!}} Value Range
!class="unsortable"{{!}} Description
{{!}}-
{{!}} {{LSL Const|CAMERA_ACTIVE|integer|12}}
{{!}} {{#var:cvalue}}  
{{!}} [[integer]] isActive
{{!}} {{LSL Const|FALSE|integer|0}}
{{!}} {{LSL Const|TRUE|integer|1}} or {{LSL Const|FALSE|integer|0}}
{{!}} Turns on or off [[script|scripted]] control of the camera.
{{!}}-
{{!}} {{LSL Const|CAMERA_BEHINDNESS_ANGLE|integer|8}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] degrees
{{!}} 10.0
{{!}} 0 to 180
{{!}} Sets the angle in degrees within which the camera is not constrained by changes in target rotation.
{{!}}-
{{!}} {{LSL Const|CAMERA_BEHINDNESS_LAG|integer|9}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] seconds
{{!}} 0.0
{{!}} 0 to 3
{{!}} Sets how strongly the camera is forced to stay behind the target if outside of behindness angle.
{{!}}-
{{!}} {{LSL Const|CAMERA_DISTANCE|integer|7}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] meters
{{!}} 3.0
{{!}} 0.5 to 50
{{!}} Sets how far away the camera wants to be from its target.
{{!}}-
{{!}} {{LSL Const|CAMERA_FOCUS|integer|17}}
{{!}} {{#var:cvalue}}
{{!}} [[vector]] position
{{!}} n/a
{{!}} n/a
{{!}} Sets camera focus (target position) in [[Viewer coordinate frames#Region|region coordinates]].
{{!}}-
{{!}} {{LSL Const|CAMERA_FOCUS_LAG|integer|6}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] seconds
{{!}} 0.1
{{!}} 0 to 3
{{!}} How much the camera lags as it tries to aim towards the target.
{{!}}-
{{!}} {{LSL Const|CAMERA_FOCUS_LOCKED|integer|22}}
{{!}} {{#var:cvalue}}
{{!}} [[integer]] isLocked
{{!}} {{LSL Const|FALSE|integer|0}}
{{!}} {{LSL Const|TRUE|integer|1}} or {{LSL Const|FALSE|integer|0}}
{{!}} Locks the camera focus so it will not move.
{{!}}-
{{!}} {{LSL Const|CAMERA_FOCUS_OFFSET|integer|1}}
{{!}} {{#var:cvalue}}
{{!}} [[vector]] [[meter|meters]]
{{!}} <0.0,0.0,0.0>
{{!}} <-10,-10,-10> to <10,10,10>
{{!}} Adjusts the camera focus [[position]] relative to the target.
{{!}}-
{{!}} {{LSL Const|CAMERA_FOCUS_THRESHOLD|integer|11}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] meters
{{!}} 1.0
{{!}} 0 to 4
{{!}} Sets the radius of a sphere around the camera's target position within which its focus is not affected by target motion.
{{!}}-
{{!}} {{LSL Const|CAMERA_PITCH|integer|0}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] degrees
{{!}} 0.0
{{!}} -45 to 80
{{!}} Adjusts the angular amount that the camera aims straight ahead vs. straight down, maintaining the same distance; analogous to 'incidence'."
{{!}}-
{{!}} {{LSL Const|CAMERA_POSITION|integer|13}}
{{!}} {{#var:cvalue}}
{{!}} [[vector]] position
{{!}} n/a
{{!}} n/a
{{!}} Sets camera position in [[Viewer coordinate frames#Region|region coordinates]].
{{!}}-
{{!}} {{LSL Const|CAMERA_POSITION_LAG|integer|5}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] seconds
{{!}} 0.1
{{!}} 0 to 3
{{!}} How much the camera lags as it tries to move towards its 'ideal' position.
{{!}}-
{{!}} {{LSL Const|CAMERA_POSITION_LOCKED|integer|21}}
{{!}} {{#var:cvalue}}
{{!}} [[integer]] isLocked
{{!}} {{LSL Const|FALSE|integer|0}}
{{!}} {{LSL Const|TRUE|integer|1}} or {{LSL Const|FALSE|integer|0}}
{{!}} Locks the camera position so it will not move.
{{!}}-
{{!}} {{LSL Const|CAMERA_POSITION_THRESHOLD|integer|10}}
{{!}} {{#var:cvalue}}
{{!}} [[float]] meters
{{!}} 1.0
{{!}} 0 to 4
{{!}} Sets the radius of a sphere around the camera's ideal position within which it is not affected by target motion.
{{!}}}
|}}

User:Void Singer/Teacup

2015-01-22T21:57:34Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">, also for <javascript>

<div style="float:right;">__TOC__</div>
{{void-box
|title=[[User:Void_Singer|Return to Void Singers user page]]
}}

{{void-box
|title=Teacup
|content=
=== [[File:Teacup.png|frameless|left|256px|alt=Teacup/Saucer]]What is it? ===
----
Teacup is an open source webserver front end for LSL's HTTP-in + {{HoverText|MOAP|Media On A Prim}} functionality. It builds on the work of several other people including but not limited to, [[User:Kelly_Linden|Kelly Linden]], [[User:Torley_Linden|Torley Linden]], [[User:Tali_Rosca|Tali Rosca]], [[User:Vegas_Silverweb|Vegas Silverweb]], and special mentions to [[User:Kate_Linden|Kate]] and/or [[User:Edelman_Linden|Edelman]] Linden. The idea is to make it easy to serve web content from within SL, with a minimum of work or understanding, in the most standards compliant and flexible way possible.

=== How does it work? ===
----
Externally, when Teacup starts, it gets a URL and creates a Micro HTML page, which it bootstraps onto the prim face with a "data:" URN. Once loaded, that page requests a JavaScript library, which loads normally. Once loaded, the library bootstraps the specially prepared {{HoverText|".tsp"|Teacup Server Page}} HTML content onto the current page, and captures all links targeting other {{HoverText|".tsp"|Teacup Server Page}} files, so that it can do the same when they are requested. Internally the server broadcasts a message when it gets a page request, and any installed File Service scripts can reply with content, or the server will simply report back that it doesn't have the file requested if it doesn't receive a reply in a set time.

=== Why all the tea jokes? ===
----
Well I happen to like steam punk stuff, and it has a sort of pseudo-Victorian-era feel to it, but in all truth it was sparked by a bit of geek humor. There was an old [http://en.wikipedia.org/wiki/April_Fools%27_Day_RFC april fool's joke] passed around as an [http://tools.ietf.org/html/rfc2324 official sounding memo] about creating a protocol for [http://en.wikipedia.org/wiki/Hyper_Text_Coffee_Pot_Control_Protocol controlling coffee pots with HTTP] (back before they actually started making net enabled appliances) and part of that proposal was that teapots should return an error response '''418 "I'm a teapot"''' if you tried to make it brew coffee... since these servers are small, and 418 is safe to use internally because it wouldn't normally be encountered, I figured hey, Teapot --> Teacup --> Victorian Imagery --> Steam Punk --> teacup that is it's own teapot --> {{HoverText|SIP|Server In a Prim}} --> many different types of tea --> Success!

... And thus was born the [[Server_In_a_Prim|SIP]], [[User:Void_Singer/Teacup|Teacup]] server, and [[User:Void_Singer/Red_Tea|Red Tea]] File Service<br>(developers are encouraged to keep the theme, but it's not a requirement)
:[[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]
}}

{{void-box
|title=Quick Start
|content=
So you don't want to read a bunch of tech babble, you just want to make a website in a prim right? Well I can sympathize so here are some (mostly) easy steps to get you up and running fast...
# Follow the instructions on [[User:Void_Singer/Red_Tea|This Page]] or choose a File Service from the [[User:Void_Singer/Teacup#Compatible_File_Services_and_Extensions|Compatible File Services and Extensions]] and follow those instructions.
# Optional: Copy the text in the grey box below [[User:Void_Singer/Region_Stats#Region_Stats|Code: Region Stats]] into a script named "Region Stats", save it, and drop it into your rezzed box.
# Optional: Copy the text in the grey box below [[User:Void_Singer/Saucer#Saucer|Code: Saucer]] into a script named "Saucer", save it, and drop it in your rezzed box.
# Optional: Copy the text in the grey box below [[User:Void_Singer/Tea_Strainer#Tea_Strainer|Code: Tea Strainer]] into a script named "Tea_Strainer", save it, and drop it in your rezzed box.
# Copy the text in the grey box below [[User:Void_Singer/Teacup#Teacup|Code: Teacup]] into a script named "Teacup v0.5", save it, and drop it in your rezzed box.
# Click on the top of your box if your webpage isn't already showing.
#* At this point you may want to rotate and/or resize your box.
#* If you like, you have my express permission to download (right click, "save as") and edit (with whichever image editor you prefer) the [[:File:Teacup.png|Teacup.png]] file to use as the default texture of your website prim.
# Show it off to your friends with {{HoverText|MOAP|Media On A Prim}} enabled viewers.

If you run into any problems, simply start a thread with the problem you are having [http://community.secondlife.com/t5/LSL-Scripting/bd-p/LSLScripting here], and I or some other technical wizard will assist you.
:[[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]
}}

{{void-box
|title=Code
|content=
=== Teacup ===
----
* Save in a [[Mono#How_to_use_Mono|MONO]] script named '''"Teacup v0.5"'''
<source lang="lsl2">/*( Teacup Server v0.5 )*/

/*//-- Teacup Boot Strap Variables --//*/
//-- Server Default page start (always loads)
string gStrTBS1xx = "data:text/html;charset:utf-8,<html>\n";
//-- Head Section start: loads with URL_REQUEST_GRANTED
string gStrTBS1a1 = " <head>\n <base href='";
//-- Head Section end & Address intsertion point: loads with URL_REQUEST_GRANTED
string gStrTBS1a2 = "'/>\n <script type='text/javascript' defer='' src='teacup.js'></script>\n </head>\n";
//-- Server Default message (always loads)
string gStrTBS2xx = " <body>\n <h1>Teacup Server</h1>\n <hr/>\n <h2>If you are reading this, the <em>server</em> is working</h2>\n";
//-- Default Error message: loads with URL_REQUEST_GRANTED
string gStrTBS2a1 = " <h3>(But the File Service may not be)</h3>\n";
//-- URL Failure MessageL included for URL_REQUEST_DENIED
string gStrTBS2b1 = " <h3>(But the region failed to provide a URL)</h3>\n";
//-- Server Default Footer start (always loads)
string gStrTBS3xx = " <hr/>\n <p>Teacup/Saucer v0.3<br/><a href='secondlife:///app/agent/";
//-- Server Default Footer end & Contact Owner key insertion point (always loads)
string gStrTBS4xx = "/about'>Contact Owner?</a></p>\n </body>\n</html>";

/*//-- Pending Request Variables --//*/
list gLstPndKey; //-- Key queue (pages waiting to be served)
list gLstPndTim; //-- Timeout Value queue (Request Timeout)
//-- These (hopefully) prevent multiple responses if SL sends a timeout.

default{
state_entry(){ //-- Request URL on start up
llRequestURL();
}

on_rez( integer vIntBgn ){ //-- Clear pending and request new URL on rez
gLstPndKey = gLstPndTim = [];
llRequestURL();
}

changed( integer vBitChg ){ //-- Clear pending and re-request URL on region change/restart
if ((CHANGED_REGION_START | CHANGED_REGION) & vBitChg){
gLstPndKey = gLstPndTim = []; //-- Consider sending custom 404's or 205's here instead
llRequestURL();
}
}

http_request( key vKeySrc, string vStrMth, string vStrBdy ){
integer vIntMth = llListFindList( [URL_REQUEST_DENIED, URL_REQUEST_GRANTED, "POST", "GET"], [vStrMth] );
if (4 & vIntMth){
//-- trap unused here, check we hasve a valid non root file name on the next line
}else if (2 & vIntMth){ if (vStrMth = llUnescapeURL( llDeleteSubString( llGetHTTPHeader( vKeySrc, "x-path-info" ), 0, 0 ) )){
llMessageLinked( LINK_SET,
418,
vStrMth + "?" + llGetHTTPHeader( vKeySrc, "x-query-string" ) +
"#ip=" + llGetHTTPHeader( vKeySrc, "x-remote-ip" ) + "&" + vStrBdy,
vKeySrc );
if (gLstPndTim == []){
llSetTimerEvent( 3.0 );
}
gLstPndKey += [vKeySrc];
gLstPndTim += [llGetUnixTime() + 20];
}//-- can handle root requests here later if we want
}else{ //-- URL request response: set hover text, push proper page format to prim face
if (vIntMth || llList2String( llGetPrimitiveParams( [PRIM_TEXT] ), 0 ) != "No URL"){
llSetPrimitiveParams( [PRIM_TEXT, llList2String( ["No URL", (vStrBdy += "/")], vIntMth ), <(float)(!vIntMth), 0.5, 0.5>, 0.0] );
vStrBdy = gStrTBS1xx + llList2String( ["", gStrTBS1a1 + vStrBdy + gStrTBS1a2], vIntMth ) + gStrTBS2xx +
llList2String( [gStrTBS2a1, gStrTBS2a1], vIntMth ) + gStrTBS3xx + (string)llGetOwner() + gStrTBS4xx;
llSetPrimMediaParams( 0, [PRIM_MEDIA_HOME_URL, vStrBdy, PRIM_MEDIA_CURRENT_URL, vStrBdy] );
llMessageLinked( LINK_SET, 418, "Teacup URL changed", NULL_KEY );
} //-- Next Line: abuse Sensor Repeat to retry on no URL in 5 mins
llSensorRepeat( "", llGetKey(), AGENT, 0.0001 * !vIntMth, PI, 300.0 * !vIntMth );
}
}

link_message( integer vIntSrc, integer vIntDta, string vStrDta, key vKeyDta ){
if (~vIntSrc = llListFindList( [200, 201, 202, 204, 403, 404], [vIntDta] )){ //-- valid return code?
if (~vIntSrc = llListFindList( gLstPndKey, [vKeyDta] )){ //-- request still pending?
llHTTPResponse( vKeyDta, vIntDta, vStrDta ); //-- Serve request & remove from pending queue
gLstPndKey = llDeleteSubList( gLstPndKey, vIntSrc, vIntSrc );
gLstPndTim = llDeleteSubList( gLstPndTim, vIntSrc, vIntSrc );
}
}
}

timer(){ //-- Optimally, runs once on an empty list for 3sec worth requests
if (gLstPndTim != []){ //-- Pending requests?
while (llList2Integer( gLstPndTim, 0 ) < llGetUnixTime()){ //-- are any expired?
gLstPndTim = llDeleteSubList( gLstPndTim, 0, 0 ); //-- remove expired
gLstPndKey = llDeleteSubList( gLstPndKey, 0, 0 );
if (gLstPndTim == []){ //-- Pending Queue empty?
llSetTimerEvent( 0.0 ); //-- Stop timer, and exit
return;
}
}
}else{ //-- No pending requests, turn off the timer
llSetTimerEvent( 0.0 );
}
}

sensor( integer vIntNul ){
//-- Dummy Sensor event required by SCR-53
}

no_sensor(){ //-- URL re-request 5 mins after failure
llSensorRemove();
llRequestURL();
}
}
/*//-- License Text --//*/
/*// Free to copy, use, modify, distribute, or sell, with attribution. //*/
/*// (C)2011 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ] //*/
/*// Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ] //*/
/*// All usages must contain a plain text copy of the previous 2 lines. //*/
/*//-- --//*/</source>
^ [[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]

=== teacup.js ===
----
* [[User:Void_Singer/Red_Tea|Red Tea]] expects this file saved in a notecard named "'''teacup.js'''"
* Other File systems may have different expectations for loading plain text files; Consult their documentation for details.
<source lang="javascript">/* teacup.js v0.5 
(C)2011 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ]
Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ] */</source>
'''NOTE''': I recommend removing all the comments to make the file smaller (anything starting with '''//--''' to the end of the line)
:[[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]
}}

{{void-box
|title=Protocols
|content=
This section is not required reading for users, it is really only of use to scripters looking understand or extend it.
=== Server Protocols ===
----
==== Outgoing Messages ====
----
The server has only two outgoing message formats. The first is general advertisement, and can be used by any File Service or extension to advertise information about itself.
<source lang="lsl2">llMessageLinked( LINK_SET, TEACUP_MESSAGE, "Message", NULL_KEY );</source>
Where "Message" is anything the script wants to advertise
The server only sends one such message "'''Teacup URL Changed'''", and ignores messages sent by other scripts using this format.
:When this message is sent, The current Address of the Server is placed in the prims hover text, other scripts may use the following to retrieve it<source lang="lsl2">string vStrAddress = llList2String( llGetLinkPrimitiveParams( SERVER_LINK_NUMBER, [PRIM_TEXT] ), 0 );</source>
::The text will either be the servers URL, the text "'''No URL'''".

The second Outgoing Message is a file request and has the format
<source lang="lsl2">llMessageLinked( LINK_SET, TEACUP_MESSAGE, REQUEST_PAGE, REQUEST_KEY );</source>
* TEACUP_MESSAGE: '''418'''
* REQUEST_PAGE: the format is <nowiki>"<page name>?<search string>#ip=<decimal IP Address>&<post data>]</nowiki>
** Ex: "'''index.tsp?#ip=127.0.0.1&'''" ''<-- file has no search string or post data''
** the page name can be parsed with<source lang="lsl2">string vStrPageName = llList2String( llParseStringKeepNulls( REQUEST_PAGE, [], ["?","#"] ), 0 );</source>
* REQUEST_KEY: the return key for the requested data.
valid Server Requests can be detected by checking that REQUEST_KEY is a valid key, and that TEACUP_MESSAGE is 418.

==== Incoming Messages ====
----
The server expects it will receive a return message in the following format for any file request made...
<source lang="lsl2">llMessageLinked( REQUEST_SOURCE, RESPONSE_CODE, FILE_TEXT, REQUEST_KEY ); //-- sent from the File Service</source>
* REQUEST_SOURCE: The link number of the Teacup server that sent the request
* RESPONSE_CODE: the following standard HTTP Response codes are currently recognized
** '''100''' "Continue": The server ignores this, make sure you send a normal response code as a follow up (see [[Saucer]] for details)
** '''200''' "Success": Basic "yes we have it, here you go". anything that returns data can return this
** '''201''' "Created": File was created for this request. probably best if the file was created for the request
** '''202''' "Accepted": Request acknowledged/received (content optional) probably best for commands that generate in world actions
** '''204''' "No Content": We got the request/data, but don't need to return anything. probably best for form data, FILE_TEXT should be blank.
** '''403''' "Forbidden": We got the request, but aren't allowed to serve it. Expansion space for per user access (unused as of this writing).
** '''404''' "Not Found": The file does not exist. Avoid using this unless you are reasonably sure the file isn't being served from another script.
* FILE_TEXT: text of the file that was requested.
* REQUEST_KEY: server request key for this file.
: Any return should be done within 20 seconds or it's results will be ignored (Mostly an LSL limitation)

==== Special Ranges and limitations ====
----
:To promote predictable data flows within a scripted object, The following are "Official" limits for scripts to be included as compatible resources
# The '''0xx''' Range is off limits and may not be used (for compatibility with scripts that may use low numbers)
# All normal [http://en.wikipedia.org/wiki/List_of_HTTP_status_codes HTTP Response codes] and ranges ('''1xx-5xx''') are reserved... do not use them unless they make sense or the server can actually send them properly.
# the Range of 6xx codes is reserved for use by File System scripts, limited to no more than 10 per range per script and will be registered by request, first (working script) come, first served. if you reasonably need more than 10, use the 8xx-9xx range
#* the following '''6xx''' codes are are registered at this time
#** [[Saucer]]
#*** '''600''' "File Removed" (sent with a file name and NULL_KEY)
#*** '''601''' "File Added" (sent with a file name and NULL_KEY)
# '''7xx''' codes are reserved for future expansion
# '''8xx-9xx''' are unregulated, use at your own risk
# All Codes must be below 1000 (this is to guarantee safe data transfer for other unrelated scripts)
:To Promote Maximum Stability and Flexibility
# Any Script that resides in the server prim should expect link messages of up to 40KiB
#* File Service Scripts should attempt to send files 30KiB or smaller
# File Service Scripts should not broadcast any link message larger than 4KiB using [[LINK_THIS]]
#* Responses to requests should be targeted to the Server prim that requested the data for larger data sizes (optimally for ALL responses)
# Scripts residing outside of the server prim should expect link messages with up to 4KiB of data (the max the server is able to request with normally)
# {{HoverText|".tsp"|Teacup Server Page}} pages with inline scripts should avoid using the following variable/function names
#* v0, v1, v2, v3 - v9 (these variables are used to: wrap the page for transport, serve as a loading container for pages, handle timeout messages for non-loading pages, and the rest being reserved for future support)
#* u0, u1, u2, u3 - u9 (these functions handle: watching for {{HoverText|".tsp"|Teacup Server Page}} links to intercept, setting up the container for new {{HoverText|".tsp"|Teacup Server Page}} requests, loading the {{HoverText|".tsp"|Teacup Server Page}} files, and the rest being reserved for future support)
#** you can request a new page from javascript by calling '''u1('PageName.tsp');''', however you may want to include some random info in the search string if refreshing the same page
^ [[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]

=== Teacup Server Page (".tsp") Format ===
----
Teacup serves a modified html page called a Teacup Server Page (".tsp"), to overcome limitations in the LSL HTTP-in behavior.
: if a requested filename ends with {{HoverText|".tsp"|Teacup Server Page}} it needs to conform to a specific format that is similar but not identical to the contents of a normal html webpage. To convert an html page into a tsp page, the follow actions must take place (an example of all of them may be found in the [[User:Void_Singer/Red Tea|Red Tea]] File Service)
* The file name should end with {{HoverText|".tsp"|Teacup Server Page}}
* The contents are limited to what's valid ''inside'' a normal html "body" tag.
* It also requires the following minor changes, made in order:
*# all backslash characters must be converted to double backslashes (may be applied on a line by line basis)
*#* eg:<div style="font-family:monospace;font-size:12px;background-color:#EEE;"> file_string <span style="color: rgb(102, 204, 102);">=</span> [[llDumpList2String|<span style="color: rgb(160, 0, 0); font-weight: bold; text-decoration: none;">llDumpList2String</span>]]<span style="color: rgb(102, 204, 102);">(</span> [[llParseStringKeepNulls|<span style="color: rgb(160, 0, 0); font-weight: bold; text-decoration: none;">llParseStringKeepNulls</span>]]<span style="color: rgb(102, 204, 102);">(</span> file_string, <span style="color: rgb(102, 204, 102);">[<span style="color: rgb(0, 160, 0);">"\\"</span>]</span>, <span style="color: rgb(102, 204, 102);">[] )</span>, <span style="color: rgb(0, 160, 0);">"\\\\"</span> <span style="color: rgb(102, 204, 102);">)</span>;</div>
*# all single quote characters must be prefixed with a literal backslash (may be applied on a line by line basis)
*#* eg:<div style="font-family:monospace;font-size:12px;background-color:#EEE;"> file_string <span style="color: rgb(102, 204, 102);">=</span> [[llDumpList2String|<span style="color: rgb(160, 0, 0); font-weight: bold; text-decoration: none;">llDumpList2String</span>]]<span style="color: rgb(102, 204, 102);">(</span> [[llParseStringKeepNulls|<span style="color: rgb(160, 0, 0); font-weight: bold; text-decoration: none;">llParseStringKeepNulls</span>]]<span style="color: rgb(102, 204, 102);">(</span> file_string, <span style="color: rgb(102, 204, 102);">[<span style="color: rgb(0, 160, 0);">"'"</span>]</span>, <span style="color: rgb(102, 204, 102);">[] )</span>, <span style="color: rgb(0, 160, 0);">"\\'"</span> <span style="color: rgb(102, 204, 102);">)</span>;</div>
*# all line breaks should be converted to "'''\n'''" literals (may be applied on a line by line basis)
*#* eg:<div style="font-family:monospace;font-size:12px;background-color:#EEE;"> file_string <span style="color: rgb(102, 204, 102);">=</span> [[llDumpList2String|<span style="color: rgb(160, 0, 0); font-weight: bold; text-decoration: none;">llDumpList2String</span>]]<span style="color: rgb(102, 204, 102);">(</span> [[llParseStringKeepNulls|<span style="color: rgb(160, 0, 0); font-weight: bold; text-decoration: none;">llParseStringKeepNulls</span>]]<span style="color: rgb(102, 204, 102);">(</span> file_string, <span style="color: rgb(102, 204, 102);">[<span style="color: rgb(0, 160, 0);">"\n"</span>]</span>, <span style="color: rgb(102, 204, 102);">[] )</span>, <span style="color: rgb(0, 160, 0);">"\\n"</span> <span style="color: rgb(102, 204, 102);">)</span>;</div>
*# The page should be prefixed with "'''<nowiki>v0='</nowiki>''''" and suffixed with "'''<nowiki>';</nowiki>'''" (applies only to the whole page)
*#* eg:<div style="font-family:monospace;font-size:12px;background-color:#EEE;"> file_string <span style="color: rgb(102, 204, 102);">=</span> <span style="color: rgb(0, 160, 0);">"v0='"</span> <span style="color: rgb(102, 204, 102);">+</span> file_string <span style="color: rgb(102, 204, 102);">+</span> <span style="color: rgb(0, 160, 0);">"';"</span>;</div>
:[[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]
}}

{{void-box
|title=Notes
|content=
=== Compatible File Systems and Extensions ===
----
* [[User:Void_Singer/Red_Tea|Red Tea]] - A very simple [[Server_In_a_Prim|SIP]] back end File Service for a starting point.
* [[User:Void_Singer/Region_Stats|Region Stats]] - A single page Extension that gets live data from the region and refreshes every minute
* [[User:Void_Singer/Saucer|Saucer]] - Optional Fast 404 Extension for preventing long timeouts for missing/bad pages
* [[User:Void_Singer/Tea_Strainer|Tea Strainer]] - Optional Troubleshooting Monitor for checking messages being sent and received.
* [[User:Void_Singer/To_Go_Cup|To Go Cup]] - Experimental Loader for Internal Browsers on v1x viewers (v1.23, Snowglobe, Cool, Phoenix, Imprudence, Ascent, Singularity, and others without {{HoverText|MOAP|Media On A Prim}} support)

=== Known Bugs ===
----
* inline style ''elements'' are not evaluated at load time (inline ''attributes'' should work normally)
** using JavaScript to write these is a viable workaround at the moment
* document/body onload events are not triggered for page loads
** images have their own events, and can be used to trigger page load JavaScript
** may not support this now that inline scripts work, but it's still under consideration
* Fails to load directly to external browsers ([http://jira.secondlife.com/browse/VWR-25555 VWR-25555])
** v2 internal browsers will only load it from the shared media bar "Load URL in browser" button ([http://jira.secondlife.com/browse/VWR-25554 VWR-25554])
*** Workaround for v2 is to load it via the shared media button, to the internal browser, then cut and paste into an external browser (should work with everything but IE)
* POST from forms is wonky, it forces a page load, which we can only serve text to.
** There isn't any way via JavaScript to intecept form POST data, nor a way to call it from the container we use
** It may be possible to rework the server to use Frames and detect plain text loads of pages... will look into this.
* normal onLoad event for the pages scripts are unsupported
** unfortunately the webkit browser is stupid and doesn't obey async/defer script attributes so we have to use onload for the main page
** fortunately, scripts will get refreshed in page order, so just calling the code is a viable alternative

=== Requested Feature Upgrades ===
----
* see about faking support for defer/async behavior in the tsp inline script tags
** this will require supporting page onLoad events
* Find a simple way to serve base64 encoded content such as images or sounds.
** '''NEED ASSISTANCE''': I can (probably) do it the same way we load pages, but this makes it hard for page writers.
** considering a double-tap method where the server js library parses img tags for failures and bootstraps them with a modified name
** may be able to partially support this via css, but it's ugly for page writers =(

=== Change Log / Old Versions ===
----
Most Recent Changes are at the top, old version links below.
* Code will be considered stable when it reaches 1.0
* [[User:Void_Singer/Teacup|Teacup v0.5]]
** Added support for inline script elements for .tsp files
** Added IP Address to File Service Requests, to work towards authentication
** Tweaked the teacup.js to run a bit faster, and condensed it to take a little less space.
** Added Page Titles (matches the file name minus the {{HoverText|".tsp"|Teacup Server Page}} extension (only visible in external browsers)
** Removed default CSS, this should be loadable per page now by JavaScript if nothing else.
* [http://wiki.secondlife.com/w/index.php?title=User:Void_Singer/Teacup&oldid=1141627 Teacup v0.3.1]
** Reabsorbed the bootstrap html page into this script and limited it's size for compatibility due to feedback
** Moved Saucer to it's own page, as an option resource
** Removed dead touch code due to incompatibility with llLoadURL ([http://jira.secondlife.com/browse/VWR-25554 VWR-25554] and [http://jira.secondlife.com/browse/VWR-25555 VWR-25555])
** Added handling for POST data. Page request format should be stable now.
* [http://wiki.secondlife.com/w/index.php?title=User:Void_Singer/Teacup&oldid=1141137 Teacup/Saucer v0.3]
** Server Test Page moved to saucer file availability handler
** Server JavaScript page loader library (Teacup.js) moved to File Service System
*** Users should have less trouble editing the file now and can include their own functions in the same file
** Sitewide CSS supported via "teacup.css"
** Saucer Script now handles page availability for quick 404 returns to speed page loading.
** Site Title is pulled from the object name
** Site address is discoverable by object scripts in the (hidden) prim hovertext
** Server now runs from any prim, not just the root.
* [http://wiki.secondlife.com/w/index.php?title=User:Void_Singer/Teacup&oldid=1140984 Teacup v0.2]
** Initial Public Release

=== NOTE TO WIKI EDITORS ===
----
I have kept this page as a sub page of my user page to denote that it should NOT be edited except to correct errors, add confirmed bugs, or add related resources.<br>
The intent is to ensure executive control is in one person's hands to retain a cohesive vision of it's development.<br>
If you have an improvement suggestion, or request, please use the [https://wiki.secondlife.com/w/index.php?title=User_talk:Void_Singer/Teacup&action=edit&section=new discussion] page.
:[[User:Void Singer/Teacup#Return_to_Void_Singers_user_page|Return to top]]
}}

{{void-box
|title=Questions or Comments?
|content=
Feel free to leave me a note on the [https://wiki.secondlife.com/w/index.php?title=User_talk:Void_Singer/Teacup&action=edit&section=new discussion] page.
}}

HTML HUD Demo

2015-01-22T21:49:40Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

<span id="top"></span>

=TODO:=

* Suggest a <code>Stop All Animations</code> button be added to Animations selection frame for convenience.

=HTML HUD Demo:=

== Screenshot: ==

[[File:HTML HUD Demo.jpg|200px|thumb|top|screenshots]]

==Tip:==

{{KBtip|This HUD might take a second or two to load when switching from 'closed' to 'open' mode.}}

==Source code:==

<source lang="lsl2">
// HTML-based, single script HUD
//
// original by Kelly Linden
//
// To use:
// - create a default prim (cube)
// - wear it as a HUD on top_left (script needs tweaking for other attachment points)
// - edit the cube while wearing
// - add animations you want to use
// - add notecards and objects you want to hand out
// - add this script
//
// License:
// This script itself is free to share, modify and use without restriction.
// Any linked or referenced files are not included in this license and are
// licensed by their respective owners under their own respective copyright
// and other licenses.

key owner;
string ownerName;

integer scope;

string url;

key currentRequestID;

integer responseStatus;
string responseBody;

list lastPath;

string video_url;

string header;
string footer;

string currentAnimation;

integer isVisible;

string exceptions;

// user-function: init
// - does not return anything
// - sets initial variable values
// - sets object's name and textures
// - request a url to use the HUD

init()
{
owner = llGetOwner();
ownerName = llKey2Name(owner);
llSetObjectName("HTML HUD");

scope = AGENT_LIST_PARCEL;

video_url = "http://www.youtube.com/embed/m7p9IEpPu-c?rel=0";

// header set in set_link_media(url)
// footer set in set_link_media(url)

float FLOAT_FALSE = 0.0;
vector RATIO_ONE_BY_ONE = <0.98, 0.98, 0.00>;// fix Second Life ... or try to!

llSetLinkPrimitiveParamsFast(LINK_THIS, [
PRIM_TEXTURE, ALL_SIDES, TEXTURE_BLANK, RATIO_ONE_BY_ONE, ZERO_VECTOR, FLOAT_FALSE,
PRIM_TEXTURE, 2, "0b815b79-c8f5-fc98-91fc-e77b53a468e2", RATIO_ONE_BY_ONE, ZERO_VECTOR, FLOAT_FALSE]);

toggle_visibility_of_HUD_button();
request_secure_url();
}

// user-function: toggle_visibility_of_HUD_button
// - does not return anything
// - toggle the visibility of the prim
// - will rotate, position and scale the prim

toggle_visibility_of_HUD_button()
{
if (isVisible)
{
llSetLinkPrimitiveParamsFast(LINK_THIS, [
PRIM_POS_LOCAL, <0.0, -0.13, -0.13>,
PRIM_ROT_LOCAL, <0.0, 0.0, 0.0, 1.0>,
PRIM_SIZE, <0.01, 0.25, 0.25>]);
}
else
{
llSetLinkPrimitiveParamsFast(LINK_THIS, [
PRIM_POS_LOCAL, <0.0, -0.04, -0.04>,
PRIM_ROT_LOCAL, <0.0, 0.0, -1.0, 0.0>,
PRIM_SIZE, <0.05, 0.05, 0.05>]);
}

isVisible = !isVisible;
}

// user-function: drop and clear the old url
// - does not return anything

release_url()
{
llReleaseURL(url);
url = "";
}

// user-function: request secure url
// - does not return anything
// - make sure we release the old url before requesting a new one

request_secure_url()
{
release_url();
currentRequestID = llRequestSecureURL();
}

// user-function: set_link_media
// - does not return anything
// - set the values for the string variables 'header' and 'footer'
// - prepare face 4 for media on a prim

set_link_media(string scriptUrl)
{
url = scriptUrl;

header = "<html><head><link href='https://d1979ns0fqtj19.cloudfront.net/"
+ "assets/common-103828347986224535963905120979424958961.css'"
+ " media='all' rel='stylesheet' type='text/css' />"
+ "<base href='" + scriptUrl + "/' /></head><body>";

footer = "<div align='center' style='position:absolute;top:93%;left:8%;'>"
+ "<a href=''>Scan</a> | <a href='anims'>Anims</a> | <a href='video'>"
+ "Video</a> | <a href='config'>Config</a> | <a href='hide'>Hide</a>"
+ "</div><script src='https://d2mjw3k7q9u8rb.cloudfront.net/assets/"
+ "common-170919042270376442559931151451605602726.js' type='text/"
+ "javascript'></script></body></html>";

llSetLinkMedia(LINK_THIS, 4, [
PRIM_MEDIA_AUTO_PLAY, TRUE,
PRIM_MEDIA_CURRENT_URL, url,
PRIM_MEDIA_HOME_URL, url,
PRIM_MEDIA_HEIGHT_PIXELS, 256,
PRIM_MEDIA_WIDTH_PIXELS, 256,
PRIM_MEDIA_PERMS_CONTROL, PRIM_MEDIA_PERM_NONE]);
}

// user-function:
// - does not return anything
// - used if there's not a request to the homepage of our website
// - check where on the site we are and prepare variables for the response

http_get(key requestID, list path)
{
currentRequestID = requestID;

integer numOfPathsParts = llGetListLength(path);
string firstPathPart = llList2String(path, 0);

if (firstPathPart == "hide")
{
toggle_visibility_of_HUD_button();
http_get(requestID, lastPath);
return;
}

lastPath = path;

if (firstPathPart == "agent")
{
if (numOfPathsParts == 1)
{
prepare_profile_overview_page(requestID, owner);
return;
}
else if (numOfPathsParts == 2)
{
key id = (key)llList2String(path, 1);
prepare_profile_overview_page(requestID, id);
return;
}
else if (numOfPathsParts == 4)
{
if (llList2String(path, 2) != "give")
{
return;
}

key id = (key)llList2String(path, 1);
string name = llKey2Name(id);
string itemName = llUnescapeURL(llList2String(path, 3));

llOwnerSay("Giving '" + itemName + "' to '" + name + "'.");
llGiveInventory(id, itemName);
prepare_profile_overview_page(requestID, id);
return;
}
}
else if (firstPathPart == "anims")
{
if (numOfPathsParts == 1)
{
anims_page();
return;
}
else if (numOfPathsParts == 2)
{
play_anim(llList2String(path, 1));
anims_page();
return;
}
}
else if (firstPathPart == "video")
{
responseStatus = 200;
responseBody = header + "<br><iframe width='255' height='173' src='"
+ video_url + "' frameborder='0' allowfullscreen></iframe>"
+ footer;

return;
}
else if (firstPathPart == "config")
{
if (numOfPathsParts == 1)
{
config_page();
return;
}
else if (llList2String(path, 1) == "set")
{
string queryString = llGetHTTPHeader(requestID, "x-query-string");
list args = llParseString2List(queryString, ["="], ["&"]);

integer index = -llGetListLength(args);
while (index)
{
string variable = llList2String(args, index);
string value = llUnescapeURL(llList2String(args, index + 1));

if (variable == "video")
{
video_url = value;
}

// because: var, val, &, var, val, &, ...
index += 3;
}
config_page();
}
}

responseStatus = 404;
responseBody = header + "<h1>404 Page Not Found.</h1>" + footer;
throw_exception("There has been a HTTP-request to a non-existant page on "
+ "your HUD's website. Please check the path of the request "
+ "for mistakes.");
}

// user-function: prepare_profile_overview_page
// - does not return anything
// - prepares a response for a page with information about a certain avatar
// - includes profile thumbnail, name, script info, give menu

prepare_profile_overview_page(key requestID, key id)
{
list avatarDetails = llGetObjectDetails(id, [
OBJECT_POS, OBJECT_TOTAL_SCRIPT_COUNT,
OBJECT_SCRIPT_MEMORY, OBJECT_SCRIPT_TIME]);

responseStatus = 200;
responseBody = header + "<table border='0' cellspacing='1' cellpadding='1'>"
+ "<tr><td colspan='2' style='white-space:nowrap'><div class='"
+ "profile_title'><h1 id='display_name'>"
+ html_body_with_formatted_avatar_name(id) + "</h1><h2 id='"
+ "username'>" + llGetUsername(id) + "</h2></div></td><td>"
+ "<div align='right'>"
+ html_body_with_links_for_interaction_with_certain_avatar(id)
+ "<br>" + html_body_with_inventory_overview_for_give_menu(id)
+ "</div></td></tr><tr><td width='80'>"
+ html_body_avatar_profile_pic_thumbnail(id)
+ "</td><td colspan='2'><ul style='list-style-type:circle'>"
+ "<li>Scripts:<ul style='list-style-type:disc;margin-left:"
+ "10px'><li>" + (string)llList2Integer(avatarDetails, 1)
+ " total</li><li>" + bytes2str(llList2Integer(avatarDetails, 2))
+ "</li><li>"
+ (string)((integer)(llList2Float(avatarDetails, 3) * 1000000.0))
+ "us</li></ul></li></ul></td></tr></table>" + footer;
}

// user-function: html_body_with_formatted_avatar_name
// - returns the name of the avatar in html format
// - removes the lastname if it is Resident
// - adds a line-break for long names

string html_body_with_formatted_avatar_name(key id)
{
string stringToReturn = llKey2Name(id);

if (llGetSubString(stringToReturn, -9, -1) == " Resident")
{
stringToReturn = llDeleteSubString(stringToReturn, -9, -1);
}
if (15 < llStringLength(stringToReturn))
{
stringToReturn = llDumpList2String(
llParseString2List(stringToReturn,[" "], []),
"<br>"
);
}

return stringToReturn;
}

// user-function: html_body_with_links_for_interaction_with_certain_avatar
// - returns html text with links for an avatar to interact with who has a certain uuid

string html_body_with_links_for_interaction_with_certain_avatar(key id)
{
return "<div class='menu_button'><a class='button call_to_action'>Options"
+ "</a><ul style='list-style-type:none;text-align:left' class='menu'>"
+ "<li><a href='secondlife:///app/agent/" + (string)id + "/im'>IM</a>"
+ "</li><li><a href='secondlife:///app/agent/" + (string)id
+ "/offerteleport'>Offer Teleport</a></li><li><a href='secondlife:///"
+ "app/maptrackavatar/" + (string)id + "'>Map</a></li><li><a href='"
+ "secondlife:///app/sharewithavatar/" + (string)id + "'>Share</a></li>"
+ "<li><a href='secondlife:///app/agent/" + (string)id + "/pay'>Pay</a>"
+ "</li></ul></div>";
}

// user-function: html_body_with_inventory_overview_for_give_menu
// - returns html text with inventory item lists

string html_body_with_inventory_overview_for_give_menu(key id)
{
string stringToReturn = "<div class='menu_button'><a class='button "
+ "call_to_action'>Give</a><ul style='list-style-type:none;text-align:"
+ "left;white-space:nowrap' class='menu'>";

integer sizeOfStringBefore = llStringLength(stringToReturn);

stringToReturn += inventory_list_in_html_format_for_give_menu(id, INVENTORY_NOTECARD);
stringToReturn += inventory_list_in_html_format_for_give_menu(id, INVENTORY_OBJECT);

if (llStringLength(stringToReturn) == sizeOfStringBefore)
{
stringToReturn += "<li>(no objects or notecards found)</li>";
}

stringToReturn += "</ul></div>";
return stringToReturn;
}

// user-function: bytes2str
// - returns a string with script memory info in readable format

string bytes2str(integer bytes)
{
// 1024² = 1048576

if (bytes < 1048576)
return (string)(bytes / 1024) + " KB";
// else
return (string)(bytes / 1048576) + " MB";
}

// user-function: html_body_avatar_profile_pic_thumbnail
// - returns html text with urls to someone's profile pic

string html_body_avatar_profile_pic_thumbnail(key id)
{
return "<a href='secondlife:///app/agent/" + (string)id + "/about' class='"
+ "avatar avatar_thumb' rel='#sl_image_zoom' title='Click to zoom'"
+ "<img alt='Thumb_sl_image' src='https://my-secondlife.s3.amazonaws"
+ ".com/users/" + llGetUsername(id) + "/sl_image.png' /></a>";
}

// user-function: inventory_list_in_html_format_for_give_menu
// - returns html text with inventory item list of given type

string inventory_list_in_html_format_for_give_menu(key id, integer type)
{
string stringToReturn;

integer index = llGetInventoryNumber(type);
while (index)
{
--index;

string name = llGetInventoryName(type, index);

stringToReturn += "<li><a href='agent/" + (string)id + "/give/" + name
+ "'>" + name + "</a></li>";
}

return stringToReturn;
}

// user-function: anims_page
// - does not return anything
// - prepares an html text overview page of animations

anims_page()
{
responseStatus = 200;
responseBody = header + "<h1>Animations</h1><h2>Choose an animation:</h2>"
+ "<div style='margin-left:40px'>"
+ html_body_animations_overview() + "</div><br><br>" + footer;
}

// user-function: html_body_animations_overview
// - returns html text with a list of included animations

string html_body_animations_overview()
{
string stringToReturn = "<div class='menu_button' style='align:center'>"
+ "<a class='button call_to_action'>Animate<b class="
+ "'actions_dropdown'> </b></a><ul style='"
+ "list-style-type:none;text-align:left' class='menu'>";

integer index = llGetInventoryNumber(INVENTORY_ANIMATION);

if (!index)
{
stringToReturn += "<li>(no animations found)</li>";
}
else while (index)
{
--index;

string name = llGetInventoryName(INVENTORY_ANIMATION, index);

stringToReturn += "<li><a href='anims/" + name + "'>" + name + "</a></li>";
}

stringToReturn += "</ul></div>";

return stringToReturn;
}

// user-function: play_anim
// - does not return anything
// - prompts a perms request to animate owner

play_anim(string anim)
{
llRequestPermissions(owner, PERMISSION_TRIGGER_ANIMATION);
currentAnimation = llUnescapeURL(anim);
}

// user-function: config_page
// - does not return anything
// - prepares page to configure youtube video link

config_page()
{
responseStatus = 200;
responseBody = header + "<h1>Options:</h1><form action='config/set' method='"
+ "get'>Video URL: <input type='text' name='video' value='"
+ video_url + "' /><input type='submit' value='Set' /></form>"
+ footer;
}

// user-function: throw_exception
// - does not return anything
// - logs errors into cache for later viewing and debugging

throw_exception(string inputString)
{
if (exceptions == "")
{
exceptions = "The following un-handled exception(s) occurred that are "
+ "preventing this device's operation:\n";
}

exceptions += "\t"+inputString+"\n";
}

default
{
on_rez(integer start_param)
{
release_url();
llResetScript();
}

changed(integer change)
{
if (change & (CHANGED_OWNER | CHANGED_INVENTORY))
{
release_url();
llResetScript();
}

if (change & (CHANGED_REGION | CHANGED_REGION_START | CHANGED_TELEPORT))
{
request_secure_url();
}
}

state_entry()
{
init();
}

touch_start(integer num_detected)
{
toggle_visibility_of_HUD_button();
}

http_request(key id, string method, string body)
{
responseStatus = 400;
responseBody = "Unsupported method";

if (method == URL_REQUEST_GRANTED)
{
responseStatus = 200;
responseBody = "OK";

set_link_media(body);
}
else if (method == URL_REQUEST_DENIED)
{
responseBody = "Bad request";

throw_exception("The following error occurred while attempting to "
+ "get a free URL for this device:\n \n" + body);
}
else if (method == "GET")
{
responseStatus = 200;
responseBody = "GET";

string pathInfoHeader = llGetHTTPHeader(id, "x-path-info");
list path = llParseString2List(pathInfoHeader, ["/"], []);

if (path == [])
{
currentRequestID = id;

list agents = llGetAgentList(scope, []);
integer index = llGetListLength(agents);

if (!index)
{
responseBody = header + "<h2>Scan Results:</h2><ul style='"
+ "list-style-type:circle;margin-left:20px'><li>No one "
+ "near by.</li><li>Owner: <a href='agent/" + (string)owner
+ "'>" + ownerName + "</a></li></ul>" + footer;
}
else
{
responseBody = header + "<h2>Scan Results:</h2><ul style='"
+ "list-style-type:circle;margin-left:20px'>";

while (index)
{
--index;

key agent = llList2Key(agents, index);

responseBody += "<li><a href='agent/" + (string)agent + "'>"
+ html_body_with_formatted_avatar_name(agent) + "</a></li>";
}

responseBody += "</ul>" + footer;
}

lastPath = [];
}
else
{
http_get(id, path);
}
}

llSetContentType(id, CONTENT_TYPE_HTML);
llHTTPResponse(id, responseStatus, responseBody);

if (exceptions != "")
{
state error;
}
}

run_time_permissions(integer perm)
{
if (perm & PERMISSION_TRIGGER_ANIMATION)
{
llStartAnimation(currentAnimation);
}
else
{
throw_exception("This HUD has tried to animate your avatar WITHOUT "
+ "having the permissions to do so. You must grant this HUD "
+ "permissions to animate your avatar for this feature to work.");
}

if (exceptions != "")
{
state error;
}
}

state_exit()
{
release_url();
}
}

state error
{
on_rez(integer start_param)
{
llResetScript();
}

changed(integer change)
{
if (change & (CHANGED_OWNER | CHANGED_INVENTORY))
{
llResetScript();
}
}

state_entry()
{
llOwnerSay("========== ERROR REPORT START ==========");
llOwnerSay(exceptions);
llOwnerSay("========== ERROR REPORT END ==========");
llOwnerSay("Resetting now...");
llResetScript();
}
}
</source>

[[#top|Go to top!]]

Color and Scripting

2015-01-22T21:48:15Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{#vardefine:ml-cat|/LSL}}{{Help|Misc=*}}
{{LSL Header}}
Using color in LSL scripting is fairly easy. If works by combining values of red, green, and blue light. They are stored like this:

<source lang="lsl2">
float red_value;
float green_value;
float blue_value;

vector color = <red_value, green_value, blue_value>;

// or:
// color.x = red_value;
// color.y = green_value;
// color.z = blue_value;
</source>

Each red, green, or blue value can be between 0.0 (no color saturation) to 1.0 (total color saturation). These values are determined by combining the colors as if they were light, not paint. Therefore, the combination of all three in total saturation is white. The combination of all three with no saturation is pitch black. If there is not saturation on two values, and the third is saturated, you get a pure color.

{{{!}} class="sortable" {{Prettytable}}
{{!}}- {{Hl2}}
! Color
! Hexadecimal code
! LSL color representations
{{!}}-
{{!}} style="color: white; background: #001f3f" {{!}}NAVY
{{!}} #001f3f
{{!}}<code><0.000, 0.122, 0.247></code>
{{!}}-
{{!}} style="background: #0074d9" {{!}}BLUE
{{!}} #0074d9
{{!}}<code><0.000, 0.455, 0.851></code>
{{!}}-
{{!}} style="background: #7fdbff" {{!}}AQUA
{{!}} #7fdbff
{{!}}<code><0.498, 0.859, 1.000></code>
{{!}}-
{{!}} style="background: #39cccc" {{!}}TEAL
{{!}} #39cccc
{{!}}<code><0.224, 0.800, 0.800></code>
{{!}}-
{{!}} style="background: #3d9970" {{!}}OLIVE
{{!}} #3d9970
{{!}}<code><0.239, 0.600, 0.439></code>
{{!}}-
{{!}} style="background: #2ecc40" {{!}}GREEN
{{!}} #2ecc40
{{!}}<code><0.180, 0.800, 0.251></code>
{{!}}-
{{!}} style="background: #01ff70" {{!}}LIME
{{!}} #01ff70
{{!}}<code><0.004, 1.000, 0.439></code>
{{!}}-
{{!}} style="background: #ffdc00" {{!}}YELLOW
{{!}} #ffdc00
{{!}}<code><1.000, 0.863, 0.000></code>
{{!}}-
{{!}} style="background: #ff851b" {{!}}ORANGE
{{!}} #ff851b
{{!}}<code><1.000, 0.522, 0.106></code>
{{!}}-
{{!}} style="background: #ff4136" {{!}}RED
{{!}} #ff4136
{{!}}<code><1.000, 0.255, 0.212></code>
{{!}}-
{{!}} style="color: white; background: #85144b" {{!}}MAROON
{{!}} #85144b
{{!}}<code><0.522, 0.078, 0.294></code>
{{!}}-
{{!}} style="background: #f012be" {{!}}FUCHSIA
{{!}} #f012be
{{!}}<code><0.941, 0.071, 0.745></code>
{{!}}-
{{!}} style="color: white; background: #b10dc9" {{!}}PURPLE
{{!}} #b10dc9
{{!}}<code><0.694, 0.051, 0.788></code>
{{!}}-
{{!}} style="background: #ffffff" {{!}}WHITE
{{!}} #ffffff
{{!}}<code><1.000, 1.000, 1.000></code>
{{!}}-
{{!}} style="background: #dddddd" {{!}}SILVER
{{!}} #dddddd
{{!}}<code><0.867, 0.867, 0.867></code>
{{!}}-
{{!}} style="background: #aaaaaa" {{!}}GRAY
{{!}} #aaaaaa
{{!}}<code><0.667, 0.667, 0.667></code>
{{!}}-
{{!}} style="color: white; background: #111111" {{!}}BLACK
{{!}} #111111
{{!}}<code><0.067, 0.067, 0.067></code>
{{!}}}

== Converting Hexadecimal to Vectors ==

To convert from a hexadecimal values used in CSS or HTML to ones usable in Second Life scripting, first convert the number for the red, green and blue saturation from hexadecimal to decimal, then divide that number by 255. Do bear in mind that 3-digit codes are a shorthand form, so each digit should be doubled (F becomes FF, 4 becomes 44, 0 becomes 00 etc)

{|class="wikitable" {{Prettytable}}
|-
| style="background-color:#FFCC00; text-align:center;" | <sub>Form</sub><span style="size:1.5em;">\</span><sup>Channels</sup>
!{{Hl2}}| Red
!{{Hl2}}| Green
!{{Hl2}}| Blue
|-
! {{Hl2}} | Hexadecimal
| {{HoverText|FF|total saturation}}
| CC
| {{HoverText|00|no saturation}}
|-
! {{Hl2}} |Decimal
| {{HoverText|255|total saturation}}
| 204
| {{HoverText|0|no saturation}}
|-
! {{Hl2}} |Saturation Float
| {{HoverText|1.0|total saturation}}
| 0.8
| {{HoverText|0.0|no saturation}}
|}

total saturation:
* hexadecimal: FF
* decimal: 255
* float: 1.0

no saturation:
* hexadecimal: 00
* decimal: 0
* float: 0.0

Therefore:

<code>#F0F = #FF00FF = <1.0,0.0,1.0></code>

== Contributor ==
[[User:FlipperPA Peregrine|FlipperPA Peregrine]]

[[Category:Text from In-world Notecards|Color and Scripting]]
[[Category:Tutorials|Color and Scripting]]
[[Category:Articles in need of expansion|Color and Scripting]]

LlSetClickAction

2015-01-22T21:47:31Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{Issues/VWR-640}}{{Issues/VWR-10829}}
|func_id=333|func_sleep=0.0|func_energy=10.0
|func=llSetClickAction
|p1_type=integer|p1_name=action|p1_desc=CLICK_ACTION_* flag
|func_desc=Sets the action performed when a prim is clicked upon (aka [[click action]]).
|func_footnote=When the cursor hovers over the prim, its image changes to reflect the action.
|caveats= *When set in the root of an object the chosen CLICK_ACTION_* will be that for the children also even if they have their own [[llSetClickAction]] set (it will be over-ridden). However (in the case of [[touch]] for example) if the CLICK_ACTION_* is set in the root but not at all in the children (including not having [[touch]] [[event]] [[script]]s in them (this creates a default CLICK_ACTION_TOUCH)) the effect of the roots CLICK_ACTION_* is not ''seen'' but the CLICK_ACTION_* is ''used'' on clicking. To both use '''and see''' the correct cursor the CLICK_ACTION_* flags must match in the children and root.
*If [[llSetClickAction]] is [[CLICK_ACTION_PAY]] then you must have a [[money]] event, or it will revert to [[CLICK_ACTION_NONE]].
*While this function works or attached objects (click action can be changed), the configured click action of an attachment is ignored by the viewer. The viewer always behaves as though an attached object has [[CLICK_ACTION_TOUCH]] set.
|examples={{{!}} class="sortable" width="100%" {{Prettytable}}
{{!}}- {{Hl2}}
! '''make sitting easier'''
! '''make unpaking for next owner easier'''
! '''make buying for customers easier'''
{{!}}-
{{!!}}<source lang="lsl2">
default
{
state_entry()
{
llSetClickAction(CLICK_ACTION_SIT);
llRemoveInventory(llGetScriptName());
}
}
</source>
{{!!}}
<source lang="lsl2">
default
{
state_entry()
{
llSetClickAction(CLICK_ACTION_OPEN);
llRemoveInventory(llGetScriptName());
}
}
</source>
{{!!}}
<source lang="lsl2">
// remember you'll have to set a price
// in the general tab of the edit window
// for your object before using this script

default
{
state_entry()
{
llSetClickAction(CLICK_ACTION_BUY);
llRemoveInventory(llGetScriptName());
}
}
</source>
{{!}}}
<source lang="lsl2">
// simple tipjar

default
{
state_entry()
{
llSetClickAction(CLICK_ACTION_BUY);

// enabled edit field to put own amount, all quick-pay-buttons hidden
llSetPayPrice(PAY_DEFAULT, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
}

money(key id, integer amount)
{
string name = llKey2Name(id);

llInstantMessage(id, "Thank you for the tip, " + name + "!");
}
}
</source>
|spec
|constants=<div id="box">
==Constants==
<div style="padding: 0.5em;">
{{{!}} class="sortable" {{Prettytable}}
{{!}}- {{Hl2}}
! {{!}} Flag
! title="Value" {{!}}
! class="unsortable" {{!}} Description
! class="unsortable" {{!}} Cursor
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_NONE|integer|0|c=Performs the default action: when the prim is touched, touch events are triggered}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_TOUCH|integer|0|c=When the prim is touched, touch events are triggered}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_SIT|integer|1|c=When the prim is touched, the avatar sits upon it}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}[[File:SitActionCursor.png‎]]
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_BUY|integer|2|c=When the prim is touched, the buy dialog is opened}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}[[File:SaleOneclickCursor.png]]
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_PAY|integer|3|c=When the prim is touched, the pay dialog is opened}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}[[File:SaleOneclickCursor.png]]
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_OPEN|integer|4|c=When the prim is touched, the object inventory dialog is opened}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}[[File:OpenOneclickCursor.png]]
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_PLAY|integer|5|c=Play or pause parcel media on touch}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}[[Image:Toolplay.png]]
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_OPEN_MEDIA|integer|6|c=Play parcel media on touch, no pause}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}}
{{!}}[[Image:Toolmediaopen.png]]
{{!}}-
{{!}}{{LSL Const|CLICK_ACTION_ZOOM|integer|7|c=Zoom}}
{{!}}{{#var:value}}
{{!}}{{#var:comment}} ([[Viewer_2_Help|Viewer 2]])
{{!}}[[Image:Toolzoom.png]]
{{!}}}
</div></div>
|signature=
{{LSL Const/Signature|CLICK_ACTION_ZOOM|integer|7|c=Zoom}}
|helpers
|also_functions={{LSL DefineRow||[[llPassTouches]]}}
|also_tests
|also_events=
{{LSL DefineRow||[[touch_start]]}}
{{LSL DefineRow||[[touch]]}}
{{LSL DefineRow||[[touch_end]]}}
|also_articles={{LSL DefineRow||{{LSLGC|Detected}}}}

|history=
* Introduced in SL Client 1.19.1(0)
* [[CLICK_ACTION_ZOOM]] added in SL Server 1.32 and [[Viewer_2_Help|Viewer 2]]
|cat1=Prim
|cat2=Touch
|cat3=Sit
|cat4=Money
|cat5=Media
|cat6=Effects
|cat7
|cat8
}}

LlSetColor

2015-01-22T21:46:04Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{LSL Function/color|color}}{{LSL_Function/face|face|}}
|func_id=49|func_sleep=0.0|func_energy=10.0
|func=llSetColor
|p1_type=vector|p1_name=color|p2_type=integer|p2_name=face
|func_footnote
|func_desc=Sets the {{LSLP|color}} on {{LSLP|face}} of the prim.
|return_text
|spec
|caveats
|constants
|examples=<source lang="lsl2">
integer face = -1;
vector color = <1.0, 1.0, 1.0>;

default
{
touch_start(integer num)
{
if(~face) //quick & dirty but efficient way of testing if face is not equal to -1
llSetColor(color, face); //restore the color
face = (face + 1) % llGetNumberOfSides(); //increment and keep the face number in range
color = llGetColor(face); //save the face's color
llSetColor(<0.5, 0.0, 0.0>, face ); //change the face's color
}
}
</source>
|helpers=
{{{!}} class="sortable" {{Prettytable}}
{{!}}- {{Hl2}}
! Color
! Hexadecimal code
! LSL color representations
{{!}}-
{{!}} style="color: white; background: #001f3f" {{!}}NAVY
{{!}} #001f3f
{{!}}<code><0.000, 0.122, 0.247></code>
{{!}}-
{{!}} style="background: #0074d9" {{!}}BLUE
{{!}} #0074d9
{{!}}<code><0.000, 0.455, 0.851></code>
{{!}}-
{{!}} style="background: #7fdbff" {{!}}AQUA
{{!}} #7fdbff
{{!}}<code><0.498, 0.859, 1.000></code>
{{!}}-
{{!}} style="background: #39cccc" {{!}}TEAL
{{!}} #39cccc
{{!}}<code><0.224, 0.800, 0.800></code>
{{!}}-
{{!}} style="background: #3d9970" {{!}}OLIVE
{{!}} #3d9970
{{!}}<code><0.239, 0.600, 0.439></code>
{{!}}-
{{!}} style="background: #2ecc40" {{!}}GREEN
{{!}} #2ecc40
{{!}}<code><0.180, 0.800, 0.251></code>
{{!}}-
{{!}} style="background: #01ff70" {{!}}LIME
{{!}} #01ff70
{{!}}<code><0.004, 1.000, 0.439></code>
{{!}}-
{{!}} style="background: #ffdc00" {{!}}YELLOW
{{!}} #ffdc00
{{!}}<code><1.000, 0.863, 0.000></code>
{{!}}-
{{!}} style="background: #ff851b" {{!}}ORANGE
{{!}} #ff851b
{{!}}<code><1.000, 0.522, 0.106></code>
{{!}}-
{{!}} style="background: #ff4136" {{!}}RED
{{!}} #ff4136
{{!}}<code><1.000, 0.255, 0.212></code>
{{!}}-
{{!}} style="color: white; background: #85144b" {{!}}MAROON
{{!}} #85144b
{{!}}<code><0.522, 0.078, 0.294></code>
{{!}}-
{{!}} style="background: #f012be" {{!}}FUCHSIA
{{!}} #f012be
{{!}}<code><0.941, 0.071, 0.745></code>
{{!}}-
{{!}} style="color: white; background: #b10dc9" {{!}}PURPLE
{{!}} #b10dc9
{{!}}<code><0.694, 0.051, 0.788></code>
{{!}}-
{{!}} style="background: #ffffff" {{!}}WHITE
{{!}} #ffffff
{{!}}<code><1.000, 1.000, 1.000></code>
{{!}}-
{{!}} style="background: #dddddd" {{!}}SILVER
{{!}} #dddddd
{{!}}<code><0.867, 0.867, 0.867></code>
{{!}}-
{{!}} style="background: #aaaaaa" {{!}}GRAY
{{!}} #aaaaaa
{{!}}<code><0.667, 0.667, 0.667></code>
{{!}}-
{{!}} style="color: white; background: #111111" {{!}}BLACK
{{!}} #111111
{{!}}<code><0.067, 0.067, 0.067></code>
{{!}}}
|also_functions=
{{LSL DefineRow||[[llGetAlpha]]|Gets the prim's alpha}}
{{LSL DefineRow||[[llSetAlpha]]|Sets the prim's alpha}}
{{LSL DefineRow||[[llGetColor]]|Gets the prim's color}}
{{LSL DefineRow||[[llSetLinkColor]]|Sets link's color}}
{{LSL DefineRow||[[llSetLinkAlpha]]|Sets link's alpha}}
|also_tests
|also_events=
{{LSL DefineRow||[[changed]]|[[CHANGED_COLOR]]}}
|also_articles=
{{LSL DefineRow||[[Color and Scripting]]}}
|notes
|deprecated
|cat1
|cat2
|cat3
|cat4
}}

LlSetContentType

2015-01-22T21:45:09Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|func=llSetContentType
|func_id=?
|func_energy=?
|func_sleep
|func_desc=Sets the {{Wikipedia|Internet media type|Internet media type}} <code>{{String|Content-Type}}</code> header of any subsequent [[LSL HTTP server]] response via [[llHTTPResponse]].
|sort
|func_footnote
|return_type
|return_text
|p1_type=key|p1_subtype=handle|p1_name=request_id|p1_desc=a valid [[http_request]]() key|p1_hover=a valid http_request() key
|p2_type=integer|p2_name=content_type|p2_desc=Media type to use with any following [[llHTTPResponse]]({{LSLP|request_id}}, ...)
|p2_hover=Media type to use with any following llHTTPResponse(request_id, ...)
|constants={{LSL Constants/Content Type}}
|spec
|caveats=
* When using [[CONTENT_TYPE_HTML]], this setting will be ignored unless all of these conditions are met:
*# the web browser is the Second Life client
*# the user (logged into the SL client viewing the page) is the owner of the object.
*# the user (logged into the SL client viewing the page) is connected to the region the object is located in
*: Obviously this is not compatible with group owned objects. One way around this limitation would be to [[llAttachToAvatarTemp|temporarily attach]] a repeated.
|examples=
<source lang="lsl2">
key url_request;

string HTML_BODY =
"<!DOCTYPE html>
<html>
<body>

<h1>My First Heading</h1>

<p>My first paragraph.</p>

</body>
</html>";

default
{
state_entry()
{
url_request = llRequestURL();
}

http_request(key id, string method, string body)
{
key owner = llGetOwner();
vector ownerSize = llGetAgentSize(owner);

if (url_request == id)
{
// if you're usually not resetting the query ID
// now is a good time to start!
url_request = "";

if (method == URL_REQUEST_GRANTED)
{
llOwnerSay("URL: " + body);

// if owner in sim
if (ownerSize)// != ZERO_VECTOR
llLoadURL(owner, "I got a new URL!", body);
}

else if (method == URL_REQUEST_DENIED)
llOwnerSay("Something went wrong, no url:\n" + body);
}

else
{
llOwnerSay("request body:\n" + body);

// if owner in sim
if (ownerSize)// != ZERO_VECTOR
{
llSetContentType(id, CONTENT_TYPE_HTML);
llHTTPResponse(id, 200, HTML_BODY);
}
else
{
llSetContentType(id, CONTENT_TYPE_TEXT);
llHTTPResponse(id, 200, "OK");
}
}
}
}
</source>
|helpers
|also_header
|also_constants
|also_events=
{{LSL DefineRow||[[http_request]]}}
{{LSL DefineRow||[[http_response]]}}
|also_functions={{LSL DefineRow||[[llHTTPResponse]]}}
|also_articles=
{{LSL DefineRow||[[LSL HTTP server]]}}
{{LSL DefineRow||[[HTML HUD Demo]]}}
|also_footer
|notes=
* A workaround for displaying html to non-owners inworld can be found [[Teacup|here]].
|history=* Released August 16, 2011.
*{{Jira|SCR-394}} - Documentation revised but no change in functionality.
|mode
|deprecated
|permission
|cat1=HTTP
|cat2=HTTP/Server
|comments=The client and owner limitations are most likely to remove the possibility of running a website from a prim.
}}

LlSetDamage

2015-01-22T21:44:09Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|func_id=157|func_sleep=0.0|func_energy=10.0
|sort=SetDamage
|func=llSetDamage|p1_type=float|p1_name=damage|p1_desc=range: 0.0 (no [[damage]]) ~ 100.0 (instant [[death|kill]])
|func_footnote
|func_desc=Sets the amount of '''damage''' that will be done when this object hits an avatar.
|return_text
|spec=
For an avatar to take damage when the object collides with an avatar...
*The object must not be [[STATUS_PHANTOM|phantom]] or [[llVolumeDetect]]([[TRUE]])
*The avatar must be on the land where "Safe (no damage)" is disabled.
**The object however does not need to be on or even partially over damage enabled land.
When these preconditions are met, the avatar receives the damage, and the object will [[llDie|die]] without calling the {{LSLGC|Collision|collision}} events.
|caveats=
*If '''damage''' is 100.0 or greater, the object will instantly [[death|kill]] even a fully healthy avatar.
*If '''damage''' is zero or less, no damage will be inflicted and the object will ''not'' die and the {{LSLGC|Collision|collision}} or {{LSLGC|Land Collision|land_collision}} events will be queued.
*If a damage enabled object hits a physics enabled object that an avatar is sitting on, the avatar receives the damage just the same as they would if they had been hit directly.
|constants
|examples=
<source lang="lsl2">//Simple autokiller bullet:
// This will instantly "kill" on collision if contact is made with avatar on damage enabled land.

default
{
on_rez(integer param) // Becomes active when rezzed.
{
llSetDamage(100.0); // Set the damage to maximum.
llSensor("", "", AGENT, 96.0, PI); // Sweep a 96 meter sphere searching for agents.
}
sensor(integer num) // If an agent is detected...
{
llSetStatus(STATUS_PHYSICS, TRUE); // Enable physics to allow physical movement.
llSetTimerEvent(10.0); // Set a 10 second timer.
llMoveToTarget(llDetectedPos(0), 0.5); // Move to the detected position.
}
no_sensor() // If no agents are detected...
{
llDie(); // Auto destruct.
}
timer() // If we missed our target...
{
llDie(); // Auto destruct.
}
}</source>
|helpers
|also_functions
|also_events
|also_articles
|notes
|permission
|negative_index
|cat1
|cat2
|cat3
|cat4
}}

LlSetForce

2015-01-22T21:43:06Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Function
|inject-2={{LSL_Function/force|force|local=local}}{{LSL_Function/physical}}
|func_id=64
|func_sleep=0.0
|func_energy=10.0
|func=llSetForce
|p1_type=vector|p1_name=force|p1_desc=directional force
|p2_type=integer|p2_subtype=boolean|p2_name=local
|func_footnote=Continuous force. [[llApplyImpulse]] has instantaneous push.
|func_desc=Applies force to the object (if the script is physical)
|spec
|caveats=Only works on physical objects and attachments (non-physical as well as physical). Used on an attachment, it will apply the force to the avatar.
|constants
|examples=<source lang="lsl2">//A simple rocket script. Launches object up when touched.
//Sit on it for an interesting ride!
default
{
touch_start(integer i)
{
llSetStatus(STATUS_PHYSICS, TRUE);
llSetForce(<0,0,0x7FFFFFFF>, 0); //FLY!
}
}</source>
|helpers
|also_functions={{LSL DefineRow||[[llSetForceAndTorque]]|}}
{{LSL DefineRow||[[llSetTorque]]|}}
{{LSL DefineRow||[[llApplyImpulse]]|Instantaneous force}}
|also_tests
|also_events
|also_articles
|notes
|cat1=Physics
|cat2=Movement
|cat3
|cat4
}}

LlSetForceAndTorque

2015-01-22T21:42:15Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Function
|inject-2={{LSL_Function/force|force|torque|local=local}}{{LSL_Function/physical}}
|func_id=76
|func_sleep=0.0
|func_energy=10.0
|func=llSetForceAndTorque
|p1_type=vector|p1_name=force|p1_desc=directional force
|p2_type=vector|p2_name=torque|p2_desc=torque force
|p3_type=integer|p3_subtype=boolean|p3_name=local
|func_desc=Sets the force and torque of object (if the script is physical)
|spec
|caveats=
* If either value is [[ZERO_VECTOR]], the function eliminates both forces. Both values must be non-zero for this function to work. (The workaround to this is setting both separately.)
|constants
|examples=
<source lang="lsl2">
default
{
touch_start(integer total_number)
{
llSetForceAndTorque( <0.0,0.0,5.0>, <1.0,0.0,0.0>, FALSE );
}
}
</source>
|helpers
|also_functions={{LSL DefineRow||[[llSetForce]]|}}
{{LSL DefineRow||[[llSetTorque]]|}}
|also_tests
|also_events
|also_articles
|notes
|cat1=Physics
|cat2=Movement
|cat3
|cat4
}}

LlSetHoverHeight

2015-01-22T21:41:45Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2=
{{LSL_Function/physical}}
{{LSL_Function/damping|tau}}
|inject-3=
{{LSL_Function/boolean|water|bool=*|if=*|td=then hover above water too (or below if {{LSLP|height}} is negative)|th=then hover above water too (or below if height is negative)|fd=ignore water like it isn't there}}
|func_id=123|func_sleep=0.0|func_energy=10.0
|func=llSetHoverHeight
|p1_type=float|p1_name=height|p1_desc=Distance to hover above the ground (if negative, hovers below ground)
|p2_type=integer|p2_subtype=boolean|p2_name=water
|p3_type=float|p3_name=tau
|func_footnote=Do not use with vehicles.<br/>Use [[llStopHover]] to stop hovering.
|func_desc=Critically damps to a {{LSLP|height}} above the ground (or water) in {{LSLP|tau}} seconds.
|return_text
|spec
|caveats=*Do not rely on built-in limits. In the past, the difference between the object's initial position and the hover height was limited to 64 meters. Under SL Server 1.26.2 the limit is 4096 meters above the ground level.
|constants
|examples=
<source lang="lsl2">
// Put in an attached prim and touch to start floating in air without flying.
// Touch again to drop to the ground.

integer gHovering = FALSE; // are we supposd to be hovering now?

default {
touch_start(integer total_number) {
if (!llGetAttached()) {
llWhisper(0, "Wear me to play.");
return;
}

if (gHovering) {
llOwnerSay("Releasing you.");
llStopHover();
}
else {
llOwnerSay("Making you float...");

// Start hovering 5 meters over our current location.
vector myPosition = llGetPos();
llSetHoverHeight(myPosition.z - llGround(ZERO_VECTOR) + 5.0, FALSE, 1.0);
}

gHovering = !gHovering; // flip the switch
}
}
</source>
|notes=* It is possible to assign '''height''' a negative value. If '''water''' is [[TRUE]], this will make the object hover below the water level.
* Unless [[llVolumeDetect|volume detect]] is enabled, negative '''height''' values when '''water''' is [[FALSE]] will not move the object below the ground level and may cause it to be dragged down the local incline to the nearest low point. Enabling [[llVolumeDetect|volume detect]] will cause negative '''height''' settings to move the object below the ground level.
* Assigning '''height''' a value of zero will have the same effect as [[llStopHover]].
|helpers
|also_functions={{LSL DefineRow||[[llGroundRepel]]| Same as llSetHoverHeight but does not hover all the time}}
{{LSL DefineRow||[[llStopHover]]|To stop hovering}}
|also_tests
|also_events
|also_articles
|notes
|cat1=Hover
|cat2=Movement
|cat3=Physics
|cat4
}}

LlSetKeyframedMotion

2015-01-22T21:40:13Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{Issues/SCR-345}}{{Issues/SCR-346}}{{Issues/SVC-7796}}{{Issues/SCR-373}}
|func=llSetKeyframedMotion
|func_id=?
|func_desc=Specify a list of times, positions, and orientations to be followed by an object. The object will be smoothly moved between keyframes by the simulator. Collisions with other nonphysical or keyframed objects will be ignored (no script events will fire and collision processing will not occur). Collisions with physical objects will be computed and reported, but the keyframed object will be unaffected by those collisions. (The physical object will be affected, however.)
|func_sleep
|func_energy
|func_footnote
|p1_type=list|p1_name=keyframes|p1_hover=Strided keyframe list of the form: [vector position, rotation orientation, float time]
|p1_desc=Strided keyframe list of the form:
* ''vector'' position (optional via [[KFM_TRANSLATION]] and [[KFM_DATA]])
* ''rotation'' orientation (optional via [[KFM_ROTATION]] and [[KFM_DATA]])
* ''float'' time

Each keyframe is interpreted relative to the previous transform of the object. For example, consider the following list of keyframes: [<0, 0, 10>, [[ZERO_ROTATION]], 5, <0, 0, 0>, [[ZERO_ROTATION]], 5, <0, 0, -10>, [[ZERO_ROTATION]], 5]. This would cause the object to move up 10m over the course of 5s. It would then remain at the location for 5s before moving down 10m over the course of another 5s.
Time values must be 1/9s. or greater.
Linear and angular velocities will be clamped to limits set by the simulator (values TBD).
An empty list will terminate any keyframed animation currently playing.
|p2_type=list|p2_subtype=instructions|p2_name=options|p2_desc=modifiers and future options
|spec=
The following flags will be supported within the ''options'' list:
*[[KFM_MODE]] followed by one of: [[KFM_LOOP]], [[KFM_REVERSE]], [[KFM_FORWARD]], or [[KFM_PING_PONG]] will specify the playback mode. Defaults to [[KFM_FORWARD]]. Must be specified when the keyframe list is provided.
*[[KFM_DATA]] followed by a bitwise combination of: [[KFM_TRANSLATION]] and [[KFM_ROTATION]]. By default both rotations and translations must be provided. If you specify one or the other, you should only include translations or rotations in your keyframe list. Must be specified at the time the keyframe list is provided.
*[[KFM_COMMAND]] followed by one of: [[KFM_CMD_STOP]], [[KFM_CMD_PLAY]], [[KFM_CMD_PAUSE]]. STOP will pause the animation AND reset it to the beginning. PAUSE will pause the animation without resetting. PLAY will resume a paused or stopped animation.
Note that if [[KFM_COMMAND]] is provided in the options list, it must be the only option in the list, and cannot be specified in the same function call that sets the keyframes list.

Inter-region movement is supported; simply specify a target keyframe that would place the object outside the sim boundaries and it will cross over. This seems to provide the same effect as pausing the animation when it is in limbo between the two regions, but the viewer continues to interpolate its movement. It will jump back to the sim border and continue on the same speed, although the time between waypoints will be increased due to the sim crossing. Make sure you factor this into your system.

Since keyframed motion is a prim property rather than restricted to the script that called it, you can use multiple scripts to control, pause, or restart the same keyframed motion without passing the original keyframe list provided. Just pass an empty list for keyframes list, and the [[KFM_COMMAND]] followed by the command in the options list.
|constants={{LSL Constants/KeyframedMotion|set|table=*}}
|caveats=
*This function does not work in attachments.
*This function can only be called on NON-physical objects. In the future it could be extended to support physical objects, but this is more complicated as collisions could prevent the object from reaching its goal positions on time.
*You cannot use scripts to move any prim in the linkset while the keyframed motion is active. If you must, first pause and restart it with [[KFM_CMD_PLAY]] when done. [[#Pause-Play|#Example]]
*Collisions with avatars affect the angular movement of the object and it may not reach the final rotation.
*This function can only be called on the root prim of a linkset.
*This function requires the linkset to use the Prim Equivalency system. However, it keyframed objects will not receive the dynamics penalty and can have a physics weight of up to 64.
*llSetKeyframedMotion is implemented in terms of frames and not real time. To avoid a drift from the expected positions and rotations, use times which are integer multiples of 1/45, e.g. 20.0/45.0, 40.0/45.0, 90.0/45.0, etc. [http://community.secondlife.com/t5/LSL-Scripting/llSetKeyframedMotion-turning-a-corner/td-p/1225219 Forum Thread]
**Natural drift can still occur; for best results use [[moving_end]] to determine when the animation has ended and confirm the target position with [[llSetPos]]. Or you can use [[at_target]] or [[at_rot_target]].
*There are a few bugs in the avatar animation system that may cause strange looking animations to play when standing on a moving platform (e.g., walking in place, feet-at-pelvis). We hope to fix these in the future, but doing so is out of scope for this feature.
*As with dynamic objects, objects moving using this function are paused when they are selected by an avatar with adequate permissions (object owner, passenger, etc). When such an avatar deselects the object, motion resumes, even if the object had been paused using [[KFM_CMD_PAUSE]].
*A Key Framed Motion is a '''prim property''' in some respect. When a [[KFM_LOOP]] or [[KFM_PING_PONG]] is initiated the '''the motion''' is '''preserved after the script is removed'''. I.E. The prim will continue what motion it had. It will not survive take and copy. It will survive server restart.
*Inter region movement is far from perfect. Crossing from sim 1 to sim 2 using a Key Frame list with numerous frames on a curved path will pick up conspicuous errors on the crossing and when reversed by [ [[KFM_MODE]], [[KFM_REVERSE]] ] the object will stay in sim 2 and never return to sim 1
|examples=
<source lang="lsl2">
// If your client is not mesh-aware use the following line:

llSetLinkPrimitiveParamsFast(LINK_THIS,
[PRIM_PHYSICS_SHAPE_TYPE, PRIM_PHYSICS_SHAPE_CONVEX]);
</source>
<source lang="lsl2">
llSetKeyframedMotion(
[<0.0, 0.0, 10.0>, 5,
<0.0, 0.0, -10.0>, 5],
[KFM_DATA, KFM_TRANSLATION, KFM_MODE, KFM_PING_PONG]);
</source>
<source lang="lsl2">
llSetKeyframedMotion(
[<0.0, 0.0, 10.0>, llEuler2Rot(<90, 45, 180> * DEG_TO_RAD), 5,
<0.0, 0.0, -10.0>, llEuler2Rot(<270, 225, 360> * DEG_TO_RAD), 5],
[KFM_MODE, KFM_REVERSE]);
</source>
=== Pause-Play ===
<source lang="lsl2">llSetKeyframedMotion([],[KFM_COMMAND, KFM_CMD_PAUSE]);
//modify prim positions here
llSetKeyframedMotion([],[KFM_COMMAND, KFM_CMD_PLAY]);</source>
===Sample Script - Key Framed Follower===
Under some circumstances, rotations will generate a run-time error unless they are normalized. This script illustrates a way to use llKeyframedMotion to create a follower -- think, for example, of a cart behind a vehicle -- using normalized target rotation.
<source lang="lsl2">
integer isSensorRepeatOn;

rotation NormRot(rotation Q)
{
float MagQ = llSqrt(Q.x*Q.x + Q.y*Q.y +Q.z*Q.z + Q.s*Q.s);

return
<Q.x/MagQ, Q.y/MagQ, Q.z/MagQ, Q.s/MagQ>;
}

default
{
state_entry()
{
llSetLinkPrimitiveParamsFast(LINK_ROOT,
[PRIM_PHYSICS_SHAPE_TYPE, PRIM_PHYSICS_SHAPE_CONVEX,
PRIM_LINK_TARGET, LINK_ALL_CHILDREN,
PRIM_PHYSICS_SHAPE_TYPE, PRIM_PHYSICS_SHAPE_NONE]);
}

touch_start(integer total_number)
{
isSensorRepeatOn = !isSensorRepeatOn;

if (isSensorRepeatOn)
{
// PUBLIC_CHANNEL has the integer value 0
llSay(PUBLIC_CHANNEL, "Sensor repeat switched on!");

llSensorRepeat("", "91b39b5b-13b1-2517-273a-67360b842c02", SCRIPTED, 10.0, PI, 0.1);
}
else
// {
llSensorRemove();
// }
}

sensor(integer num_detected)
{
vector ownPosition = llGetPos();
rotation ownRotation = llGetRot();
vector detectedPosition = llDetectedPos(0);
rotation detectedRotation = llDetectedRot(0);

llSetKeyframedMotion(
[(detectedPosition - ownPosition) + <-1.0, 0.0, 0.2>*detectedRotation,
NormRot(detectedRotation/ownRotation), 0.12],
[]);
}
}
</source>
===Universal Hinged Motion in 8 Key Frames===
The script will turn a box prim around one edge parallel to the prim's Y-axis<br>
The script will work for any prim orientation<br>
Note that the smallest accepted time per frame is 1/9S=0.11111111S and NOT 0.1S<br>
<source lang="lsl2">
float angleEnd=PI_BY_TWO;
float speed=0.2; // m/S
float steps=8.0; // number of Key Frames
float step=0.0;
list KFMlist=[];
vector V;
integer open=TRUE;
vector basePos;
rotation baseRot;

float motion_time( float mt)
{
mt = llRound(45.0*mt)/45.0;
if ( mt > 0.11111111 ) return mt;
else return 0.11111111;
}

default
{
state_entry()
{
llSetMemoryLimit(0x2000);
llSetPrimitiveParams([PRIM_PHYSICS_SHAPE_TYPE, PRIM_PHYSICS_SHAPE_CONVEX]);
basePos = llGetPos();
baseRot = llGetRot();
vector v1 = 0.5*llGetScale()*llGetRot();
rotation deltaRot = llEuler2Rot(< 0.0, angleEnd/steps, 0.0>);
while ( step < steps )
{
V = v1*llAxisAngle2Rot(llRot2Left(llGetRot()), angleEnd*step/steps);
V = v1*llAxisAngle2Rot(llRot2Left(llGetRot()), angleEnd*(step+1.0)/steps) - V;
KFMlist += [V, deltaRot, motion_time(llVecMag(V)/speed)];
step += 1.0;
}
}
touch_end( integer n)
{
llSetKeyframedMotion( [], []);
if ( open )
{
llSetPrimitiveParams([PRIM_POSITION, basePos, PRIM_ROTATION, baseRot]);
llSetKeyframedMotion( KFMlist, []);
}
else
{
llSetKeyframedMotion( KFMlist, [KFM_MODE, KFM_REVERSE]);
}
open = !open;
}
on_rez( integer n) { llResetScript(); }
}
</source>
After editing prim position, rotation and/or size the script should be reset in order to update the motion
===More Examples===
* [[User:Dora_Gustafson/Pendulum_motion|Simple Pendulum Motion in 24 Key Frames]], a good motion for a swing
* [[User:Dora_Gustafson/Harmonic_Oscillator_motion|Oscillator Motion in 12 Key Frames]]
|notes=
Potential Use Cases:
* Elevators
* Moving platforms
* Trains/Fixed-Track Vehicles
* Moving doors/walls/gates
* Windmills and other machines
Targeted coordinate systems: The Translation is in Global coordinates, the Rotation in Local coordinates
* Say: a move on the X-axis will move the object along the global, region X-axis no matter how the object is rotated
* Say: a rotate around the X-axis will rotate the object around it's local, prim X-axis no matter the object's rotation
* When the object is not rotated in the global system you won't notice the difference
|cat1=Physics
|cat2=Movement
|cat3
|cat4
|haiku={{Haiku|author={{User|Progenitor Resident}}|This is how they move,|Non-phys life for my critters|Smooth, no collisions.}}
|history = Date of Release [[ Release_Notes/Second_Life_Server/11#11.11.09.244706 | 09/11/2011 ]]
}}

Category:LSL Alpha

2015-01-22T21:35:57Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Header|ml=*}}
The term "Alpha" refers to how translucent an object (or, in this case, a prim) is. In Second Life, the alpha property is set by the scripting functions [[llSetAlpha]], [[llSetLinkAlpha]], [[llSetPrimitiveParams]], and [[llSetLinkPrimitiveParams]]. These functions use a [[float]] value. When set to '''0.0''', the object/prim is fully transparent. When set to '''1.0''', the object is opaque.
Sometimes, [[Resident]]s refer to a transparent [[texture]] as ''alpha texture''. This is a texture with an alpha map, not to be confused with this prim property. See [[llSetTexture]] and [[TEXTURE_TRANSPARENT]] instead.

==Build Mode==
In Build Mode, the alpha is represented by a percentage, ranging from '''0%''' to '''100%'''. Take extra care when moving viewer transparency settings to scripts and back. In the editor a higher number is more transparent, while in scripts a higher number is more visible.

==Examples==
Below are examples on how one may set the alpha of an object.
{|cellspacing="0" cellpadding="6" border="1" style="border: 1px solid #aaaaaa; margin: 1em 1em 1em 0pt; background-color: #F8F8FF; border-collapse: collapse"
!style="background-color: #D2D3FF" | Function
!style="background-color: #D2D3FF" | LSL Example & Description
|-
| [[llSetAlpha]]
| <source lang="lsl2">llSetAlpha(1.0, ALL_SIDES);</source> This will set the object's sides' alpha to opaque, or '''0%'''.
|-
| [[llSetLinkAlpha]]
| <source lang="lsl2">llSetLinkAlpha(LINK_SET, 0.0, ALL_SIDES);</source>
This will set link-set's alpha to transparent, or '''100%'''.
|-
| [[llSetPrimitiveParams]]
| <source lang="lsl2">llSetPrimitiveParams([PRIM_COLOR, ALL_SIDES, llGetColor(ALL_SIDES), 0.5]);
// Using llGetColor this way may not give the desired result (it returns the average color)</source>
This will set the object's alpha to translucent, or '''50%'''.
|-
| [[llSetLinkPrimitiveParams]]
| <source lang="lsl2">llSetLinkPrimitiveParams(LINK_SET, [PRIM_COLOR, ALL_SIDES, llGetColor(ALL_SIDES), 0.5]);
// Using llGetColor this way may not give the desired result (it returns the average color).</source>
This will set the link-set's alpha to translucent, or '''50%'''.
|-
| [[llSetLinkPrimitiveParamsFast]]
| <source lang="lsl2">llSetLinkPrimitiveParamsFast(LINK_SET, [PRIM_COLOR, ALL_SIDES, llGetColor(ALL_SIDES), 0.5]);
// Using llGetColor this way may not give the desired result (it returns the average color).</source>
This will set the link-set's alpha to translucent, or '''50%'''.
|-
|}

{{LSLC|}}{{LSLC|Face|*Alpha}}

LlSetLinkAlpha

2015-01-22T21:34:10Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{LSL Function/face|face|}}{{LSL Function/link|link|}}{{LSL_Function/alpha|alpha}}
|func_id=274|func_sleep=0.0|func_energy=10.0
|func=llSetLinkAlpha
|p1_type=integer|p1_subtype=link|p1_name=link
|p2_type=float|p2_name=alpha
|p3_type=integer|p3_name=face
|func_footnote
|func_desc=If a prim exists in the link set at {{LSLP|link}}, set {{LSLP|alpha}} on {{LSLP|face}} of that prim.
|return_text
|spec
|caveats
|constants
|examples=
<source lang="lsl2">
// Make the entire object disappear for 5 seconds

default
{
touch_start(integer num_detected)
{
// transparent
llSetLinkAlpha(LINK_SET, 0.0, ALL_SIDES);
llSetTimerEvent(5.0);
}

timer()
{
// opaque
llSetLinkAlpha(LINK_SET, 1.0, ALL_SIDES);
llSetTimerEvent(0.0);
}
}
</source>
<source lang="lsl2">
// when the object is touched,
// fade it out and back in again

default
{
touch_start(integer num_detected)
{
// fade out
float alpha = 1.0;
while (alpha >= 0.0)
{
llSetLinkAlpha(LINK_SET, alpha, ALL_SIDES);
alpha -= 0.001;
}

// fade in
while (alpha < 1.0)
{
alpha += 0.001;
llSetLinkAlpha(LINK_SET, alpha, ALL_SIDES);
}
}
}
</source>
<source lang="lsl2">
// Makes selected prims in a linkset become transparent or visible on chat command. Give each prim a unique name.

list PrimList = ["ALL"];
// Start our prim list with a dummy entry, so that the index into this list will correspond directly to the link number
// By making the dummy entry 'ALL' we provide a match for that option too

default
{
changed (integer change)
{
if (change & CHANGED_LINK)
llResetScript();
}

state_entry()
{
integer PrimCount = llGetNumberOfPrims();
llListen(37, "", NULL_KEY, ""); // listen to chat commands from anyone on channel 37
integer i;
for (i = 1; i <= PrimCount; ++i)
PrimList += llToUpper(llGetLinkName(i) ); // Build a list of upper-case link names, where list position equals link number
}

listen(integer channel, string name, key id, string msg)
{
list TempList = llCSV2List( llToUpper(msg) ); // make a list from upper-case version of user command line
integer ListLen = llGetListLength (TempList);
integer alpha = (llList2String(TempList, 0) == "SHOW");
// 'SHOW' sets selected prims visible, otherwise set them transparent
// e.g. HIDE,PLATE,SPOON,NAPKIN <---- makes named prims invisible
// e.g. SHOW,ALL <---- makes all prims visible

integer i;
for (i = 1; i < ListLen; ++i)
{
string ThisPrim = llStringTrim(llList2String(TempList, i), STRING_TRIM);
integer LinkNumber = llListFindList(PrimList, [ThisPrim]);
if (~LinkNumber) // i.e. if LinkNumber != -1
{
if (!LinkNumber)
LinkNumber = LINK_SET; // list position 0 is 'ALL'

llSetLinkAlpha(LinkNumber, alpha, ALL_SIDES);
}
}
}
}
</source>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetAlpha]]|Gets the prim's alpha}}
{{LSL DefineRow||[[llSetAlpha]]|Sets the prim's alpha}}
{{LSL DefineRow||[[llGetColor]]|Gets the prim's color}}
{{LSL DefineRow||[[llSetColor]]|Sets the prim's color}}
{{LSL DefineRow||[[llSetLinkColor]]|}}
{{LSL DefineRow||[[llSetLinkTexture]]|}}
{{LSL DefineRow||[[llSetLinkPrimitiveParams]]|}}
|also_tests
|also_events={{LSL DefineRow||[[changed]]|[[CHANGED_COLOR]]}}
|also_articles
|notes
|deprecated
|cat1=Link/Set
|cat2
|cat3
|cat4
}}

LlSetLinkColor

2015-01-22T21:32:12Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{LSL Function/color|color}}{{LSL_Function/link-face|link|face}}
|func_id=140|func_sleep=0.0|func_energy=10.0
|func=llSetLinkColor
|p1_type=integer|p1_subtype=link|p1_name=link
|p2_type=vector|p2_name=color
|p3_type=integer|p3_name=face
|func_footnote
|func_desc=If a prim exists in the link set at {{LSLP|link}}, set {{LSLP|color}} on {{LSLP|face}} of that prim.
|return_text
|spec
|caveats
|constants
|examples=Turn a link set green
<source lang="lsl2">
default
{
touch_start(integer detected)
{
llSetLinkColor(LINK_SET, <0.0, 1.0, 0.0>, ALL_SIDES);
}
}
</source>
|helpers=
{{{!}} class="sortable" {{Prettytable}}
{{!}}- {{Hl2}}
! Color
! Hexadecimal code
! LSL color representations
{{!}}-
{{!}} style="color: white; background: #001f3f" {{!}}NAVY
{{!}} #001f3f
{{!}}<code><0.000, 0.122, 0.247></code>
{{!}}-
{{!}} style="background: #0074d9" {{!}}BLUE
{{!}} #0074d9
{{!}}<code><0.000, 0.455, 0.851></code>
{{!}}-
{{!}} style="background: #7fdbff" {{!}}AQUA
{{!}} #7fdbff
{{!}}<code><0.498, 0.859, 1.000></code>
{{!}}-
{{!}} style="background: #39cccc" {{!}}TEAL
{{!}} #39cccc
{{!}}<code><0.224, 0.800, 0.800></code>
{{!}}-
{{!}} style="background: #3d9970" {{!}}OLIVE
{{!}} #3d9970
{{!}}<code><0.239, 0.600, 0.439></code>
{{!}}-
{{!}} style="background: #2ecc40" {{!}}GREEN
{{!}} #2ecc40
{{!}}<code><0.180, 0.800, 0.251></code>
{{!}}-
{{!}} style="background: #01ff70" {{!}}LIME
{{!}} #01ff70
{{!}}<code><0.004, 1.000, 0.439></code>
{{!}}-
{{!}} style="background: #ffdc00" {{!}}YELLOW
{{!}} #ffdc00
{{!}}<code><1.000, 0.863, 0.000></code>
{{!}}-
{{!}} style="background: #ff851b" {{!}}ORANGE
{{!}} #ff851b
{{!}}<code><1.000, 0.522, 0.106></code>
{{!}}-
{{!}} style="background: #ff4136" {{!}}RED
{{!}} #ff4136
{{!}}<code><1.000, 0.255, 0.212></code>
{{!}}-
{{!}} style="color: white; background: #85144b" {{!}}MAROON
{{!}} #85144b
{{!}}<code><0.522, 0.078, 0.294></code>
{{!}}-
{{!}} style="background: #f012be" {{!}}FUCHSIA
{{!}} #f012be
{{!}}<code><0.941, 0.071, 0.745></code>
{{!}}-
{{!}} style="color: white; background: #b10dc9" {{!}}PURPLE
{{!}} #b10dc9
{{!}}<code><0.694, 0.051, 0.788></code>
{{!}}-
{{!}} style="background: #ffffff" {{!}}WHITE
{{!}} #ffffff
{{!}}<code><1.000, 1.000, 1.000></code>
{{!}}-
{{!}} style="background: #dddddd" {{!}}SILVER
{{!}} #dddddd
{{!}}<code><0.867, 0.867, 0.867></code>
{{!}}-
{{!}} style="background: #aaaaaa" {{!}}GRAY
{{!}} #aaaaaa
{{!}}<code><0.667, 0.667, 0.667></code>
{{!}}-
{{!}} style="color: white; background: #111111" {{!}}BLACK
{{!}} #111111
{{!}}<code><0.067, 0.067, 0.067></code>
{{!}}}
|also_functions=
{{LSL DefineRow||[[llGetAlpha]]|Gets the prim's alpha}}
{{LSL DefineRow||[[llSetAlpha]]|Sets the prim's alpha}}
{{LSL DefineRow||[[llGetColor]]|Gets the prim's color}}
{{LSL DefineRow||[[llSetColor]]|Sets the prim's color}}
{{LSL DefineRow||[[llSetLinkAlpha]]|}}
{{LSL DefineRow||[[llSetLinkTexture]]|}}
{{LSL DefineRow||[[llSetLinkPrimitiveParams]]|}}
|also_tests
|also_events={{LSL DefineRow||[[changed]]|[[CHANGED_COLOR]]}}
|also_articles=
{{LSL DefineRow||[[Color and Scripting]]}}
|notes
|deprecated
|cat1=Link/Set
|cat2
|cat3
|cat4
}}

LlSetLinkMedia

2015-01-22T21:31:07Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2={{LSL_Function/face|face|notall=*}}{{LSL_Function/link|link|nogroup=*}}{{Issues/SVC-7422}}
|func_id=?|func_sleep=0.0|func_energy=0.0|mode
|func=llSetLinkMedia|return_type=integer|return_subtype=status
|p1_type=integer|p1_subtype=link|p1_name=link|p1_desc
|p2_type=integer|p2_name=face|p2_desc
|p3_type=list|p3_subtype=instructions|p3_name=params|p3_desc=a set of name/value pairs (in no particular order)
|func_footnote=
|func_desc=Set the media {{LSLP|params}} for a particular {{LSLP|face}} on the {{LSLP|link}}ed prim(s) without a delay.
|return_text=that is a STATUS_* flag which details the success/failure of the operation(s).
|spec=
|caveats=*If prim-media is not already on this object, add it.
*Params not specified are unchanged, or if new media is added set to the default specified.
* Both width and height must be specified together to work, and they narrow the texture space while inversely widening the aperture.
** width and height scaled larger than 1024pixels will require the texture backdrop to be resized to fit(see [[#Useful_Snippets|Useful Snippets]])
*** if resized to fit, the resulting view will cut off scrolled content outside the bounds making it impossible to be viewed
|constants={{LSL Constants/ReturnStatus|table=*|sortable=*}}{{LSL Constants/PrimMedia|set}}
|examples
|helpers=<source lang="lsl2">//-- expand media textures greater than 1024 pixel in a direction to fit the media face
//-- does exactly what the "align" button does in the edit window
//-- original by Edelman Linden (or Kate Linden), tweaked by Void Singer
uExpandMediaTexture( integer vIntWidth, integer vIntHeight, integer vIntFace ){
integer vIntTemp;
vector vSizScale;

while (vIntWidth >> ++vIntTemp);
vSizScale.x = vIntWidth / (float)(1 << vIntTemp);
vIntTemp = 0;
while (vIntHeight >> ++vIntTemp);
vSizScale.y = vIntHeight / (float)(1 << vIntTemp);
llSetLinkPrimitiveParamsFast( LINK_THIS,
[PRIM_TEXTURE, vIntFace] +
llListReplaceList( llGetLinkPrimitiveParams(LINK_THIS, [PRIM_TEXTURE, vIntFace] ),
[vSizScale, ((vSizScale - <1.0, 1.0, 0.0>) / 2.0)],
1,
2 ) );
}</source>
|also_functions=
{{LSL DefineRow||[[llSetPrimMediaParams]]}}
{{LSL DefineRow||[[llGetLinkMedia]]}}
{{LSL DefineRow||[[llClearLinkMedia]]}}
|also_tests
|also_events=
|also_articles=*[[User:Kelly Linden/lsl hacks]]
|notes
|deepnotes
|history = Date of Release [[ Release_Notes/Second_Life_Server/11#11.08.10.238207 | 10/08/2011 ]]
|cat1=Prim Media
|cat2=Media
|cat3=Link/Set
|cat4
}}
[[Category:Shared Media]]

LlSetLinkTexture

2015-01-22T21:29:59Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-1={{Issues/SVC-1500}}{{Issues/SVC-3199}}{{Issues/SVC-914}}
{{LSL Function/inventory|texture|uuid=true|type=texture|full=*}}{{LSL Function/link-face|link|face}}
|func_id=329|func_sleep=0.2|func_energy=10.0
|func=llSetLinkTexture
|p1_type=integer|p1_name=link
|p2_type=string|p2_name=texture
|p3_type=integer|p3_name=face
|func_footnote
|func_desc=If a prim exists in the link set at {{LSLP|link}}, set {{LSLP|texture}} on {{LSLP|face}} of that prim.
|return_text
|spec
|sort=SetLinkTexture
|caveats
|constants
|examples=Cover a link set in the texture "bark" (from the library)
<source lang="lsl2">
default
{
touch_start(integer detected)
{
llSetLinkTexture(LINK_SET, "66bf4030-04f9-a808-43ab-b48b6aeb6456", ALL_SIDES);
}
}
</source>
|helpers= ===SetLinkTextureFast===
This function doesn't have the 0.2 second delay. It's not very fast anyway though, but faster than '''llSetLinkTexture'''.
<source lang="lsl2">
SetLinkTextureFast(integer link, string texture, integer face)
{
// Obtain the current texture parameters and replace the texture only.
// If we are going to apply the texture to ALL_SIDES, we need
// to adjust the returned parameters in a loop, so that each face
// keeps its current repeats, offsets and rotation.
list Params = llGetLinkPrimitiveParams(link, [PRIM_TEXTURE, face]);
integer idx;
face *= face > 0; // Make it zero if it was ALL_SIDES
// This part is tricky. The list returned by llGLPP has a 4 element stride
// (texture, repeats, offsets, angle). But as we modify it, we add two
// elements to each, so the completed part of the list has 6 elements per
// stride.
integer NumSides = llGetListLength(Params) / 4; // At this point, 4 elements per stride
for (idx = 0; idx < NumSides; ++idx)
{
// The part we've completed has 6 elements per stride, thus the *6.
Params = llListReplaceList(Params, [PRIM_TEXTURE, face++, texture], idx*6, idx*6);
}
llSetLinkPrimitiveParamsFast(link, Params);
}
</source>
|also_functions=
{{LSL DefineRow||[[llSetLinkAlpha]]|}}
{{LSL DefineRow||[[llSetLinkColor]]|}}
{{LSL DefineRow||[[llSetLinkPrimitiveParams]]|}}
|also_tests
|also_events
|also_articles
|notes
|deprecated
|cat1=Texture
|cat2=Link/Set
|cat3
|cat4
|history =
*Date of release [[ Release_Notes/Second_Life_Release/1.13#Release_Notes_for_Second_Life_1.13.4.281.29_February_21.2C_2007 | 21-02-2007 ]]
}}

LlSetLinkTextureAnim

2015-01-22T21:28:41Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL_Function
|inject-2=
{{LSL_Function/link|link}}
{{LSL_Function/face|face}}
{{Issues/SVC-3925}}
{{Issues/SVC-1242}}
{{Issues/VWR-4018}}
|inject-3=
{{LSL_Function/negative index|true|start|length={{LSLPT|length}}}}
|func_id=356
|func_sleep=0.0
|func_energy=10.0
|sort=SetLinkTextureAnim
|func=llSetLinkTextureAnim
|p1_type=integer|p1_subtype=link|p1_name=link|p1_desc=to effect|p1_hover=to effect
|p2_type=integer|p2_subtype=bit_field|p2_name=mode|p2_desc=bit field of Mode flags
|p3_type=integer|p3_name=face
|p4_type=integer|p4_name=sizex|p4_desc=horizontal frames (ignored for [[ROTATE]] and [[SCALE]])
|p5_type=integer|p5_name=sizey|p5_desc=vertical frames (ignored for [[ROTATE]] and [[SCALE]])
|p6_type=float|p6_name=start|p6_desc=Start position/frame number (or radians for [[ROTATE]])
|p7_type=float|p7_name=length|p7_desc=number of frames to display (or radians for [[ROTATE]])
|p8_type=float|p8_name=rate|p8_desc=frames per second (must not be zero)
|func_footnote=Frames are numbered from left to right, top to bottom, starting at 0.<br/>If {{LSLP|rate}} is negative, it has the same effect as using the [[REVERSE]] flag.{{Footnote|Though if {{LSLP|rate}} is negative and the [[REVERSE]] flag is used, they cancel each other out.|Though if rate is negative and the REVERSE flag is used, they cancel each other out.}}
|func_desc=Animate the texture on the specified face/faces of the specified prim/prims by setting the texture scale and offset. Identical to [[llSetTextureAnim]] except able to modify any prim in the link set.
|return_text
|spec=
===Frames===
Frames are sub-rectangles within the texture. A set of frames with 2 horizontal ({{LSLP|sizex}}) and 3 vertical ({{LSLP|sizey}}) means the overall texture is divided into 3 rows of 2 columns of images, each of which is a frame. llSetLinkTextureAnim will animate across these 6 starting with the top left image and going across and down, optionally repeating. If [[SMOOTH]] is set the frames slide smoothly from one to the next, if off, each frame is displayed in turn centered on the face.
|caveats=*You can only have one texture animation on a prim
**Calling llSetLinkTextureAnim more than once on a prim will reset it.
**Calling llSetLinkTextureAnim again with exact same values will not reset animation (a small difference in rate will suffice).
*You cannot combine [[ROTATE]] and [[SCALE]] flags.
*{{LSLP|sizex}} & {{LSLP|sizey}} are both limited to a range of 0 to 255
*llSetLinkTextureAnim, when on, shows the texture with 1 repeat in X and Y and 0 rotation and offset.
*Selecting and un-selecting a prim with animation will reset animation from beginning.
|constants={{{!}} class="sortable collapsible" {{Prettytable|style=margin-top:0;}}
{{!}}-{{Hl2}}
! Modes
! title="Value" {{!}}
! class="unsortable" {{!}} Description
{{!}}-
{{!}}[[ANIM_ON]]
{{!}}{{LSL Hex||1|chars=2}}
{{!}}Texture animation is on. This must be set to start the animation, cleared to stop it.
{{!}}-
{{!}}[[LOOP]]
{{!}}{{LSL Hex||2|chars=2}}
{{!}}Loop the texture animation.
{{!}}-
{{!}}[[REVERSE]]
{{!}}{{LSL Hex||4|chars=2}}
{{!}}Play animation in reverse direction.
{{!}}-
{{!}}[[PING_PONG]]
{{!}}{{LSL Hex||8|chars=2}}
{{!}}Play animation going forwards, then backwards.
{{!}}-
{{!}}[[SMOOTH]]
{{!}}{{LSL Hex||16|chars=2}}
{{!}}Slide in the X direction, instead of playing separate frames.<br/>In both [[SCALE]] and [[ROTATE]] modes, causes smooth transitions.
{{!}}-
{{!}}[[ROTATE]]
{{!}}{{LSL Hex||32|chars=2}}
{{!}}Animate texture rotation.<br>Does not work with [[SCALE]]
{{!}}-
{{!}}[[SCALE]]
{{!}}{{LSL Hex||64|chars=2}}
{{!}}Animate the texture scale.<br>Does not work with [[ROTATE]]
{{!}}}
|examples=
This slides a texture smoothly, along the horizontal U-axis, and loops it when it gets to the end. Note - the texture's rotation for each side affects the apparent motion. So if the texture is rotated 90 degrees by use of the edit box, the texture may not flow in the direction expected.

<source lang="lsl2">llSetLinkTextureAnim(LINK_THIS, ANIM_ON | SMOOTH | LOOP , ALL_SIDES, 1, 1, 1, 1, 1);</source>

This slides a texture smoothly, along the horizontal U-axis, in the opposite direction
<source lang="lsl2">llSetLinkTextureAnim(LINK_THIS, ANIM_ON | SMOOTH | LOOP , ALL_SIDES, 1, 1, 1, 1, -1);</source>

This divides a texture into 64 "cells", 8 across, and 8 down, and flips through them, left to right, top to bottom. This is useful for cell animation.
<source lang="lsl2">llSetLinkTextureAnim(LINK_THIS, ANIM_ON | LOOP, ALL_SIDES, 8, 8, 0, 64, 6.4 );</source>

This rotates a texture counter-clockwise at 2 revolutions per second. Change the last value to -2*TWO_PI to rotate clockwise.
<source lang="lsl2">llSetLinkTextureAnim(LINK_THIS, ANIM_ON | SMOOTH | ROTATE | LOOP, ALL_SIDES,1,1,0, TWO_PI, 2*TWO_PI);</source>

This scales a texture larger and smaller.
<source lang="lsl2">llSetLinkTextureAnim(LINK_THIS, ANIM_ON | SMOOTH | SCALE | PING_PONG | LOOP, ALL_SIDES, 1, 1, 1, 3, 2);</source>

This turns off all texture animations
<source lang="lsl2">llSetLinkTextureAnim(LINK_THIS, FALSE, ALL_SIDES, 0, 0, 0.0, 0.0, 1.0);</source>

|helpers
|also_functions=
{{LSL DefineRow||[[llSetTextureAnim]]|Set texture animation for the prim the script is on.}}
|also_events
|also_articles
|notes=
Texture animation is a property of the prim (i.e., you can remove the script that started the animation, and the prim will remember the settings anyway.) Note, though, that as of Jan 2009, texture animation is still one of the prim properties that are lost when using the rezzed in world copy method of shift-drag. Originally brought up in {{Jira|VWR-640}}, it got its own issue in [[#SVC-3925|SVC-3925]]

An online-tool for rough and ready conversion of moving gifs to animated textures is here: http://www.peregrinesalon.com/anim/ (link valid as of Jan 2009.)
|cat1=Media
|cat2=Effects
|cat3=Texture
|cat4=Video
|cat5
|cat6
|history= *Date of release [[ Release_Notes/Second_Life_Server/1.38#New_Features | 29-03-2010 ]]
}}

LlSetLocalRot

2015-01-22T21:26:13Z

Lady Sumoku: Replaced old <LSL> block with <source lang="lsl2">

{{LSL Function
|func_id=284|func_sleep=0.2|func_energy=10.0
|func=llSetLocalRot
|p1_type=rotation|p1_name=rot|p1_desc
|func_desc=Sets the rotation of a child prim relative to the root prim
|return_text
|spec
|caveats
|constants
|examples=Drop this script in a prim* to rotate it in 1 degree increments. *This prim must be attached as child of a root prim.
<source lang="lsl2">rotation rot_xyzq;

default
{
state_entry()
{
vector xyz_angles = <0,1.0,0>; // This is to define a 1 degree change
vector angles_in_radians = xyz_angles*DEG_TO_RAD; // Change to Radians
rot_xyzq = llEuler2Rot(angles_in_radians); // Change to a Rotation
}

touch_start(integer s)
{
llSetLocalRot(llGetLocalRot()*rot_xyzq); //Do the Rotation...

}
}</source>
|helpers=
<source lang="lsl2">//-- this is an equivalent call from any prim in the same link set
llSetLinkPrimitiveParamsFast( target_prim, [PRIM_ROT_LOCAL, rot] );
//-- where "target_prim" is the link number of the prim you want to set the local rotation of</source>
|also_functions=
{{LSL DefineRow||[[llGetRot]]|}}
{{LSL DefineRow||[[llGetLocalRot]]|}}
{{LSL DefineRow||[[llGetRootRotation]]|}}
{{LSL DefineRow||[[llGetPrimitiveParams]]|}}
{{LSL DefineRow||[[llGetLinkPrimitiveParams]]|}}
{{LSL DefineRow||[[llSetRot]]|}}
{{LSL DefineRow||[[llSetPrimitiveParams]]|}}
{{LSL DefineRow||[[llSetLinkPrimitiveParams]]|}}
{{LSL DefineRow||[[llSetLinkPrimitiveParamsFast]]|}}
|also_tests
|also_events
|also_articles
|notes
|cat1=Movement
|cat2=Rotation
|haiku={{Haiku|Carousel horses|Race, ever facing forward.|Turn without turning.}}
|cat3
|cat4
}}