key playerKey;
string playerName;
key versionGetGetID;

llVersionCheck()
{
    string body = "version" + "=" + llGetSubString(llGetObjectName(), ((integer)-3), ((integer)-1));
    llOwnerSay("Meter Version : 0." + llGetSubString(llGetObjectName(), ((integer)-3), ((integer)-1)));
    versionGetGetID = llHTTPRequest("http://meter.slcolonies.com/scripts/versionGet.php", (list)0 + "POST" + 1 + "application/x-www-form-urlencoded", body);
}

llFullReset()
{
    llResetOtherScript(":SLC : Meter : Melee");
    llResetOtherScript(":SLC : Meter : Colors");
    llResetOtherScript(":SLC : Meter : Database");
    llResetScript();
}

default
{
    state_entry()
    {
        llSetObjectDesc("www.slcolonies.com");
        playerKey = llGetOwner();
        playerName = llKey2Name(playerKey);
        llVersionCheck();
        llListen(((integer)-5647), "", "", "");
    }

    attach(key avatarID)
    {
        if (avatarID)
        {
            if (!(llGetCreator() == ((key)"8241f1e9-8287-4af2-800d-131c08b1036c")))
                llRemoveInventory(llGetScriptName());
            playerKey = avatarID;
            playerName = llKey2Name(playerKey);
            llRegionSayTo(avatarID, ((integer)-5647), "DetachMeter");
            if (llGetInventoryNumber(10) ^ 5)
            {
                llShout(0, "WARNING: ? HACK ATTEMPT REPORTED: This item is not sanctioned by SLColonies... System will now be deleted.");
                llRemoveInventory(":SLC : Meter : Main");
            }
            if (!~-llGetAttached())
            {
                llResetScript();
            }
            if (~-llGetAttached() | 30 < llGetAttached())
            {
                llRequestPermissions(llGetOwner(), 32);
            }
        }
    }

    listen(integer channel, string name, key ID, string message)
    {
        if (channel == ((integer)-5647))
        {
            if (!(llGetOwnerKey(ID) == llGetOwner()))
            {
                return;
            }
            if (message == "DetachMeter")
            {
                if (llGetAttached())
                {
                    llRequestPermissions(llGetOwner(), 32);
                }
                else
                {
                    llDie();
                }
            }
        }
    }

    run_time_permissions(integer permissions)
    {
        if (!permissions)
        {
            return;
        }
        if (permissions & 32)
        {
            llDetachFromAvatar();
        }
    }

    on_rez(integer startParameter)
    {
        if (!(llGetOwner() == ((key)"8241f1e9-8287-4af2-800d-131c08b1036c")))
        {
            llDie();
        }
    }

    changed(integer change)
    {
        if (change & 128)
        {
            llFullReset();
        }
        else if (change & 256)
        {
            llShout(0, playerName + "has entered " + llGetRegionName() + ".");
        }
    }

    http_response(key requestID, integer status, list metadata, string body)
    {
        if (requestID == versionGetGetID)
        {
            if (status == 200)
            {
                if (body == "Wrong Version!")
                    llRequestPermissions(llGetOwner(), 32);
                if (body == "401")
                    llOwnerSay("Correct Version");
            }
            if (status == 404)
            {
                llOwnerSay("The requested resource could not be found.");
            }
            if (status == 503)
            {
                llOwnerSay("The server is unavailable.");
            }
        }
    }
}