iniciar-programa
define-nueva-instruccion vuelta como inicio
repetir 2 veces gira-izquierda; fin;

define-nueva-instruccion derecha como inicio
repetir 3 veces gira-izquierda; fin;


define-nueva-instruccion eskina como inicio
mientras no-orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
derecha;
mientras frente-libre hacer avanza;
mientras no-orientado-al-norte hacer gira-izquierda;
fin;


define-nueva-instruccion avanzaEnCuadro como inicio
si frente-libre entonces
     avanza
     sino inicio
                si orientado-al-norte entonces
                inicio
                     derecha;
                     si frente-libre entonces
                        inicio
                           avanza;
                           derecha;
                         fin;
                 fin sino inicio
                          gira-izquierda;
                          si frente-libre entonces
                              inicio
                                 avanza;
                                 gira-izquierda;
                              fin;
               fin;
           fin;
   fin;

define-nueva-instruccion recogeZumbadores como inicio
eskina;
mientras no-orientado-al-este hacer
   inicio
       si junto-a-zumbador entonces
          coge-zumbador;
          avanzaEnCuadro;
    fin;
fin;

define-nueva-instruccion basiaZumbadores  como inicio
eskina;
mientras algun-zumbador-en-la-mochila hacer
   inicio
     deja-zumbador;
     avanzaEnCuadro;
   fin;
fin;

define-nueva-instruccion dejaResultado(resultado) como inicio
    eskina;
    derecha;
    repetir resultado veces gira-izquierda;
        apagate;
    fin;

define-nueva-instruccion resuelve como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            avanzaEnCuadro;
            resuelve;
            si orientado-al-este entonces
                dejaResultado(2);
            avanzaEnCuadro;
        fin;
    fin;



inicia-ejecucion
       recogeZumbadores;
       basiaZumbadores;
       eskina;
       resuelve;
       si orientado-al-este entonces
            dejaResultado(1)
        sino
            dejaResultado(0);




       apagate;
    termina-ejecucion
finalizar-programa
