Programar Juego Basico

[[escafandra]]

Es posible que esto te interese: TPelota. Al menos para tomar ideas.





Saludo.

[ecfisa]

Hola.

Un ejemplo simple que desplaza horizontalmente un TImage de forma cíclica:

Código Delphi [-]
...
implementation

type
  TSentido = (toLeft, toDown, toRight, toUp); //  Por si hubiera un futuro desplaz. vertical 

procedure MoveImage(Img: TImage; const Sense: TSentido; const Disp: Integer);
begin
  case Sense of
    toRight:
    begin
      if Img.Left >= Img.Parent.ClientWidth - Disp then
        Img.Left := -Img.Width + Disp;
      Img.Left := Img.Left + Disp;
    end;
    toLeft:
    begin
      if Img.Left + Img.Width <= Disp then
        Img.Left := Img.Parent.Width;
      Img.Left := Img.Left - Disp;
    end;
    // toDown:
    // toTop:
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.KeyPreview            := True;
  Self.HorzScrollBar.Visible := False;
  Self.DoubleBuffered        := True;
  Image1.Width  := Image1.Picture.Width;
  Image1.Height := Image1.Picture.Height;
end;

Luego podes llamar a la función en el/los eventos que prefieras, v.gr.:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_LEFT then
    MoveImage(Image1, toLeft, 10);
  if Key = VK_RIGHT then
    MoveImage(Image1, toRight, 10);
end;

Resultado:


Saludos

[[gatosoft]]

Empezado por escafandra

Es posible que esto te interese: TPelota. Al menos para tomar ideas.
Saludo.

Alguien se debe estar revolcando frente a su ordenador en éste momento...

( y NO lo digo por Einer revisando el código... )

[Casimiro Notevi]

Empezado por gatosoft

Alguien se debe estar revolcando frente a su ordenador en éste momento...
( y NO lo digo por Einer revisando el código... )

[[escafandra]]

Empezado por gatosoft

Alguien se debe estar revolcando frente a su ordenador en éste momento...

( y NO lo digo por Einer revisando el código... )

Alguien ya ejecutó el ejemplo


Saludos.

[Casimiro Notevi]

Empezado por escafandra

Alguien ya ejecutó el ejemplo
Saludos.

¿La "sombra" está descolocada?

[[escafandra]]

Empezado por Casimiro Notevi

¿La "sombra" está descolocada?

No, no hay sombra, si ves una pelota negra es que no copiaste el archivo Pelota7.png a la carpeta del ejecutable. La clase TPelota puede incorporar imágenes en los recursos o leerlas de un archivo. en el segundo caso será negra si no encuentra el archivo.

En un primer lugar aparece una pelota con esa imagen y un balón de fútbol. Cada uno tiene un comportamiento ligeramente distinto. El balón termina cayendo al suelo y frenando. Al parar se disparan dos balones, el antiguo y otro nuevo. El asunto se repite hasta un número de pelotas limitado para no saturar los recursos.




Saludos.

[Casimiro Notevi]

Es lo que dices, no copié la imagen de esa pelota