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

Subversion Repositories:

?pathlinks?

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

 ///////////////////////////////////////////////////////////////////////////
 //
 // A MOTD module for Corrade Eggdrop.
 //
 ///////////////////////////////////////////////////////////////////////////
 ///////////////////////////////////////////////////////////////////////////
 //    Copyright (C) 2014 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 string wasKeyValueGet(string k, string data) {
     if(llStringLength(data) == 0) return "";
         k = llDeleteSubList(k, 0, 0);
         v = llDeleteSubList(v, 0, 0);
     } while(llGetListLength(k) != 0);
     return llDumpList2String(data, "&");
+}
 ///////////////////////////////////////////////////////////////////////////
 //    Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 // http://was.fm/secondlife/wanderer
 vector wasCirclePoint(float radius) {
     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: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 // escapes a string in conformance with RFC1738
 string wasURLEscape(string i) {
         o += llEscapeURL(c);
 @continue;
     } while(i != "");
     return o;
+}
 ///////////////////////////////////////////////////////////////////////////
 //    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 list wasCSVToList(string csv) {
     list l = [];
 @continue;
     } while(csv != "");
     // postcondition: length(s) = 0
     return l + m;
+}
 ///////////////////////////////////////////////////////////////////////////
 //    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 string wasListToCSV(list l) {
     list v = [];
         v += a;
         l = llDeleteSubList(l, 0, 0);
     } while(l != []);
     return llDumpList2String(v, ",");
+}
 ///////////////////////////////////////////////////////////////////////////
 //    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    //
 ///////////////////////////////////////////////////////////////////////////
 // unescapes a string in conformance with RFC1738
 string wasURLUnescape(string i) {
             ),
             "\n"
+        )
     );
+}
 // configuration data
 string configuration = "";
 // callback URL
 string URL = "";
 // store message over state.
 string firstname = "";
 string lastname = "";
 string group = "";
 string data = "";
 string jump_state = "";
 default {
     state_entry() {
         llOwnerSay("[MOTD] Starting module...");
         llSetTimerEvent(10);
+    }
+    }
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
 state url {
     state_entry() {
         // DEBUG
         llOwnerSay("[MOTD] Requesting URL...");
         llRequestURL();
             state get;
         if(jump_state == "set")
             state set;
         if(jump_state == "listen_group")
             state listen_group;
         // DEBUG
         llOwnerSay("[MOTD] Jump table corrupted, please contact creator...");
         llResetScript();
+    }
     on_rez(integer num) {
             (change & CHANGED_OWNER)) {
             llResetScript();
+        }
+    }
+}
 state create_database {
     state_entry() {
         // DEBUG
-        llOwnerSay("[MOTD] Creating database.");
+        llOwnerSay("[MOTD] Creating database: " + wasKeyValueGet("motd table", configuration));
         llInstantMessage(
             wasKeyValueGet(
                 "corrade",
                 configuration
             ),
             wasKeyValueGet("success", body) != "True") {
             // DEBUG
             llOwnerSay("[MOTD] Unable modify database: " +
                 wasURLUnescape(
                     wasKeyValueGet("error", body)
+                ) +
+                " " +
+                wasURLUnescape(
+                    wasKeyValueGet("data", body)
+                )
             );
             llResetScript();
+        }
         llOwnerSay("[MOTD] Database created!");
         state listen_group;
+    }
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
 state listen_group {
     state_entry() {
         // DEBUG
         llOwnerSay("[MOTD] Waiting for group messages and new group members.");
+    }
     link_message(integer sender, integer num, string message, key id) {
         // We only care about notifications now.
         if(id != "notification")
             return;
         // Get the group.
         group = wasURLUnescape(
             wasKeyValueGet(
                 "group",
                 message
+            )
         );
         // Retrieve the membership notification.
         if(wasKeyValueGet("type", message) == "membership" &&
             wasKeyValueGet("action", message) == "joined") {
             firstname = wasURLUnescape(
                 wasKeyValueGet(
+                )
             );
             jump_state = "greet";
             state url;
+        }
         // This script only processes group notifications.
         if(wasKeyValueGet("type", message) != "group")
             return;
         // Get the sent message.
         data = wasURLUnescape(
             wasKeyValueGet(
                 "message",
                 message
+            )
         );
         // Check if this is an eggdrop command.
         if(llGetSubString(data, 0, 0) !=
             wasKeyValueGet("command", configuration))
             return;
         // Check if the command matches the current module.
         list command = llParseString2List(data, [" "], []);
         if(llList2String(command, 0) !=
             wasKeyValueGet("command", configuration) + "motd")
             return;
         // Remove command.
         command = llDeleteSubList(command, 0, 0);
         // Dump the rest of the message.
         data = llDumpList2String(command, " ");
         // Get the sent message.
         if(data == "") {
             jump_state = "get";
             state url;
+        }
         jump_state = "set";
         state url;
+    }
     on_rez(integer num) {
         llResetScript();
             (change & CHANGED_OWNER)) {
             llResetScript();
+        }
+    }
+}
 state greet {
     state_entry() {
         // DEBUG
         llOwnerSay("[MOTD] Member joined, retrieving MOTD...");
         llInstantMessage(
                     wasKeyValueGet("error", body)
+                )
             );
             state listen_group;
+        }
         data = llDumpList2String(
             llDeleteSubList(
                 wasCSVToList(
                     wasURLUnescape(
                         wasKeyValueGet("data", body)
 ,
             ),
             ""
         );
         if(data == "")
             state listen_group;
         data = "Hello " + firstname + " " + lastname + "!" + " " + data;
         state tell;
+    }
     timer() {
         llReleaseURL(URL);
+    }
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
 state get {
     state_entry() {
         // DEBUG
         llOwnerSay("[MOTD] Retrieving from database.");
         llInstantMessage(
                         "\" WHERE name=:group"),
                     "data", wasURLEscape(
                         wasListToCSV(
+                            [
                                 "group",
-                                wasURLEscape(group)
+                                wasURLEscape(
+                                    wasKeyValueGet(
+                                        "group",
+                                        configuration
+                                    )
+                                )
+                            ]
+                        )
                     ),
                     "callback", wasURLEscape(URL)
+                ]
                     wasKeyValueGet("error", body)
+                )
             );
             state listen_group;
+        }
         data = llDumpList2String(
             llDeleteSubList(
                 wasCSVToList(
                     wasURLUnescape(
                         wasKeyValueGet("data", body)
 ,
             ),
             ""
         );
         if(data == "") {
             data = "Sorry, no MOTD is currently set.";
             state tell;
+        }
         state tell;
+    }
     timer() {
         llReleaseURL(URL);
         state listen_group;
+    }
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
 state set {
     state_entry() {
         // DEBUG
         llOwnerSay("[MOTD] Adding to database.");
         llInstantMessage(
                         "\" (name, data) VALUES (:name, :data)"),
                     "data", wasURLEscape(
                         wasListToCSV(
+                            [
                                 "name",
-                                wasURLEscape(group),
+                                wasURLEscape(
+                                    wasKeyValueGet(
+                                        "group",
+                                        configuration
+                                    )
+                                ),
                                 "data",
                                 wasURLEscape(data)
+                            ]
+                        )
                     ),
+    }
     state_exit() {
         llSetTimerEvent(0);
+    }
+}
 state tell {
     state_entry() {
         // DEBUG
         llOwnerSay("[MOTD] Sending to group.");
         llInstantMessage(