///////////////////////////////////////////////////////////////////////////
//  Copyright (C) Wizardry and Steamworks 2011 - License: GNU GPLv3      //
//  Please see: http://www.gnu.org/licenses/gpl.html for legal details,  //
//  rights of fair usage, the disclaimer and warranty conditions.        //
///////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////
//                   CONFIGURATION                      //
//////////////////////////////////////////////////////////
//                                                      //
// Set this to the URL of a radio station to which the 
// land parcel should switch to once the DJ leaves.
string RADIO_URL = "http://www.google.com";
// This represents the interval in seconds between scans.
integer SCAN_INTERVAL = 30;
// This represents the range for the scans.
integer SCAN_RANGE = 10;
// Whenever a DJ is not found after a scan, the script 
// will decrement this value. When this value reaches 0,
// the script will consider that the DJ has left and 
// it will switch to the configured radio station. This 
// is done this way, because sometimes scans fail and 
// they are unable to locate a DJ. This is some sort of 
// error fuzz that the script will allow.
integer ALLOWED_SCAN_FAILS = 10;
//                                                      //
//                  END CONFIGURATION                   //
//////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////////////
//                              INTERNALS                                //
///////////////////////////////////////////////////////////////////////////
key dQuery = NULL_KEY;
integer dLine = 0;
list dList = [];

init() {
    integer itra;
    for(itra=0; itra<llGetInventoryNumber(INVENTORY_NOTECARD); ++itra) {
        if(llGetInventoryName(INVENTORY_NOTECARD, itra) == "DJ List")
            jump found_djlist;
    }
    return;
@found_djlist;
    dLine = 0;
    dQuery = llGetNotecardLine("DJ List", dLine);
}

default
{
    state_entry() {
        init();
    }
    
    on_rez(integer num) {
        init();
    }
    
    changed(integer change) {
        if(change & CHANGED_INVENTORY)
            llResetScript();
    }
    
    timer() {
        if(!dLine) {
            llSetTimerEvent(.0);
            llSetParcelMusicURL(RADIO_URL);
            return;
        }
        llSetTimerEvent(30);
    }
    
    sensor (integer num) {
        integer itra;
        for(itra=0; itra<num; ++itra) {
            if(~llListFindList(dList, (list)llDetectedKey(itra))) {
                dLine = ALLOWED_SCAN_FAILS;
                llSetTimerEvent(30);
                return;
            }
        }
        if(dLine > 0) {
            --dLine;
        }
    }
    
    dataserver(key query_id, string data) {
        if(query_id == dQuery) {
            if(data == EOF) {
                dLine = ALLOWED_SCAN_FAILS;
                llSetTimerEvent(30);
                llSensorRepeat("", "", AGENT, SCAN_RANGE, TWO_PI, SCAN_INTERVAL);
                return;
            }
            if(data == "") jump next_line;
            list pData = llParseString2List(data, ["#"], [""]);
            if(llKey2Name(llList2Key(pData, 1)) == llList2String(pData, 0))
                dList += llList2Key(pData, 1);
@next_line;
            dQuery = llGetNotecardLine("DJ List", ++dLine);
        }
    }
}