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-nueva-instruccion ubica2 como
    inicio
        norte;
        avanza;
        este;
        repetir 3 veces avanza;
        sur;
        avanza;
        este;
    fin;
define-nueva-instruccion ubica como
    inicio
        repetir 5 veces avanza;
        este;
        avanza;
        sur;
        avanza;
        este;
    fin;
define-nueva-instruccion cuenta como
    inicio
        si junto-a-zumbador entonces
            inicio
                mientras junto-a-zumbador hacer coge-zumbador;
                norte;
                avanza;
                si junto-a-zumbador entonces cuenta
                sino inicio
                    sur;
                    mientras frente-libre hacer avanza;
                    este;
                    si frente-libre entonces avanza
                    sino
                        inicio
                            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                            norte;
                            sal-de-instruccion;

                        fin;
                    cuenta;
                fin;
            fin
            sino
            inicio
                mientras no-junto-a-zumbador y frente-libre hacer avanza;
                si junto-a-zumbador entonces cuenta
                sino inicio
                    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                    ubica2;
                fin;
            fin;
    fin;

define-nueva-instruccion junta como
    inicio
         si junto-a-zumbador entonces
            inicio
                mientras junto-a-zumbador hacer coge-zumbador;
                norte;
                avanza;
                si junto-a-zumbador entonces junta
                sino inicio
                    sur;
                    mientras frente-libre hacer avanza;
                    este;
                    si frente-libre entonces avanza
                    sino
                        inicio
                            oeste;
                            mientras frente-libre hacer avanza;
                            norte;
                            avanza;
                            oeste;
                            repetir 4 veces avanza;
                            sur;
                            avanza;
                            este;
                            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                            sal-de-instruccion;

                        fin;
                    junta;
                fin;
            fin
            sino
                inicio
                    mientras no-junto-a-zumbador y frente-libre hacer avanza;
                    si junto-a-zumbador entonces junta
                    sino
                        inicio
                            oeste;
                            mientras frente-libre hacer avanza;
                            norte;
                            avanza;
                            oeste;
                            repetir 4 veces avanza;
                            sur;
                            avanza;
                            este;
                            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                        fin;
                fin;
    fin;


define-nueva-instruccion contar como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                avanza;
                oeste;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    avanza;
                    este;
                    contar;
                 fin
                 sino
                 inicio
                     oeste;
                     avanza;
                     este;
                     deja-zumbador;
                 fin;
            fin
            sino
            inicio
                avanza;
                oeste;
            fin;
    fin;

define-nueva-instruccion divide(b) como
inicio
    si junto-a-zumbador entonces inicio
        repetir 2 veces coge-zumbador;
        divide(sucede(b));
    fin
    sino
    inicio
        norte;
        avanza;
        oeste;
        mientras frente-libre hacer avanza;
        sur;
        mientras frente-libre hacer avanza;
        repetir b veces deja-zumbador;
    fin;
fin;
    inicia-ejecucion
        ubica;
        cuenta;
        si orientado-al-norte entonces ubica2;
        junta;
        contar;
        divide(0);
        apagate;
    termina-ejecucion
finalizar-programa
