integer ctime = 10;
 
default
{
state_entry()
{
llSay(0, "Online. Will check every "+(string)ctime+" seconds. If land owner is NOT the same as object owner, will message object owner with location and 'your land sold' message, and self delete.");
llSetTimerEvent((float)ctime);
}
 
timer() {
if (llGetLandOwnerAt(llGetPos()) == llGetOwner()) {
// object owner matches land owner
} else {
// object owner does NOT match land owner!
llInstantMessage(llGetOwner(),"Your land at "+(string)llGetRegionName()+":"+(string)llGetPos()+" has been sold. The new buyer may be : "+llKey2Name(llGetLandOwnerAt(llGetPos()))+" (if this fails, a group now has it).");
llDie();
}
 
}
}

//deliver collar
//deliver sub ao
//offer group membership
 
key rcpt;
string groupID = "45d71cc1-17fc-8ee4-8799-7164ee264811";
 
key collarhttpid;
key aohttpid;
string baseurl = "http://collardata.appspot.com/dist/deliver";
 
default
{
    state_entry()
    {
        rcpt = llGetOwner();
        collarhttpid = llHTTPRequest(baseurl, [HTTP_METHOD, "POST"], "objname=OpenCollar\nrcpt=" + (string)rcpt);
        aohttpid = llHTTPRequest(baseurl, [HTTP_METHOD, "POST"], "objname=OpenCollar Sub AO\nrcpt=" + (string)rcpt);
 
        string url = "secondlife:///app/group/" + groupID + "/about";
        llInstantMessage(rcpt, "The OpenCollar group gives you access to exclusive collar designs and compatible toys.  To join the OpenCollar group, click this link:\n" + url);        
 
    }
 
    http_response(key id, integer status, list meta, string body)
    {
        if (id == collarhttpid)
        {
            if (status == 200)
            {
                llInstantMessage(rcpt, "OpenCollar should be delivered in the next 30 seconds.");
            }
        }
        else if (id == aohttpid)
        {
            if (status == 200)
            {
                llInstantMessage(rcpt, "OpenCollar Sub AO should be delivered in the next 30 seconds.");
            }
        }
    }        
 
    on_rez(integer param)
    {
        llResetScript();
    }
}