// PICTURE BLACKOUT

// LOOKS FOR PEOPLE ON A LIST
// IF NOBODY ON THE LIST IS PRESENT, IT TURNS THE PRIM BLACK

// Instructions: 
// 1. Put this script in the same prim that has the picture on it.
//
// 2. In that prim's Description field, list all the people who the picture should show itself to. Separate names with a comma, no spaces.
// example:
// Cubey Terra,Beowulf Blackburn,Philip Linden,Cristiano Midnight,Aimee Weebler


float INTERVAL = 60; // how often in seconds to check for people on whitelist
float RANGE = 90; // range of sensor
vector CLR_ON = <1,1,1>;
vector CLR_OFF = <0,0,0>;

integer isOnList(string name)
{
    list people = llCSV2List(llGetObjectDesc());
    integer num = llGetListLength(people);
    integer i;
    for (i=0;i<num;i++)
    {
        if (llToLower(name) == llToLower(llList2String(people,i))) // compare names in lower case because SL names are often mistyped
        {
            return TRUE;
        }
    }
    return FALSE;
}


default
{
    
    state_entry()
    {
        llSetTimerEvent(INTERVAL);
    }
    
    timer()
    {
        llSensor("","",AGENT,RANGE,TWO_PI); // Scans for all agent in RANGE
    }
    
    sensor(integer num_detected)
    {
        integer i;
        integer detected;
        for (i=0;i<num_detected;i++)
        {
            string name = llDetectedName(i); 
            if (isOnList(name)) // if a detected agent is on the list...
            {
                detected = TRUE;
            }
        }
        if (detected) 
        {
            if (llGetColor(0) != CLR_ON) llSetColor(CLR_ON,ALL_SIDES);
        }
        else
        {
            if (llGetColor(0) != CLR_OFF) llSetColor(CLR_OFF,ALL_SIDES);
        }
    }
}

list AVATARS=["Youravatarkey","anotheravatarkey","yetanotheravatarkey"];

list lImageLinks;
integer iPrimAmount;
integer iAvatarListLength;
integer iTemp;
integer iTemp2;
integer iTemp3;
key kQuery;
string sTemp;

getPrims()
{
    llSetTimerEvent(0);
    kQuery=NULL_KEY;
    iTemp=iPrimAmount=llGetNumberOfPrims();
    lImageLinks=[];
    do
    {
        if(llListFindList(AVATARS,[sTemp=llGetLinkName(iTemp)]) != -1)
        {
            lImageLinks+=sTemp;
            lImageLinks+=iTemp;
            lImageLinks+=0;
            llSetLinkColor(iTemp,<0,0,0>,2);
        }
    }
    while(iTemp=~-iTemp);
    llSetTimerEvent(60);
}

default
{
    state_entry()
    {
        iAvatarListLength=AVATARS != [];
        getPrims();
                //if(lImageLinks != [])
                    llSetTimerEvent(0.01);
    }
    changed(integer change)
    {
        if(change & CHANGED_LINK)
            getPrims();
    }
    timer()
    {
        llSetTimerEvent(0);
        iTemp2=llListFindList(lImageLinks,[sTemp=llList2String(AVATARS,iTemp=0)]);
        kQuery=llRequestAgentData((key)sTemp,DATA_ONLINE);
    }
    dataserver(key query, string data)
    {
        if(kQuery==query)
        {
            if((integer)data)
            {
                if(!(llList2Integer(lImageLinks,iTemp3=iTemp2+2)))
                {
                    llSetLinkColor(llList2Integer(lImageLinks,iTemp2+1),<1,1,1>,2);
                    llListReplaceList(lImageLinks,[1],iTemp3,iTemp3);
                }
            }
            else
            {
                if(llList2Integer(lImageLinks,iTemp3=iTemp2+2))
                {
                    llSetLinkColor(llList2Integer(lImageLinks,iTemp2+1),<0,0,0>,2);
                    llListReplaceList(lImageLinks,[0],iTemp3,iTemp3);
                }
            }
            if((iTemp=-~iTemp) < iAvatarListLength)
            {
                iTemp2=llListFindList(lImageLinks,[sTemp=llList2String(AVATARS,iTemp)]);
                kQuery=llRequestAgentData(sTemp,DATA_ONLINE);
            }
            else
            {
                iTemp=iTemp2=0;
                kQuery=NULL_KEY;
                llSetTimerEvent(60);
            }
        }
    }
}

// PICTURE BLACKOUT BY OWNER
// CHECKS IF PRIM'S OWNER IS PRESENT IN THE SIM. IF NOT, IT TURNS THE PRIM BLACK

// Instructions:  Put this script in the same prim that has the picture on it.

float INTERVAL = 15; // how often in seconds to check if owner is present in the sim
vector CLR_ON = <1,1,1>;
vector CLR_OFF = <0,0,0>;

default
{
    state_entry()
    {
        llSetTimerEvent(INTERVAL);
    }
    
    timer()
    {
        if (llKey2Name(llGetOwner()) == "") llSetColor(CLR_OFF,ALL_SIDES);
        else llSetColor(CLR_ON,ALL_SIDES);
    }
}