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, 63 insertions, 10 deletions

diff --git a/1chatter.lsl b/1chatter.lsl
index 9970462..b41df53 100644
--- a/1chatter.lsl
+++ b/1chatter.lsl
@@ -38,6 +38,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;
@@ -52,6 +54,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);}
@@ -59,7 +62,12 @@ sendScript(key them, integer cmd, string name, list args)
 {
     llMessageLinked(LINK_SET, cmd, llDumpList2String([ScriptKey, name] + args, lSEP), them);
 }
-sendPrim(key them, string cmd, list args)   {osMessageObject(them, llDumpList2String([ScriptName] + args, lSEP));}
+integer pingPrim(key k)
+{
+    if (NULL_KEY != k)  return (0 != llGetListLength(llGetObjectDetails(k, [OBJECT_DESC])));
+    return FALSE;
+}
+sendPrim(key them, string cmd, list args)   {if (pingPrim(them))  osMessageObject(them, llDumpList2String([ScriptName] + args, lSEP));}
 
 string inKey2Name(key k)
 {
@@ -596,16 +604,47 @@ addMenuItem(string fr, string menu, string cmd, list args)
             e += getToggle(fr, llList2String(args, 0));
         else
             e += llList2String(args, 0);
-        if ("TOMENU" == cmd)    e += "…";
+        if ("TOMENU" == cmd)
+            e += "…";
+        else if ("TOGGLE" == cmd)
+        {
+            string cm = llList2String(args, 0);
+            if (-1 == listFindString(Settings, fr + llToUpper(cm), sSTRIDE))
+                d("ERROR!  Not found setting " + fr + cm + "!");
+        }
+        else if ("BUTTON" == cmd)
+        {
+            string cm = llList2String(args, 1);
+
+            if (-1 == listFindString(Commands, fr + llToUpper(cm), cSTRIDE))
+                d("ERROR!  Not found command " + fr + " " + cm + "!");
+            else
+            {
+                sendScript(getSetting(fr + "SCRIPTKEY"), lCHECK, fr, 
+                    [fCARD, LibraryKey, menu, cm, 
+                    llDumpList2String(llListReplaceList(args, [], 0, 1), "|")]);
+            }
+        }
+        else
+        {
+            if (-1 == listFindString(Commands, fr + llToUpper(cmd), cSTRIDE))
+                d("ERROR!  Not found command " + fr + cmd + "!");
+            else
+            {
+                sendScript(getSetting(fr + "SCRIPTKEY"), lCHECK, fr, 
+                    [fCARD, LibraryKey, menu, cmd, 
+                    llDumpList2String(llListReplaceList(args, [], 0, 0), "|")]);
+            }
+        }
         c += llDumpList2String(llListReplaceList(args, [], 0, 0), " ");
         saveMenu(menu, llList2String(Menus, f + mTITLE), llList2Integer(Menus, f + mAUTH), e, c, llList2Integer(Menus, f + mDYN));
     }
 }
 
-dynamicMenu(key id, string menu, string name, string title, string entries, string command)
+dynamicMenu(key id, string menu, string name, string title, string entries, string command, integer ret)
 {
 //d("dynamicMenu " + menu + " -> " + name + "\n" + id + "@" + name);
-    saveMenu(id + "@" + name, title, aALL, entries, command, TRUE);
+    saveMenu(id + "@" + name, title, aALL, entries, command, ret);
     saveMuser(id, id + "@" + name, entries, -1, menu);
     showMenu(id);
 }
@@ -785,7 +824,7 @@ showMenu(key id)
                 integer l = llGetListLength(entries);
                 integer n;
 
-                if (llList2Integer(Menus, m + mDYN))
+                if (dM)
                 {
                     for (; n < l; ++n)
                     {
@@ -912,10 +951,11 @@ integer handleMenu(integer f, key id, string button)
     list lst;
     integer page = llList2Integer(Musers, f + uPAGE);
     integer m = findMenu(menu);  // This was already checked before it was stuffed into Musers.
+    integer dm = llList2Integer(Menus, m + mDYN);
     integer e = 0;
 
 //d("handleMenu(" + llKey2Name(id) + "," + button + ") " + menu + " -> " + cmd);
-    if (llList2Integer(Menus, m + mDYN))
+    if (dm)
         dM = menu;
     // Find the corresponding command for this button.
     lst = llParseStringKeepNulls(llList2String(Menus, m + mCMDS), ["|"], []);
@@ -1023,7 +1063,7 @@ d("handleMenu(" + llKey2Name(id) + "," + button + ") " + menu + " -> " + fr + cm
         f = listFindString(Commands, fr + cmd, cSTRIDE);
         if (-1 != f)
             i = doThing(id, menu + "->" + button, fr, cmd, data, fMENU);
-        if ("" != dM)
+        if ((dm != 2) && ("" != dM))
             lastMenu(id, dM);
         return i;
     }
@@ -1031,6 +1071,12 @@ d("handleMenu(" + llKey2Name(id) + "," + button + ") " + menu + " -> " + fr + cm
     return TRUE;
 }
 
+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 command, string fr, string cmd, string data, integer source)
 {
     if ("*.." == fr)    return TRUE;
@@ -1386,6 +1432,12 @@ fr="1AOor2";
                 }
             }
         }
+        else if (lCHECK_DONE == num)
+        {
+//d("lCHECK_DONE " + llKey2Name(llList2Key(input, 3)) + " -> " + llList2String(input, 2) + "| returned " + llList2String(input, 4));
+            if (!llList2Integer(input, 4))
+                S("ERROR - Invalid command for " + llList2String(input, 2));
+        }
         else if (lCMD == num)
         {
             doThing(llList2Key(input, 3), llList2String(input, 4), fr + ".",
@@ -1400,10 +1452,11 @@ fr="1AOor2";
         else if (lDYNAMIC == num)
         {
             string menu = llList2String(input, 3);
-            if ("" != menu)
+            integer f = llSubStringIndex(menu, ".");
+            if (("" != menu) && (-1 == f))
                 menu = fr + "." + menu;
             dynamicMenu(llList2Key(input, 2), menu, fr + "." + llList2String(input, 4),
-                        llList2String(input, 5), llList2String(input, 6), llList2String(input, 7));
+                        llList2String(input, 5), llList2String(input, 6), llList2String(input, 7), llList2Integer(input, 8));
         }
         else if (lMENU == num)
         {
@@ -1527,7 +1580,7 @@ d("listen 1ring.CHANNEL " + message + " -> " + button + " " + cmd + " " + data);
                 llSensor("", NULL_KEY, llList2Integer(Scanners, nTYPE), 100.0, PI);
             dynamicMenu(id, menu, menu, 
                         llList2String(Scanners, nTITLE),
-                        llDumpList2String(items, "|"), llDumpList2String(keys, "|"));
+                        llDumpList2String(items, "|"), llDumpList2String(keys, "|"), 2);
         }
     }