iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;

define-prototipo-instruccion coge-I(x);

define-prototipo-instruccion coge-P(x);

define-prototipo-instruccion checa(x);

define-prototipo-instruccion busca-par(x);

define-prototipo-instruccion encuentra(x);

define-prototipo-instruccion busca-impar(x);

define-nueva-instruccion ir1-1 como
    inicio
        norte;
        mientras frente-libre hacer avanza;
        este;
        mientras frente-libre hacer avanza;
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        norte;
    fin;

define-nueva-instruccion busca(x) como
    inicio
        mientras frente-libre hacer
            inicio
                avanza;
                si frente-bloqueado y izquierda-libre entonces
                    inicio
                        si orientado-al-norte entonces
                            inicio
                                oeste;
                                avanza;
                                si izquierda-libre y derecha-libre entonces
                                    inicio
                                        este;
                                            avanza;
                                            mientras izquierda-bloqueada hacer avanza;
                                            norte;
                                            avanza;
                                            avanza;
                                            avanza;
                                            oeste;
                                            repetir 2 veces avanza;
                                            sur;
                                            avanza;
                                            este;
                                            avanza;
                                            repetir x veces deja-zumbador;
                                            apagate;
                                    fin
                                    sino
                                        inicio
                                            este;
                                            avanza;
                                            avanza;
                                            sur;
                                        fin;
                            fin
                            sino
                                inicio
                                    oeste;
                                avanza;
                                si izquierda-libre y derecha-libre entonces
                                    inicio
                                        este;
                                            avanza;
                                            mientras derecha-bloqueada hacer avanza;

                                            sur;
                                            avanza;
                                            este;
                                            avanza;
                                            repetir x veces deja-zumbador;
                                            apagate;
                                    fin
                                fin;
                        si izquierda-bloqueada o derecha-bloqueada entonces
                            inicio
                                este;
                                avanza;
                                avanza;
                                sur;
                                si frente-bloqueado entonces norte;
                            fin
                            sino
                                inicio

                                fin;
                    fin
                    sino
                        inicio
                            si frente-bloqueado entonces
                                inicio
                                    este;
                                    avanza;
                                    sur;
                                fin;
                        fin;
            fin;
    fin;

define-nueva-instruccion busca-camino(x) como
    inicio
        avanza;
        si junto-a-zumbador entonces busca-impar(x)
        sino
            inicio
                repetir 2 veces gira-izquierda;
                avanza;

                repetir 3 veces gira-izquierda;
                avanza;
                si junto-a-zumbador entonces busca-impar(x);
                repetir 2 veces gira-izquierda;
                avanza;
                repetir 3 veces gira-izquierda;
                avanza;
                si junto-a-zumbador entonces busca-impar(x);
                repetir 2 veces gira-izquierda;
                avanza;
                repetir 3 veces gira-izquierda;
                avanza;
                si junto-a-zumbador entonces busca-impar(x);
                ir1-1;
                busca(x);
            fin;
    fin;

define-nueva-instruccion encuentra(x) como
    inicio
         si junto-a-zumbador entonces
             inicio
                 coge-zumbador;
                 encuentra(sucede(x));
             fin;

    fin;

define-nueva-instruccion busca-impar(x) como
    inicio
        si junto-a-zumbador entonces
            inicio
                checa(0);
                si orientado-al-oeste entonces
                    inicio
                        coge-I(x);
                    fin
                    sino coge-P(x);
                si junto-a-zumbador entonces busca-camino(x);
                busca-impar(x);
            fin
            sino
                inicio
                    busca-camino(x);
                    si junto-a-zumbador entonces busca-impar(x);
                fin;
    fin;

define-nueva-instruccion coge-I(x) como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                coge-I(sucede(x));
            fin
            sino
                inicio
                    busca-impar(x);
                fin;
    fin;

define-nueva-instruccion coge-P(x) como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                coge-P(precede(x));
            fin
            sino busca-impar(x);
    fin;

define-nueva-instruccion checa(x) como
    inicio
        si junto-a-zumbador entonces coge-zumbador
        sino
            inicio
                repetir 2 veces repetir x veces deja-zumbador;
                este;
                sal-de-instruccion;
            fin;
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                checa(sucede(x));
            fin
            sino
                inicio
                    repetir 2 veces repetir x veces deja-zumbador;
                    deja-zumbador;
                    oeste;
                fin;
    fin;
define-nueva-instruccion busca-par(x) como
    inicio

    fin;

    inicia-ejecucion
        busca-impar(0);

        apagate;
    termina-ejecucion
finalizar-programa
