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

 si junto-a-zumbador entonces
 inicio
 coge-zumbador;
 radio (sucede(n));
 fin
 sino
 inicio
 repetir 4 veces
 inicio
 repetir n veces
 inicio
 si frente-libre entonces
 avanza;
 fin;
 si algun-zumbador-en-la-mochila entonces
 deja-zumbador;
 gira(2);
 repetir n veces
 inicio
 si frente-libre entonces
 avanza;
 fin;
 gira(1);
 fin;
fin;

fin;
define-nueva-instruccion orientanort como
inicio

si orientado-al-norte entonces
gira(4);
si orientado-al-este entonces
gira(1);
si orientado-al-sur entonces
gira(2);
si orientado-al-oeste entonces
gira(3);

fin;
define-nueva-instruccion gonorte-oeste como
inicio

gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
Mientras orientado-al-norte y no-junto-a-zumbador hacer
inicio
si no-junto-a-zumbador entonces
deja-zumbador;
gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
fin;

fin;
define-nueva-instruccion goeste-norte como
inicio

gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
Mientras orientado-al-este y no-junto-a-zumbador hacer
inicio
si no-junto-a-zumbador entonces
deja-zumbador;
gira(1);
si frente-libre entonces
avanza;
gira(1);
avanza;
si frente-libre entonces
gira(2);
fin;

fin;
define-nueva-instruccion gosur-este como
inicio

gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
Mientras orientado-al-sur y no-junto-a-zumbador hacer
inicio
si no-junto-a-zumbador entonces
deja-zumbador;
gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
fin;

fin;
define-nueva-instruccion gooeste-sur como
inicio

gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
Mientras orientado-al-oeste y no-junto-a-zumbador hacer
inicio
si no-junto-a-zumbador entonces
deja-zumbador;
gira(1);
si frente-libre entonces
avanza;
gira(1);
si frente-libre entonces
avanza;
gira(2);
fin;

fin;
    inicia-ejecucion
    si junto-a-zumbador entonces
    inicio
    radio(0);
    orientanort;
    mientras no-junto-a-zumbador hacer avanza;
    gonorte-oeste;
    gira(3);
    si frente-libre entonces avanza;
    mientras no-junto-a-zumbador hacer avanza;
    goeste-norte;
    gira(3);
    si frente-libre entonces avanza;
    mientras no-junto-a-zumbador hacer avanza;
    gosur-este;
    gira(3);
    si frente-libre entonces avanza;
    mientras no-junto-a-zumbador hacer avanza;
    gooeste-sur;
    fin
    sino
    inicio
    deja-zumbador;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
