////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2008 by Kristy Fanshaw //
////////////////////////////////////////////////////////////////////////////////////////////////
// This program is free software: you can redistribute it and/or modify //
// it under the terms of the GNU General Public License as published by //
// the Free Software Foundation, either version 3 of the License, or //
// (at your option) any later version. //
// //
// Vendor System is distributed in the hope that it will be useful, //
// but WITHOUT ANY WARRANTY; without even the implied warranty of //
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
// GNU General Public License for more details. //
// //
// To get a copy of the GNU General Public License, see <http://www.gnu.org/licenses/>. //
////////////////////////////////////////////////////////////////////////////////////////////////
key user_key = "00000000-0000-0000-0000-000000000000"; // must be agent UUID whose status it will indicate
integer time = 30; // time within the message should be written.
string url = "http://world.secondlife.com/resident/";
key blank = "5748decc-f629-461c-9a36-a35a221fe21f";
string name;
key toucher;
string status;
default
{
state_entry()
{
llSetText("", <1,0,0>, 1.0);
llSetTexture(blank, ALL_SIDES);
llRequestAgentData( user_key, DATA_NAME);
}
dataserver(key queryid, string data)
{
name = data;
llSetObjectName(name + "'s Online Detector");
state show;
}
}
state show
{
state_entry()
{
llSetTimerEvent(10);
}
timer()
{
llHTTPRequest( url + (string)user_key,[HTTP_METHOD,"GET"],"");
llRequestAgentData( user_key, DATA_ONLINE);
}
on_rez(integer start_param)
{
llSetText("", <1,0,0>, 1.0);
llSetTexture(blank, ALL_SIDES);
}
http_response(key request_id,integer status, list metadata, string body)
{
if (llSubStringIndex(body, "blank.jpg") == -1)
{
integer start_UUID = llSubStringIndex(body,"<img alt=\"profile image\" src=\"http://secondlife.com/app/image/") + llStringLength("<img alt=\"profile image\" src=\"http://secondlife.com/app/image/");
integer end_UUID = llSubStringIndex(body,"\" class=\"parcelimg\" />") - 3;
string profile_pic = llGetSubString(body, start_UUID, end_UUID);
llSetTexture((key)profile_pic, ALL_SIDES);
}
else
{
llSetTexture(blank, ALL_SIDES);
}
}
dataserver(key queryid, string data)
{
if ( data == "1" )
{
status = " is online";
llSetText(name + status, <0,1,0>, 1.0);
}
else if (data == "0")
{
status = " is offline";
llSetText(name + status, <1,0,0>, 1.0);
}
}
touch_start(integer num_detected)
{
toucher = llDetectedKey(0);
state msg;
}
}
state msg
{
state_entry()
{
llListen(0,"",toucher,"");
llInstantMessage(toucher, "write your message to " + name +" - you have " +(string)time + " seconds");
llInstantMessage(toucher, "to see " + name +"'s profile, click this link here: secondlife:///app/agent/" + (string)user_key + "/about");
llSetTimerEvent(time);
}
listen(integer ch, string name, key id, string msg)
{
llInstantMessage(user_key, llKey2Name(toucher) + " sent you a message from " + llGetRegionName() + ": " + msg);
llInstantMessage(toucher, "message is sent.");
llListenRemove(0);
state show;
}
timer()
{
llInstantMessage(toucher, "time is up - touch again to write a message");
llListenRemove(0);
state show;
}
}