Second Life Wiki - User contributions [en]

Creative Commons License Machine/Badge Script

2007-09-23T05:36:16Z

Zarf Vantongerloo: New page: <pre> float gTouchTimeout = 30.0; // constant integer gDialogChannel = 85021; // constant integer gKioskChannel; integer gKioskListener; key gOriginalKey = NULL_KEY; list gParams; /...

<pre>
float gTouchTimeout = 30.0; // constant
integer gDialogChannel = 85021; // constant

integer gKioskChannel;
integer gKioskListener;

key gOriginalKey = NULL_KEY;

list gParams;
// user parameters, stride two: [ <param>, <value> ... ]

string gLicenseImage;
string gLicenseURL;
string gLicenseName;
string gLicenseDescription;

string gFullTitle;
string gShortTitle;

integer gListener;

integer gCatalog = FALSE;
float gCatalogRate = 86400.0; // once a day
float gCatalogTime;

addParam(string param, string value)
{
gParams += [ param, value ];
}

string
getParam(string param)
{
integer i = llListFindList(gParams, [ param ]);
if (i < 0) return "";

return llList2String(gParams, i + 1);
}

reciteParam(string param, string prompt)
{
string value = getParam(param);
if (value == "") return;

llSay(0, prompt + value);
}

aboutWork()
{
llSetObjectName(gShortTitle);
reciteParam("title", "Title: ");
reciteParam("description", "Description: ");
reciteParam("tags", "Tags: ");
reciteParam("format", "Format: ");
reciteParam("creator", "Creator: ");
reciteParam("holder", "Copyright Holder: ");
reciteParam("year", "Copyright Year: ");
reciteParam("source", "Source URL: ");
llSetObjectName(gFullTitle);
}

emailCatalog()
{
string message;

message += "original-key: " + (string)gOriginalKey + "\n";
message += "current-key: " + (string)llGetKey() + "\n";

integer n = llGetListLength(gParams);
integer i;
for (i = 0; i < n; i += 2) {
string param = llList2String(gParams, i);
string value = llList2String(gParams, i + 1);
message += param + ": " + value + "\n";
}

llEmail("ccsl-object@notabene-sl.com", "list", message);

gCatalogTime = llGetGMTclock();
}

addToCatalog()
{
llInstantMessage(llGetOwner(), "Listing in catalog (takes about 20 seconds)...");
gCatalog = TRUE;
emailCatalog();
llInstantMessage(llGetOwner(), "...done.");
}

removeFromCatalog()
{
llInstantMessage(llGetOwner(), "Removing from catalog (takes about 20 seconds)...");

gCatalog = FALSE;

string message;

message += "original-key: " + (string)gOriginalKey + "\n";
message += "current-key: " + (string)llGetKey() + "\n";

llEmail("ccsl-object@notabene-sl.com", "unlist", message);

llInstantMessage(llGetOwner(), "...done.");
}

setUp()
{
string commercialUse = getParam("commercial-use");
string modifications = getParam("modifications");

string license = "by";
if (commercialUse == "no") { license += "-nc"; }
if (modifications == "no") { license += "-nd"; }
if (modifications == "share") { license += "-sa"; }

gLicenseURL = "http://creativecommons.org/licenses/" + license + "/2.5/";

gLicenseName = "Creative Commons Attribution";
if (commercialUse == "no") { gLicenseName += "-NonCommercial"; }
if (modifications == "no") { gLicenseName += "-NoDerivs"; }
if (modifications == "share") { gLicenseName += "-ShareAlike"; }
gLicenseName += " 2.5 License";

gLicenseDescription = "This work is licensed under a " + gLicenseName;

gLicenseImage = getParam("image-key");

gShortTitle = "CC Notice";
gFullTitle = "Creative Commons Notice";

string title = getParam("title");
if (title != "") {
gFullTitle += " for \"" + title + "\"";
}

llSetObjectName(gFullTitle);
llSetObjectDesc(gLicenseDescription);
}

showLicenseImage()
{
llSetPrimitiveParams([
PRIM_TEXTURE, 2, gLicenseImage, <1.0, 0.8, 1.0>, <0.0, 0.075, 0.0>, 0.0,
PRIM_TEXTURE, 4, gLicenseImage, <1.0, 0.8, 1.0>, <0.0, 0.075, 0.0>, 0.0
]);
}

showBadgeImage()
{
llSetPrimitiveParams([
PRIM_TEXTURE, 2, "badge", <1.0, 1.0, 1.0>, <0.0, 0.0, 0.0>, 0.0,
PRIM_TEXTURE, 4, "badge", <1.0, 1.0, 1.0>, <0.0, 0.0, 0.0>, 0.0
]);
}

default
{
on_rez(integer ch) {
if (ch == 0) {
if (gOriginalKey != NULL_KEY) {
llOwnerSay("You took a copy of this cc license before it was ready, . Please generate a new one.");
llDie();
}
else {
// user rez from inventory of prototype
}
}
else {
// rez from kiosk
gOriginalKey = llGetKey();
gKioskChannel = ch;
llListen(gKioskChannel, "", NULL_KEY, "");
llSay(gKioskChannel, "go");
}
}

listen(integer ch, string who, key id, string what) {
integer i = llSubStringIndex(what, ":");
if (i > 0) {
string param = llGetSubString(what, 0, i - 1);
string value = llGetSubString(what, i + 1, -1);
addParam(param, value);
}
else {
if (llGetSubString(what, 0, 3) == "done") {
vector p = (vector)llGetSubString(what, 5, -1);
vector s = <0.1, 0.512, 0.180>;
llSetPrimitiveParams([
PRIM_SIZE, s,
PRIM_POSITION, p,
PRIM_TEXTURE, 2, "badge", <1, 1, 1>, <0, 0, 0>, 0.0,
PRIM_TEXTURE, 4, "badge", <1, 1, 1>, <0, 0, 0>, 0.0
]);
setUp();
state ready;
}
}
}

touch_start(integer n) { }
}

state ready
{
state_entry() {
llSay(0, "Take a copy of this badge, then attach it to the work.");
if (gKioskChannel != 0) {
gKioskListener = llListen(gKioskChannel, "", NULL_KEY, "");
}
}

on_rez(integer n) {
if (gKioskChannel != 0) {
llListenRemove(gKioskListener);
gKioskChannel = 0;
}
}

state_exit() {
llSetTimerEvent(0.0);
}

touch_start(integer n) {
showLicenseImage();
gListener = llListen(gDialogChannel, "", NULL_KEY, "");

integer i;
for (i = 0; i < n; ++i) {
key id = llDetectedKey(i);

string message =
gLicenseDescription
+ "\n\nDeed: go to deed page on web"
+ "\nAbout: speak details about the work";

list buttons = [ "Deed", "About" ];

if (id == llGetOwner()) {
if (!gCatalog) {
message += "\nList: add object to public catalog at http://www.notabene-sl.com/cc";
buttons += [ "List" ];
}
else {
message += "\nUnlist: remove item from public catalog at http://www.notabene-sl.com/cc";
buttons += [ "Unlist" ];
}
}

llDialog(id, message, buttons, gDialogChannel);
}

llSetTimerEvent(gTouchTimeout);
}

listen(integer ch, string who, key id, string what) {
if (what == "Deed") {
llLoadURL(id, gLicenseName, gLicenseURL);
}
else if (what == "About") {
aboutWork();
}
else if (what == "die") {
llDie();
}
else if (id == llGetOwner()) {
if (what == "List") {
addToCatalog();
}
else if (what == "Unlist") {
removeFromCatalog();
}
}
}

timer() {
showBadgeImage();
llListenRemove(gListener);

if (gCatalog) {
if ((llGetGMTclock() - gCatalogTime) >= gCatalogRate) {
emailCatalog();
}
llSetTimerEvent(gCatalogRate);
}
else {
llSetTimerEvent(0.0);
}
}
}
</pre>

Creative Commons License Machine/Kiosk Script

2007-09-23T05:33:32Z

Zarf Vantongerloo: New page: The kiosk is actually just a general purpose state machine engine. The particular state machine that is used for the Creative Commons LIcense Machine is in the Kiosk Program. <pre> k...

The kiosk is actually just a general purpose state machine engine. The particular state machine that is used for the Creative Commons LIcense Machine is in the [[Kiosk Program]].

<pre>
key gBlankTexture = "5748decc-f629-461c-9a36-a35a221fe21f"; // well known

float gTimeOut = 60.0;

integer gUserListener = 0;

integer gLicenseChannel = 0;
integer gLicenseListener = 0;

string gNode;
list gPath;
// path of nodes, including current node at the end

key gUser = NULL_KEY;
// user we are interacting with

list gParams;
// user parameters, stride two: [ <key>, <value> ... ]

string gAltTrigger;
key gArgID;
string gArgMessage;

clearUse()
{
gNode = "";
gPath = [ ];
gUser = NULL_KEY;
gParams = [ ];

clearNode();
}

clearNode()
{
gTimeOut = 30.0;
}

cmdGo(string node)
{
gNode = node;
gPath += [ node ];
llMessageLinked(LINK_THIS, 200, node, NULL_KEY);

clearNode();
runAnyAction("init", "", NULL_KEY, "");

llSetTimerEvent(gTimeOut);
if (gUserListener) { llListenRemove(gUserListener); }
gUserListener = llListen(0, "", gUser, "");
}

cmdReset()
{
clearUse();
cmdGo("start");
}

cmdBack()
{
integer n = llGetListLength(gPath);
if (n >= 2) {
string node = llList2String(gPath, -2);
gPath = llDeleteSubList(gPath, -2, -1);
cmdGo(node);
}
else {
cmdReset();
}
}

cmdUser(key id)
{
gUser = id;
}

cmdAnyone()
{
gUser = NULL_KEY;
}

cmdTimeOut(float t)
{
gTimeOut = t;
}

cmdImage(string inv)
{
llSetTexture(inv, 0);
}

cmdSay(string text)
{
llSay(0, text);
}

cmdMovie() { }

cmdGive(string inv)
{
llGiveInventory(gUser, inv);
}

cmdWebsite()
{
llLoadURL(gUser, "View the Creative Commons web site.",
"http://creativecommons.org/");
}

cmdSet(string param, string value)
{
integer i = llListFindList(gParams, [ param ]);
if (i < 0) {
gParams += [ param, value ];
}
else {
gParams = llListReplaceList(gParams, [ value ], i + 1, i + 1);
}
}

cmdSetUser(string param)
{
cmdSet(param, llKey2Name(gUser));
}

cmdSetNow(string param)
{
cmdSet(param, llGetSubString(llGetDate(), 0, 3));
}

string
getParam(string param)
{
integer i = llListFindList(gParams, [ param ]);
if (i < 0) return "";

return llList2String(gParams, i + 1);
}

cmdReport(string param, string prompt)
{
string value = getParam(param);
if (value == "") return;

llSay(0, prompt + value);
}

cmdLicenseImage()
{
string commercialUse = getParam("commercial-use");
string modifications = getParam("modifications");

string license = "by";
if (commercialUse == "no") { license += "-nc"; }
if (modifications == "no") { license += "-nd"; }
if (modifications == "share") { license += "-sa"; }

string imageName = "lic-" + license;
cmdImage(imageName);

cmdSet("image-key", llGetInventoryKey(imageName));
}

cmdLicenseRez()
{
gLicenseChannel = 10000000 + (integer)llFrand(10000000.0);
gLicenseListener = llListen(gLicenseChannel, "", NULL_KEY, "");

rotation r = llEuler2Rot(<0, -45, 0> * DEG_TO_RAD) * llGetRot();

llRezObject("badge",
llGetPos() + <-0.358, 0.0, 0.523> * r,
ZERO_VECTOR,
r,
gLicenseChannel);
}

finishLicense()
{
llListenRemove(gLicenseListener);

integer n = llGetListLength(gParams);
integer i;
for (i = 0; i < n; i += 2) {
string param = llList2String(gParams, i);
string value = llList2String(gParams, i + 1);
llSay(gLicenseChannel, param + ":" + value);
}

rotation r = llEuler2Rot(<0, -45, 0> * DEG_TO_RAD) * llGetRot();
vector p = llGetPos() + <-0.358, 0.0, 0.761> * r;
llSay(gLicenseChannel, "done " + (string)p);
}

cmdLicenseDie()
{
if (gLicenseChannel != 0) {
llSay(gLicenseChannel, "die");
gLicenseChannel = 0;
}
}

executeStatement(string statement)
{
integer sep = llSubStringIndex(statement, "|");
string tail = "";
if (sep >= 1) {
tail = llGetSubString(statement, sep + 1, -1);
statement = llGetSubString(statement, 0, sep - 1);
}
list parts = llParseString2List(statement, [ " " ], [ ]);
if (tail != "") {
parts += [ tail ];
}

string cmd = llList2String(parts, 0);
string arg1 = llList2String(parts, 1);
string arg2 = llList2String(parts, 2);
if (arg2 == "*") { arg2 = gArgMessage; }

if (cmd == "back") { cmdBack(); }
else if (cmd == "go") { cmdGo(arg1); }
else if (cmd == "reset") { cmdReset(); }
else if (cmd == "user") { cmdUser(gArgID); }
else if (cmd == "anyone") { cmdAnyone(); }
else if (cmd == "timeout") { cmdTimeOut((float)arg1); }
else if (cmd == "image") { cmdImage(arg1); }
else if (cmd == "say") { cmdSay(arg1); }
else if (cmd == "movie") { cmdMovie(); }
else if (cmd == "give") { cmdGive(arg1); }
else if (cmd == "website") { cmdWebsite(); }
else if (cmd == "set") { cmdSet(arg1, arg2); }
else if (cmd == "setUser") { cmdSetUser(arg1); }
else if (cmd == "setNow") { cmdSetNow(arg1); }
else if (cmd == "report") { cmdReport(arg1, arg2); }
else if (cmd == "licenseImage") { cmdLicenseImage(); }
else if (cmd == "licenseRez") { cmdLicenseRez(); }
else if (cmd == "licenseDie") { cmdLicenseDie(); }
else {
llOwnerSay("Unknown command: " + cmd);
}
}

executeBlock(string block)
{
list statements = llParseString2List(block,
[ " ; ", " ;", "; ", ";" ], [ ]);
integer n = llGetListLength(statements);
integer i;
for (i = 0; i < n; ++i) {
executeStatement(llList2String(statements, i));
}
}

runAnyAction(string trigger, string altTrigger, key id, string message)
{
gAltTrigger = altTrigger;
gArgID = id;
gArgMessage = message;

llMessageLinked(LINK_THIS, 300, trigger, NULL_KEY);
}

default
{
state_entry() {
llSetTexture(gBlankTexture, 0);
llOwnerSay("Touch to start up.");
}

touch_start(integer n)
{
if (llDetectedKey(0) == llGetOwner()) {
state readProgram;
}
else {
llSay(0, "This kiosk is under construction.");
}
}
}

state readProgram
{
state_entry() {
llSetTexture(gBlankTexture, 0);
llMessageLinked(LINK_THIS, 100, "", NULL_KEY);
}

state_exit() {
llOwnerSay("main memory: " + (string)llGetFreeMemory());
}

link_message(integer sender, integer num, string str, key id) {
if (num == 101) {
state run;
}
}
touch_start(integer n) { }
on_rez(integer n) { llResetScript(); }
}

state run
{
state_entry() {
cmdReset();
}

state_exit() {
llSetTimerEvent(0.0);
}

touch_start(integer n) {
key id = llDetectedKey(0);
if (gUser != NULL_KEY && gUser != id) { return; }
runAnyAction("touch", "", id, "");
llSetTimerEvent(gTimeOut);
}

listen(integer ch, string who, key id, string message) {
if (ch != 0 && ch == gLicenseChannel) {
finishLicense();
return;
}

string trigger = "\"" + llToLower(message) + "\"";
runAnyAction(trigger, "listen", id, message);
llSetTimerEvent(gTimeOut);
}

changed(integer what) {
if (what & CHANGED_INVENTORY) {
state readProgram;
}
}

link_message(integer sender, integer num, string str, key id) {
if (num == 301) {
executeBlock(str);
}
else if (num == 399) {
if (gAltTrigger != "") {
llMessageLinked(LINK_THIS, 300, gAltTrigger, NULL_KEY);
gAltTrigger = "";
}
}
}

timer() {
cmdReset();
}

on_rez(integer n) { llResetScript(); }
}
</pre>

Creative Commons License Machine/Kiosk Program

2007-09-23T05:32:50Z

Zarf Vantongerloo: New page: This relies on a set of images, that I still haven't uploaded... <pre> == default "help": give Creative-Commons-Help "restart": reset "back": back touch: say | Say one of the red menu opt...

This relies on a set of images, that I still haven't uploaded...

<pre>
== default
"help": give Creative-Commons-Help
"restart": reset
"back": back
touch: say | Say one of the red menu options on the screen.

== start
init: image opener; timeout 0; anyone; licenseDie
"start": user; go intro
touch: user; go intro

== intro
init: image intro
"next": go menu
touch: go menu

== menu
init: image menu-alt
"start": say | Great, let's begin; go step-1
"movie": go movies
"web": website

== movies
init: image movies
"past": go screen
"creative": go screen

== screen
init: image screen
"stop": back

== step-1
init: image step-1; report commercial-use | Commercial use allowed:
"yes": set commercial-use yes; go step-2
"no": set commercial-use no; go step-2

== step-2
init: image step-2; report modifications | Work can be modified:
"yes": set modifications yes; go step-3
"share": set modifications share; go step-3
"no": set modifications no; go step-3

== step-3
init: image step-3; report format | Format:
listen: set format *; go step-4

== step-4
init: image step-4; licenseDie
"a": go step-4a
"b": go step-4b
"c": go step-4c
"d": go step-4d
"e": go step-4e
"f": go step-4f
"g": go step-4g
"next": go lic; licenseRez
"done": go lic; licenseRez
touch: go lic; licenseRez

== step-4a
init: image step-4a; timeout 180; report title | Title:
listen: set title *; back
"skip": back

== step-4b
init: image step-4b; timeout 240; report description | Description:
listen: set description *; back
"skip": back

== step-4c
init: image step-4c; timeout 180; report tags | Tags:
listen: set tags *; back
"skip": back

== step-4d
init: image step-4d; timeout 120; report creator | Creator:
listen: set creator *; back
"me": setUser creator; back
"skip": back

== step-4e
init: image step-4e; timeout 120; report holder | Copyright Holder:
listen: set holder *; back
"me": setUser holder; back
"skip": back

== step-4f
init: image step-4f; report year | Copyright Year:
listen: set year *; back
"now": setNow year; back
"skip": back

== step-4g
init: image step-4g; timeout 180; report source | Source URL:
listen: set source *; back
"skip": back

== lic
init: licenseImage; timeout 300
"next": go next
touch: go next

== next
init: image next; anyone; timeout 300
"done": reset
touch: reset

</pre>

Creative Commons License Machine/Kiosk Script

2007-09-23T05:32:29Z

Zarf Vantongerloo:

The kiosk is actually just a general purpose state machine engine. The particular state machine that is used for the Creative Commons LIcense Machine is in the [[Creative Commons License Machine/Kiosk Program]].

<pre>
key gBlankTexture = "5748decc-f629-461c-9a36-a35a221fe21f"; // well known

float gTimeOut = 60.0;

integer gUserListener = 0;

integer gLicenseChannel = 0;
integer gLicenseListener = 0;

string gNode;
list gPath;
// path of nodes, including current node at the end

key gUser = NULL_KEY;
// user we are interacting with

list gParams;
// user parameters, stride two: [ <key>, <value> ... ]

string gAltTrigger;
key gArgID;
string gArgMessage;

clearUse()
{
gNode = "";
gPath = [ ];
gUser = NULL_KEY;
gParams = [ ];

clearNode();
}

clearNode()
{
gTimeOut = 30.0;
}

cmdGo(string node)
{
gNode = node;
gPath += [ node ];
llMessageLinked(LINK_THIS, 200, node, NULL_KEY);

clearNode();
runAnyAction("init", "", NULL_KEY, "");

llSetTimerEvent(gTimeOut);
if (gUserListener) { llListenRemove(gUserListener); }
gUserListener = llListen(0, "", gUser, "");
}

cmdReset()
{
clearUse();
cmdGo("start");
}

cmdBack()
{
integer n = llGetListLength(gPath);
if (n >= 2) {
string node = llList2String(gPath, -2);
gPath = llDeleteSubList(gPath, -2, -1);
cmdGo(node);
}
else {
cmdReset();
}
}

cmdUser(key id)
{
gUser = id;
}

cmdAnyone()
{
gUser = NULL_KEY;
}

cmdTimeOut(float t)
{
gTimeOut = t;
}

cmdImage(string inv)
{
llSetTexture(inv, 0);
}

cmdSay(string text)
{
llSay(0, text);
}

cmdMovie() { }

cmdGive(string inv)
{
llGiveInventory(gUser, inv);
}

cmdWebsite()
{
llLoadURL(gUser, "View the Creative Commons web site.",
"http://creativecommons.org/");
}

cmdSet(string param, string value)
{
integer i = llListFindList(gParams, [ param ]);
if (i < 0) {
gParams += [ param, value ];
}
else {
gParams = llListReplaceList(gParams, [ value ], i + 1, i + 1);
}
}

cmdSetUser(string param)
{
cmdSet(param, llKey2Name(gUser));
}

cmdSetNow(string param)
{
cmdSet(param, llGetSubString(llGetDate(), 0, 3));
}

string
getParam(string param)
{
integer i = llListFindList(gParams, [ param ]);
if (i < 0) return "";

return llList2String(gParams, i + 1);
}

cmdReport(string param, string prompt)
{
string value = getParam(param);
if (value == "") return;

llSay(0, prompt + value);
}

cmdLicenseImage()
{
string commercialUse = getParam("commercial-use");
string modifications = getParam("modifications");

string license = "by";
if (commercialUse == "no") { license += "-nc"; }
if (modifications == "no") { license += "-nd"; }
if (modifications == "share") { license += "-sa"; }

string imageName = "lic-" + license;
cmdImage(imageName);

cmdSet("image-key", llGetInventoryKey(imageName));
}

cmdLicenseRez()
{
gLicenseChannel = 10000000 + (integer)llFrand(10000000.0);
gLicenseListener = llListen(gLicenseChannel, "", NULL_KEY, "");

rotation r = llEuler2Rot(<0, -45, 0> * DEG_TO_RAD) * llGetRot();

llRezObject("badge",
llGetPos() + <-0.358, 0.0, 0.523> * r,
ZERO_VECTOR,
r,
gLicenseChannel);
}

finishLicense()
{
llListenRemove(gLicenseListener);

integer n = llGetListLength(gParams);
integer i;
for (i = 0; i < n; i += 2) {
string param = llList2String(gParams, i);
string value = llList2String(gParams, i + 1);
llSay(gLicenseChannel, param + ":" + value);
}

rotation r = llEuler2Rot(<0, -45, 0> * DEG_TO_RAD) * llGetRot();
vector p = llGetPos() + <-0.358, 0.0, 0.761> * r;
llSay(gLicenseChannel, "done " + (string)p);
}

cmdLicenseDie()
{
if (gLicenseChannel != 0) {
llSay(gLicenseChannel, "die");
gLicenseChannel = 0;
}
}

executeStatement(string statement)
{
integer sep = llSubStringIndex(statement, "|");
string tail = "";
if (sep >= 1) {
tail = llGetSubString(statement, sep + 1, -1);
statement = llGetSubString(statement, 0, sep - 1);
}
list parts = llParseString2List(statement, [ " " ], [ ]);
if (tail != "") {
parts += [ tail ];
}

string cmd = llList2String(parts, 0);
string arg1 = llList2String(parts, 1);
string arg2 = llList2String(parts, 2);
if (arg2 == "*") { arg2 = gArgMessage; }

if (cmd == "back") { cmdBack(); }
else if (cmd == "go") { cmdGo(arg1); }
else if (cmd == "reset") { cmdReset(); }
else if (cmd == "user") { cmdUser(gArgID); }
else if (cmd == "anyone") { cmdAnyone(); }
else if (cmd == "timeout") { cmdTimeOut((float)arg1); }
else if (cmd == "image") { cmdImage(arg1); }
else if (cmd == "say") { cmdSay(arg1); }
else if (cmd == "movie") { cmdMovie(); }
else if (cmd == "give") { cmdGive(arg1); }
else if (cmd == "website") { cmdWebsite(); }
else if (cmd == "set") { cmdSet(arg1, arg2); }
else if (cmd == "setUser") { cmdSetUser(arg1); }
else if (cmd == "setNow") { cmdSetNow(arg1); }
else if (cmd == "report") { cmdReport(arg1, arg2); }
else if (cmd == "licenseImage") { cmdLicenseImage(); }
else if (cmd == "licenseRez") { cmdLicenseRez(); }
else if (cmd == "licenseDie") { cmdLicenseDie(); }
else {
llOwnerSay("Unknown command: " + cmd);
}
}

executeBlock(string block)
{
list statements = llParseString2List(block,
[ " ; ", " ;", "; ", ";" ], [ ]);
integer n = llGetListLength(statements);
integer i;
for (i = 0; i < n; ++i) {
executeStatement(llList2String(statements, i));
}
}

runAnyAction(string trigger, string altTrigger, key id, string message)
{
gAltTrigger = altTrigger;
gArgID = id;
gArgMessage = message;

llMessageLinked(LINK_THIS, 300, trigger, NULL_KEY);
}

default
{
state_entry() {
llSetTexture(gBlankTexture, 0);
llOwnerSay("Touch to start up.");
}

touch_start(integer n)
{
if (llDetectedKey(0) == llGetOwner()) {
state readProgram;
}
else {
llSay(0, "This kiosk is under construction.");
}
}
}

state readProgram
{
state_entry() {
llSetTexture(gBlankTexture, 0);
llMessageLinked(LINK_THIS, 100, "", NULL_KEY);
}

state_exit() {
llOwnerSay("main memory: " + (string)llGetFreeMemory());
}

link_message(integer sender, integer num, string str, key id) {
if (num == 101) {
state run;
}
}
touch_start(integer n) { }
on_rez(integer n) { llResetScript(); }
}

state run
{
state_entry() {
cmdReset();
}

state_exit() {
llSetTimerEvent(0.0);
}

touch_start(integer n) {
key id = llDetectedKey(0);
if (gUser != NULL_KEY && gUser != id) { return; }
runAnyAction("touch", "", id, "");
llSetTimerEvent(gTimeOut);
}

listen(integer ch, string who, key id, string message) {
if (ch != 0 && ch == gLicenseChannel) {
finishLicense();
return;
}

string trigger = "\"" + llToLower(message) + "\"";
runAnyAction(trigger, "listen", id, message);
llSetTimerEvent(gTimeOut);
}

changed(integer what) {
if (what & CHANGED_INVENTORY) {
state readProgram;
}
}

link_message(integer sender, integer num, string str, key id) {
if (num == 301) {
executeBlock(str);
}
else if (num == 399) {
if (gAltTrigger != "") {
llMessageLinked(LINK_THIS, 300, gAltTrigger, NULL_KEY);
gAltTrigger = "";
}
}
}

timer() {
cmdReset();
}

on_rez(integer n) { llResetScript(); }
}
</pre>

User:Zarf Vantongerloo

2007-09-23T05:32:09Z

Zarf Vantongerloo:

Resident since June of 2005.

Major projects:
*[http://www.notabene-sl.com/ Nota Bene] - the notary in SL
* {{SLurl|region= Obscure|x=214|y=206|z=32|title=Obscure Sandbox|}}
* [http://www.notabene-sl.com/slgc/ Go Center of Second Life]

Minor Projects:
* The [[Creative Commons License Machine]]

Creative Commons License Machine

2007-09-23T05:22:53Z

Zarf Vantongerloo: New page: There is a Creative Commons License Machine at various places in Second Life. There is one at the CC headquarters and one at the Nota Bene notary in Obscure. The machine leads you throug...

There is a Creative Commons License Machine at various places in Second Life. There is one at the CC headquarters and one at the Nota Bene notary in Obscure.

The machine leads you through a series of questions to select a Creative Commons license for a work. When done, it rezs a small "badge" prim that you can attach to the work or leave near it. The badge shows the type of license and can produce detailed information when touched.

It was built by [[User:Zarf Vantongerloo]]. Ask him if you have questions...

The source code for the machine is now open source, under the Gnu Public License:
* [[Creative Commons License Machine/Kiosk Script|Kiosk Script]]
* [[Creative Commons License Machine/Kiosk Program|Kiosk Program]]
* [[Creative Commons License Machine/Badge Script|Badge Script]]

User:Zarf Vantongerloo

2007-09-23T05:14:07Z

Zarf Vantongerloo: New page: Resident since June of 2005. Major projects: *[http://www.notabene-sl.com/ Nota Bene] - the notary in SL * Obscure Sandbox - [http://slurl.com/secondlife/Obscure/214/206/32 Obscure (214,2...

Resident since June of 2005.

Major projects:
*[http://www.notabene-sl.com/ Nota Bene] - the notary in SL
* Obscure Sandbox - [http://slurl.com/secondlife/Obscure/214/206/32 Obscure (214,206)]
* [http://www.notabene-sl.com/slgc/ Go Center of Second Life]

Minor Projects:
* The [[Creative Commons License Machine]]

LSL Alternate Editors

2007-04-25T04:06:47Z

Zarf Vantongerloo: Added info on SubEthaEdit

{{LSL Header}}
You are not limited to the in-world editor for editing your scripts; there are many editors available for free or purchase. Many of these editors have syntax highlighting for LSL that will make your code easier to follow. Below are some of the more popular editors for use with LSL.

If you have a favorite that is missing from the list, '''please''' feel free to add it.

For some of the editors mentioned here, the [http://adammarker.org/shill Shill] project may have more up-to-date syntax files.

==Multi-platform Editors==
===ByronStar SL===
Based on [http://eclipse.org Eclipse], the [http://byronstar-sl.sourceforge.net/ ByronStar SL IDE] includes most modern program editor features. It also includes custom features for LSL, such as variable checking, error markers, and code formatting. Eclipse is available for Macintosh, Linux, Windows, and many UNIX flavors.

===Emacs===
You can find the LSL major mode, by Gary Evans, [http://www.cs.iastate.edu/~leavens/emacs/lsl-mode.el here]. Emacs is also available for Macintosh and Windows.

There's also [[Emacs LSL Mode]] available on this wiki, which provides better syntax highlighting and indentation features.

===vim===
[http://www.vim.org/ vim:] vi improved. A multi-platform evolution of the most classical of the editors: vi. GPL code.

==Windows Editors==

===Notepad++===
[http://notepad-plus.sourceforge.net/uk/site.htm Notepad++] is probably one of the best windows editor around. Packed with features, extremely powerful and easy to use for beginners too. Best of all, it is GPL code.

===ConTEXT===
[http://www.context.cx/component/option,com_frontpage/Itemid,1/ ConTEXT] is a small, fast and powerful freeware text editor, developed mainly to serve as secondary tool for software developers.

The following syntax files are available for ConTEXT.
* [http://forum.context.cx/index.php?action=dlattach;topic=1775.0;id=359 Shyan Graves] Last updated March 01, 2007.
* [http://adammarker.org/shill/context/lsl.chl Sir.Grelling] Last updated July 10, 2006.

===Crimson Editor===
[http://www.crimsoneditor.com/ Crimson Editor] is a professional source code editor for Windows.
The following syntax files are available for Crimson Editor.
* [http://www.crimsoneditor.com/english/board/CrazyWWWBoard.cgi?db=file3&mode=read&num=1791 Aakanaar] Last updated September 10, 2006 for Second Life version 1.10.0.

===LSLeditor===

* [http://www.lsleditor.org/ http://www.lsleditor.org/]

LSLeditor is a standallone LSL script editor, featuring:

* Code editing (also cut / paste)
* Code highlighting
* Code autocompletion
* Code info (old LSL guide)
* Auto-indent
* F1 , turns up the LSLwiki.NET information on the keyword
* Experimental compiling and excution (LSLscript -> C#)

Windows XP , Windows 2000
* .NET 1.x has to be installed

===SciTE===
[http://sl.sdfjkl.org/secondlife/scite/ SciTE-ez]

===TextPad [{{HoverText|''C''|Commercial Software}}]===
[http://www.textpad.com/products/textpad/index.html TextPad] is a powerful, but easy to use general purpose text editor. It is a commercial product, but there is a 30 day trial version available for free on the website.

The following syntax files are available for TextPad.
* [[LSL_Editor_TextPad_Syntax | Prodigal Maeterlinck & Patrick2 Chama]] Last updated February 20, 2007. Extracted from the Second Life viewer source code.
* [http://www.textpad.com/add-ons/files/syntax/lsl_.zip Ben Gray] Last updated August 23, 2006. As of version 1.12.0, with the deprecated functions in a separate keyword list.
* [http://www.textpad.com/add-ons/files/syntax/lsl.zip Matthias Huber] Last updated September 23, 2004.
* [[LSL_Editor_TextPad_ClipBook_Events | Events ClipBook]] Last updated March 5, 2007. Based on the LSL Portal event entries.

===UltraEdit-32 [{{HoverText|''C''|Commercial Software}}]===
[http://www.ultraedit.com/ UltraEdit-32] is a powerful text, HTML, and HEX editor. It is a commercial editor with a 30 day trial version available at the website. Important features:
* column/block mode editing
* brackets/braces matching
* code-folding
* configurable syntax highlighting via custom [http://www.ultraedit.com/index.php?name=Content&pa=showpage&pid=40#wordfiles wordfiles]
* autocomplete (using keywords defined in the wordfile)
* bookmarks, incremental searching, CTAG support
* automatic conversion between Unix/Dos/MAC/UTF-8, etc
* built-in FTP/SFTP client

The following syntax files are available for UltraEdit.
* [http://podryk.googlepages.com/LSL_Wordfile.txt Podryck Sands] Last updated April 12, 2007.
* [http://stryfe.org/lsl_wordfile.txt Stryfe Lowell] Last updated 2007-04-15. Based on the original [http://www.lslwiki.net LSL Wiki] and updated based on release notes. Currently at LSL 1.14.1.2.

==Macintosh Editors==
===TextMate [{{HoverText|''C''|Commercial Software}}]===
You can find details about Piero Padar's well-maintained TextMate bundle in the [http://forums.secondlife.com/showthread.php?p=1041958#post1041958 Scripting Tips forum]. TextMate is a commercial Mac OS X text/program editor from [http://macromates.com/ Macromates].

There is a 30 day trial version available on their website.

===SubEthaEdit [{{HoverText|''C''|Commercial Software}}]===
This a great text editor with extensible language support. It also happens to be an incredible collaborative editor. Info at: http://www.subethaedit.net/

There is a contributed LSL mode by Zarf Vantongerloo. The mode is a little out of date and could use some love. But in general works great, doing syntax hilighting of LSL funcitons and adding a pop-up menu of all functions, states and event handlers to the top of the window.

==Linux Editors==
[http://kate-editor.org/ Kate] is an advanced text editor for KDE. Usually included in all KDE based distributions.
A [[Kate LSL Mode]] is available on this wiki.