iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur 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 destiende como
    inicio
    mientras junto-a-zumbador hacer
        inicio
            coge-zumbador;
        mientras no-junto-a-zumbador y algun-zumbador-en-la-mochila hacer
            inicio
                deja-zumbador;
                avanza;
            si ningun-zumbador-en-la-mochila entonces
                inicio
                    sur;
                mientras frente-libre hacer avanza;
                    oeste;
                    avanza;
                    norte;
                fin;
            fin;
        fin;
    fin;

define-nueva-instruccion termina como
    inicio
        este;
        avanza;
    mientras no-junto-a-zumbador y (frente-libre y orientado-al-este) hacer
        inicio
            avanza;
        si junto-a-zumbador entonces
            inicio
            mientras junto-a-zumbador hacer coge-zumbador;
                oeste;
            mientras frente-libre hacer avanza;
                este;
            repetir 2 veces avanza;
            mientras junto-a-zumbador hacer avanza;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                norte;
            fin;
        fin;
    fin;

define-nueva-instruccion acomoda1 como
    inicio
        sur;
    mientras junto-a-zumbador hacer
        inicio
           norte;
        mientras junto-a-zumbador hacer avanza;
           oeste;
        mientras frente-libre y no-junto-a-zumbador y orientado-al-oeste hacer
            inicio
               si frente-libre entonces avanza;
            si frente-bloqueado entonces
                inicio
                    sur;
                si frente-libre entonces avanza;
                    este;
                    avanza;
                mientras no-junto-a-zumbador y orientado-al-este hacer avanza;
                    sur;
                mientras junto-a-zumbador hacer
                    inicio
                        coge-zumbador;
                    si frente-libre entonces avanza
                    sino inicio
                             este;
                         mientras frente-libre hacer avanza;
                             oeste;
                         mientras junto-a-zumbador hacer avanza;
                         mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                             avanza;
                         mientras no-junto-a-zumbador hacer avanza;
                             norte;
                         mientras junto-a-zumbador hacer avanza;
                             oeste;
                         fin;
                    fin;
                fin;
                si junto-a-zumbador entonces acomoda1;
            fin;
        fin;
    fin;

define-nueva-instruccion acomoda como
    inicio
       si frente-libre y orientado-al-oeste entonces
           inicio
              avanza;
           si frente-bloqueado entonces
               inicio
                   este;
               fin;
           si junto-a-zumbador entonces acomoda1;
           si frente-bloqueado y orientado-al-oeste entonces
               inicio
                   sur;
                   avanza;
                   este;
               fin;
               
           fin;
     fin;

define-nueva-instruccion busca(n) como
    inicio
    este;
    si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            busca(sucede(n));
        fin
            sino
            inicio
            repetir n veces deja-zumbador;
                avanza;
            repetir n veces avanza;
                norte;
                destiende;
                este;
            repetir n veces avanza;
                norte;
            mientras junto-a-zumbador hacer avanza;
                oeste;
            repetir n veces acomoda;
            repetir n veces termina;
            fin;
     fin;

define-nueva-instruccion si-es-uno como
    inicio
        sur;
        avanza;
        oeste;
    mientras no-junto-a-zumbador hacer avanza;
        sur;
    mientras junto-a-zumbador hacer
        inicio
            coge-zumbador;
            si frente-libre entonces avanza
            sino
                inicio
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            norte;
            apagate;
                fin;
        fin;
    fin;

    inicia-ejecucion
        busca(0);
    si no-junto-a-zumbador y frente-bloqueado y orientado-al-este entonces si-es-uno;
        apagate;
    termina-ejecucion
finalizar-programa
