Frame script per animare linkset

integer myframe;

default
{
    state_entry()
    {
        myframe=(integer)llGetObjectDesc();
        llListen(100,"",NULL_KEY,"");
    }
    listen(integer channel,string name,key id,string str)
    {
        integer frame=(integer)str;

        float alpha=0;
        if(frame==myframe) alpha=1;
        llSetLinkAlpha(LINK_SET,alpha,ALL_SIDES);

    }
}