Moin,

Ich hatte heute zuviel Zeit und hab mich mal hingesetzt und versucht ein kleines Tennisspiel zu schreiben.

Das ist bei rausgekommen, für Anfänger bestimmt ganz intressant.

www.8ung.at/forumwatcher/Tennis.rar

Ich habs mir mal angeschaut, und muss leider sagen, dass es durch zuviele Bugs unspielbar ist:

- Der Ball verfängt sich gelegentlich im(!) Schläger und bleibt drin hängen.
- Wenn ich das Optionsfenster öffne, wird mein Schläger sehr klein, so dass ich danach nicht mehr spielen kann. Also er wird auch nicht wieder groß, wenn ich das Fenster schließe.
- Du solltest unbedingt einbauen, dass man durch die Schlägerbewegung Einfluss auf die Flugrichtung des Balles nehmen kann. So, wie es jetzt ist, prallt der Ball einfach nur ab, egal, was man macht, und es ist nicht möglich, seinen Gegner auszuspielen.

Und nochn Tipp: WIe ich sehe, hast du ein Panel als Ball. Setz doch ein rundes Shape auf das Panel.

Gruß,
Jörg

Hi Jörg,

zu 1.) Stimmt, das ist sche****, es liegt daran das ich die X-Fläche der Schläger nicht abfrage.

zu 2.) Ja Tu mir denGefallen und schau dir den Code an und sag mir warum dieser verdammte Schläger klein wird. Entweder seh ich den Wald vor lauter Bäumen nicht mehr oder ich bin einfach nur blöd Ich hab ne halbe Stunde in dem (wirklich kleinem) Code gesucht, finde aber den Fehler nicht...kein Wunder bei dem Saustall im Quellcode. :rolleyes:

zu 3.) Das wäre wirklich gut aber mir ging es nicht darum ein schönes Spiel zu schreiben. Es geht allgemein um die Bewegung des Balls und wie er auf Schläger und Wand reagiert. Das wäre schon cool wenn man auf die Ballbewegung Einfluss nehmen könnte, aber mein Vorbildspiel hat so eine funktion auch nicht

Vielleicht hat ja jemand Lust am Programm weiterzuarbeiten, der kann das ja dann umsetzten.


gruss

Zu 2.)Ich tippe mal ganz stark auf eine der zwei(!) Stellen in Unit2, wo du die Panel-Höhe des linken Schlägers einstellst.

1. Was soll den Trackbar4, wenn die unsichtbar ist??

2.procedure TForm2.TrackBar5Change(Sender: TObject);
Es gibt keine TrackBar5.

3.
Es gibt keinen Button2, Button3, Button4 und Button5.

4.
Wieso denn einfach, wenns auch kompliziert geht. Muss das über den internen PC-Lautsprecher sein?

5. 2 Timer und 1 Label sind umsonst.

6. Ich hab mit Formatierung aus ca. 270 Zeilen, genau 150 Zeilen gemacht.

7. Gib doch den Panels und Buttons und sonst was Namen. Ich hasse es, wenn die alle keinen Namen haben.

GTA-Place hat folgendes geschrieben:

1. Was soll den Trackbar4, wenn die unsichtbar ist?? 2.procedure TForm2.TrackBar5Change(Sender: TObject); Es gibt keine TrackBar5. 3. markieren Delphi-Quelltext     1: 2: 3: 4: procedure TForm1.Button2Click(Sender: TObject); procedure TForm1.Button3Click(Sender: TObject); procedure TForm1.Button4Click(Sender: TObject); procedure TForm1.Button5Click(Sender: TObject); Es gibt keinen Button2, Button3, Button4 und Button5. 4. markieren Delphi-Quelltext     1: 2: procedure SetPort(address, Value: Word); function GetPort(address: Word): Word; Wieso denn einfach, wenns auch kompliziert geht. Muss das über den internen PC-Lautsprecher sein? 5. 2 Timer und 1 Label sind umsonst. 6. Ich hab mit Formatierung aus ca. 270 Zeilen, genau 150 Zeilen gemacht. 7. Gib doch den Panels und Buttons und sonst was Namen. Ich hasse es, wenn die alle keinen Namen haben.

Stimmt schon alles, aber die meisten Objekte wie die 2 Timer und das Label und die paar Buttons hab ich während dem Programmieren für Tests benutzt. Wie ich oben bereits schrieb, geht es um die grobe Kolisionabfrage usw, der Rest ist doch ganz ehrlich scheissegal.

Die Beschriftungen hätte ich machen können, aber es sollte doch hoffentlich nicht zu schwer sich vier verschiedenen Panels zu merken.

bei mir ist das fenster zu groß ich kann den rechten schläger net sehen, ansonsten war das problem mit dem hängenbleiben bei meinem tennis auch, aber die lösung funzt irgendwie net und bei mir ist der ball auch manchmal durchgebrochen

Schade das der DL nicht mehr funktioniert

der download funktioniert bei mir noch, aber "lohnend" isses nicht gerade (hoffe ich greif niemanden an ;>)

Ne es is wirklich nicht lohnend

Habs mir auch grad mal wieder angeschaut, und es ist sche**** geworden...

mit tastatur steuerung ist eh besser ^^

ist es möglich eine art bot dafür zu schreiben also ein externes cheat tool welches die position des balls erkennt und automatisch mit einer tastendruck simulation reagiert ?

naja ok für anfänger? =)
ich weiss nich, hab mir den code nich angeschaut, aber wenn wirklich noch überflüssige buttons usw drin sind,
werden die anfänger wohl doch nur mehr verwirrt als alles andere.

und
@F34r0fTh3D4rk:
sollte eigentlich gehen, aber was für ein tastendruck? läuft doch mit der maus

meines aber net ^^

Klar, warum sollte das nicht möglich sein?

Die Adresse für den Top liegt bei mir bei $BF4A78
Die Adresse für die Left liegt bei $BF4A74

@en1gma: Mit Anfängern meinte ich nicht das Programm, sondern wie ich auch schonmal schrieb den Code für die Ballbewegung usw. Damit habe ich auch angefangen. Hab erst aus Spass einen Ball rumfliegen lassen, dann noch einen Schläger dazu, dann noch einen Schläger, dann eine KI Dementsprechend sieht das alles auch aus. Intressant ist im Grunde nur der Code des Timer1.

und wie lese ich die aus ?

wie man sie verändert weiß ich (gibt aber bestimmt fehler )

F34r0fTh3D4rk hat folgendes geschrieben:

und wie lese ich die aus ? wie man sie verändert weiß ich (gibt aber bestimmt fehler )

Nö, eigentlich nicht. Der Timer überprüft ja jedesmal aufs neue. Ich habs nicht ausprobiert, aber es müsste klappen.

Auslesen mit READPROCESSMEMORY

mit READPROCESSMEMORY

//edit
1. ups zu spät
2. und dann auch noch falsch geschrieben ;D

mit fehler meine ich dass es net geht, grade wegen des timers


unter readprocessmemory findet er nischt

F34r0fTh3D4rk hat folgendes geschrieben:

mit fehler meine ich dass es net geht, grade wegen des timers

Auswelchem Grunde sollte es nicht gehen? Du könntest du Adresse ja mal nopen, dann bleibt der Ball hängen. Genauso kannst du die Adressen doch auch umschreiben. Der Timer verändert die Ballpos. ja mit ball.left := ball.left + 1. Ob da jetzt in der letzen millisekunde ein Sprung gemacht wurde, ist dem Timer ja wurscht.

lol die suche geht nimmer