NWScript:

void ActionMoveToObjectWithGuides(object dest, int run=FALSE, float range=1.0f) {

    object curr = OBJECT_SELF;

    while (curr != dest) {

        float dist = GetDistanceBetween(curr, dest);

        int index = 1;

        int searching = 1;

        object guide = GetNearestObjectByTag("guide", curr, index);

        while (GetIsObjectValid(guide) && searching) {

            float dist2 = GetDistanceBetween(dest, guide);

            float dist3 = GetDistanceBetween(guide, curr);

            if (dist2 < dist && dist2 > 2.0f && dist3 > 2.0f) {

                ActionMoveToObject(guide, run, range);

                curr = guide;

                searching = 0;

            }

            index = index + 1;

            guide = GetNearestObjectByTag("guide", curr, index);

        }

        if (searching) {

            guide = dest;

            ActionMoveToObject(guide, run, range);

            curr = guide;

        }

    }

}