corrade-lsl-templates – Blame information for rev 21

Subversion Repositories:
Rev:
Rev Author Line No. Line
15 office 1 ///////////////////////////////////////////////////////////////////////////
2 // Copyright (C) Wizardry and Steamworks 2016 - License: GNU GPLv3 //
3 ///////////////////////////////////////////////////////////////////////////
4 //
5 // A module using AI-SIML that allows group members to talk to Corrade.
6 //
7 ///////////////////////////////////////////////////////////////////////////
8  
9 ///////////////////////////////////////////////////////////////////////////
10 // Copyright (C) 2014 Wizardry and Steamworks - License: GNU GPLv3 //
11 ///////////////////////////////////////////////////////////////////////////
12 string wasKeyValueGet(string k, string data) {
13 if(llStringLength(data) == 0) return "";
14 if(llStringLength(k) == 0) return "";
15 list a = llParseString2List(data, ["&", "="], []);
16 integer i = llListFindList(a, [ k ]);
17 if(i != -1) return llList2String(a, i+1);
18 return "";
19 }
20  
21 ///////////////////////////////////////////////////////////////////////////
22 // Copyright (C) 2013 Wizardry and Steamworks - License: GNU GPLv3 //
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 ///////////////////////////////////////////////////////////////////////////
37 // Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3 //
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 ///////////////////////////////////////////////////////////////////////////
49 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
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 ///////////////////////////////////////////////////////////////////////////
73 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
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 ///////////////////////////////////////////////////////////////////////////
112 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
113 ///////////////////////////////////////////////////////////////////////////
114 string wasListToCSV(list l) {
115 list v = [];
116 do {
117 string a = llDumpList2String(
118 llParseStringKeepNulls(
119 llList2String(
120 l,
121  
122 ),
123 ["\""],
124 []
125 ),
126 "\"\""
127 );
128 if(llParseStringKeepNulls(
129 a,
130 [" ", ",", "\n", "\""], []
131 ) !=
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 ///////////////////////////////////////////////////////////////////////////
141 // Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3 //
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(
150 i,
151 ["+"],
152 []
153 ),
154 " "
155 ),
156 ["%0D%0A"],
157 []
158 ),
159 "\n"
160 )
161 );
162 }
163  
164 ///////////////////////////////////////////////////////////////////////////
165 // Copyright (C) 2017 Wizardry and Steamworks - License: GNU GPLv3 //
166 ///////////////////////////////////////////////////////////////////////////
167 list wasSetIntersect(list a, list b) {
168 if(llGetListLength(a) == 0) return [];
169 string i = llList2String(a, 0);
170 a = llDeleteSubList(a, 0, 0);
171 if(llListFindList(b, (list)i) == -1)
172 return wasSetIntersect(a, b);
173 return i + wasSetIntersect(a, b);
174 }
175  
176 // configuration data
177 string configuration = "";
178 // callback URL
179 string URL = "";
180 // store message over state.
181 string data = "";
182  
183 default {
184 state_entry() {
185 llOwnerSay("[AI] Starting...");
186 llSetTimerEvent(10);
187 }
188 link_message(integer sender, integer num, string message, key id) {
189 if(id != "configuration") return;
190 llOwnerSay("[AI] Got configuration...");
191 configuration = message;
192 state listen_group;
193 }
194 timer() {
195 llOwnerSay("[AI] Requesting configuration...");
196 llMessageLinked(LINK_THIS, 0, "configuration", NULL_KEY);
197 }
198 on_rez(integer num) {
199 llResetScript();
200 }
201 changed(integer change) {
202 if((change & CHANGED_INVENTORY) ||
203 (change & CHANGED_REGION_START) ||
204 (change & CHANGED_OWNER)) {
205 llResetScript();
206 }
207 }
208 state_exit() {
209 llSetTimerEvent(0);
210 }
211 }
212  
213 state listen_group {
214 state_entry() {
215 // DEBUG
216 llOwnerSay("[AI] Waiting for group messages...");
217 }
218 link_message(integer sender, integer num, string message, key id) {
219 // We only care about notifications now.
220 if(id != "notification")
221 return;
222  
223 // This script only processes group notifications.
224 if(wasKeyValueGet("type", message) != "group")
225 return;
226  
227 // Get the sent message.
228 data = wasURLUnescape(
229 wasKeyValueGet(
230 "message",
231 message
232 )
233 );
234  
235 // Check if this is an eggdrop command.
236 if(llGetSubString(data, 0, 0) !=
237 wasKeyValueGet("command", configuration))
238 return;
239  
240 // Check if the command matches the current module.
241 list command = llParseString2List(data, [" "], []);
242 if(llList2String(command, 0) !=
243 wasKeyValueGet("command", configuration) +
244 wasKeyValueGet("nickname", configuration))
245 return;
246  
247 // Remove command.
248 command = llDeleteSubList(command, 0, 0);
249  
250 // Dump the rest of the message.
251 data = llDumpList2String(command, " ");
252  
253 // Get an URL.
254 state url;
255 }
256 on_rez(integer num) {
257 llResetScript();
258 }
259 changed(integer change) {
260 if((change & CHANGED_INVENTORY) ||
261 (change & CHANGED_REGION_START) ||
262 (change & CHANGED_OWNER)) {
263 llResetScript();
264 }
265 }
266 }
267  
268 state url {
269 state_entry() {
270 // DEBUG
271 llOwnerSay("[AI] Requesting URL...");
272 llRequestURL();
273 }
274 http_request(key id, string method, string body) {
275 if(method != URL_REQUEST_GRANTED) return;
276 URL = body;
277 // DEBUG
278 llOwnerSay("[AI] Got URL...");
279 state version;
280 }
281 on_rez(integer num) {
282 llResetScript();
283 }
284 changed(integer change) {
285 if((change & CHANGED_INVENTORY) ||
286 (change & CHANGED_REGION_START) ||
287 (change & CHANGED_OWNER)) {
288 llResetScript();
289 }
290 }
291 }
292  
293 state version {
294 state_entry() {
295 // DEBUG
296 llOwnerSay("[AI] Sending to AI for processing...");
297 llInstantMessage(
298 wasKeyValueGet(
299 "corrade",
300 configuration
301 ),
302 wasKeyValueEncode(
303 [
304 "command", "ai",
305 "group", wasURLEscape(
306 wasKeyValueGet(
307 "group",
308 configuration
309 )
310 ),
311 "password", wasURLEscape(
312 wasKeyValueGet(
313 "password",
314 configuration
315 )
316 ),
317 "action", "process",
318 "message", wasURLEscape(data),
319 "callback", wasURLEscape(URL)
320 ]
321 )
322 );
323 llSetTimerEvent(60);
324 }
325 http_request(key id, string method, string body) {
326 llHTTPResponse(id, 200, "OK");
327 llReleaseURL(URL);
328 if(wasKeyValueGet("command", body) != "ai" ||
329 wasKeyValueGet("success", body) != "True") {
330 // DEBUG
331 llOwnerSay("[AI] Unable to get processed message: " +
332 wasURLUnescape(
333 wasKeyValueGet("error", body)
334 )
335 );
336 state listen_group;
337 }
338  
339 // Get the processed message.
340 data = wasKeyValueGet("data", body);
341  
342 state tell;
343 }
344 timer() {
345 llReleaseURL(URL);
346 state listen_group;
347 }
348 on_rez(integer num) {
349 llResetScript();
350 }
351 changed(integer change) {
352 if((change & CHANGED_INVENTORY) ||
353 (change & CHANGED_REGION_START) ||
354 (change & CHANGED_OWNER)) {
355 llResetScript();
356 }
357 }
358 state_exit() {
359 llSetTimerEvent(0);
360 }
361 }
362  
363 state tell {
364 state_entry() {
365 // DEBUG
366 llOwnerSay("[AI] Sending to group.");
367 llInstantMessage(
368 wasKeyValueGet(
369 "corrade",
370 configuration
371 ),
372 wasKeyValueEncode(
373 [
374 "command", "tell",
375 "group", wasURLEscape(
376 wasKeyValueGet(
377 "group",
378 configuration
379 )
380 ),
381 "password", wasURLEscape(
382 wasKeyValueGet(
383 "password",
384 configuration
385 )
386 ),
387 "entity", "group",
388 "message", data // message is already encoded
389 ]
390 )
391 );
392 state listen_group;
393 }
394 }