corrade-lsl-templates – Blame information for rev 42

Subversion Repositories:
Rev:
Rev Author Line No. Line
8 office 1 ///////////////////////////////////////////////////////////////////////////
42 office 2 // Copyright (C) Wizardry and Steamworks 2016 - License: GNU GPLv3 //
8 office 3 ///////////////////////////////////////////////////////////////////////////
4 //
5 // A module that spanks group members using fuzzy name matching. . .
6 //
7 ///////////////////////////////////////////////////////////////////////////
8  
9 ///////////////////////////////////////////////////////////////////////////
41 office 10 // Copyright (C) 2015 Wizardry and Steamworks - License: CC BY 2.0 //
8 office 11 ///////////////////////////////////////////////////////////////////////////
12 string wasKeyValueGet(string k, string data) {
13 if(llStringLength(data) == 0) return "";
14 if(llStringLength(k) == 0) return "";
41 office 15 list a = llParseStringKeepNulls(data, ["&", "="], []);
16 integer i = llListFindList(llList2ListStrided(a, 0, -1, 2), [ k ]);
17 if(i != -1) return llList2String(a, 2*i+1);
8 office 18 return "";
19 }
42 office 20  
8 office 21 ///////////////////////////////////////////////////////////////////////////
42 office 22 // Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 //
8 office 23 ///////////////////////////////////////////////////////////////////////////
24 string wasKeyValueEncode(list data) {
25 list k = llList2ListStrided(data, 0, -1, 2);
26 list v = llList2ListStrided(llDeleteSubList(data, 0, 0), 0, -1, 2);
27 data = [];
28 do {
29 data += llList2String(k, 0) + "=" + llList2String(v, 0);
30 k = llDeleteSubList(k, 0, 0);
31 v = llDeleteSubList(v, 0, 0);
32 } while(llGetListLength(k) != 0);
33 return llDumpList2String(data, "&");
34 }
35  
36 ///////////////////////////////////////////////////////////////////////////
42 office 37 // Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3 //
8 office 38 ///////////////////////////////////////////////////////////////////////////
39 // http://was.fm/secondlife/wanderer
40 vector wasCirclePoint(float radius) {
41 float x = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2);
42 float y = llPow(-1, 1 + (integer) llFrand(2)) * llFrand(radius*2);
43 if(llPow(x,2) + llPow(y,2) <= llPow(radius,2))
44 return <x, y, 0>;
45 return wasCirclePoint(radius);
46 }
47  
48 ///////////////////////////////////////////////////////////////////////////
42 office 49 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
8 office 50 ///////////////////////////////////////////////////////////////////////////
51 // escapes a string in conformance with RFC1738
52 string wasURLEscape(string i) {
53 string o = "";
54 do {
55 string c = llGetSubString(i, 0, 0);
56 i = llDeleteSubString(i, 0, 0);
57 if(c == "") jump continue;
58 if(c == " ") {
59 o += "+";
60 jump continue;
61 }
62 if(c == "\n") {
63 o += "%0D" + llEscapeURL(c);
64 jump continue;
65 }
66 o += llEscapeURL(c);
67 @continue;
68 } while(i != "");
69 return o;
70 }
71  
72 ///////////////////////////////////////////////////////////////////////////
42 office 73 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
8 office 74 ///////////////////////////////////////////////////////////////////////////
75 list wasCSVToList(string csv) {
76 list l = [];
77 list s = [];
78 string m = "";
79 do {
80 string a = llGetSubString(csv, 0, 0);
81 csv = llDeleteSubString(csv, 0, 0);
82 if(a == ",") {
83 if(llList2String(s, -1) != "\"") {
84 l += m;
85 m = "";
86 jump continue;
87 }
88 m += a;
89 jump continue;
90 }
91 if(a == "\"" && llGetSubString(csv, 0, 0) == a) {
92 m += a;
93 csv = llDeleteSubString(csv, 0, 0);
94 jump continue;
95 }
96 if(a == "\"") {
97 if(llList2String(s, -1) != a) {
98 s += a;
99 jump continue;
100 }
101 s = llDeleteSubList(s, -1, -1);
102 jump continue;
103 }
104 m += a;
105 @continue;
106 } while(csv != "");
107 // postcondition: length(s) = 0
108 return l + m;
109 }
110  
111 ///////////////////////////////////////////////////////////////////////////
42 office 112 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
8 office 113 ///////////////////////////////////////////////////////////////////////////
114 string wasListToCSV(list l) {
115 list v = [];
116 do {
117 string a = llDumpList2String(
118 llParseStringKeepNulls(
119 llList2String(
42 office 120 l,
8 office 121  
42 office 122 ),
123 ["\""],
8 office 124 []
125 ),
126 "\"\""
127 );
128 if(llParseStringKeepNulls(
42 office 129 a,
8 office 130 [" ", ",", "\n", "\""], []
42 office 131 ) !=
8 office 132 (list) a
133 ) a = "\"" + a + "\"";
134 v += a;
135 l = llDeleteSubList(l, 0, 0);
136 } while(l != []);
137 return llDumpList2String(v, ",");
138 }
139  
140 ///////////////////////////////////////////////////////////////////////////
42 office 141 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
8 office 142 ///////////////////////////////////////////////////////////////////////////
143 // unescapes a string in conformance with RFC1738
144 string wasURLUnescape(string i) {
145 return llUnescapeURL(
146 llDumpList2String(
147 llParseString2List(
148 llDumpList2String(
149 llParseString2List(
42 office 150 i,
151 ["+"],
8 office 152 []
42 office 153 ),
8 office 154 " "
42 office 155 ),
156 ["%0D%0A"],
8 office 157 []
42 office 158 ),
8 office 159 "\n"
160 )
161 );
162 }
163  
164 // configuration data
165 string configuration = "";
166 // store message over state.
167 string data = "";
168  
169 default {
170 state_entry() {
171 llOwnerSay("[Spank] Starting...");
172 llSetTimerEvent(10);
173 }
174 link_message(integer sender, integer num, string message, key id) {
175 if(id != "configuration") return;
176 llOwnerSay("[Spank] Got configuration...");
177 configuration = message;
178 state listen_group;
179 }
180 timer() {
181 llOwnerSay("[Spank] Requesting configuration...");
182 llMessageLinked(LINK_THIS, 0, "configuration", NULL_KEY);
183 }
184 on_rez(integer num) {
185 llResetScript();
186 }
187 changed(integer change) {
42 office 188 if((change & CHANGED_INVENTORY) ||
189 (change & CHANGED_REGION_START) ||
8 office 190 (change & CHANGED_OWNER)) {
191 llResetScript();
192 }
193 }
194 state_exit() {
195 llSetTimerEvent(0);
196 }
197 }
198  
199 state listen_group {
200 state_entry() {
201 // DEBUG
202 llOwnerSay("[Spank] Waiting for group messages...");
203 }
204 link_message(integer sender, integer num, string message, key id) {
205 // We only care about notifications now.
206 if(id != "notification")
207 return;
42 office 208  
8 office 209 // This script only processes group notifications.
42 office 210 if(wasKeyValueGet("type", message) != "group" ||
211 (wasKeyValueGet("type", message) == "group" &&
212 wasURLUnescape(wasKeyValueGet("group", message)) !=
213 wasKeyValueGet("group", configuration)))
8 office 214 return;
42 office 215  
8 office 216 // Get the sent message.
217 data = wasURLUnescape(
218 wasKeyValueGet(
42 office 219 "message",
8 office 220 message
221 )
222 );
42 office 223  
11 office 224 // Check if this is an eggdrop command.
42 office 225 if(llGetSubString(data, 0, 0) !=
8 office 226 wasKeyValueGet("command", configuration))
227 return;
42 office 228  
11 office 229 // Check if the command matches the current module.
15 office 230 list command = llParseString2List(data, [" "], []);
42 office 231 if(llList2String(command, 0) !=
15 office 232 wasKeyValueGet("command", configuration) + "spank")
8 office 233 return;
42 office 234  
8 office 235 // Remove command.
236 command = llDeleteSubList(command, 0, 0);
42 office 237  
8 office 238 // Dump the rest of the message.
239 data = llDumpList2String(command, " ");
240  
42 office 241 // Search for member.
8 office 242 state search;
243 }
244 on_rez(integer num) {
245 llResetScript();
246 }
247 changed(integer change) {
42 office 248 if((change & CHANGED_INVENTORY) ||
249 (change & CHANGED_REGION_START) ||
8 office 250 (change & CHANGED_OWNER)) {
251 llResetScript();
252 }
253 }
254 }
255  
256 state search {
257 state_entry() {
258 // DEBUG
259 llOwnerSay("[Spank] Searching for agent.");
260 llInstantMessage(
261 wasKeyValueGet(
42 office 262 "corrade",
8 office 263 configuration
42 office 264 ),
8 office 265 wasKeyValueEncode(
266 [
267 "command", "getmembers",
268 "group", wasURLEscape(
269 wasKeyValueGet(
42 office 270 "group",
8 office 271 configuration
272 )
273 ),
274 "password", wasURLEscape(
275 wasKeyValueGet(
42 office 276 "password",
8 office 277 configuration
278 )
279 ),
280 "sift", wasURLEscape(
281 wasListToCSV(
282 [
283 "match",
11 office 284 wasURLEscape("(?i),?\"([^\",$]*" + data + "[^\",$]*)\",?")
8 office 285 ]
286 )
287 ),
42 office 288 "callback", wasURLEscape(
289 wasKeyValueGet(
290 "URL",
291 configuration
292 )
293 )
8 office 294 ]
295 )
296 );
297 llSetTimerEvent(60);
298 }
42 office 299 link_message(integer sender, integer num, string body, key id) {
300 // Only process callbacks for the database command.
301 if(id != "callback" || wasKeyValueGet("command", body) != "getmembers")
302 return;
303  
304 if(wasKeyValueGet("success", body) != "True") {
8 office 305 // DEBUG
42 office 306 llOwnerSay("[Spank] Unable to get members: " +
8 office 307 wasURLUnescape(
308 wasKeyValueGet("error", body)
309 )
310 );
311 state listen_group;
312 }
42 office 313  
8 office 314 // Dump the members to a list.
11 office 315 list spankees = wasCSVToList(
316 wasURLUnescape(
317 wasKeyValueGet("data", body)
8 office 318 )
319 );
42 office 320  
11 office 321 // Limit to two people to spank.
322 if(llGetListLength(spankees) > 2) {
323 data = "So many people, so few hands!";
42 office 324 state tell;
11 office 325 }
42 office 326  
11 office 327 data = llList2CSV(spankees);
42 office 328  
8 office 329 if(data == "") {
330 data = "I could not find anyone to spank (story of my life).";
331 state tell;
332 }
42 office 333  
8 office 334 data = "/me spanks " + data;
42 office 335  
8 office 336 state tell;
337 }
338 timer() {
339 state listen_group;
340 }
341 on_rez(integer num) {
342 llResetScript();
343 }
344 changed(integer change) {
42 office 345 if((change & CHANGED_INVENTORY) ||
346 (change & CHANGED_REGION_START) ||
8 office 347 (change & CHANGED_OWNER)) {
348 llResetScript();
349 }
350 }
351 state_exit() {
352 llSetTimerEvent(0);
353 }
354 }
355  
356 state tell {
357 state_entry() {
358 // DEBUG
359 llOwnerSay("[Spank] Sending to group.");
360 llInstantMessage(
361 wasKeyValueGet(
42 office 362 "corrade",
8 office 363 configuration
42 office 364 ),
8 office 365 wasKeyValueEncode(
366 [
367 "command", "tell",
368 "group", wasURLEscape(
369 wasKeyValueGet(
42 office 370 "group",
8 office 371 configuration
372 )
373 ),
374 "password", wasURLEscape(
375 wasKeyValueGet(
42 office 376 "password",
8 office 377 configuration
378 )
379 ),
380 "entity", "group",
381 "message", wasURLEscape(data)
382 ]
383 )
384 );
385 state listen_group;
386 }
387 }