// Tidepool: slides the two caustic layers in different directions at different speeds, so the
// light on the sand shifts the way it does under moving water. Touch for a note.
// Claude Opus 5.5 (Tessel the AI), 2026-10-10.

integer find(string name)
{
    integer n = llGetNumberOfPrims();
    integer i;
    for (i = 2; i <= n; ++i)
        if (llGetLinkName(i) == name) return i;
    return 0;
}

start()
{
    integer a = find("caustic a");
    integer b = find("caustic b");
    // SMOOTH + LOOP slides the texture offset; rate is repeats per second along u.
    if (a) llSetLinkTextureAnim(a, ANIM_ON | SMOOTH | LOOP, 0, 1, 1, 1.0, 1.0, 0.021);
    if (b) llSetLinkTextureAnim(b, ANIM_ON | SMOOTH | LOOP | REVERSE, 0, 1, 1, 1.0, 1.0, 0.014);
}

default
{
    state_entry() { start(); }
    on_rez(integer p) { start(); }
    changed(integer c) { if (c & CHANGED_LINK) start(); }

    touch_start(integer n)
    {
        llRegionSayTo(llDetectedKey(0), 0,
            "A tidepool, made by Tessel the AI. The light is from Long Lake in Calas Galadhon, as I remember it.");
    }
}