Pong ähnliches spiel

[StefanDP]

Delphi-Quellcode:

if (ball.Top >= image5.Top) and  // hab noch ein >= hinzugefügt, falls es mal vorkommen würde...
   (image5.Visible = TRUE) then
   begin
    Movement_X := Movement_X * -1;
    image5.Visible := FALSE;
   end;

stefan

[Ricane]

Willst du ein Arkanoid Clone stricken?! Ich habe mal einen gemacht (mit DelphiX auf DirectX 8 ), den Du Dir hier angucken könnt!

Wenn bedarf besteht, kann ich Dir gerne den Quellcode schicken!

Hier nochmal ein Screenie!



Ricane

[Chillidan]

@ stefan habe die bedingung
(image5.Visible = TRUE) auch mit rein genommen und das der stein nur verschwindet wenn der ball auf ihn trifft hab ich auch mit drin das > zeichen is glaube ich überflüssig weil er ja nur wenn der ball auf den stein trifft verschwinden soll nich wenn er über dem stein ist

@Ricane würd mir gerne mal deinen quellcode ansehen

und jetzt noch ne frage hat jemand eine ahnung wie man eine bestimmte anzahl an steinen in meinetwegen 5 vorgegebenen mustern zufällig anordnen lässt

[StefanDP]

Delphi-Quellcode:

...Form1.Create...
begin
...
randomize
...
end;

...
case random(5) of
0: NachMuster1anordnen ;
1: NachMuster2anordnen ;
...
4: NachMuster5anordnen ;
end;

ich hoff ich hab dich richtig verstanden

[Chillidan]

ja das ist schon das was ich möchte aber mein problem ist mehr die positionierung der einzelnen steine wenn ich meinetwegen images verwende wie sage ich ihm dann das er den stein an stelle x/y setzt hatte, falls die source bekannt ist, schon mal versucht

Delphi-Quellcode:

{procedure Spielfeld;
var i,ii,stein_x,stein_y:integer;
begin

end;
}

komm aber nich so recht weiter

[StefanDP]

Delphi-Quellcode:

...
implementation
procedure SetzeAnPosition(stein: TImage; x,y: Integer); forward; // sagen, dass es die Proz. gibt!
...

procedure SetzeAnPosition(stein: TImage; x,y: Integer);
begin
  stein.top := y;
  stein.left := x;
end;

//Die Funktion kannst du jetzt so aufrufen:
...
  SetzeAnPosition(image5, 10, 20);
...
// Dann wird dein Stein 5!? von oben 20 und von links 10 pixel enfernt plaziert

in deinem zufallsbeispiel wär das dann z.b. so:

Delphi-Quellcode:

case random(5) of
0: begin
     SetzeAnPosition(image1, 10, 10);
     SetzeAnPosition(image2, 30, 20);
     SetzeAnPosition(image3, 50, 10);
     SetzeAnPosition(image4, 70, 20);
   end;
1: begin
     SetzeAnPosition(image1, 15, 10);
     SetzeAnPosition(image2, 10, 10);
     ...
   end;
usw...
end;

ich hoff das bringt dich weiter!

stefan

[Chillidan]

Ja das wars jetzt kann ich das alles hinbekommen
danke nochmal für deine hilfe

werd mal sehen das ich das prog fertig bekomme

[StefanDP]

Kein Prob!
Meld dich dann wieder, wenn dein Programm fertig ist!
Dann können wir es ja mal ausprobieren!

stefan

[Chillidan]

beim erstellen der steine haben sich mir neue probleme in den weg gestellt ich kann sie nun vernünftig erstellen und positionieren aber das dauert alles relativ lang und die trefferzone is auch nich der brüller hab auch noch den abprallwinkel nich richtig eingestellt
da wär mal wieder der rat von ein par pros angesagt

[StefanDP]

nun, du hast ziemlich viele TImages die alle eine JPEG beinhalten.
Es ist leider so, dass das erstellen von bildern eine weile dauert und sich bei vielen zusammensummiert!

ich würde das spiel vom ansatz her komplett anderst machen!
schau dir z.b. mal die TPaintBox an. (und die OH dazu)

Das ist eine Fläche, auf die zu zeichnen kannst!

stefan