iniciar-programa

define-nueva-instruccion move3 como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
si no-junto-a-zumbador entonces
inicio
repetir 3 veces gira-izquierda;
avanza;
mientras no-orientado-al-este hacer gira-izquierda;
mientras junto-a-zumbador y frente-libre hacer avanza;
fin;
move3;
deja-zumbador;
fin;
fin;

define-nueva-instruccion move2 como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
si no-junto-a-zumbador entonces
inicio
mientras no-orientado-al-oeste hacer gira-izquierda;
mientras no-junto-a-zumbador y frente-libre hacer avanza;
repetir 2 veces gira-izquierda;
avanza;
fin;
move2;
deja-zumbador;
fin;
fin;
define-nueva-instruccion move como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
si no-junto-a-zumbador entonces
inicio
gira-izquierda;
gira-izquierda;
avanza;
mientras no-orientado-al-oeste hacer gira-izquierda;
mientras no-junto-a-zumbador y frente-libre hacer avanza;
repetir 2 veces gira-izquierda;
si junto-a-zumbador entonces avanza;
fin;
move;
deja-zumbador;
fin;
fin;
define-nueva-instruccion remove(a) como
inicio
si orientado-al-este y junto-a-zumbador entonces
inicio
coge-zumbador;
remove(sucede(a));
fin;
si no-junto-a-zumbador y orientado-al-este entonces repetir a veces deja-zumbador;
fin;
define-nueva-instruccion colado(x) como
inicio
si junto-a-zumbador y orientado-al-este entonces
inicio
coge-zumbador;
colado(sucede(x));
fin;
si orientado-al-este y no-junto-a-zumbador entonces
inicio
repetir 3 veces gira-izquierda;
mientras frente-libre hacer avanza;
gira-izquierdA;

si derecha-bloqueada y junto-a-zumbador entonces
inicio
repetir x veces avanza;
repetir 2 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 2 veces gira-izquierdA;
mientras junto-a-zumbador hacer
inicio
coge-zumbador;
gira-izquierda;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierdA;
avanza;
gira-izquierda;
fin;
fin;
fin;
si no-junto-a-zumbador y derecha-bloqueada entonces
inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
repetir 3 veces gira-izquierda;
avanza;
avanza;
repetir 3 veces gira-izquierdA;
fin;
si no-junto-a-zumbador y orientado-al-este entonces avanza;
si junto-a-zumbador entonces mientras no-orientado-al-oeste hacer gira-izquierda;
si junto-a-zumbador y orientado-al-oeste entonces
inicio
coge-zumbador;
colado(precede(x));
fin;
si no-junto-a-zumbador y orientado-al-oeste entonces
inicio
mientras frente-libre hacer avanza;
mientras no-orientado-al-este hacer gira-izquierda;
repetir x veces si frente-libre entonces avanza;
fin;
mientras no-orientado-al-norte hacer gira-izquierda;
 mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierdA;
avanza;
repetir 2 veces gira-izquierda;
fin;

fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira-izquierda;
    avanza;
    mientras no-orientado-al-este hacer gira-izquierda;
    avanza;
    remove(0);
    mientras no-orientado-al-norte hacer gira-izquierda;
 mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierdA;
avanza;
repetir 2 veces gira-izquierda;
fin;


    gira-izquierda;
    si frente-libre entonces avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras no-orientado-al-norte hacer gira-izquierda;
    avanza;
    mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierdA;
avanza;
repetir 2 veces gira-izquierda;
fin;
mientras no-orientado-al-norte hacer gira-izquierda;
    mientras no-junto-a-zumbador hacer avanza;



    mientras no-orientado-al-este hacer gira-izquierda;
    colado(0);
    gira-izquierdA;
    si frente-libre entonces avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras no-orientado-al-norte hacer gira-izquierda;
    mientras junto-a-zumbador hacer
    inicio
   mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierdA;
avanza;
repetir 2 veces gira-izquierda;
fin;
repetir 3 veces gira-izquierda;
avanza;
gira-izquierda;
fin;
avanza;
avanza;
repetir 2 veces gira-izquierda;
 mientras junto-a-zumbador hacer
inicio
coge-zumbador;
avanza;
deja-zumbador;
repetir 2 veces gira-izquierdA;
avanza;
repetir 2 veces gira-izquierda;
fin;
avanza;
repetir 2 veces gira-izquierda;
move;
avanza;
mientras no-junto-a-zumbador y frente-libre hacer
inicio
mientras no-junto-a-zumbador y frente-libre hacer avanza;
move2;
si orientado-al-este y frente-libre entonces avanza;
fin;
si frente-bloqueado y junto-a-zumbador entonces move2;
gira-izquierda;
avanza;
gira-izquierda;
mientras no-junto-a-zumbador y frente-libre hacer avanza;
mientras junto-a-zumbador y frente-libre hacer avanza;
repetir 2 veces gira-izquierda;
si no-junto-a-zumbador entonces avanza;
mientras junto-a-zumbador hacer
inicio
move3;
gira-izquierda;
avanza;
gira-izquierda;
mientras no-junto-a-zumbador y frente-libre hacer avanza;
mientras junto-a-zumbador y frente-libre hacer avanza;
repetir 2 veces gira-izquierda;
si no-junto-a-zumbador entonces avanza;
fin;
        apagate;
    termina-ejecucion
finalizar-programa
