iniciar-programa
define-nueva-instruccion portero(s) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
portero(sucede(s));
si no junto-a-zumbador entonces inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
repetir 3 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
repetir s veces avanza;
deja-zumbador;
fin;
fin;
fin;
define-nueva-instruccion ancho(a) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
ancho(sucede(a));
si no junto-a-zumbador entonces inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
repetir 3 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
mientras no junto-a-zumbador hacer avanza;
repetir a veces inicio
si frente-libre entonces avanza;
si no junto-a-zumbador entonces  deja-zumbador;
fin;
repetir 2 veces gira-izquierda;

fin;
fin;
fin;
define-nueva-instruccion alto(d) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
alto(sucede(d));
si no junto-a-zumbador entonces inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
repetir 3 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
mientras no junto-a-zumbador hacer avanza;
mientras junto-a-zumbador y frente-libre hacer inicio
repetir 3 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 2 veces gira-izquierda;
repetir d veces inicio
si no junto-a-zumbador entonces deja-zumbador;
si frente-libre entonces avanza;
fin;
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
repetir 2 veces gira-izquierda;
si frente-libre entonces avanza;
repetir 3 veces gira-izquierda;
si frente-libre entonces avanza;
fin;
fin;
fin;
fin;
define-nueva-instruccion cuenta(c) como inicio
si no junto-a-zumbador y frente-libre entonces inicio
si frente-libre entonces avanza;
cuenta(sucede(c));
si no junto-a-zumbador entonces inicio
mientras frente-libre hacer avanza;
mientras no orientado-al-sur hacer gira-izquierda;
si frente-libre entonces avanza;
mientras no orientado-al-este hacer gira-izquierda;
si frente-libre entonces avanza;
mientras junto-a-zumbador hacer avanza;
repetir c veces deja-zumbador;
fin;
fin;
fin;
define-nueva-instruccion cuenta2(c) como inicio
si no junto-a-zumbador y frente-libre entonces inicio
si frente-libre entonces avanza;
cuenta2(sucede(c));
si frente-libre entonces inicio
mientras frente-libre hacer avanza;
mientras no orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-este hacer gira-izquierda;
si frente-libre entonces avanza;
mientras junto-a-zumbador y frente-libre hacer avanza;
repetir c veces deja-zumbador;
repetir 3 veces gira-izquierda;
fin;
fin;
fin;
define-nueva-instruccion derecha(d) como inicio
si  frente-libre entonces inicio
si frente-libre entonces avanza;
derecha(sucede(d));
repetir 3 veces gira-izquierda;
si frente-libre entonces avanza;
gira-izquierda;
si frente-libre entonces avanza;
repetir d veces deja-zumbador;
apagate;
fin;
fin;





















    inicia-ejecucion
     repetir 3 veces gira-izquierda;
     avanza;
     portero(0);
     repetir 2 veces gira-izquierda;
     mientras frente-libre hacer avanza;
     gira-izquierda;
    avanza;
    gira-izquierda;
    repetir 7 veces avanza;
    ancho(0);
     mientras frente-libre hacer avanza;
     gira-izquierda;
    avanza;
    gira-izquierda;
    repetir 6 veces avanza;
    alto(1);
    cuenta(2);
    si frente-bloqueado y no junto-a-zumbador entonces inicio
    mientras no orientado-al-sur hacer gira-izquierda;
    si frente-libre entonces avanza;
    mientras no orientado-al-este hacer gira-izquierda;
    si frente-libre entonces avanza;
    deja-zumbador;
    fin;
    si frente-bloqueado y  junto-a-zumbador entonces inicio
    mientras no orientado-al-sur hacer gira-izquierda;
    si frente-libre entonces avanza;
    mientras no orientado-al-este hacer gira-izquierda;
    si frente-libre entonces avanza;
    deja-zumbador;

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

    mientras frente-libre hacer inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    avanza;
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    repetir 2 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
    fin sino inicio
    repetir 2 veces gira-izquierda;
    avanza;
    mientras junto-a-zumbador  hacer coge-zumbador;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    derecha(2);
    fin;
    fin sino inicio
     avanza;
     mientras junto-a-zumbador  hacer coge-zumbador;
     repetir 2 veces gira-izquierda;
     avanza;
    deja-zumbador;
    apagate;
    fin;
    fin;


















        apagate;
    termina-ejecucion
finalizar-programa
