iniciar-programa

define-nueva-instruccion gira(g) como inicio
repetir g veces gira-izquierda;
fin;

define-nueva-instruccion portero como inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    portero;
        mientras orientado-al-norte hacer inicio
        gira(1);
        mientras frente-libre hacer avanza;
        gira(2);
        fin;
    avanza;
    fin;
fin;

define-nueva-instruccion ancho como inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    ancho;
        mientras orientado-al-norte hacer inicio
        gira(1);
        mientras frente-libre hacer avanza;
        gira(2);
        mientras no-junto-a-zumbador hacer avanza;
        si junto-a-zumbador entonces avanza;
        fin;
    deja-zumbador;
    si frente-libre entonces avanza;
    fin;
fin;

define-nueva-instruccion gol como inicio
    si frente-libre entonces inicio
    avanza;
    gol;
        si orientado-al-este entonces inicio
        gira(2);
        mientras no-junto-a-zumbador y frente-libre hacer avanza;
            si junto-a-zumbador entonces inicio
            mientras junto-a-zumbador y frente-libre hacer avanza;
                si frente-bloqueado o no-junto-a-zumbador entonces inicio
                gira(2);
                avanza;
                gira(2);
                fin;
            fin;
        fin;
    si frente-libre entonces avanza;
    fin;
fin;

define-nueva-instruccion penal como inicio
    si frente-libre entonces inicio
    avanza;
    penal;
        si orientado-al-este entonces inicio
        gira(3);
        avanza;
        gira(1);
        avanza;
        gira(1);
        fin;
    deja-zumbador;
    fin;
fin;

    inicia-ejecucion

gira(3);
avanza;
gira(1);
portero;
gira(2);
avanza;
gira(2);
deja-zumbador;

gira(2);
mientras frente-libre hacer avanza;
gira(2);
repetir 6 veces avanza;
mientras junto-a-zumbador hacer coge-zumbador;
avanza;
gira(1);
ancho;

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

gol;

    si frente-bloqueado y orientado-al-este entonces inicio
    gira(3);
    avanza;
    gira(1);
    avanza;
    deja-zumbador;
    apagate;
    fin;

    si frente-libre entonces inicio
    gira(2);
    mientras frente-libre hacer avanza;
    gira(3);
    avanza;
    gira(1);
    avanza;
    deja-zumbador;
    fin;

    si frente-bloqueado entonces inicio
    gira(2);
    penal;
    deja-zumbador;
    fin;

        apagate;
    termina-ejecucion
finalizar-programa
