Obistaculos e colisões delphi 2010

[HenriqueTOG 0]

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.

 

 

 

 

 

DOWNLOAD: RapidShare: 1-CLICK Web hosting - Easy Filehosting

[PoseidoN 0]

Hm... naum sei se vai ajudar muito mas nesse topico do DragonBoss esplica um poco sobre isso :DD

 

 

Link

 

 

Abz'

[HenriqueTOG 0]

Hm... naum sei se vai ajudar muito mas nesse topico do DragonBoss esplica um poco sobre isso :DD

 

 

Link

 

 

Abz'

 

vlw, vo ler lá ^^