iniciar-programa

define-nueva-instruccion cuenta3 como
inicio
si junto-a-zumbador entonces
inicio
si junto-a-zumbador entonces coge-zumbador;
si junto-a-zumbador entonces coge-zumbador;
cuenta3;
deja-zumbador;
fin;
fin;

define-nueva-instruccion cuenta2(a) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta2(sucede(a));
mientras frente-libre hacer avanza;
si algun-zumbador-en-la-mochila entonces
inicio
repetir a veces deja-zumbador;
cuenta3;
apagate;
fin;
fin;
fin;


define-nueva-instruccion cuenta(x) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
coge-zumbador;
cuenta(sucede(x));
mientras no-orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
repetir x veces deja-zumbador;
apagate;
fin;
fin;
define-nueva-instruccion nu como
inicio
 mientras derecha-libre hacer
    inicio
    mientras junto-a-zumbador y frente-libre hacer
    inicio
    mientras junto-a-zumbador hacer coge-zumbador;
    avanza;
    fin;
    si frente-bloqueado entonces
    inicio
    gira-izquierda;
    gira-izquierda;
    si junto-a-zumbador entonces coge-zumbador;
     mientras frente-libre hacer avanza;
    gira-izquierda;
     si frente-libre entonces avanza;
    gira-izquierda;
    fin;
    si no-junto-a-zumbador entonces
    inicio
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    si frente-libre entonces avanza;
    gira-izquierda;
    fin;
    fin;
     mientras junto-a-zumbador y frente-libre hacer
    inicio
    mientras junto-a-zumbador hacer coge-zumbador;
    si frente-libre entonces avanza;
    fin;
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
fin;
    inicia-ejecucion
    si frente-libre entonces avanza;
    si frente-libre entonces avanza;
   si frente-libre entonces  avanza;
    si frente-libre entonces avanza;
   si frente-libre entonces  avanza;
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    gira-izquierda;
    gira-izquierda;
    nu;
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    si frente-libre entonces avanza;
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    si frente-libre entonces avanza;
    si frente-libre entonces avanza;
    repetir 3 veces gira-izquierda;
   si frente-libre entonces  avanza;
    gira-izquierda;
    gira-izquierda;
    nu;
    mientras junto-a-zumbador hacer coge-zumbador;
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    gira-izquierda;
    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    avanza;
    repetir 3 veces gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 2 veces gira-izquierda;
    mientras junto-a-zumbador hacer coge-zumbador;
    avanza;
    avanza;
    gira-izquierda;
    avanza;
     mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     gira-izquierda;
     mientras junto-a-zumbador hacer
     inicio
     si junto-a-zumbador entonces coge-zumbador;
     avanza;
      si junto-a-zumbador entonces coge-zumbador;

      si no-junto-a-zumbador entonces
      inicio
      gira-izquierda;
      gira-izquierda;
      avanza;
      deja-zumbador;
      gira-izquierdA;
      gira-izquierda;
      cuenta2(0);
      fin;

      gira-izquierda;
      gira-izquierda;
      avanza;
      gira-izquierda;
      gira-izquierda;
      fin;

       si no-junto-a-zumbador entonces
      inicio
      avanza;
      cuenta2(0);
      fin;



           apagate;
    termina-ejecucion
finalizar-programa
