Hi @ all!

Ihr kennt doch sicher diesen uralten Spieleklassiker, oder??
Ich habe mir in den Kopf gesetzt dieses Spiel nachzuprogrammieren,
bin leider aber ein hoffnugsloser Anfänger in Sachen Delphi.
Ich habe mir vorgestellt, dass ich das Spielfeld einfach durch 4 Panels
begrenze: jew. rechts und links (wenn der Ball berührt => Punkt)
jew oben und unten (Ball prallt ab)

Meine Probleme sind die Folgenden:
-Tastenbelegung für Ereignisse (zB. Panel1.left:= (alt) +1
-Die Bewegung des Balles an sich
-die "Abprallwinkel" des Balles.

Wäre echt nett, wenn mir irgendjemand helfen könnte.

für die Positionsänderungen der Panels solltest du dir mal das OnKeyDown bzw. das OnKeyPress-Eriegnis ansehen...

dann machst du einfach eine Bewegung des Balles in y-Richtung und eine in x-Richtung... anhang derer du dann in einem OnTimer-Ereignis die Position des Balles veränderst...
beim abprallen des Balles veränderst du einfach nur das Vorzeichen des Balles in der jeweiligen Richtung...

das solltest du erstmal ausprobieren und wenn dann wenn Probleme auftauchen wieder nachfragen, außer es ist jetzt schon was unklar

Hallo!

Dankeschön, hat mir allerdings nichts genützt...
Komme mit der Delphi-Hilfe einfach nicht zurecht!
Könnte mir jemand einfach mal den Anfang geben??

MFG

nunja...
weißt du, wie man was in die Ereignisse der Form 1 schreibt??
da suchst du dir dann onkeydown und machst vom Prinzip her folgendes:


dann machste nen timer auf die Form und im Ontimerereignis veränderst du halt die Position von Panel3 ...


X,Y SPeed sind z.B. 1 ...

wenn du nun ne Kollision mit dem Schläger oder der Wand hast sagst du jenachdem YSpeed:=-YSpeed;
oder XSpeed:=-XSpeed;

Den Ball kannst du als Bild in ein Image laden und dann dessen Position - wie schon beschrieben - verändern.

Hi!

Ja, danke!
Um auch gleich auf deine Frage einzugehen: Nein, ich weiß nicht, wie man etwas in die Eigenschaft der TForm schreibt. Ich weiß praktisch nicht viel mehr, als sowas wie OnButtonClick, und weß ein bisschen was über die If-Clauseln. Ich wäre dir/euch echt sehr verbunden, wenn du/ihr mir mal eine konkreten Ansatz geben würdet!

Cu
Hedndrik

Hendi hat folgendes geschrieben:

Hi! Ja, danke! Um auch gleich auf deine Frage einzugehen: Nein, ich weiß nicht, wie man etwas in die Eigenschaft der TForm schreibt. Ich weiß praktisch nicht viel mehr, als sowas wie OnButtonClick, und weß ein bisschen was über die If-Clauseln. Ich wäre dir/euch echt sehr verbunden, wenn du/ihr mir mal eine konkreten Ansatz geben würdet! Cu Hedndrik

nunja, ich will ja nicht meckern, ich war auch mal so, aber das was er dir gegebn hat istbereits ein sehr konkreter ansatz *g*

also um das zu machen
brauchst du 2 variablen (typ integer)
dieses erstellst du in dem "var" abschnitt deiner unit in etwa so:


dann setzt du einen TTimer(zu finden unter "System") auf dein Formular und clickst ihn doppelt an. Nun bist du im code gelandet, dort gibts du ein



Natürlich brauchen wir noch ein TImage (is glaub ich unter "zusätzlich", hab grad kein Delphi zur Hand)
dies wird dann dein Ball. Du platzierst es genauso, wie den timer auf deinem Formular und offnest irgendein bild, das in etwa deinem ball entspricht (statt image könntest du auch ein TShape verwenden)

was allerdings noch fehlt ist die Kollisionserkennung mit den schlägern, diese geht jedoch recht ähnlich zu der anderen

MathiasH

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt
[edit="MathiasH"]Ich glaub das lern ich nie mit den Delphi Tags...[/edit]

und an das OnKeyDown-Ereignis komsmt du so:
Form1 anklicken -> im Objektinspektor auf den Reiter Ereignisse klicken -> eintrag onkeydown suchen und daneben einen Doppelklick machen

Hi!

Okay, der Ball läuft! *g*
Jedoch funktioniert das Onkey-Ereignis noch nicht, denke ich komme
damit aber klar.
Nächste Frage: Wie mache ich das mit den AbprallWinkeln?
Und ein Punktezäl-modul? Gibts sowas oder muss ich das über
ein Edit-feld lösen?

Danke nochmals an alle Beteiligten!!!

das mit dem winkel ist eigentlich relativ simpel, Einfallswinkel= ausfallswinkel
da z.B. xspeed senkrecht auf die rechte wand steht, musst du xspeed einfach negativ machen, hart wird es jedoch wenn man die Kollision an Ecken (z.B. der des Schlägers) realisieren will ich hab sowas mal gebaut, aber das ist ewig her ich muss erst wieder in meinen surcen graben.... bei den ecken ist dann schon ne gehörige Portion vektorrechnung drin, das war damals ein ganz schöner brocken....

Punktezählen würd ich über ne Variable machen, die bei jedem abpraller am Schläger erfhöht wird und in einem Label/edit oder sonst wie ausgegeben wird

zur Kollision mit dem Schläger:
wenn (ball.x > schlägerlinks.x) und (ball.x < schlägerrechts.x) und (ball.y > schläger.y) dann findet die Kollision statt.

MathiasH

Hi!

Ok, Schläder Funktionieren. Ich habe sie soger in dre Sektoren geteil,
oben, mitte und unten. Oben prallt der Ball schräg nach oben ab, in der
mitte senkrecht und unten prallt er nach unten ab.
Meine jetzigen Probleme sind folgende:
Ich habe die Schlägerbewegung mit hilfe der Tastatur schon steuern können, aber nachdem ich zwei editfelder auf die TForm gesetzt habe ging das nicht mehr? Kriege es auch nicht mehr zu laufe!! Warum?
Das nächste ist, dass ich das Spiel gern für 1-2 Sekunden anhalten würde, wenn der Ball in die rechte oder Linke Bande schlägt.
Ich habe so angesetzt:



Funktionniert aber nur, dass das Shape an seinen Ausgangspunkt
gesetzt wird, alles andere will nicht...
Danke nochmal für all eure unterstützende Hilfe!!!!!!!!!!

Hendrik

Moderiert von Peter Lustig: Delphi-Tags hinzugefügt

das Problem bei den edits ist dann wahrscheinlich, dass die den Fokus haben und entsprechend die onkeydownereignisse nicht an die Form weitergeleitet werden...
nimm anstattdessen einfach labels...

form1.keypreview := true;

Hi Gandalfonso!

Was wolltest du mir damit sagen??

MFG
Hendrik

wenn du diesen BEfehl im OnCreate-EReignis deiner Form einfügst, dann klappt es auch zusammen mit den Edit-Feldern...

Hi!

Alles funktionniert!!!! Vielem Dank an alle!!!
Ein einziges letztes Problem: Ich hätte gerne, dass das
Spiel abbricht, wenn einer der Spieler einen Punkt bekommt und
nach 2-3 Sekunden von alleine neu startet. Ich hab das mit nem Timer
probiert, geht nicht. Vielleicht eine Verkettung von Timern???

Danke schonmal!!!

geht schon... stell das Timer.Interval auf 3000
dann sag im Formcreate Timer.enabled:=false;
dann brauchst du noch ne globale boolean-variable -> isrunning:boolean , die du am Anfang auf true setzt und immer beim zeichnen / ändern überprüfst ob die true ist...
dann wenn ein punkt gemacht wird stellst du die auf false und sagst timer.enabled:=true;
im Ontimer-ereignis sollte dann folgendes stehen: