{$mode objfpc} {$H+}
program alegro10;
(*
allegro5 -> biblioteca alegro
al5image -> biblioteca para imagenes
Generics.Collections -> para usar listas
*)
uses
allegro5,al5image,Udisparo;
var lista_disparo: Tlista_disparo;
//prototipo clase jugador-----------------------------
type
Tjugador = class
strict private
imagen: ALLEGRO_BITMAPptr;
estado_de_teclas: ALLEGRO_KEYBOARD_STATE;
x,y: real;
contador: integer;
//lista_disparo: Tlista_disparo;
disparo,d: Tdisparo;
public
constructor Create();
procedure pintar();
procedure mover();
procedure disparar();
destructor Destroy(); override;
end;
//fin prototipo clase jugador-------------------------
//implementacion clase jugador------------------------
constructor Tjugador.Create();
begin
imagen := al_load_bitmap('nave.png');
x := 320;
y := 240;
lista_disparo := Tlista_disparo.Create(true);
end;
procedure Tjugador.pintar();
begin
mover();
disparar();
//pintamos imagen(imagen,x,y,voltear)
al_draw_bitmap(imagen,x,y,0);
//recorrer lista disparo
for d in lista_disparo do
begin
d.pintar();
if(d.y < 64) then
//eliminar disparo
lista_disparo.Extract(d);
end;
end;
procedure Tjugador.mover();
begin
al_get_keyboard_state(estado_de_teclas);
if(al_key_down(estado_de_teclas,ALLEGRO_KEY_LEFT)) then
begin
x := x - 5;
end
else if(al_key_down(estado_de_teclas,ALLEGRO_KEY_RIGHT)) then
begin
x := x + 5;
end;
if(al_key_down(estado_de_teclas,ALLEGRO_KEY_UP)) then
begin
y := y - 5;
end
else if(al_key_down(estado_de_teclas,ALLEGRO_KEY_DOWN)) then
begin
y := y + 5;
end;
end;
procedure Tjugador.disparar();
begin
al_get_keyboard_state(estado_de_teclas);
contador := contador + 1;
if (al_key_down(estado_de_teclas,ALLEGRO_KEY_Z)) and (contador > 10) then
begin
//crear disparo y añadir a la lista
disparo := Tdisparo.Create(x+24,y);
lista_disparo.Add(disparo);
contador := 0;
end;
end;
destructor Tjugador.Destroy();
begin
al_destroy_bitmap(imagen);
imagen := nil;
lista_disparo.Free();
lista_disparo := nil;
end;
//fin implementacion clase jugador-------------------
var
ventana: ALLEGRO_DISPLAYptr = nil;
evento: ALLEGRO_EVENT;
cola_de_eventos: ALLEGRO_EVENT_QUEUEptr = nil;
tiempo: ALLEGRO_TIMERptr = nil;
ejecutar: Boolean;
jugador: Tjugador;
begin
//iniciar allegro
al_init();
//instalar teclado
al_install_keyboard();
//iniciar imagen
al_init_image_addon();
//configurar ventana en modo ventana
al_set_new_display_flags(ALLEGRO_WINDOWED);
//crear ventana(ancho,alto)
ventana := al_create_display(640,480);
//ocultar raton
al_hide_mouse_cursor(ventana);
//crear cola de eventos
cola_de_eventos := al_create_event_queue();
//crear tiempo para fps
tiempo := al_create_timer(1/60);
//registrar eventos
al_register_event_source(cola_de_eventos,al_get_keyboard_event_source());
al_register_event_source(cola_de_eventos,al_get_display_event_source(ventana));
al_register_event_source(cola_de_eventos,al_get_timer_event_source(tiempo));
//inicio de variables
ejecutar := true;
jugador := Tjugador.Create();
//iniciamos el tiempo
al_start_timer(tiempo);
while (ejecutar = true) do
begin
//esperamos a la cola de eventos
al_wait_for_event(cola_de_eventos,@evento);
case evento.ftype of
//manejo de fps
ALLEGRO_EVENT_TIMER: begin
//limpiar pantalla con un color cualquiera
al_clear_to_color(al_map_rgb(0,0,160));
jugador.pintar();
//actualizar pantalla
al_flip_display();
end;
//si pulso escape salgo del bucle
ALLEGRO_EVENT_KEY_DOWN: begin
if (evento.keyboard.keycode = ALLEGRO_KEY_ESCAPE) then
begin
ejecutar := false;
end;
end;
end; //fin case
end; //fin bucle while
al_destroy_display(ventana); //destruir ventana
ventana := nil;
al_destroy_event_queue(cola_de_eventos); //destruir cola
cola_de_eventos := nil;
al_destroy_timer(tiempo); //destruir tiempo
tiempo := nil;
al_uninstall_keyboard(); //desinstalar teclado
jugador.Free(); //liberar jugador
jugador := nil;
end. //fin programa
Recent
