//===== Wobbley Prim Script ================================

vector size;
float freq = 2;
float amplitude = 0.25;
float decay = 1.25;
float duration = 4.0;
float time;

wobble()
    {
        llResetTime();
        do
        {
            time = llGetTime();
            float lala = amplitude*llCos(freq*time*2*PI)/llPow(2.718, decay*time);
            llSetLinkPrimitiveParamsFast(LINK_THIS,[PRIM_SIZE,<size.x-lala,size.y-lala,size.z+lala>]);
            llSleep(time/40);
        }
        while (llGetTime() < duration);
        llSetScale(size);
    }

default
{
    state_entry()
    {
        size = llGetScale();
        llSetTimerEvent(llFrand(1.0) + 2.5);
        wobble();
    }

    timer()
    {
        wobble();
    }
}
 //Pavl Duke 2014