list LightList = ["1,0,0,0,0,0",
                  "0,1,0,0,0,0",
                  "0,0,1,0,0,0",
                  "0,0,0,1,0,0",
                  "0,0,0,0,1,0",
                  "0,0,0,0,0,1"];
integer n = 0;
integer i;
default
{
    state_entry()
    {
        llSetTimerEvent(0.5);
    }

    timer()
    {
        if(n == llGetListLength(LightList)) n = 0;
        list SmallList = llCSV2List(llList2String(LightList,n));

        for (i = 0;i<llGetListLength(LightList);i++)
        {
            integer primnum = i+2;
            float on = llList2Float(SmallList,i);
            llSetLinkPrimitiveParamsFast(i,[PRIM_COLOR,ALL_SIDES,on*<1,0,0>,PRIM_GLOW,ALL_SIDES,on]);
        }
        n = n+1;
    }
}