///////////////////////////////////////////////////////////////////////////
//    Copyright (C) 2011 Wizardry and Steamworks - License: GNU GPLv3    //
///////////////////////////////////////////////////////////////////////////

list slides = [];
integer sides = 0;
 
default {
    state_entry() {
        // Thanks for the music Salahzar Stenvaag, 10 faces is cool!
        llSetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_PRISM, 32, <0.199, 0.8, 0.0>, 0.30, <0.0, 0.0, 0.0>, 
        <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>, PRIM_SIZE, <0.03, 2.89, 0.5>, PRIM_COLOR, ALL_SIDES, <1,1,1>, 0.0 ]);
        sides = llGetNumberOfSides();
    }
    
    timer() {
        string s = llList2String(slides, 0);
        llSetTexture(s, sides);
        slides = llDeleteSubList(slides, 0, 0);
        slides += s;
        if(--sides == 0) sides = llGetNumberOfSides();
    }
    
    link_message(integer sender, integer num, string message, key id) {
        if(message != "kpre!") return;
        llSetTimerEvent(0);
        slides = llCSV2List(id);
        llMessageLinked(sender, 0, "kok", "");
        llSetTimerEvent(1.01-llGetRegionTimeDilation());
    }
}