script molla

vector save;

integer N=10;
float FACTOR=0.2;
float DIVIDE=2;
vector SIZE=<0.5,0.5,0.5>;
float SLEEP=0.05;

integer i;
float x;

stretch()
{
    for(i=1;i<N;i++)
    {
        x=i*FACTOR;
        llSetLinkPrimitiveParamsFast(0,[ PRIM_SIZE, SIZE+<0,0,x>, PRIM_POSITION, save+<0,0,x/DIVIDE>]);
        llSleep(SLEEP);
    }
}
shrink()
{
    for(i=N;i>1;i--)
    {
        x=i*FACTOR;
        llSetLinkPrimitiveParamsFast(0,[ PRIM_SIZE, SIZE+<0,0,x>, PRIM_POSITION, save+<0,0,x/DIVIDE>]);
        llSleep(SLEEP);
    }
}


default
{
    state_entry()
    {

        save=llGetPos();
        llSetTimerEvent(N*SLEEP*2);
    }

    timer()
    {
        stretch();
        shrink();
    }
}