do {
            dist = llVecDist(destpos, llGetPos());
            jumps = (integer)(dist / 10.) + 1;
            count = 0;
            if (jumps > 400 )
                jumps = 400;
            rules = [ PRIM_POSITION, destpos ];
            integer count = 1;
            while ( ( count = count << 1 ) < jumps)
                rules = (rules=[]) + rules + rules;
            llSetLinkPrimitiveParamsFast(llGetLinkNumber(), rules + llList2List( rules, (count - jumps) << 1, count) );

        } while (dist > 4000.);