Vier Gewinnt (Delphi Clon) mit KI

[core]

So, nach Luckie's Vier Gewinnt kommt jetzt meins

Also Vier Gewinnt mit einer kleinen ki!

Da es ein Projekt für die Schule ist, werde ich den Quellcode erst später veröffentlichen!

Testet es und schreibt, was ihr davon haltet!

http://mitglied.lycos.de/coilgun/core/vg.jpg

Download Ziel speichern unter !!!!!

[Luckie]

Es nervt, wenn man in einen Kreis klickt und dann das Fenster dahinter in den Vordergrund holt. Hat das irgendeinen besonderen Grund? Warum kann ich nicht auf dem ganzen Formular klicken, um einen Stein zu setzten, wie bei mir.

Mich würde mal die KI interessieren.

[core]

Zitat von Luckie:

Es nervt, wenn man in einen Kreis klickt und dann das Fenster dahinter in den Vordergrund holt. Hat das irgendeinen besonderen Grund? Warum kann ich nicht auf dem ganzen Formular klicken, um einen Stein zu setzten, wie bei mir.

jo ich wollte halt "richtige" Löcher machen
werde das noch ändern!

Das mit der KI! Wie gesagt ich warte noch bis ich mein Projekt vorgedragen habe, dann stelle ich den Quellcode online!
Aber hier die allgemeine Funktionsweise (Kommentar aus meinem Quellcode):

Delphi-Quellcode:

{
  ki-Part:
  -------
  Aufbau der ki:
  Die ki wird über die Procedur ki() aufgerufen.
  Zuerst wird das Spielfeld auf Gewinnmöglichkeiten des Spielers
  geprüft! Die ki legt im Hintergrund in jedes mögliche Feld einen
  Stein des Spielers und überprüft, ob dadurch ein Sieg entsteht.
  Wenn ja, nimmt die ki den Stein zurück und wirft jetzt einen richtigen
  an diese Position!
  Wenn nein, nimmt die ki den Stein zurück und führt die Überprüfung fort!
  Sollte für den Spieler kein Gewinn möglich sein wird das alles
  wiederholt, nur dass die ki jetzt selbst zu gewinnen versucht!
  Sollte auch für die ki keine Gewinnmöglichkeit bestehen, wird der
  Stein an eine zufällige Stelle gesetzt.
  }

[dizzy]

Zwei Dinge sind mir aufgefallen:

1) Der innere Bereich der leeren Kreise ist direkt nach Start des Programmes durchsichtig (Der Desktop ist dadurch sichtbar). Nach einem Redraw (Verschieben, klicken, mini-/maximieren etc.) ist aber alles okay. Solle also durch einen zusätzlichen Repaint lösbar sein.

2) Der PC-Gegner setzt nachdem ich schon gewonnen habe noch einen Stein. Das ist mir nicht recht . Zudem wird die Gewinnmeldung 2 mal ausgegeben.

Ansonsten gefällt mir das ganze sehr gut! Luckies Problem kann ich im Übrigen nicht nachvollziehen - ich kann auf eine beliebige Spalte klicken, egal wo, und es wird ein Stück an die richtige Stelle gesetzt.
\\edit: AH! Das hängt mit der Transparenz vor einem Redraw zusammen!

Der PC-Gegner lässt sich allerdings imho zu leicht besiegen

Gruss,
Fabian

[dizzy]

Zitat von core:

Delphi-Quellcode:

{
  ki-Part:
  -------
  Aufbau der ki:
  Die ki wird über die Procedur ki() aufgerufen.
  Zuerst wird das Spielfeld auf Gewinnmöglichkeiten des Spielers
  geprüft! Die ki legt im Hintergrund in jedes mögliche Feld einen
  Stein des Spielers und überprüft, ob dadurch ein Sieg entsteht.
  Wenn ja, nimmt die ki den Stein zurück und wirft jetzt einen richtigen
  an diese Position!
  Wenn nein, nimmt die ki den Stein zurück und führt die Überprüfung fort!
  Sollte für den Spieler kein Gewinn möglich sein wird das alles
  wiederholt, nur dass die ki jetzt selbst zu gewinnen versucht!
  Sollte auch für die ki keine Gewinnmöglichkeit bestehen, wird der
  Stein an eine zufällige Stelle gesetzt.
  }

Hmmmm. Zufällig ist imho nicht so günstig. 4Gewinnt wäre sicherlich ein klassische Kandidat für das Mini-Max-Prinzip! Damit sollte sich eine sehr schwer besiegbare KI bauen lassen. Jetzt hast du mich neugierig gemacht... *auchmalversuchenwill*

[core]

So, hab das mit den Löchern jetzt geändert!

Neue Version unter dem gleichen Link oben.

[nailor]

der tripod-link zickt bei mir rum. nochnichtmal mit "ziel speichern unter" ist da was zu holen.

[Luckie]

Bei mir scheint der Desktop immer durch. Und wenn ich dan in ein Loch klicke wird das darunterliegende Fenster in den Vordergrund geholt.

OK, ixt behoben, jetzt flackert es nur sehr unschön jedes mal beim Setzen der Steine.

[bigg]

Ich hab den Computer gleich beim ersten mal besiegt
Aber ansonsten ist das Spiel ganz gut gelungen.

[stoxx]

also ich hab den Computer auch gleich beim ersten Mal besiegt )

Kenn das von Luckie jetzt nicht.
Aber das von Max Kleiner ist in der höchsten Spielstufe echt hammerhart.

http://max.kleiner.com/secos.htm

http://max.kleiner.com/download/4gewinnt.zip

Das Spiel gewinnt man, wenn überhaupt, nur wenn das ganze Spielfeld schon fast voll ist in den letzten Zügen ...