Movendo Personagens [GAMES]

[madake 0]

Postando aqui pra quem gosta de fazer seus próprios games. Andei vendo outras dicas em relação a como mover um personagem em um joguinho simples utilizando os eventos onKeyPress ou onKeyDown e decidi postar essa dica aqui. Nela é demonstrada uma forma simples e mais eficiente de mover os seus personagens, utilizando um Timer com interval=1:

------------------------------------------------

...

public

{ Public declarations }

X, Y:integer;//No onCreate definir a posição inicial do personagem

...

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if GetKeyState(VK_UP) <0 then //Seta para cima

Dec(Y);

if GetKeyState(VK_DOWN) <0 then //Seta para baixo

Inc(Y);

if GetKeyState(VK_LEFT) <0 then //Seta esquerda

Dec(X);

if GetKeyState(VK_RIGHT) <0 then //Seta direita

Inc(X);

 

Jogador1.Left := X; //Posição horizontal

Jogador1.Top := Y; //Posição vertical

end;

----------------------------------------

 

Bem simples neh? Mais sempre é bom aprender mais :D

 

Madake

[Kawary_Dark 0]

muito obrigado

aprendi mt com esse post

eu nao conhecia essa forma

de movimentação de personagens

parabéns levou meu thanks ^^

 

 

 

vlw'

[madake 0]

Nossa cara.. que bom q tah ajudando vc!

qualquer dúvida posta ai. flw!