//=======================================================

//= Fenix ejemplo 1                                     =

//=                                                     =

//= Muestra un sprite y lo mueve por la pantalla        =

//=                                                     =

//= Ejemplos para el port de Fénix para GP32.           =

//= Por Oscar BraindeaD 2004                            =

//= (www.geocities.com/oscarbraindead)                  =

//= Visita la web de Fénix: http://fenix.divsite.net    =

//= Portado a GP32 por Chui.                            =

//=======================================================



program FenixEjemplo1;



begin

   //Inicia modo gráfico a 320X240 y modo 8bits de color (256 colores)

   set_mode(m320x240);

   graph_mode=mode_8bits;



   //Carga el fichero de gráficos

   load_fpg("FenEjem\ejemplo.fpg");



   //Crea el proceso nave

   nave();



   //Embucla el proceso ppal. hasta pulsar tab (en ordenador) o botón L en GP32

   loop

      //El frame hace que se recalcule todo, si no se pone se quedará como "colgado"

      frame;

      if(key(_tab)) break; end

   end



   //Elimina TODOS los procesos que pudieran existir quedándose él solo

   let_me_alone();

end



//=======================================================

//= Proceso NAVE()                                      =

//=======================================================

process nave()

begin

   //Le asignamos el gráfico deseado al proceso

   graph=1;   



   //Le damos valor a sus coordenadas iniciales

   x=100; y=100;



   loop

      frame;



      //Detectamos las pulsaciones de las teclas/stick de GP32

      if(key(_left))   x-=2; end

      if(key(_right)) x+=2; end

      if(key(_up))   y-=2; end

      if(key(_down))   y+=2; end

   end

end