Move Lock Jitters

Found a cute little script for a move lock hud ... except it is like standing on a washing machine. Any way to settle it down? dampen it? maybe pockets full of rocks ....

integer lock=0;

doLock(integer on)
{
    lock=on;
    if(on)
    {
        vector pos=llGetPos();
        llMoveToTarget(pos,0.1);
        llSetColor(<1,0,0>,ALL_SIDES);
        llSetTimerEvent(0.2);
    }
    else
    {
        llStopMoveToTarget();
        llSetColor(<0,1,0>,ALL_SIDES);
        llSetTimerEvent(0);
    }
}

default
{
    on_rez(integer num)
    {
        doLock(FALSE);
    }
    
    state_entry()
    {
        doLock(FALSE);
    }

    touch_start(integer num)
    {
        doLock(!lock);
    }

    timer()
    {
        integer info=llGetAgentInfo(llGetOwner());
        if(info & AGENT_IN_AIR)
        {
            if(!(info & AGENT_FLYING))
            {
                doLock(FALSE);
                llSleep(1);
                doLock(TRUE);
            }
        }
    }
}

Movelocks that do not turn off while you have a movement control pressed are probably not going to be easy to live with.

You might be interested to check this thread:

Excellent ty-