Frage zu "Ball"-Spiel / Zähler für Mausklick

[procedure22]

Hallo zusammen,

ich bin Delphi-Interessiert und gerade dabei, es zu lernen. Hab eine PDF-Datei von einem Freund bekommen, in der die Programmiersprache Schritt für Schritt erklärt wird. Dazu gibt es dann immer Aufgaben, aber bei der aktuellen komme ich nicht weiter.

Es geht dabei um ein Spiel, in dem ein Ball herumhüpft und der Spieler in mit der Maus treffen muss. Die Treffer sollen gezählt werden. Ich habe schon einen Großteil des Programms geschrieben. Im Moment bin ich soweit, dass der Ball herumhüpft. Aber wie kann ich die Klicks auf den Ball automatisch zählen lassen? Gibt es auch die Möglichkeit, mehrere Bälle hüpfen zu lassen?

Vielen Dank schonmal und viele Grüße wünscht euch
Hans-Peter

[DeddyH]

Hallo procedure22, Willkommen in der DP :dp: ,

Du kannst die Datei auch einfach an Deinen Beitrag anhängen (klicke dazu auf Edit). Da ich nicht weiß, was der Ball überhaupt ist (ein eigenes Objekt?), kann ich Dir auch noch keinen Tipp bzgl. des Zählens geben. Möglich ist es auf jeden Fall.

[Kroko1999]

3 Foren, 3x das gleiche und alles ohne Link, :|

[Andi1985]

Delphi-Quellcode:

MeineCollision(MouseX, MouseY) 
WENN 
MouseX > BallX UND 
MouseX < BallX + BallBreite UND 
MouseY > BallY UND 
MouseY < BallY + BallHöhe 
DANN
  KOLLISION VORHANDEN
ANSONSTEN
  KEINE KOLLISION

Delphi-Quellcode:

WENN MeineCollision(MouseX, MouseY) DANN
  ERHÖHE EINEN GANZZAHLWERT

die Ball-Kordinaten wirst du haben da du den Ball ja rumhümpfen läst... und an die Mauskordinaten solltest du auch drankommen :)

mfg,
Moggy

[RavenIV]

Zitat:

Zitat von procedure22

Das Delphi-Projekt habe ich hier hochgeladen
<URL>

Du kannst auch Files direkt an den Beitrag anhängen.
Somit ersparst Du den hilfswilligen Leuten, dass sie erst noch auf ner anderen Seite was runterladen müssen.
Ausserdem bleibt bei dem RapidShare der Upload nicht ewig liegen.
Wäre schade, wenn der Beitrag dadurch sinnlos würde.

[RavenIV]

Zitat:

Zitat von Kroko1999

3 Foren, 3x das gleiche und alles ohne Link, :|

Jupp wirklich sehr unschön.
Gut, dass es Leute gibt, denen sowas auffällt.

Somit schenke ich mir die weiteren Antworten auf diesen Thread.
Ich mag das Crossposten nämlich nicht leiden.

[DeddyH]

Ich werfe aber schon mal PtInRect als Ansatz in den Raum :mrgreen:

[edit] Da es sich ja anscheinend um ein Crossposting handelt, verlinke bitte auf die anderen Foren, sonst machst Du Dir nirgends Freunde :? [/edit]

[procedure22]

Oha, das mit den Crossposts wusste ich nicht. War nicht böse gemeint!

Hier sind dementsprechend die anderen Links
http://forum.delphi-treff.de/showthr...337#post165337
http://www.delphi-forum.de/viewtopic...f448f5799dc980
http://entwickler-forum.de/showthrea...264#post160264

Nochmal: Entschuldigung! Thementitel hab ich geändert

[DeddyH]

Ich habe Dein Programm mal ein wenig erweitert. Du wirst es vermutlich nicht auf Anhieb verstehen, also heißt es lesen, lesen, lesen :zwinker: . Bei Fragen einfach fragen.

P.S.: das mit dem Crossposting sei Dir verziehen, beim nächsten Mal einfach beachten :-)

[procedure22]

Sieht super aus, vielen Dank schonmal :)
Versuche gerade den Programmcode nachzuvollziehen. Allerdings werden in der TrefferBar die Treffer gar nicht angezeigt?! Die Zahl der Treffer soll aber doch dort ausgegeben werden.

Vielleicht find ich noch raus, woran es liegt. Falls du das hier liest, kannst du mir ja auch noch einen Tipp geben ;)

Viele Grüße!