Obistaculos e colisões delphi 2010

**HenriqueTOG** · 1 de Setembro 2010

como fzer obistaculos pra minha navezinha?

vo hostear ele e colocar o codigo aki

eu queria fzer naves caindo e meteoros tbm, se algo acertar ela ela explode!

e como colocar um tempo pra ver qto tempo vc durou?

procedure TForm1.btn_startClick(Sender: TObject);
begin

if sgame then

begin

shp_char.Visible := true;

tmr_keys.Enabled := true;

btn_start.Caption := 'Pausar o Jogo';

sgame := false;

end else if sgame = false then begin

if btn_start.Caption = 'Continuar o Jogo' then begin

btn_start.Caption := 'Pausar o Jogo';

shp_char.Visible := true;

tmr_keys.Enabled := true;

end else begin

shp_char.Visible := true;

btn_start.Caption := 'Continuar o Jogo';

tmr_keys.Enabled := false;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

sgame := true;

end;

procedure TForm1.shp_charClick(Sender: TObject);

var Handled: Boolean;

begin

if GetAsyncKeyState(vk_right) < 0 then

begin

shp_char.Left := shp_char.Left+3

end;

if GetKeyState(vk_left) < 0 then

begin

shp_char.Left := shp_char.Left-3

end;

if GetAsyncKeyState(vk_up) < 0 then

begin

shp_char.Top := shp_char.Top-3

end;

if GetAsyncKeyState(vk_down) < 0 then

begin

shp_char.Top := shp_char.Top+3

end;

end;

procedure TForm1.tmr_keysTimer(Sender: TObject);

begin

if GetAsyncKeyState(vk_right) < 0 then

begin

shp_char.Left := shp_char.Left+3

end;

if GetKeyState(vk_left) < 0 then

begin

shp_char.Left := shp_char.Left-3

end;

if GetAsyncKeyState(vk_up) < 0 then

begin

shp_char.Top := shp_char.Top-3

end;

if GetAsyncKeyState(vk_down) < 0 then

begin

shp_char.Top := shp_char.Top+3

end;

end;

end.