Sheridan Otoole: Use LSL tags

2009-05-17T23:47:58Z

Use LSL tags

← Older revision		Revision as of 16:47, 17 May 2009
Line 1:		Line 1:
	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]].		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~~>		<lsl>
	key gBlankTexture = "5748decc-f629-461c-9a36-a35a221fe21f"; // well known		key gBlankTexture = "5748decc-f629-461c-9a36-a35a221fe21f"; // well known

Line 360:		Line 360:
	on_rez(integer n) { llResetScript(); }		on_rez(integer n) { llResetScript(); }
	}		}
	</~~pre~~>		</lsl>

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.

 k...

2007-09-23T05:33:32Z

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...

← Older revision		Revision as of 22:33, 22 September 2007
Line 1:		Line 1:
	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]].		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>		<pre>

Zarf Vantongerloo at 05:32, 23 September 2007

2007-09-23T05:32:29Z

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 [[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>

Creative Commons License Machine/Kiosk Script - Revision history

Sheridan Otoole: Use LSL tags

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.
k...

Zarf Vantongerloo at 05:32, 23 September 2007