// Omei Qunhua

integer PrimNum = 1;
integer NextTime;
integer TimePerPrim;
list PrimList = [1, 9, 10, 11, 12, 13, 999];
// list PrimList = [1, 2, 3, 4, 5, 6, 999];   (Omei's test prims)

integer PrimIndex = 0;

float       fAlpha          =  1.0;
float       fAlphaChange    =  0.05;   // 20 steps to transparent
float       fAlphaSleep     =  0.35;   // 20 steps at 0.35 secs takes 7 seconds

default
{
    state_entry()
    {
        TimePerPrim =  5 + (integer) (fAlphaSleep * fAlpha / fAlphaChange);
        for (PrimIndex = 0; PrimIndex < 6; PrimIndex++)
        {
            llSetLinkAlpha  (llList2Integer(PrimList, PrimIndex),fAlpha,ALL_SIDES);
        }
    }
    touch_start(integer total_number)
    {
        NextTime = llGetUnixTime() + TimePerPrim;
        llSetTimerEvent(fAlphaSleep);
        PrimIndex = 0;
    }

    timer()
    {
        if (llGetUnixTime() >= NextTime)
        {
            NextTime += TimePerPrim;
            PrimNum = llList2Integer(PrimList, ++PrimIndex);
            if (PrimNum == 999)    llResetScript();
            fAlpha = 1.0;
        }
        if (fAlpha < fAlphaChange)    return;       // Don't decrement Alpha below zero, wait for prim Change
        fAlpha -= fAlphaChange;
        llSetLinkAlpha  ( PrimNum,fAlpha,ALL_SIDES);
    }
}