Various common tweaks.

New instant message logger.

Check if a prim still exists before sending it a message.

New dynamic menu return option.

Check menu commands at startup.

1 files changed, 40 insertions, 10 deletions

diff --git a/1ring.lsl b/1ring.lsl
index 59db460..f8bacdf 100644
--- a/1ring.lsl
+++ b/1ring.lsl
@@ -45,6 +45,8 @@ integer lSUBSTITUTE         = -7;
 integer lSUBSTITUTE_DONE    = -8;
 integer lNEXT_WORD          = -9;
 integer lNEXT_WORD_DONE     = -10;
+integer lCHECK              = -11;
+integer lCHECK_DONE         = -12;
 integer lCONTROL            = -13;
 integer lCONTROL_DONE       = -14;
 integer lCMD                = -15;
@@ -62,6 +64,7 @@ d(string m) {if (DEBUG) llInstantMessage(Owner, llGetScriptName() + ": " + m);}
 D(string m) {llRegionSay(DEBUG_CHANNEL, llGetScriptName() + ": " + m);}
 s(string m) {s(Owner, m);}
 s(key id, string m) {if (id == Owner)   llOwnerSay(m);  else    llInstantMessage(id, m);}
+S(string m) {llInstantMessage(Owner, llGetScriptName() + ": " + m);}
 sendScript(integer cmd, list args) {sendScript(LibraryKey, cmd, ScriptName, args);}
 sendScript(key them, integer cmd, list args) {sendScript(them, cmd, inKey2Name(them), args);}
 sendScript(integer cmd, string name, list args) {sendScript(LibraryKey, cmd, name, args);}
@@ -69,9 +72,16 @@ sendScript(key them, integer cmd, string name, list args)
 {
     llMessageLinked(LINK_SET, cmd, llDumpList2String([ScriptKey, name] + args, lSEP), them);
 }
+integer pingPrim(key k)
+{
+    if (NULL_KEY != k)
+        return (0 != llGetListLength(llGetObjectDetails(k, [OBJECT_DESC])));
+    return FALSE;
+}
 sendPrim(key them, string cmd, list args)
 {
-    osMessageObject(them, llDumpList2String([ScriptName, cmd] + args, lSEP));
+    if (pingPrim(them))
+        osMessageObject(them, llDumpList2String([ScriptName, cmd] + args, lSEP));
 }
 addEvent(float delay, string cmds)
 {
@@ -199,7 +209,11 @@ doSettings(key id, list settings)
 
 dynamicMenu(key id, string menu, string name, string title, string entries, string command)
 {
-    sendScript(lDYNAMIC, [id, menu, name, title, entries, command]);
+    dynamicMenu(id, menu, name, title, entries, command, 1);
+}
+dynamicMenu(key id, string menu, string name, string title, string entries, string command, integer ret)
+{
+    sendScript(lDYNAMIC, [id, menu, name, title, entries, command, ret]);
 }
 
 linky(integer num, string message, key id)
@@ -213,16 +227,26 @@ linky(integer num, string message, key id)
     key them = llList2Key(input, 0);
     string fr = llList2Key(input, 1);
 //d("linky " + num + " " + message);
-    if (lCMD == num)
+    if ((lCHECK == num) || (lCMD == num))
     {
-//d("linky lCMD " + llDumpList2String(input, " ~ "));
         if ((fr == (ScriptName + ".")) || (fr == "*."))
         {
             key a = llList2Key(input, 3);
             string button = llList2String(input, 4);
-            integer r = doThing(a, button, fr,
+            integer r;
+            if (lCHECK == num)
+            {
+//d("link CHECK " + llDumpList2String(input, " ~ "));
+                r = checkThing(a, button, fr,
+                    llList2String(input, 5), llList2String(input, 6), llList2Integer(input, 2));
+            }
+            else
+            {
+//d("link CHAT " + llDumpList2String(input, " ~ "));
+                r = doThing(a, button, fr,
                     llList2String(input, 5), llList2String(input, 6), llList2Integer(input, 2));
-            sendScript(lCMD_DONE, [button, a, r]);
+            }
+            sendScript(num - 1, [button, a, r]);
         }
     }
     else if (lRESET_DONE == num)
@@ -404,6 +428,12 @@ integer changeAccess(key id, string cmd, key person, integer source)
     return FALSE;
 }
 
+integer checkThing(key id, string button, string fr, string cmd, string data, integer source)
+{
+    if ((fr != (ScriptName + ".") && ("*." != fr)))   return FALSE;
+    return TRUE;
+}
+
 integer doThing(key id, string button, string fr, string cmd, string data, integer source)
 {
     integer set = -1;
@@ -1405,7 +1435,7 @@ d("HEY leashy! " + URL);
                 } while(++channel < 42);
 
                 dynamicMenu(someBoss, "clothes", "DETACH", "Please select the attachment to detach",
-                        llDumpList2String(items, "|"), "DETACH");
+                        llDumpList2String(items, "|"), "DETACH", 2);
             }
             else if ("getoutfit" == rlv)
             {
@@ -1416,7 +1446,7 @@ d("HEY leashy! " + URL);
                 } while(++channel < 20);
 
                 dynamicMenu(someBoss, "clothes", "TAKEOFF", "Please select the clothes to take off",
-                        llDumpList2String(items, "|"), "TAKEOFF");
+                        llDumpList2String(items, "|"), "TAKEOFF", 2);
             }
             else if ("getinv" == rlv)
             {
@@ -1429,8 +1459,8 @@ d("HEY leashy! " + URL);
                     string folder = llList2String(folders, i);
                     items += [folder, "+ " + folder, "- " + folder];
                 }
-                dynamicMenu(someBoss, "clothes", "PUTON", "Please select the outfit to put on",
-                        llDumpList2String(items, "|"), "PUTON");
+                    dynamicMenu(someBoss, "clothes", "PUTON", "Please select the outfit to put on",
+                        llDumpList2String(items, "|"), "PUTON", 2);
             }
         }