movetotarget test.lsl

integer i = 1;
vector target;
vector dest;
integer handle;

list point = [
<3,0,0>,
<0,3,0>,
<-3,0,0>,
<0,-3,0>
];

update()
{
    llLookAt(llGetPos() + <0,0,1>, 1, 0.1);
    llStopMoveToTarget();
    target = llList2Vector(point, i);
    llTargetRemove(handle);
    dest = llGetPos() + target;
    handle = llTarget(dest, 0.1);
    llMoveToTarget(llGetPos() + target / 0.37, 5);
    i++;
    i = i % 4;
}

default
{
    state_entry()
    {
        llSetVelocity(ZERO_VECTOR,FALSE);
        llTargetRemove(handle);
        llStopMoveToTarget();
    }
    
    touch_end(integer index)
    {
        update();
    }
    
    at_target(integer tnum, vector targetpos, vector ourpos)
    {
        update();
    }
}