//--------------------------
// preloads textures on a box
// just drop it in with the images and it will cycle every 10 seconds, or change the picture_pace variable to change the speed
// updates on touch as well
//--------------------------

// Change this next line to adjust the image rotation speed
float picture_pace=10.0;

// Sendao Goodman, 2007

integer reload;
list pictures;
integer slideno;

loadPictures()
{
    pictures=[];
    integer i = llGetInventoryNumber(INVENTORY_TEXTURE);
    if( i > 0 ) {
        while( i > 0 ) {
            i--;
            pictures=(pictures=[])+pictures+[llGetInventoryName(INVENTORY_TEXTURE,i)];
        }
        llOwnerSay((string)llGetListLength(pictures)+" pictures loaded");
        pictures = llListSort( pictures, 1, TRUE ); // put them in order
        llSetTimerEvent(picture_pace);
    } else if( reload == 0 ) {
        llSetTimerEvent(0.0);
    }
}

string getSlide(integer slide)
{
    return llList2String( pictures, (slide+llGetListLength(pictures))%llGetListLength(pictures) );
}

default
{
    on_rez(integer sp)
    {
        loadPictures();
        slideno=0;
        reload=0;
    }
    state_entry()
    {
        loadPictures();
        slideno=0;
        reload=0;
        llSetColor( <0,0,0>, 0 );
        llSetColor( <0,0,0>, 1 );
        llSetColor( <1,1,1>, 2 );
        llSetColor( <0,0,0>, 3 );
        llSetColor( <0,0,0>, 4 );
        llSetColor( <0,0,0>, 5 );
    }
    
    changed( integer ch )
    {
        if( ch & CHANGED_INVENTORY ) {
            reload=1;
            llSetTimerEvent(2.0);
        }
    }

    touch_start(integer nd)
    {
        if( llGetListLength(pictures) > 0 ) {
            integer i=6;
            while( i > 0 ) {
                i--;
                llSetTexture( getSlide(slideno+(i-2)), i);
            }
            slideno = (slideno+1)%llGetListLength(pictures);
        }
    }        

    
    timer()
    {
        if( reload == 1 ) {
            reload = 0;
            loadPictures();
            return;
        }
        integer i=6;
        while( i > 0 ) {
            i--;
            llSetTexture( getSlide(slideno+(i-2)), i);
        }
        slideno = (slideno+1)%llGetListLength(pictures);
    }
}