Show Agent Script Count and memory

De DigiWiki.

//Agent Script Count and memory usage by PixelProphet Lane
//bytesToSize function in PHP ThomasR, August 24th 2010, adapted to LSL by PixelProphet Lane 
string bytesToSize(integer bytes)
{
    list units = ["Bytes", "KiloBytes", "MegaBytes", "GigaBytes", "TerraBytes"];
    if (bytes == 0) return "n/a";
    integer i = llFloor(llLog(bytes) / llLog(1024));
    string val = (string)llRound(bytes / llPow(1024, i));
    return val + " " + llList2String(units,i);
}
 
string ONAME;
default
{
    on_rez(integer arg)
    {
        llResetScript();
    }
 
    state_entry()
    {
        ONAME = llGetObjectName();
        llSay(0,llGetEnv("sim_channel") + " " + llGetEnv("sim_version"));        
    }
 
    touch_start(integer total_number)
    {
        llSetObjectName(llDetectedName(0));
        list data = llGetObjectDetails(llDetectedKey(0),[OBJECT_TOTAL_SCRIPT_COUNT,OBJECT_SCRIPT_MEMORY]);
        string scripts = llList2String(data,0);
        integer mem = llList2Integer(data,1);
        string memory = bytesToSize(mem);
        llSay(0,"/me has "+scripts+" scripts attached using a total of "+memory);
        llSetObjectName(ONAME);
    }
}