iniciar-programa
define-nueva-instruccion gira (r) como inicio
repetir r veces gira-izquierda;
fin;

define-nueva-instruccion paso-tor como inicio
 si junto-a-zumbador entonces inicio
  coge-zumbador;
   paso-tor;
    deja-zumbador;
     fin
     sino inicio
     repetir 2 veces avanza;
     gira (3);
    mientras no-junto-a-zumbador hacer avanza;
   coge-zumbador;
 fin;
fin;



define-nueva-instruccion tortuga (k) como inicio
 si junto-a-zumbador entonces inicio
  coge-zumbador;
   tortuga (sucede(k));
    deja-zumbador;
    fin
   sino inicio
  repetir k veces avanza;
 fin;
fin;


define-nueva-instruccion conejo (m) como inicio
 si junto-a-zumbador entonces inicio
  coge-zumbador;
   conejo (sucede(m));
    deja-zumbador;
    fin
   sino inicio
  repetir m veces avanza;
 fin;
fin;
                    (*--------cuenta los SEGUNDOS----------*)

define-nueva-instruccion segundos (i) como inicio
 si frente-libre entonces inicio
  repetir i veces avanza;
   segundos (i);
    deja-zumbador;
     fin
     sino inicio
    gira-izquierda;
   repetir 2 veces avanza; 
 fin;
fin;


define-nueva-instruccion paso-cone (i) como inicio
 si junto-a-zumbador entonces inicio
  coge-zumbador;
   paso-cone (sucede(i));
   fin
   sino inicio
  segundos (i);
 fin;
fin;



    inicia-ejecucion

    avanza;
    paso-tor;
    gira (2);
    mientras frente-libre hacer avanza;
    gira (2);

   mientras no-junto-a-zumbador hacer inicio
     mientras no-junto-a-zumbador hacer avanza;
     tortuga (0);
      gira (2);
       mientras frente-libre hacer avanza;
        gira-izquierda;
         avanza;
         gira-izquierda;
         mientras no-junto-a-zumbador hacer avanza;
         conejo (0);
        gira-izquierda;
       avanza;
      gira (3);
    fin;


    gira (3);
    avanza;
    gira (3);
    paso-cone (0);






        apagate;
    termina-ejecucion
finalizar-programa
