iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion pega(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si frente-libre entonces
avanza;
pega(sucede(n));
fin
sino inicio
gira(3);
avanza;

repetir n veces
deja-zumbador;
gira(2);
avanza;
gira(3);
fin;
fin;

define-nueva-instruccion busca2(n) como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer
avanza;
repetir n veces deja-zumbador;
apagate;
fin;
busca2(n);

fin
sino inicio
si junto-a-zumbador entonces inicio
repetir n veces inicio
si junto-a-zumbador y orientado-al-este entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-norte hacer
gira-izquierda;
deja-zumbador;
fin;
fin;
si orientado-al-norte entonces inicio
gira(3);
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;

sal-de-instruccion;
fin
sino inicio
si orientado-al-este y junto-a-zumbador entonces inicio
repetir n veces
deja-zumbador;
sal-de-instruccion;
fin;
fin;
fin;
fin;
fin;

define-nueva-instruccion compa(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
compa(sucede(n));
fin
sino inicio
busca2(n);
compa(0);
fin;
fin;

define-nueva-instruccion busca como inicio
si junto-a-zumbador entonces inicio
pega(0);
busca;
fin
sino inicio
si frente-libre entonces inicio
avanza;
busca;
fin
sino inicio
gira(3);
avanza;
gira(3);
mientras no junto-a-zumbador hacer
avanza;
compa(0);

fin;
fin;
fin;

define-nueva-instruccion cuenta(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
cuenta(sucede(n));
fin
sino inicio
repetir 4 veces
avanza;
gira(3);

mientras junto-a-zumbador hacer inicio
repetir n veces inicio
si junto-a-zumbador y orientado-al-este entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-norte hacer gira-izquierda;
deja-zumbador;
fin;
fin;
si no junto-a-zumbador entonces inicio
gira(1);
avanza;
deja-zumbador;
gira(2);
avanza;
gira(1);
fin
sino inicio
si junto-a-zumbador y orientado-al-norte entonces  inicio
gira(3);
fin;
fin;
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(1);
avanza;
gira(1);
busca;

fin;
fin;
fin;

fin;

    inicia-ejecucion
    si izquierda-bloqueada y derecha-bloqueada entonces  inicio
    avanza;
    coge-zumbador;
    gira(2);
    avanza;
    deja-zumbador;
    apagate;
    fin;

    mientras no orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira(1);
    mientras frente-libre hacer avanza;
    gira(1);
    avanza;
    avanza;
    repetir 300 veces
    coge-zumbador;
    gira(2);
    avanza;
    avanza;
    gira(3);
    avanza;
    cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa
