Programar Juego Basico

[einer]

HOLA MUY BUENAS....
quisiera pedir a los que saben de programacion en delphi si pueden ayudarme con mi proyecto(tarea)

es lo sgt en clases el docente nos hizo hacer un programa en el cual mediante un boton hacemos recorrer la imagen de izquierda a derecha.. al finalizar la clase nos dio como tarea lo sgt: que programemos para que cuando la imagen llegase al borde derecho vuelva automaticamente al inicio.... nose si alguien tendria algun ejemplo de como puedo hacerlo... la medida de la ventana es de 910*440 ...... o quiza alguien tenga un juego o un ejemplo con el cual pueda guiarme..... espero vuestras respuestas

[Casimiro Notevi]

Bienvenido, creo que no has leído nuestra guía de estilo, saludos.

[einer]

Como lo edito?

[Casimiro Notevi]

No te preocupes, solamente tenlo en cuenta para otras ocasiones

[[duilioisola]]

Suponiendo que ya tienes la parte del botón y la imagen moviendose, es tan simple como verificar la posición de la imagen antes de moverla.

El Pseudocódigo sería algo asi:

// Hasta donde puede avanzar la imagen
LimitePosicionDerecha := 900

// Cantidad de pixels que se moverá al presionar una tecla
Avence := 10

OnKeyPress
begin
   // Avanzo la imagen
   Imagen.Left := Imagen.Left + Avence

   // Verifico si me he salido de la pantalla
   if Imagen.Left > LimitePosicionDerecha then
      Imagen.Left := 1
end

[[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