// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Named lamp chase
// Not compiled or tested in-world
// Setup: Put in the root of a small linkset. Name up to 16 children chase_lamp. Owner-touch starts/stops.
// Stop / restore: Touch to stop and restore every lamp’s original face-zero glow.
// Notes: Changes face 0 only; name each lamp intentionally. Do not relink while running. Uses a moderate half-second step and low glow.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Not compiled or tested in-world.
list links;
list saved;
integer active;
integer index;
restore()
{
    integer i;
    for(i=0;i<llGetListLength(links);++i)llSetLinkPrimitiveParamsFast(llList2Integer(links,i),[PRIM_GLOW,0,llList2Float(saved,i)]);
}
default
{
    state_entry()
    {
        integer i;
        for(i=2;i<=llGetObjectPrimCount(llGetKey())&&llGetListLength(links)<16;++i)
        if(llGetLinkName(i)=="chase_lamp")
        {
            links+=[i];
            saved+=llGetLinkPrimitiveParams(i,[PRIM_GLOW,0]);
        }
    }
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner()||!llGetListLength(links))return;
        active=!active;
        if(active)
        {
            index=0;
            llSetTimerEvent(0.5);
        }
        else
        {
            llSetTimerEvent(0.0);
            restore();
        }
    }
    timer()
    {
        restore();
        llSetLinkPrimitiveParamsFast(llList2Integer(links,index),[PRIM_GLOW,0,0.12]);
        index=(index+1)%llGetListLength(links);
    }
}