/source/grid-follow/grid-follow.lsl |
@@ -1,30 +1,19 @@ |
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) Wizardry and Steamworks 2014 - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
// |
// This is an automatic grid follower for the Corrade Second Life / OpenSim |
// bot. You can find more details about the bot by following the URL: |
// http://was.fm/secondlife/scripted_agents/corrade |
// |
// The follower script works together with a "configuration" notecard and |
// that must be placed in the same primitive as this script. |
// You are free to use, change, and commercialize it under the GNU/GPLv3 |
// license at: http://www.gnu.org/licenses/gpl.html |
// |
/////////////////////////////////////////////////////////////////////////// |
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2014 Wizardry and Steamworks - License: GNU GPLv3 // |
// Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
/////////////////////////////////////////////////////////////////////////// |
string wasKeyValueGet(string k, string data) { |
if(llStringLength(data) == 0) return ""; |
if(llStringLength(k) == 0) return ""; |
list a = llParseString2List(data, ["&", "="], []); |
integer i = llListFindList(a, [ k ]); |
if(i != -1) return llList2String(a, i+1); |
list a = llParseStringKeepNulls(data, ["&", "="], []); |
integer i = llListFindList(llList2ListStrided(a, 0, -1, 2), [ k ]); |
if(i != -1) return llList2String(a, 2*i+1); |
return ""; |
} |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
@@ -57,18 +46,18 @@ |
integer wasIsAvatarInSensorRange(key avatar) { |
return llListFindList( |
llGetAgentList( |
AGENT_LIST_REGION, |
AGENT_LIST_REGION, |
[] |
), |
), |
(list)((key)avatar) |
) != -1 && |
) != -1 && |
llVecDist( |
llGetPos(), |
llGetPos(), |
llList2Vector( |
llGetObjectDetails( |
avatar, |
avatar, |
[OBJECT_POS] |
), |
), |
0 |
) |
) <= 96; |
@@ -102,7 +91,7 @@ |
string CORRADE = ""; |
string GROUP = ""; |
string PASSWORD = ""; |
string RANGE = ""; |
integer RANGE = 5; |
|
// for holding the callback URL |
string callback = ""; |
@@ -109,10 +98,10 @@ |
|
// for notecard reading |
integer line = 0; |
|
|
// key-value data will be read into this list |
list tuples = []; |
|
|
default { |
state_entry() { |
// set color for button |
@@ -135,7 +124,7 @@ |
CORRADE = llList2String( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"corrade" |
] |
@@ -148,7 +137,7 @@ |
GROUP = llList2String( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"group" |
] |
@@ -161,7 +150,7 @@ |
PASSWORD = llList2String( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"password" |
] |
@@ -171,16 +160,16 @@ |
llOwnerSay("Error in configuration notecard: group"); |
return; |
} |
RANGE = llList2String( |
RANGE = llList2Integer( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"range" |
] |
) |
+1); |
if(RANGE == "") { |
if(RANGE == 0) { |
llOwnerSay("Error in configuration notecard: range"); |
return; |
} |
@@ -197,10 +186,10 @@ |
llParseString2List( |
llStringTrim( |
llList2String( |
o, |
o, |
0 |
), |
STRING_TRIM), |
), |
STRING_TRIM), |
["\""], [] |
), "\""); |
string v = llDumpList2String( |
@@ -207,10 +196,10 @@ |
llParseString2List( |
llStringTrim( |
llList2String( |
o, |
o, |
1 |
), |
STRING_TRIM), |
), |
STRING_TRIM), |
["\""], [] |
), "\""); |
if(k == "" || v == "") jump continue; |
@@ -228,7 +217,7 @@ |
} |
} |
} |
|
|
state url { |
state_entry() { |
// DEBUG |
@@ -269,19 +258,21 @@ |
} |
} |
} |
|
|
state on { |
state_entry() { |
// set color for button |
llSetColor(<0,1,0>, ALL_SIDES); |
// if Corrade is in-range then just follow |
if(wasIsAvatarInSensorRange(CORRADE)) state follow; |
if(wasIsAvatarInSensorRange(CORRADE)) { |
state follow; |
} |
// DEBUG |
llOwnerSay("Detecting if Corrade is online..."); |
llSetTimerEvent(5); |
} |
timer() { |
llRequestAgentData((key)CORRADE, DATA_ONLINE); |
llRequestAgentData(CORRADE, DATA_ONLINE); |
} |
dataserver(key id, string data) { |
if(data != "1") { |
@@ -290,12 +281,12 @@ |
llSetTimerEvent(30); |
return; |
} |
llSensorRepeat("", (key)CORRADE, AGENT, (integer)RANGE, TWO_PI, 5); |
llSensorRepeat("", CORRADE, AGENT, RANGE, TWO_PI, 5); |
} |
no_sensor() { |
// DEBUG |
llOwnerSay("Teleporting Corrade..."); |
llInstantMessage((key)CORRADE, |
llInstantMessage(CORRADE, |
wasKeyValueEncode( |
[ |
"command", "teleport", |
@@ -310,19 +301,21 @@ |
); |
} |
sensor(integer num) { |
llSetTimerEvent(0); |
state follow; |
} |
http_request(key id, string method, string body) { |
llHTTPResponse(id, 200, "OK"); |
if(wasKeyValueGet("command", body) != "teleport" || |
wasKeyValueGet("success", body) != "True") { |
if(wasKeyValueGet("command", body) == "teleport") { |
integer success = wasKeyValueGet("success", body) == "True"; |
if(success) { |
// DEBUG |
llOwnerSay("Teleport succeeded..."); |
state follow; |
} |
// DEBUG |
llOwnerSay("Teleport failed..."); |
return; |
} |
llSetTimerEvent(0); |
state follow; |
} |
on_rez(integer num) { |
llResetScript(); |
@@ -332,8 +325,11 @@ |
llResetScript(); |
} |
} |
state_exit() { |
llSetTimerEvent(0); |
} |
} |
|
|
state follow { |
state_entry() { |
// DEBUG |
@@ -348,13 +344,15 @@ |
// if Corrade is not online |
if(data != "1") state on; |
// Corrade is online, so attempt to dectect |
llSensorRepeat("", CORRADE, AGENT, (integer)RANGE, TWO_PI, 1); |
llSensorRepeat("", CORRADE, AGENT, RANGE, TWO_PI, 1); |
} |
no_sensor() { |
// check if Corrade is in range, and if not, start detecting |
if(!wasIsAvatarInSensorRange(CORRADE)) state on; |
if(!wasIsAvatarInSensorRange(CORRADE)) { |
state on; |
} |
// Corrade is in sensor range, so execute move. |
llInstantMessage(CORRADE, |
llInstantMessage(CORRADE, |
wasKeyValueEncode( |
[ |
"command", "walkto", |
@@ -378,4 +376,4 @@ |
llResetScript(); |
} |
} |
} |
} |
/source/remote-region-scanning-device/remote-region-scanning-device.lsl |
@@ -1,33 +1,23 @@ |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) Wizardry and Steamworks 2014 - License: CC BY 2.0 // |
// Copyright (C) Wizardry and Steamworks 2014 - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
// |
// This is a device meant to scan regions and show metrics for the Corrade |
// Second Life / OpenSim bot. You can find more details about the bot |
// by following the URL: http://was.fm/secondlife/scripted_agents/corrade |
// |
// The script works in conjunction with a "configuration" notecard and a |
// "regions" notecard that must both be placed in the same primitive. |
// The purpose of this script is to demonstrate scanning with Corrade and |
// you are free to use, change, and commercialize it under the CC BY 2.0 |
// license at: https://creativecommons.org/licenses/by/2.0 |
// |
|
/////////////////////////////////////////////////////////////////////////// |
|
// Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2014 Wizardry and Steamworks - License: CC BY 2.0 // |
/////////////////////////////////////////////////////////////////////////// |
string wasKeyValueGet(string k, string data) { |
if(llStringLength(data) == 0) return ""; |
if(llStringLength(k) == 0) return ""; |
list a = llParseString2List(data, ["&", "="], []); |
integer i = llListFindList(a, [ k ]); |
if(i != -1) return llList2String(a, i+1); |
list a = llParseStringKeepNulls(data, ["&", "="], []); |
integer i = llListFindList(llList2ListStrided(a, 0, -1, 2), [ k ]); |
if(i != -1) return llList2String(a, 2*i+1); |
return ""; |
} |
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2013 Wizardry and Steamworks - License: CC BY 2.0 // |
// Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
string wasKeyValueEncode(list data) { |
list k = llList2ListStrided(data, 0, -1, 2); |
@@ -40,19 +30,19 @@ |
} while(llGetListLength(k) != 0); |
return llDumpList2String(data, "&"); |
} |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2013 Wizardry and Steamworks - License: CC BY 2.0 // |
// Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
integer wasListCountExclude(list input, list exclude) { |
if(llGetListLength(input) == 0) return 0; |
if(llListFindList(exclude, (list)llList2String(input, 0)) == -1) |
if(llListFindList(exclude, (list)llList2String(input, 0)) == -1) |
return 1 + wasListCountExclude(llDeleteSubList(input, 0, 0), exclude); |
return wasListCountExclude(llDeleteSubList(input, 0, 0), exclude); |
} |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
// Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
string wasListToCSV(list l) { |
list v = []; |
@@ -60,10 +50,10 @@ |
string a = llDumpList2String( |
llParseStringKeepNulls( |
llList2String( |
l, |
l, |
0 |
), |
["\""], |
), |
["\""], |
[] |
), |
"\"\"" |
@@ -75,9 +65,9 @@ |
} while(l != []); |
return llDumpList2String(v, ","); |
} |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
// Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
list wasCSVToList(string csv) { |
list l = []; |
@@ -114,9 +104,9 @@ |
// invariant: length(s) = 0 |
return l + m; |
} |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
// Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
// escapes a string in conformance with RFC1738 |
string wasURLEscape(string i) { |
@@ -138,9 +128,9 @@ |
} while(i != ""); |
return o; |
} |
|
|
/////////////////////////////////////////////////////////////////////////// |
// Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
// Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
/////////////////////////////////////////////////////////////////////////// |
// unescapes a string in conformance with RFC1738 |
string wasURLUnescape(string i) { |
@@ -149,28 +139,29 @@ |
llParseString2List( |
llDumpList2String( |
llParseString2List( |
i, |
["+"], |
i, |
["+"], |
[] |
), |
), |
" " |
), |
["%0D%0A"], |
), |
["%0D%0A"], |
[] |
), |
), |
"\n" |
) |
); |
} |
|
|
// corrade data |
string CORRADE = ""; |
string GROUP = ""; |
string PASSWORD = ""; |
|
float WAIT = 5; |
|
// for holding the callback URL |
string callback = ""; |
|
|
// for notecard reading |
integer line = 0; |
|
@@ -179,7 +170,7 @@ |
// regions will be stored here |
list regions = []; |
string region = ""; |
|
|
default { |
state_entry() { |
if(llGetInventoryType("configuration") != INVENTORY_NOTECARD) { |
@@ -200,12 +191,13 @@ |
CORRADE = llList2String( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"corrade" |
] |
) |
+1); |
+1 |
); |
if(CORRADE == "") { |
llOwnerSay("Error in configuration notecard: corrade"); |
return; |
@@ -213,12 +205,13 @@ |
GROUP = llList2String( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"group" |
] |
) |
+1); |
+1 |
); |
if(GROUP == "") { |
llOwnerSay("Error in configuration notecard: group"); |
return; |
@@ -226,16 +219,31 @@ |
PASSWORD = llList2String( |
tuples, |
llListFindList( |
tuples, |
tuples, |
[ |
"password" |
] |
) |
+1); |
+1 |
); |
if(PASSWORD == "") { |
llOwnerSay("Error in configuration notecard: password"); |
return; |
} |
WAIT = (float)llList2String( |
tuples, |
llListFindList( |
tuples, |
[ |
"wait" |
] |
) |
+1 |
); |
if(WAIT == 0) { |
llOwnerSay("Error in configuration notecard: wait"); |
return; |
} |
// DEBUG |
llOwnerSay("Read configuration notecard..."); |
state read; |
@@ -249,10 +257,10 @@ |
llParseString2List( |
llStringTrim( |
llList2String( |
o, |
o, |
0 |
), |
STRING_TRIM), |
), |
STRING_TRIM), |
["\""], [] |
), "\""); |
string v = llDumpList2String( |
@@ -259,10 +267,10 @@ |
llParseString2List( |
llStringTrim( |
llList2String( |
o, |
o, |
1 |
), |
STRING_TRIM), |
), |
STRING_TRIM), |
["\""], [] |
), "\""); |
if(k == "" || v == "") jump continue; |
@@ -280,7 +288,7 @@ |
} |
} |
} |
|
|
state read { |
state_entry() { |
if(llGetInventoryType("regions") != INVENTORY_NOTECARD) { |
@@ -352,8 +360,58 @@ |
llSetTimerEvent(30); |
return; |
} |
state notify; |
} |
on_rez(integer num) { |
llResetScript(); |
} |
changed(integer change) { |
if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START)) { |
llResetScript(); |
} |
} |
} |
|
state notify { |
state_entry() { |
// Timeout in 60s. |
llSetTimerEvent(60); |
|
// DEBUG |
llOwnerSay("Binding to the CAPS notification..."); |
llInstantMessage( |
(key)CORRADE, |
wasKeyValueEncode( |
[ |
"command", "notify", |
"group", wasURLEscape(GROUP), |
"password", wasURLEscape(PASSWORD), |
"action", "set", |
"type", "CAPS", |
"URL", wasURLEscape(callback), |
"callback", wasURLEscape(callback) |
] |
) |
); |
} |
http_request(key id, string method, string body) { |
llHTTPResponse(id, 200, "OK"); |
if(wasKeyValueGet("command", body) != "notify") return; |
if(wasKeyValueGet("success", body) != "True") { |
// DEBUG |
llOwnerSay("Failed to bind to the CAPS notification..."); |
llResetScript(); |
} |
// DEBUG |
llOwnerSay("CAPS notification installed..."); |
state teleport; |
} |
timer() { |
// DEBUG |
llOwnerSay("Timeout binding to the CAPS notifications..."); |
|
llResetScript(); |
} |
on_rez(integer num) { |
llResetScript(); |
} |
@@ -363,21 +421,34 @@ |
} |
} |
} |
|
|
state teleport { |
state_entry() { |
// Timeout in one minute. |
// Emergency timeout |
llSetTimerEvent(60); |
|
// Check that Corrade is online. |
llSensorRepeat("", NULL_KEY, AGENT, 0.1, 0.1, 5); |
|
// Shuffle the regions and grab the next region. |
region = llList2String(regions, 0); |
regions = llDeleteSubList(regions, 0, 0); |
regions += region; |
|
// The selected region is the current region so reshufle. |
if(region == llGetRegionName()) { |
// DEBUG |
llOwnerSay("Already on current region " + region + ", trying the next region."); |
region = llList2String(regions, 0); |
regions = llDeleteSubList(regions, 0, 0); |
regions += region; |
} |
|
// DEBUG |
llOwnerSay("Teleporting to: " + region); |
|
llInstantMessage( |
(key)CORRADE, |
(key)CORRADE, |
wasKeyValueEncode( |
[ |
"command", "teleport", |
@@ -385,6 +456,7 @@ |
"password", wasURLEscape(PASSWORD), |
"entity", "region", |
"region", wasURLEscape(region), |
"position", wasURLEscape((string)<128, 128, 50>), |
"callback", wasURLEscape(callback) |
] |
) |
@@ -392,13 +464,17 @@ |
} |
http_request(key id, string method, string body) { |
llHTTPResponse(id, 200, "OK"); |
if(wasKeyValueGet("command", body) != "teleport" || |
wasKeyValueGet("success", body) != "True") { |
if(wasKeyValueGet("command", body) == "teleport") { |
if(wasKeyValueGet("success", body) == "True") { |
// DEBUG |
llOwnerSay("Teleported successfully to: " + region + " and waiting for capabiltiies..."); |
return; |
} |
// DEBUG |
llOwnerSay("Failed to teleport to " + region + " due to: " + |
llOwnerSay("Failed to teleport to " + region + " due to: " + |
wasURLUnescape( |
wasKeyValueGet( |
"error", |
"error", |
body |
) |
) |
@@ -406,9 +482,30 @@ |
// Jump to trampoline for re-entry. |
state teleport_trampoline; |
} |
if(wasKeyValueGet("notification", body) == "CAPS") { |
string capsRegion = wasURLUnescape( |
wasKeyValueGet( |
"region", |
body |
) |
); |
string capsAction = wasURLUnescape( |
wasKeyValueGet( |
"action", |
body |
) |
); |
|
if(capsRegion == region && capsAction == "start") { |
llOwnerSay("Capabiltiies for region " + region + " successfully connected."); |
state stats_trampoline; |
} |
} |
} |
timer() { |
// DEBUG |
llOwnerSay("Teleported successfully to: " + region); |
state stats_trampoline; |
llOwnerSay("Timeout receiving capabilities, attempting emergency teleport..."); |
state teleport_trampoline; |
} |
no_sensor() { |
llRequestAgentData((key)CORRADE, DATA_ONLINE); |
@@ -420,9 +517,6 @@ |
state detect; |
} |
} |
timer() { |
state teleport_trampoline; |
} |
on_rez(integer num) { |
llResetScript(); |
} |
@@ -435,12 +529,12 @@ |
llSetTimerEvent(0); |
} |
} |
|
|
state teleport_trampoline { |
state_entry() { |
// DEBUG |
llOwnerSay("Sleeping..."); |
llSetTimerEvent(30); |
llSetTimerEvent(WAIT); |
} |
timer() { |
state teleport; |
@@ -457,12 +551,12 @@ |
llSetTimerEvent(0); |
} |
} |
|
|
state stats_trampoline { |
state_entry() { |
// DEBUG |
llOwnerSay("Sleeping..."); |
llSetTimerEvent(10); |
llSetTimerEvent(1); |
} |
timer() { |
state stats; |
@@ -479,17 +573,19 @@ |
llSetTimerEvent(0); |
} |
} |
|
|
state stats { |
state_entry() { |
// Timeout in one minute. |
llSetTimerEvent(60); |
|
// Check that Corrade is online. |
llSensorRepeat("", NULL_KEY, AGENT, 0.1, 0.1, 5); |
|
// DEBUG |
llOwnerSay("Fetching region statistics..."); |
llInstantMessage( |
(key)CORRADE, |
(key)CORRADE, |
wasKeyValueEncode( |
[ |
"command", "getregiondata", |
@@ -496,8 +592,8 @@ |
"group", wasURLEscape(GROUP), |
"password", wasURLEscape(PASSWORD), |
"data", wasListToCSV([ |
// For a full list see: http://was.fm/secondlife/scripted_agents/corrade/application_programming_interface#get_region_data |
"Stats.LastLag", |
// For a full list see: https://grimore.org/secondlife/scripted_agents/corrade/api/commands/getregiondata |
"Stats.LastLag", |
"Stats.Agents", |
"Stats.Dilation", |
"Stats.FPS", |
@@ -507,7 +603,7 @@ |
"Stats.PhysicsFPS", |
"Stats.ScriptTime" |
]), |
"callback", wasURLEscape(callback) |
"callback", wasURLEscape(callback) |
] |
) |
); |
@@ -514,13 +610,17 @@ |
} |
http_request(key id, string method, string body) { |
llHTTPResponse(id, 200, "OK"); |
// Ignore CAPS notification here. |
if(wasKeyValueGet("notification", body) == "CAPS") { |
return; |
} |
if(wasKeyValueGet("command", body) != "getregiondata" || |
wasKeyValueGet("success", body) != "True") { |
// DEBUG |
llOwnerSay("Failed to get stats for " + region + " due to: " + |
llOwnerSay("Failed to get stats for " + region + " due to: " + |
wasURLUnescape( |
wasKeyValueGet( |
"error", |
"error", |
body |
) |
) |
@@ -534,7 +634,7 @@ |
list stat = wasCSVToList( |
wasURLUnescape( |
wasKeyValueGet( |
"data", |
"data", |
body |
) |
) |
@@ -542,61 +642,61 @@ |
llSetText("-:[ " + region + " ]:- \n" + |
// Show the stats in the overhead text. |
"Agents: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.Agents" |
)+1 |
) + "\n" + |
) + "\n" + |
"LastLag: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.LastLag" |
)+1 |
) + "\n" + |
) + "\n" + |
"Time Dilation: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.Dilation" |
)+1 |
) + "\n" + |
) + "\n" + |
"FPS: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.FPS" |
)+1 |
) + "\n" + |
"Physics FPS: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.PhysicsFPS" |
)+1 |
) + "\n" + |
"Scripts: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.ActiveScripts" |
)+1 |
) + "\n" + |
"Script Time: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, |
stat, |
(list)"Stats.ScriptTime" |
)+1 |
) + "\n" + |
"Objects: " + llList2String( |
stat, |
stat, |
llListFindList( |
stat, (list)"Stats.Objects" |
)+1 |
), |
<1, 0, 0>, |
), |
<1, 0, 0>, |
1.0 |
); |
stat = []; |
@@ -627,4 +727,3 @@ |
llSetTimerEvent(0); |
} |
} |
|