Vier Gewinnt (Delphi Clon) mit KI

[core]

So, nach Luckie's Vier Gewinnt kommt jetzt meins :wink:

Also Vier Gewinnt mit einer kleinen ki! :lol:

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:

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 :D. 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:

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* :D

[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 :-D
Aber ansonsten ist das Spiel ganz gut gelungen. :thumb:

[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 ...

[jfheins]

Sieht ganz gut aus, aber was mir noch aufgefallen ist:
:arrow: Hat es einen Grund, dass ich das Meldungsfenster "Du Gewinner" (oder so ...) 2 mal bekomme ???
:arrow: Die KI sollte berechnen, wenn Sie einen Zug machen will, ob ich dadurch in meinem Zug gewinnwn kann.

[core]

Danke fürs testen! Werde jetzt mal den MiniMax-Algo einbauen!! :wink:

[dizzy]

Hab ich gestern auch mal versucht, und als der Aufbau des Spielbaumes dermaßen lange gedauert hat, hab ich mal gegoogelt, wie viele Möglichkeiten es gibt das Board zu bestücken... es sind 7^(7*6). Das macht ungefähr:

311.973.482.284.542.371.301.330.321.821.980.000 Knoten für den Spielbaum :shock: (ist nicht ganz genau - der Windows-Taschenrechner kann ja auch höchstens mit Double rechnen ;))

Also kann man den gesamten Baum wohl nicht aufstellen. Dann muss man daher gehen, und immer dynamisch einen kleinen Baum von der aktuellen Position aus basteln, und eine Bewerungsfunktion einbauen, die nicht nur für gewonnen/verloren klappt, sondern auch etwas wie "so gut wie gewonnen/verloren" erkennt. Das ist sicherlich etwas mehr Aufwand. Aber eine interessante Sache!

Gruss,
Fabian

[Nicodius]

anhang siehe leichte ki probleme ;)

ich sag dir einfach nacher immer wo ich reingeworfen habe wo er


also ich bin ja bekanntlich 1 er zwei .. wieso er da reinwirft weiß ich nicht ... wärs echt würd ich lachend "danke" sagen und "noch eins" fragen ;)

[The-Fox]

Download = 404 bzw. der Referer. Lads doch hier im Forum hoch.

[Luckie]

Mich würden mal die Sourcen der angekündigten KI intersssieren.