| /source/eggdrop/joke-database.lsl |
|---|
| @@ -1,5 +1,5 @@ |
|---|
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) Wizardry and Steamworks 2018 - License: CC BY 2.0 // |
| // Copyright (C) Wizardry and Steamworks 2018 - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| // |
| // A database-based joke module for Corrade Eggdrop. |
| @@ -7,19 +7,19 @@ |
|---|
| /////////////////////////////////////////////////////////////////////////// |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2014 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2015 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); |
| integer i = llListFindList(llList2ListStrided(a, 0, -1, 2), [ k ]); |
| if(i != -1) return llList2String(a, 2*i+1); |
| return ""; |
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2013 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| string wasKeyValueEncode(list data) { |
| list k = llList2ListStrided(data, 0, -1, 2); |
| @@ -34,7 +34,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2011 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| // http://was.fm/secondlife/wanderer |
| vector wasCirclePoint(float radius) { |
| @@ -46,7 +46,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| // escapes a string in conformance with RFC1738 |
| string wasURLEscape(string i) { |
| @@ -70,7 +70,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| list wasCSVToList(string csv) { |
| list l = []; |
| @@ -109,7 +109,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| string wasListToCSV(list l) { |
| list v = []; |
| @@ -138,7 +138,7 @@ |
|---|
| } |
| |
| /////////////////////////////////////////////////////////////////////////// |
| // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 // |
| // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 // |
| /////////////////////////////////////////////////////////////////////////// |
| // unescapes a string in conformance with RFC1738 |
| string wasURLUnescape(string i) { |
| @@ -377,7 +377,7 @@ |
|---|
| joke_counter = llList2Integer( |
| result, |
| llListFindList(result, ["count"]) + 1 |
| ); |
| ) + 1; |
| |
| llOwnerSay("[Joke] There are " + (string)joke_counter + " jokes in the database."); |
| state listen_group; |
| @@ -411,7 +411,10 @@ |
|---|
| return; |
| |
| // This script only processes group notifications. |
| if(wasKeyValueGet("type", message) != "group") |
| if(wasKeyValueGet("type", message) != "group" || |
| (wasKeyValueGet("type", message) == "group" && |
| wasURLUnescape(wasKeyValueGet("group", message)) != |
| wasKeyValueGet("group", configuration))) |
| return; |
| |
| // Get the message sender. |
| @@ -478,7 +481,7 @@ |
|---|
| } |
| |
| data = llDumpList2String(command, " "); |
| if((integer)data == 0) |
| if((integer)data <= 0) |
| data = ""; |
| jump_state = "get"; |
| state url; |
| @@ -665,7 +668,7 @@ |
|---|
| state add { |
| state_entry() { |
| // DEBUG |
| llOwnerSay("[Joke] Adding to database."); |
| llOwnerSay("[Joke] Adding to database: " + (string)(joke_counter + 1)); |
| llInstantMessage( |
| wasKeyValueGet( |
| "corrade", |
| @@ -724,7 +727,7 @@ |
|---|
| // DEBUG |
| llOwnerSay("[Joke] Unable modify database: " + |
| wasURLUnescape( |
| wasKeyValueGet("error", body) |
| wasKeyValueGet("data", body) |
| ) |
| ); |
| state listen_group; |
