integer i;
integer x;
integer iloscPrim;
float czerwony;
float zielony;
float niebieski;

list jedynki;
list dwojki;
list trojki;
integer ileJedynek;
integer ileDwojek;
integer ileTrojek;

float intensywnoscSwiatla = 1.0; // 0.0 - 1.0
float przezroczystoscLampek = 1.0; // 0.0 - 1.0
float zasiegSwiatla = 15.0; // 0.1 - 20.0
float opadanieSilySwiatla = 1.0; // 0.01 - 2.0
float silaBlasku = 1.0; // 0.0 - 1.0

default {
    on_rez(integer start_param) {
        llResetScript();
    }
    state_entry() {
        iloscPrim = llGetNumberOfPrims();
        for(i = 1; i <= iloscPrim; i++) {
            if(llGetLinkName(i) == "1") {
                jedynki = [i] + jedynki;
            } else if(llGetLinkName(i) == "2") {
                dwojki = [i] + dwojki;
            } else if(llGetLinkName(i) == "3") {
                trojki = [i] + trojki;
            }
        }
        ileJedynek = llGetListLength(jedynki);
        ileDwojek = llGetListLength(dwojki);
        ileTrojek = llGetListLength(trojki);
        llSetTimerEvent(1.0);
    }
    timer() {

        czerwony = llFrand(1.0);
        zielony = llFrand(1.0);
        niebieski = llFrand(1.0);
        x = 0;
        while(x < ileJedynek) {
            llSetLinkPrimitiveParamsFast(llList2Integer(jedynki, x), [PRIM_POINT_LIGHT, TRUE, <czerwony, zielony, niebieski>, intensywnoscSwiatla, zasiegSwiatla, opadanieSilySwiatla, PRIM_GLOW, ALL_SIDES, silaBlasku, PRIM_COLOR, ALL_SIDES, <czerwony, zielony, niebieski>, przezroczystoscLampek]);
            ++x;
        }

        czerwony = llFrand(1.0);
        zielony = llFrand(1.0);
        niebieski = llFrand(1.0);
        x = 0;
        while(x < ileDwojek) {
            llSetLinkPrimitiveParamsFast(llList2Integer(dwojki, x), [PRIM_POINT_LIGHT, TRUE, <czerwony, zielony, niebieski>, intensywnoscSwiatla, zasiegSwiatla, opadanieSilySwiatla, PRIM_GLOW, ALL_SIDES, silaBlasku, PRIM_COLOR, ALL_SIDES, <czerwony, zielony, niebieski>, przezroczystoscLampek]);
            ++x;
        }

        czerwony = llFrand(1.0);
        zielony = llFrand(1.0);
        niebieski = llFrand(1.0);
        x = 0;
        while(x < ileTrojek) {
            llSetLinkPrimitiveParamsFast(llList2Integer(trojki, x), [PRIM_POINT_LIGHT, TRUE, <czerwony, zielony, niebieski>, intensywnoscSwiatla, zasiegSwiatla, opadanieSilySwiatla, PRIM_GLOW, ALL_SIDES, silaBlasku, PRIM_COLOR, ALL_SIDES, <czerwony, zielony, niebieski>, przezroczystoscLampek]);
            ++x;
        }

    }
}