integer OpenA;
integer OpenB;
integer LiddedA;
integer LiddedB;
integer SquintA;
integer SquintB;
integer CloseA;
integer CloseB;
integer Eyelids;
integer Lashes;
float delay = 0.05;
FindPrims()
{
    OpenA = -9;
    OpenB = -9;
    LiddedA = -9;
    LiddedB = -9;
    SquintA = -9;
    SquintB = -9;
    CloseA = -9;
    CloseB = -9;
    Eyelids = -9;
    Lashes = -9;
    integer prims = llGetNumberOfPrims();
    integer i;
    for(i=2; i<prims+1; i++)
    {
        string name = llGetLinkName(i);
        if(name=="Open-A")OpenA=i;
        else if(name=="Open-B")OpenB=i;
        else if(name=="Lidded-A")LiddedA=i;
        else if(name=="Lidded-B")LiddedB=i;
        else if(name=="Squint-A")SquintA=i;
        else if(name=="Squint-B")SquintB=i;
        else if(name=="Close-A")CloseA=i;
        else if(name=="Close-B")CloseB=i;
        else if(name=="eyelids")Eyelids=i;
        else if(name=="Lashes")Lashes=i;
    }
}

Open()
{
    llSetLinkPrimitiveParamsFast(OpenA, [PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, OpenB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, LiddedA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, LiddedB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, SquintA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, SquintB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, CloseA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, CloseB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0
        PRIM_LINK_TARGET, Lashes, PRIM_COLOR, 0, <0,0,0>, 1.0,
                                  PRIM_COLOR, 4, <0,0,0>, 1.0]);
    llSleep(delay);
}

Lidded()
{
    llSetLinkPrimitiveParamsFast(OpenA, [PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, OpenB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, LiddedA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, LiddedB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, SquintA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, SquintB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, CloseA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, CloseB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0]);
    llSleep(delay);
}

Squint()
{
    llSetLinkPrimitiveParamsFast(OpenA, [PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, OpenB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, LiddedA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, LiddedB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, SquintA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, SquintB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, CloseA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, CloseB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0]);
    llSleep(delay);
}

Close()
{
    llSetLinkPrimitiveParamsFast(OpenA, [PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, OpenB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, LiddedA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, LiddedB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, SquintA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, SquintB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 0.0,
        PRIM_LINK_TARGET, CloseA, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0,
        PRIM_LINK_TARGET, CloseB, PRIM_COLOR, ALL_SIDES, <0,0,0>, 1.0]);
    llSleep(delay);
}

OpenBlink()
{
    Lidded();
    LiddedBlink();
    Open();
}

LiddedBlink()
{
    Squint();
    SquintBlink();
    Lidded();
}

SquintBlink()
{
    Close();
    Lidded();
}

default
{
    state_entry()
    {
        FindPrims();
        llListen(1, "", "", "");
        llSetTimerEvent(1);
    }

    timer()
    {
        OpenBlink();
    }

    changed(integer change)
    {
        if(change & CHANGED_LINK)
        {
            FindPrims();
        }
    }

    listen(integer channel, string name, key id, string msg)
    {
        if(llGetOwnerKey(id) == llGetOwner())
        {
            if     (msg == "Eyes Open"  ) Open();
            else if(msg == "Eyes Lidded") Lidded();
            else if(msg == "Eyes Squint") Squint();
            else if(msg == "Eyes Close" ) Close();
        }
    }
}