1st necessity of SL

Ever since I noticed that many sims contain 1000's of wonderful objects with fancy effects and 1000's active scripts that use valuable simresources while no-one is around to enjoy it, I wanted to script something simple to offload those resources and give the visitor a better experience.

That's why I made this little script: '1st necessity of SL' that could and should be used in any project that doesn't need to be active all the time.

We are building a better place, together :)

[Beer Dailey]

// Improve SecondLife's performance!
// Start with your own(ned) modifyable scripts/objects.
//
// This will disable your rootprim's script(s) when no-one is around to use/admire it
// thus stop wasting valuable sim-resources
// 
// Measured script time is 0.002 ms on average. 
//
// - don't use it for rental stuff or sorts, not everything is suitable -
//
// Free to use, please use it. Improvements are welcome.
// // Thank you Norton Burns for the testing and feedback :)
//
// Beer Dailey
//
// Don't reset this script or take it back in inventory when you're not within the set distance 
// or you'll get unpredictable results !!
// 
// modify below to suit your needs

//////////////////////////////////
float   distance = 48;   // scan range 
integer delay = 10;      // repeat scan every 10 seconds.

// added 
// (gnore specific scripts, some scripts need to be off after initial setups
// There's a bug that resets scripts in off state after a sim restart, so when activated again they re-initialise.
// I've no fix for that.
//
list ignore_scripts = ["major script", "even worse script"]; 

integer debug = FALSE;   // for debugging purposes, set it to TRUE to see what it's controlling


//////////////////////////////////////
// no need to modify the code below //
//////////////////////////////////////

integer g_active = FALSE;  // if FALSE disable all other scripts  
                           // changed TRUE into FALSE cos of some bug with rezzing, thank you LordGregGreg Back :)
list control_scripts;      // list for all scriptnames
 
active_scripts( integer active )
{
    if(g_active == active) return; else g_active = active;  //flip TRUE/FALSE
 
    integer a;
    for ( a = 0; a < llGetListLength(control_scripts); a++)
    {
        llSetScriptState(llList2String(control_scripts, a), g_active); //(de)activate scripts 
        
    }  
    if (debug) llOwnerSay("Changed: " + llList2CSV(control_scripts) + " to: " + (string)g_active );  
}
 
default
{
    state_entry()
    {
        string myname = llGetScriptName(); //don't add myself into the list 
        control_scripts = [];  
        
        integer i;
        integer n = llGetInventoryNumber(INVENTORY_SCRIPT); //count scripts
        
        if (n == 1) { llOwnerSay("No other scripts found!"); } else //dont be silly ;)
        
        for(i = 0; i < n; ++i)
        {
            string name = llGetInventoryName(INVENTORY_SCRIPT, i); //parse scriptnames 
            if(name != myname) //not my name then continue
            {
               //catch states
               if ( llGetScriptState(name) == TRUE) //not on ignore list & running add it
               {
                   control_scripts += [name];  
               }
               else ignore_scripts += [name];
            }
        }
        if (debug) llOwnerSay("Controlling: " + llList2CSV(control_scripts) + "\nIgnoring: " + llList2CSV(ignore_scripts));
        llSensorRepeat("", NULL_KEY, AGENT, distance, PI, delay); // how far and how often we scan for avatars
    }
 
    on_rez(integer s) 
    { 
        if (llGetListLength(control_scripts)== 0 && g_active == TRUE) llResetScript(); 
        //first time use or reset only when scripts are still active or they'll be added to the ignorelist
    } 
 
    changed(integer change)
    {
        if (change & CHANGED_OWNER) llResetScript(); // catch new owner
        if (change & CHANGED_INVENTORY) llResetScript(); // catch new scripts
    }
 
    sensor(integer num_detected)
    {
       active_scripts(TRUE); //activate the scripts
    }
 
    no_sensor()  //no-one around? turn off all controlled scripts except myself
    {
       active_scripts(FALSE); //deactivate the scripts
    }
 
}