iniciar-programa
define-nueva-instruccion norte como inicio mientras no orientado-al-norte hacer gira-izquierda; fin;
define-nueva-instruccion sur como inicio mientras no orientado-al-sur hacer gira-izquierda; fin;
define-nueva-instruccion este como inicio mientras no orientado-al-este hacer gira-izquierda; fin;
define-nueva-instruccion oeste como inicio mientras no orientado-al-oeste hacer gira-izquierda; fin;
define-nueva-instruccion posi(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        posi(sucede(n));
    fin;
        si orientado-al-este entonces inicio
        oeste;
        mientras frente-libre hacer avanza;
        este;
        repetir n veces si frente-libre entonces avanza;
        oeste;
        si frente-libre entonces avanza;
        deja-zumbador;
    fin;
fin;
define-nueva-instruccion al(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        al(sucede(n));
    fin;
    si orientado-al-este entonces inicio
        oeste;
        mientras no junto-a-zumbador y frente-libre hacer avanza;
        norte;
        coge-zumbador;
        repetir n veces inicio
            si no junto-a-zumbador entonces deja-zumbador;
            si frente-libre entonces avanza;
        fin;
        sur;
        mientras frente-libre hacer avanza;
    fin;
fin;
define-nueva-instruccion posiportero como inicio
    este;
    si frente-libre entonces avanza;
    posi(0);
fin;
define-nueva-instruccion altura como inicio
    este;
    avanza;
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    al(0);
fin;
define-nueva-instruccion an(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        an(sucede(n));
    fin;
    si orientado-al-este entonces inicio
        oeste;
        mientras no junto-a-zumbador y frente-libre hacer avanza;
        este;
        si junto-a-zumbador entonces coge-zumbador;
        repetir n veces inicio
            si no junto-a-zumbador entonces deja-zumbador;
            si frente-libre entonces avanza;
        fin;
        oeste;
    fin;
fin;
define-nueva-instruccion ancho como inicio
    este;
    avanza;
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    an(0);
fin;
define-nueva-instruccion relleno como inicio
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    mientras junto-a-zumbador y frente-libre hacer avanza;
    este;
    si no junto-a-zumbador y frente-libre entonces avanza;
    mientras junto-a-zumbador hacer inicio
        si frente-libre entonces avanza;
        norte;
        si junto-a-zumbador y frente-libre entonces inicio
            si frente-libre entonces avanza;
            si no junto-a-zumbador entonces inicio
               oeste;
               si frente-libre entonces avanza;
               este;
               si junto-a-zumbador entonces inicio
                   si frente-libre entonces avanza;
                   deja-zumbador;
               fin;
               si junto-a-zumbador entonces inicio
                  oeste;
                  si frente-libre entonces avanza;
                  este;
               fin sino inicio
                   si frente-libre entonces avanza;
                   norte;
                   si frente-libre y no junto-a-zumbador entonces inicio
                       sur;
                       mientras frente-libre hacer avanza;
                       este;
                   fin;
                   si frente-bloqueado y no junto-a-zumbador entonces inicio
                         sur;
                       mientras frente-libre hacer avanza;
                       este;
                   fin;
               fin;
            fin;
        fin sino inicio
            si frente-bloqueado y no junto-a-zumbador entonces deja-zumbador;
            sur;
            mientras frente-libre hacer avanza;
            este;
        fin;

    fin;
fin;
define-nueva-instruccion cu(n) como inicio
    si frente-libre entonces inicio
       avanza;
       cu(sucede(n));
    fin;
    si frente-bloqueado entonces inicio
        este;
        mientras frente-libre hacer avanza;
        sur;
        si frente-libre entonces avanza;
        este;
        si frente-libre entonces avanza;
        norte;
        repetir n veces inicio
            deja-zumbador;
            si frente-libre entonces avanza;
        fin;
    fin;
fin;
define-nueva-instruccion cun(n) como inicio
   si frente-libre entonces inicio
       avanza;
       cun(sucede(n));
   fin sino inicio
       si frente-bloqueado entonces inicio
          sur;
          si frente-libre entonces avanza;
          este;
          repetir 2 veces si frente-libre entonces avanza;
          norte;
          repetir n veces inicio
              deja-zumbador;
              si frente-libre entonces avanza;
          fin;
       fin;
   fin;

fin;
define-nueva-instruccion cuenta como inicio
    oeste;
    mientras frente-libre hacer avanza;
    este;
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    norte;
    si frente-libre entonces avanza;
    oeste;
    cu(0);
    sur;
    mientras frente-libre hacer avanza;
    oeste;
    mientras frente-libre hacer avanza;
    norte;
    si frente-libre entonces avanza;
    este;
    mientras no junto-a-zumbador hacer avanza;
    mientras junto-a-zumbador hacer avanza;
    oeste;
    si no junto-a-zumbador y frente-libre entonces avanza;
    este;
    cun(0);
fin;
define-nueva-instruccion reg(n) como inicio
    si frente-libre entonces inicio
        avanza;
        reg(sucede(n));
    fin sino inicio
        si frente-bloqueado entonces inicio
            sur;
            si frente-libre entonces avanza;
            este;
            si frente-libre entonces avanza;
            repetir n veces deja-zumbador;
        fin;
        deja-zumbador;
        apagate;
    fin;
fin;
define-nueva-instruccion compara como inicio
mientras junto-a-zumbador hacer inicio
    si junto-a-zumbador entonces inicio
        oeste;
        si frente-libre entonces avanza;
        si junto-a-zumbador entonces inicio
            este;
            si frente-libre entonces avanza;
            norte;
            si frente-libre entonces avanza;
        fin sino inicio
            este;
            si frente-libre entonces avanza;
            repetir 2 veces inicio
               norte;
               mientras junto-a-zumbador y frente-libre hacer avanza;
               sur;
               mientras no junto-a-zumbador y frente-libre hacer avanza;
               mientras junto-a-zumbador hacer inicio
                   coge-zumbador;
                   si frente-libre entonces avanza;
               fin;
               oeste;
               si frente-libre entonces avanza;
            fin;
            mientras frente-libre hacer avanza;
            norte;
            si frente-libre entonces avanza;
            este;
            reg(0);
        fin;
    fin;
fin;

    oeste;
    si frente-libre entonces avanza;
    si junto-a-zumbador entonces inicio
         este;
            si frente-libre entonces avanza;
            repetir 2 veces inicio
               norte;
               mientras junto-a-zumbador y frente-libre hacer avanza;
               sur;
               mientras no junto-a-zumbador hacer avanza;
               mientras junto-a-zumbador hacer inicio
                   coge-zumbador;
                   si frente-libre entonces avanza;
               fin;
               oeste;
               si frente-libre entonces avanza;
            fin;
        este;
        si frente-libre entonces avanza;
        deja-zumbador;
    fin  sino inicio
          este;
            si frente-libre entonces avanza;
            repetir 2 veces inicio
               norte;
               mientras junto-a-zumbador y frente-libre hacer avanza;
               sur;
               mientras no junto-a-zumbador hacer avanza;
               mientras junto-a-zumbador hacer inicio
                   coge-zumbador;
                   si frente-libre entonces avanza;
               fin;
               oeste;
               si frente-libre entonces avanza;
            fin;
              mientras frente-libre hacer avanza;
            norte;
            si frente-libre entonces avanza;
            este;
            reg(0);
            fin;

fin;
define-nueva-instruccion deja como inicio
    sur;
    mientras frente-libre hacer avanza;
    norte;
    compara;
fin;
inicia-ejecucion
  posiportero;
     altura;
     ancho;
     relleno;
     cuenta;
     deja;
        apagate;
    termina-ejecucion

finalizar-programa
