I was linked to this fun page a while ago.

So I decided to make a LSL script that pulls compliments from that page and spits them into chat.

Enjoy!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
//Script by Richard Keast
//SL Name: Sam Darrow
//
//Surrealist Compliment Generator (http://www.madsci.org/cgi-bin/cgiwrap/~lynn/jardin/SCG)
//Is Copyright 1994-1999 Banjo Ruthless Creations

key requestid;

default
{
touch_start(integer total_number)
{
requestid = llHTTPRequest("http://www.madsci.org/cgi-bin/cgiwrap/~lynn/jardin/SCG",[],"");
}

http_response(key request_id, integer status, list metadata, string body)
{
if(requestid == request_id)
{
integer strpos_1 = llSubStringIndex(body, "
<h2>") + 6;
integer strpos_2 = llSubStringIndex(body, "</h2>
") - 1;
body = llGetSubString(body, strpos_1, strpos_2);

llSay(0 ,llDumpList2String(llParseString2List(body, ["\n"," "], []), " "));
}
}
}