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 oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion ir como
    inicio
        repetir 5 veces avanza;
        este;
        avanza;
        sur;
        avanza;
        norte;
        mientras frente-libre hacer avanza;
        sur;
    fin;
define-nueva-instruccion juntar como
    inicio
       mientras frente-libre y izquierda-libre hacer
           inicio
              mientras no-junto-a-zumbador y frente-libre hacer avanza;
              si junto-a-zumbador entonces
                   inicio
                       mientras junto-a-zumbador hacer coge-zumbador;
                   fin;
              si frente-bloqueado y izquierda-libre entonces
                  inicio
                      norte;
                      mientras frente-libre hacer avanza;
                      este;
                      si frente-libre entonces avanza;
                      sur;
                  fin;
              si frente-bloqueado y izquierda-bloqueada entonces
                  inicio
                      oeste;
                      avanza;
                      mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                      este;
                      avanza;
                      sur;
                  fin;
           fin;
    fin;
define-nueva-instruccion juntar2 como
    inicio
       mientras frente-libre y izquierda-libre hacer
           inicio
              mientras no-junto-a-zumbador y frente-libre hacer avanza;
              si junto-a-zumbador entonces
                   inicio
                       mientras junto-a-zumbador hacer coge-zumbador;
                   fin;
              si frente-bloqueado y izquierda-libre entonces
                  inicio
                      norte;
                      mientras frente-libre hacer avanza;
                      este;
                      si frente-libre entonces avanza;
                      sur;
                  fin;
              fin;
              si izquierda-bloqueada y frente-bloqueado entonces
                  inicio
                      norte;
                      avanza;
                      oeste;
                      repetir 6 veces avanza;
                      sur;
                      avanza;
                      mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                  fin;
    fin;
    define-nueva-instruccion resultado(n) como
        inicio
           si junto-a-zumbador entonces
               inicio
                   repetir 2 veces si junto-a-zumbador entonces coge-zumbador;
                   resultado(sucede(n));
               fin
                   sino
                       inicio
                           norte;
                           avanza;
                           oeste;
                           mientras frente-libre hacer avanza;
                           sur;
                           mientras frente-libre hacer avanza;
                           repetir n veces deja-zumbador;
                           apagate;
                       fin;
        fin;
define-nueva-instruccion diferencia como
    inicio
       si junto-a-zumbador entonces
           inicio
               coge-zumbador;
               oeste;
               avanza;
                si junto-a-zumbador entonces
                    inicio
                        coge-zumbador;
                    fin sino
                        inicio
                            este;
                            avanza;
                            resultado(0);
                        fin;
               este;
               avanza;
               diferencia;
           fin
            sino
              inicio
                  oeste;
                  avanza;
                  si junto-a-zumbador entonces
                      inicio
                        resultado(0);
                      fin;
              fin;
    fin;
    inicia-ejecucion
        ir;
        juntar;
        norte;
        avanza;
        este;
        repetir 3 veces avanza;
        norte;
        mientras frente-libre hacer avanza;
        sur;
        juntar2;
        diferencia;
        apagate;
    termina-ejecucion
finalizar-programa
