Pong ähnliches spiel

[Chillidan]

Hallo
erstmal zu dem Spiel mein ziel ist es ein Paddel einen Ball spielen zu lassen wie bei Pong
nur das es hier nur ein Paddel gibt und man "Steine abtreffen" muss.
Stand der dinge ist das der Ball an die decke geschlagen wird.
Was jetzt fehlt sind die Steine (timages) wenn ich sage

Delphi-Quellcode:

if ball.Top >= image5.Top - image5.Height then
  Movement_X:=Movement_X*-1;
  image5.Visible:=false;

dann sind die Steine nur kurz zu sehen.
:gruebel: hab nich so recht ahnung was nu zu tun ist :gruebel:
Bin noch neuling auf dem gebiet Delphi.

Würd mich über jegliche art von hilfe freuen !!!

Hier das Prog:

[glkgereon]

also, ich hab die quelltexte noch nicht durchgeackert, aber es sieht so aus, als ob die onmousebewegung auf visible:=false gesetzt würden

oder sobald es losgeht..

[Edit]OnMouseClick wohl... :gruebel: [/Edit]

ma gucken :gruebel:

aber, ich glaub nicht, das du ein neuling in delphi bist

dafür ist das prog absolut top :thuimb:

[Chillidan]

die antwort war aber schnell mir is noch eine frage eingefallen bei programmstart bewegt sich der ball schon weiss aber nich so recht warum!

[Markus K.]

Hallo Chillidan,
fehlen eventuell noch bei dem Anhang Dateien? Ich habe zwar eine Unit3.dcu, allerdings keine Pas.
Desweiteren scheinen die Compilierte Exe nicht mit dem Projektdateien zusammenzupassen, wenn ich das Projekt öffne und eine neue Exe compiliere, verringert sich die Größe der Exe um die Hälfte (sprich es scheinen Dateien zu fehlen).

Tschüß Markus

[glkgereon]

das kann ich dir nicht so genau sagen, ich vermute, in deinem BallMovement wird in jedem fall nach ein paar wenigen schritten movement auf true gesetzt

der timer geht wahrscheinlich sofort los, von daher...

du solltest den timer erst starten, wenn man aufn button klickt, dh disablen erst mal...

guck mal ob einfach nur timer disablern hilft

[Chillidan]

Hab den gesamten Ordner in dem Ich das Spiel gespeichert hab in die datei gepackt. weiss ich jetzt auch nicht so genau!!! @glkbkk werd ich mal gucken
Danke!

[StefanDP]

Zitat:

Zitat von Chillidan

Delphi-Quellcode:

if ball.Top >= image5.Top - image5.Height then
  Movement_X:=Movement_X*-1;
  image5.Visible:=false;

wie wärs mit

Delphi-Quellcode:

if ball.Top >= image5.Top - image5.Height then
begin
  Movement_X:=Movement_X*-1;
  image5.Visible:=false;
end;

stefan

edit:
:oops: oops, ich glaub ich hab deinen beitrag nicht ganz gelesen...

[glkgereon]

jo, das wirds wohl sein :-) :-)

[Chillidan]

manchmal sind die großen antworten des lebens so einfach *gg*
danke wird getestet

[Chillidan]

so ich wieder hab es getestet und es geht zum teil

Delphi-Quellcode:

if ball.top = image5.top then
   begin
    Movement_X:=Movement_X*-1;
    image5.Visible:=false;
   end;

mir ist aufgefallen das ich nur die x koordinate verwende also sobald der ball auf höhe des "steins" ist wechselt er die richtung auch wenn der nich mehr da ist
naja werd mal testen und dann wenn meine studien :mrgreen: erfolge zeigen davon berichten
danke nochmal an alle helfer bis zu dieser stelle

[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

Delphi-Quellcode:

(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

[Ricane]

Zitat:

Zitat von StefanDP

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

Oder DelphiX!

Geht wunderbar und ist sicherlich, wenn man beides nicht kennt, auch nicht viel schwerer! Außerdem kann man mit DelphiX noch viel mehr Sachen realisieren... :thuimb:



Ricane

[StefanDP]

Naja, DelphiX ist geschmacksache!
ES bringt zwar schnell einigermaßen schöne ERgebnisse, aber ich find es total veraltet.
Außerdem würde ich für ein Pong Spiel doch lieber eine eigene Engine programmieren

stefan

[Nicodius]

na ok wenn man bei veraltet ist nimm die neue UNREAL ENGINE UND DANN MACH UNS EIN 3D Pong die ergebnisse sind super und die engine ist neu :D :mrgreen: