corrade-lsl-templates – Diff between revs 11 and 15

Subversion Repositories:

?pathlinks?

Rev 11 – Go to most recent revision – Details – Blame – Last modification – View Log

 // store message over state.
 string data = "";
 // Notecard reading.
 key nQuery = NULL_KEY;
-integer nLine = 0;
+string joke = "";
+list q = [ ];
+///////////////////////////////////////////////////////////////////////////
+//    Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3    //
+///////////////////////////////////////////////////////////////////////////
+// Requires: a limit.
+// Provides: true random number between [0, max) or (-max, 0].
+//////////////////////////////////////////////////////////
+integer wasFPSrand(integer max) {
+    integer r = (integer)(llGetRegionFPS() * 10000000.0) % max;
+    if(max > 0) return r; else return -r;
 list nList = [];
 default {
     state_entry() {
         llOwnerSay("[Joke] Starting module...");
         llSetTimerEvent(10);
+    }
     link_message(integer sender, integer num, string message, key id) {
         if(id != "configuration") return;
         llOwnerSay("[Joke] Got configuration...");
         configuration = message;
-        state read_jokes;
+        state count_jokes;
+    }
     timer() {
         llOwnerSay("[Joke] Requesting configuration...");
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
-state read_jokes {
+state count_jokes {
+    state_entry() {
+        // Build a list of dataserver queries and retrieve the number of lines.
+        joke = (string)llGetInventoryNumber(INVENTORY_NOTECARD);
-    state_entry() {
+        integer i = (integer)joke - 1;
-        // DEBUG
+        do {
-        llOwnerSay("[Joke] Reading jokes...");
+            string card = llGetInventoryName(INVENTORY_NOTECARD, i);
-        if(llGetInventoryType("Joke") != INVENTORY_NOTECARD) {
+            // Filter notecards containing the "jokes" configuration key value.
+            if(llSubStringIndex(card, wasKeyValueGet("jokes", configuration)) == -1) {
-            llOwnerSay("[Joke] Failed to find a notecard named Joke in the primitive's inventory.");
+                joke = (string)((integer)joke - 1);
-            return;
+                jump continue;
-        }
+            }
+            q = llListInsertList(q, [ llGetNumberOfNotecardLines(card) ], 0);
+@continue;
+        } while(--i >= -1);
-        nQuery = llGetNotecardLine("Joke", nLine);
+        q += NULL_KEY;
+    }
     dataserver(key id, string data) {
-        if(id != nQuery) return;
+        // Find the query in the query list.
-        if(data == EOF) {
+        integer i = llListFindList(q, [ id ]);
+        if(i == -1) return;
+        // Replace the query by the number of notecard lines (lists are covariant).
-            // DEBUG
+        q = llListReplaceList(q, [ (integer) data ], i, i);
+        joke = (string)((integer)joke - 1);
-            llOwnerSay("[Joke] Read jokes...");
+        if((integer)joke == 0)
-            state listen_group;
-        }
-        if(data == "") jump continue;
-        nList += data;
-@continue;
-        nQuery = llGetNotecardLine("Joke", ++nLine);
+            state listen_group;
+    }
     on_rez(integer num) {
         llResetScript();
+    }
         if(llGetSubString(data, 0, 0) !=
             wasKeyValueGet("command", configuration))
             return;
         // Check if the command matches the current module.
-        list command = llParseString2List(data,
+        list command = llParseString2List(data, [" "], []);
-            [wasKeyValueGet("command", configuration), " "], ["@"]);
+        if(llList2String(command, 0) !=
-        if(llList2String(command, 0) != "joke")
+            wasKeyValueGet("command", configuration) + "joke")
+            return;
+        // Remove command.
-            return;
+        command = llDeleteSubList(command, 0, 0);
+        state read_joke;
+    }
+    on_rez(integer num) {
+        llResetScript();
+    }
+    changed(integer change) {
+        if((change & CHANGED_INVENTORY) ||
+            (change & CHANGED_REGION_START) ||
-        list range = wasCSVToList(
+            (change & CHANGED_OWNER)) {
+            llResetScript();
+        }
+    }
+}
+state read_joke {
+    state_entry() {
+        // DEBUG
+        llOwnerSay("[Joke] Reading a joke...");
+        integer i = llGetInventoryNumber(INVENTORY_NOTECARD) - 1;
+        list c = [];
+        do {
+            string card = llGetInventoryName(INVENTORY_NOTECARD, i);
+            if(llSubStringIndex(card, wasKeyValueGet("jokes", configuration)) == -1)
+                jump continue;
+            c = llListInsertList(c, [ i ], 0);
+@continue;
+        } while(--i >= -1);
+        i = (integer)llFrand(llGetListLength(c));
-            wasKeyValueGet("roll range", configuration)
+        nQuery = llGetNotecardLine(
-        );
+            llGetInventoryName(
                 INVENTORY_NOTECARD,
+                llList2Integer(c, i)
-        data = llList2String(
+            ),
-            nList,
+            (integer)
+                (
+                    llFrand(
+                        llList2Integer(
+                            q,
             (integer)
                 llFrand(
-                    llGetListLength(nList)
+                    )
+                )
+        );
+    }
     dataserver(key id, string data) {
-        );
+        if(id != nQuery) return;
         joke = data;
         state tell;
+    }
                             "password",
                             configuration
+                        )
                     ),
                     "entity", "group",
-                    "message", wasURLEscape(data)
+                    "message", wasURLEscape(joke)
+                ]
+            )
         );
+        // GC
+        joke = "";
         state listen_group;
+    }
+}