iniciar-programa
define-nueva-instruccion media-vuelta como repetir 2 veces gira-izquierda;
define-nueva-instruccion gira-derecha como repetir 3 veces gira-izquierda;
define-nueva-instruccion solo-postes(x) como
inicio
si izquierda-bloqueada entonces
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            avanza;
            solo-postes(sucede(x));

        fin
        sino
        inicio
            gira-derecha;
            avanza;
            media-vuelta;
            repetir x veces deja-zumbador;
            apagate;
        fin;
    fin
    sino
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            gira-izquierda;
            avanza;
            solo-postes(sucede(x));
        fin
        sino
        inicio
            gira-izquierda;
            avanza;
            solo-postes(x);
        fin;
    fin;

fin;
define-nueva-instruccion quita-zumbadores(x) como
inicio
si izquierda-bloqueada entonces
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                inicio
                    gira-derecha;
                    avanza;
                    gira-izquierda;
                    avanza;
                    repetir x veces deja-zumbador;
                    deja-zumbador;
                    apagate;
                fin;
            fin;
            avanza;
            quita-zumbadores(sucede(x));
        fin
        sino
        inicio
            avanza;
            quita-zumbadores(x);
        fin;
    fin
    sino
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            gira-izquierda;
            avanza;
            quita-zumbadores(sucede(x));
        fin
        sino
        inicio
            gira-izquierda;
            avanza;
            quita-zumbadores(x);
        fin;
    fin;
fin;

define-nueva-instruccion deja-zumbadores-postes(x) como
inicio
    gira-derecha;
    mientras frente-libre hacer avanza;
    gira-derecha;
    mientras frente-libre hacer avanza;
    media-vuelta;
    repetir 2 veces avanza;
    repetir x veces deja-zumbador;
    gira-izquierda;
    avanza;
    deja-zumbador;
    gira-derecha;
    avanza;
    quita-zumbadores(0);
fin;
define-nueva-instruccion contar-postes(x) como
inicio
    si izquierda-bloqueada entonces
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            si junto-a-zumbador entonces
            inicio
                deja-zumbador;
                deja-zumbadores-postes(x);
            fin
            sino
            inicio
                avanza;
                contar-postes(sucede(x));
            fin;
        fin
        sino
        inicio
            repetir 2 veces deja-zumbador;
            avanza;
            contar-postes(x);
        fin;
    fin
    sino
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            gira-izquierda;
            avanza;

            contar-postes(sucede(x));
        fin
        sino
        inicio
            gira-izquierda;
            avanza;
            contar-postes(x);
        fin;
    fin;
fin;
define-nueva-instruccion vas(x) como
inicio
    avanza;
    repetir x veces
    inicio
        si izquierda-bloqueada entonces
        inicio
            avanza;
        fin
        sino
        inicio
            gira-izquierda;
            avanza;
        fin;
    fin;
    media-vuelta;
    avanza;
    media-vuelta;
    si no junto-a-zumbador entonces inicio
    deja-zumbador;
    fin
    sino
    inicio
        avanza;
        si junto-a-zumbador entonces inicio
        avanza;
        si junto-a-zumbador entonces inicio
        media-vuelta;
        avanza;
        media-vuelta;
        solo-postes(0);
        fin;
        fin;
        contar-postes(0);
    fin;
    vas(x);
fin;
define-nueva-instruccion cuenta-distancia(x) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        cuenta-distancia(sucede(x));
    fin
    sino
    inicio
        avanza;
        deja-zumbador;
        gira-derecha;
                                                
        vas(x);
    fin;
fin;
define-nueva-instruccion solo-vallas(x) como
inicio

fin;
    inicia-ejecucion
    mientras no orientado-al-este hacer gira-izquierda;
    avanza;
    gira-izquierda;
    si no junto-a-zumbador entonces
    inicio
        solo-vallas(0);
    fin;
    cuenta-distancia(0);
        apagate;
    termina-ejecucion
finalizar-programa
