iniciar-programa
define-nueva-instruccion norte como mientras no orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion este como mientras no orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no orientado-al-oeste hacer gira-izquierda;



define-nueva-instruccion subir como
 inicio
  norte;
  mientras frente-libre hacer avanza;
  este;
  mientras frente-libre hacer avanza;
  sur;
 fin;

define-nueva-instruccion buscar como
 inicio
  oeste;
  mientras no junto-a-zumbador   hacer
   inicio
    si frente-libre y no junto-a-zumbador entonces avanza;
     si frente-bloqueado y no junto-a-zumbador entonces
      inicio
       repetir 2 veces gira-izquierda;
       mientras frente-libre hacer avanza;
       sur;
       si frente-libre entonces
        inicio
         avanza;
          si frente-bloqueado y derecha-bloqueada y izquierda-libre entonces
           inicio
            norte;
            si frente-libre entonces avanza;
            oeste;
            sal-de-instruccion;
           fin;
         oeste;
        fin
         sino
          inicio
           sal-de-instruccion;
          fin;
      fin;
   fin;
 fin;

define-nueva-instruccion recogermonton como
 inicio
  mientras junto-a-zumbador hacer coge-zumbador;
 fin;
define-nueva-instruccion ir11 como
 inicio
  oeste;
  mientras frente-libre hacer avanza;
  sur;
  mientras frente-libre hacer avanza;
  este;
  avanza;
 fin;

define-nueva-instruccion repartir como
 inicio
  mientras algun-zumbador-en-la-mochila hacer
   inicio
    deja-zumbador;
    si algun-zumbador-en-la-mochila entonces avanza;
   fin;
  oeste;
  avanza;
 fin;

define-nueva-instruccion recoger como
 inicio

   mientras frente-libre hacer
    inicio
     si junto-a-zumbador entonces coge-zumbador;
     si frente-libre entonces avanza;
    fin;
 fin;

define-nueva-instruccion dejartodo como
 inicio
  mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
  norte;
  subir;
 fin;

define-nueva-instruccion recogereskina como
 inicio
  ir11;
  oeste;
  avanza;
  mientras junto-a-zumbador hacer coge-zumbador;
  norte;
  avanza;
  mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
 fin;

define-nueva-instruccion contar como
 inicio
  ir11;
   mientras frente-libre o junto-a-zumbador hacer
    inicio
      si junto-a-zumbador entonces
       inicio
        coge-zumbador;
         si junto-a-zumbador entonces
          inicio
            deja-zumbador
          fin;
       fin;
      si frente-libre entonces
       inicio
         avanza
       fin
        sino
         inicio
          sal-de-instruccion;
         fin;
    fin;
 fin;

define-nueva-instruccion dejarcalcetines como
 inicio
  oeste;
  mientras frente-libre hacer avanza;
  mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
 fin;
    inicia-ejecucion
     subir;
      mientras frente-libre o junto-a-zumbador hacer
       inicio
        buscar;
         si junto-a-zumbador entonces
          inicio
           recogermonton;
           ir11;
           repartir;
           recoger;
           dejartodo;
          fin;
       fin;
       recogereskina;
       contar;
       dejarcalcetines;
        apagate;
    termina-ejecucion
finalizar-programa
