Creative Commons License Machine/Kiosk Script
Jump to navigation
Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
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.
<lsl> 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(); }
} </lsl>