Timer Events

default {
     state_entry() {     
          llSetTimerEvent(1.0);
     }
     timer() {
          llSetTimerEvent(1.0);
          if(llGetWallClock() >= 3600 & llGetWallClock() <= 3605) {
               llSetTexture("1am Texture", ALL_SIDES);
               llSetTimerEvent(3540.0);
          }
          if(llGetWallClock() >= 7200 & llGetWallClock() <= 7205) {
               llSetTexture("2am Texture", ALL_SIDES);
               llSetTimerEvent(3540.0);
          }
     }
}

//Delay between each time check
integer delay = 30;



//list of times and texture to set to.
list time_of_day = ["03:09","texture1",
                    "03:10", "texture2",
                    "03:11", "texture3",
                    "03:12", "texture4"
                    ];


//using the usual wallclock method
time()
{
        integer total_seconds = (integer)llGetWallclock();
        integer hours = total_seconds / 3600;
        integer minutes = (total_seconds % 3600) / 60;
        string wallclock = "";
        if (hours < 10) wallclock += "0";
        wallclock += (string)hours;
        wallclock += ":";
        if (minutes < 10) wallclock += "0";
        wallclock += (string)minutes;
        
        //check to see if the time is in the list, if so get the position.
        integer pos = llListFindList(time_of_day,[wallclock]);
        
        //if the time is not in the list it returns the value of -1.
        if (pos != -1)  
        {
            //If the value is greater than -1 then set the texture which is found next to the the time, in the list. pos + 1

            string texture = llList2String(time_of_day, pos + 1);

             // key texture = llList2Key(time_of_day, pos + 1);

            llSetTexture(texture, ALL_SIDES);
        }
}

default
{
    state_entry()
    {
        llSetTimerEvent(delay); 
        time();
    }

    timer()
    { 
        time();
        
    }
    on_rez(integer start_param)
    {
        llResetScript();
    }
}

//creator: Kurt Zidane
//vertion: 0.001
//copy right: all rights reserved
//description: use the current walltime to find the current event in a list of events

//globals

//settings
//fps sampling
integer maxNumberOfSamples      =   200     ;
//list formating
//data pos for timeChange
integer     fFormatLength       =   2       ;
integer     fTime               =   0       ;
integer     fName               =   1       ;
//time
float       oneHour             =   3600.0  ;
float       maxTime             =   43200.0 ; //24 hours

//dynamic
//alarm list, aka data list
list        timeChange          =   []      ;
//fps sampling
list        fpsSample           =   []      ;
 

//notes:

//funtions
// read a list of floats. adding all the values together. It then returns that value devided by the number of floats read.
// note: totalValue / max == 0/0 or #/0  may result in faliure?
float   avrageFloatValue ( list floats )
{
    float totalValue = 0.0;
    
    integer max =   llGetListLength ( floats );
    integer counter;
    for ( counter = 0; counter < max; counter++ )
    {
        totalValue += llList2Float ( floats, counter );
    }
    
    return ( totalValue / (float)max );
}

// crops a list by the max length
//note: funtion code has been trimed for performance, sacing some oop standards
list    trimList ( list inList, integer max )
{
    integer size        = llGetListLength ( inList );
    integer diffrence   = size - max;
    if ( diffrence > 0 )
    {
        return llList2List ( inList, diffrence, ( size - 1 ) );
    }
    else
    {
        return inList;
    }
}

//uses globals
//profiles time dilation
float avrageDilation ( )
{
    fpsSample += llGetRegionTimeDilation ( );
    fpsSample  = trimList ( fpsSample, ( maxNumberOfSamples ) );
    
    return avrageFloatValue ( fpsSample );
}

//becuase the decolration of global vierables prohibits math
list settingtimeChange()
{
    return [
                oneHour * 8.0   ,"chill@lash"           ,
                oneHour * 9.0   ,"cillevning"           ,
                oneHour * 12.0  ,"lash at the gezzebo"  ,
                oneHour * 13.0  ,"cillevning"           ,
                oneHour * 21.0  ,"man on the sims"      ,
                oneHour * 22.0  ,"waterHouse"           ,
                oneHour * 24.0  ,"pinkName"
            ];   
}

//uses the current time to find what alarm is active.
//returns the posistion of current alarm by it's posistion in list
//Notes:
// Asumes all time in list is are in order of alarms starting at 00:01 to 24:00.
// Time is not formated in hour or in 10:10 it is in seoconds as a float
// list include information other then alarm times
//Disucstion:
// if there are two alarm one at  3:00 and another at 4:00 
//   then 5:00 is part of alarm 4:00 
//   and 2:00 is also part of alarm 4:00 ( if current time is less then the first alarm time in list, then it is part of the alst time in list ) 
//   and 3:00 to 3:59 is part of alarm 3:00
integer findEvent ( list valList, float time )
{
    integer setPoint = 0;
    
    integer listSize    = llGetListLength ( valList );
    integer counter     = 0;
    float   eventTime   = llList2Float ( timeChange, ( counter + fTime ) );
    if ( time < eventTime )
    {
        setPoint = llGetListLength ( valList ) - fFormatLength; 
    }
    for ( counter = 2; counter < listSize && time > eventTime; counter =  counter + fFormatLength )
    {
        setPoint    = counter - fFormatLength;
        eventTime   = llList2Float ( timeChange, ( counter + fTime ) );
    }

    return setPoint; 
} 

//add change to currentNumber, and then uses max to make sure the resolts is in range,
// and then returns the resolts.
integer counter ( integer currentNumber, integer change, integer max)
{
    integer value = currentNumber + change;

    for ( ; value < 0  ; )
    {
        value += max;
    }
    for ( ; value >= max; )
    {
        value -= max;
    }

    return value;
}

//retreviews texture name from input list. Assumes format is 2 long and 2 is the texture
string getTextureName ( list valList, integer pos )
{
    return llList2String ( valList, ( pos + fName ) );
} 

//returns the time diffrence between to times formated in floats
float computTimer ( float currentTime, float goalTime )
{
    float output;
    
    if ( goalTime > currentTime )
    {
        output = ( ( goalTime - currentTime ) );
    }
    else 
    {
        output = ( goalTime + ( maxTime - currentTime ) );
    }
     
    return output; 
}

string runTime () 
{
    //preProssess
    float time = llGetWallclock();
    
    integer listSize        = llGetListLength ( timeChange );
    integer currentEventNum = findEvent( timeChange, time );
    integer nextEventNum    = counter ( currentEventNum, fFormatLength, listSize );
    
    float   currentEventTime= llList2Float ( timeChange,  currentEventNum + fTime );
    float   nextEventTime   = llList2Float ( timeChange,  nextEventNum + fTime ); 
    
    float   timeDiffrence   = computTimer ( time, nextEventTime );
    float   timerTime       = timeDiffrence * avrageDilation();
    
    //out put
    string textureName = getTextureName ( timeChange,  currentEventNum  );
    llSetTimerEvent ( timerTime );
    
    //debug
    llWhisper ( 0, "Data List: " + (string)timeChange );
    llWhisper ( 0, "Current Event #: " + (string) currentEventNum );
    llWhisper ( 0, "Current Event Time: " + (string) currentEventTime );
    llWhisper ( 0, "Current Time: " + (string) time );
    llWhisper ( 0, "Next Rvent #: " + (string) nextEventNum );
    llWhisper ( 0, "Next Event Time: " + (string)nextEventTime  );
    llWhisper ( 0, "Time to Next Rvent: " + (string) timeDiffrence );
    llWhisper ( 0, "Dilation: " + (string) avrageDilation() );
    llWhisper ( 0, "Timer Dilated: " + (string)timerTime );
    llWhisper ( 0, "Alarm Name: " + textureName ); 
    
    //return of out put
    return textureName;
}

//settexture by passed name, no error correction included.
setTexture ( string name )
{
    llSetTexture ( name, 0 );
    llScaleTexture ( 1.0, 1.0, 0 );    
}

default
{
    state_entry ()
    {
        //calculating alarm times
        timeChange = settingtimeChange();
        //prossess
        setTexture ( runTime ( ) );

    }

    touch_start ( integer num )
    {
        setTexture ( runTime ( ) );
    }
    
    timer ()
    {   
        setTexture ( runTime ( ) );
    }
}