/////////////////////////////////////////////////////////////////////////// // Copyright (C) Wizardry and Steamworks 2014 - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // // This is an automatic teleporter, and patrol script 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 purpose of this script is to demonstrate patroling with Corrade and // you are free to use, change, and commercialize it under the CC BY 2.0 // license which can be found at: https://creativecommons.org/licenses/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); return ""; } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2013 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// string wasKeyValueEncode(list data) { list k = llList2ListStrided(data, 0, -1, 2); list v = llList2ListStrided(llDeleteSubList(data, 0, 0), 0, -1, 2); data = []; do { data += llList2String(k, 0) + "=" + llList2String(v, 0); k = llDeleteSubList(k, 0, 0); v = llDeleteSubList(v, 0, 0); } while(llGetListLength(k) != 0); return llDumpList2String(data, "&"); } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2011 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // http://was.fm/secondlife/wanderer vector wasCirclePoint(float radius) { float x = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2); float y = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2); if(llPow(x,2) + llPow(y,2) <= llPow(radius,2)) return <x, y, 0>; return wasCirclePoint(radius); } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // escapes a string in conformance with RFC1738 string wasURLEscape(string i) { string o = ""; do { string c = llGetSubString(i, 0, 0); i = llDeleteSubString(i, 0, 0); if(c == "") jump continue; if(c == " ") { o += "+"; jump continue; } if(c == "\n") { o += "%0D" + llEscapeURL(c); jump continue; } o += llEscapeURL(c); @continue; } while(i != ""); return o; } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// list wasCSVToList(string csv) { list l = []; list s = []; string m = ""; do { string a = llGetSubString(csv, 0, 0); csv = llDeleteSubString(csv, 0, 0); if(a == ",") { if(llList2String(s, -1) != "\"") { l += m; m = ""; jump continue; } m += a; jump continue; } if(a == "\"" && llGetSubString(csv, 0, 0) == a) { m += a; csv = llDeleteSubString(csv, 0, 0); jump continue; } if(a == "\"") { if(llList2String(s, -1) != a) { s += a; jump continue; } s = llDeleteSubList(s, -1, -1); jump continue; } m += a; @continue; } while(csv != ""); // postcondition: length(s) = 0 return l + m; } /////////////////////////////////////////////////////////////////////////// // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // /////////////////////////////////////////////////////////////////////////// // unescapes a string in conformance with RFC1738 string wasURLUnescape(string i) { return llUnescapeURL( llDumpList2String( llParseString2List( llDumpList2String( llParseString2List( i, ["+"], [] ), " " ), ["%0D%0A"], [] ), "\n" ) ); } // configuration data string configuration = ""; // callback URL string callback = ""; // local Corrade position vector position = ZERO_VECTOR; default { state_entry() { llSetTimerEvent(1); } link_message(integer sender, integer num, string message, key id) { if(sender != 1 || id != "configuration") return; configuration = message; state off; } timer() { llMessageLinked(LINK_ROOT, 0, "configuration", NULL_KEY); } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } state_exit() { llSetTimerEvent(0); } } state off { state_entry() { llSetColor(<.5,0,0>, ALL_SIDES); } touch_end(integer num) { state on; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } } state on { state_entry() { llSetColor(<0,.5,0>, ALL_SIDES); state url; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } } state url { state_entry() { // DEBUG llOwnerSay("Requesting URL..."); llRequestURL(); } touch_end(integer num) { llSetColor(<.5,0,0>, ALL_SIDES); llResetScript(); } http_request(key id, string method, string body) { if(method != URL_REQUEST_GRANTED) return; callback = body; // DEBUG llOwnerSay("Got URL..."); state find; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } } state find { state_entry() { // DEBUG llOwnerSay("Getting local position..."); llInstantMessage( wasKeyValueGet( "corrade", configuration ), wasKeyValueEncode( [ "command", "getselfdata", "group", wasURLEscape( wasKeyValueGet( "group", configuration ) ), "password", wasURLEscape( wasKeyValueGet( "password", configuration ) ), "data", "SimPosition", "callback", wasURLEscape(callback) ] ) ); } touch_end(integer num) { llSetColor(<.5,0,0>, ALL_SIDES); llResetScript(); } http_request(key id, string method, string body) { llHTTPResponse(id, 200, "OK"); if(wasKeyValueGet("command", body) != "getselfdata" || wasKeyValueGet("success", body) != "True") { // DEBUG llOwnerSay("Unable to query self data..."); return; } position = (vector)llList2String( wasCSVToList( wasKeyValueGet( "data", wasURLUnescape(body) ) ), 1 ); state wander; } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } state_exit() { llSetTimerEvent(0); } } state wander { state_entry() { // DEBUG llOwnerSay("Wandering ready..."); llSetTimerEvent(1 + llFrand( (float)wasKeyValueGet( "corrade", configuration ) ) ); } touch_end(integer num) { llSetColor(<.5,0,0>, ALL_SIDES); llResetScript(); } timer() { llRequestAgentData( (key)wasKeyValueGet( "corrade", configuration ), DATA_ONLINE ); } dataserver(key id, string data) { if(data != "1") { // DEBUG llOwnerSay("Corrade is not online, sleeping..."); llResetScript(); return; } // DEBUG //llOwnerSay("Sending stop..."); llInstantMessage( wasKeyValueGet( "corrade", configuration ), wasKeyValueEncode( [ "command", "walkto", "group", wasURLEscape( wasKeyValueGet( "group", configuration ) ), "password", wasURLEscape( wasKeyValueGet( "password", configuration ) ), "position", wasURLEscape( (string)( position + wasCirclePoint( (float)wasURLEscape( wasKeyValueGet( "radius", configuration ) ) ) ) ), "vicinity", wasCirclePoint( (integer)wasURLEscape( wasKeyValueGet( "range", configuration ) ) ), "duration", "2500" ] ) ); } http_request(key id, string method, string body) { llHTTPResponse(id, 200, "OK"); if(wasKeyValueGet("command", body) != "walkto" || wasKeyValueGet("success", body) != "True") { // DEBUG llOwnerSay("Could not get Corrade to stop, restarting script..."); llResetScript(); } // DEBUG //llOwnerSay("Sending next move..."); llInstantMessage( wasKeyValueGet( "corrade", configuration ), wasKeyValueEncode( [ "command", "walkto", "group", wasURLEscape( wasKeyValueGet( "group", configuration ) ), "password", wasURLEscape( wasKeyValueGet( "password", configuration ) ), "position", wasURLEscape( (string)( position + wasCirclePoint( (float)wasURLEscape( wasKeyValueGet( "radius", configuration ) ) ) ) ), "vicinity", wasCirclePoint( (integer)wasURLEscape( wasKeyValueGet( "range", configuration ) ) ), "duration", "2500" ] ) ); llSetTimerEvent(1 + llFrand( (float)wasURLEscape( wasKeyValueGet( "wait", configuration ) ) ) ); } attach(key id) { llResetScript(); } on_rez(integer num) { llResetScript(); } changed(integer change) { if((change & CHANGED_INVENTORY) || (change & CHANGED_REGION_START) || (change & CHANGED_OWNER)) { llResetScript(); } } }