Autor Beitrag
Fiete
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 601
Erhaltene Danke: 339

W7
Delphi 6 pro
BeitragVerfasst: Mo 24.04.17 11:11 
Moin,
"Spiel mit Dame" ist ein kleines Denkspiel und wird auf einem Schachbrett gespielt.
Es gibt genau eine Dame, die bei Spielbeginn zufällig in Reihe 8 oder in Spalte h platziert wird.
Es wird abwechselnd ein Damezug ausgeführt. Es sind die normalen Damenzüge erlaubt,
jedoch mit der Einschränkung, dass die horizontalen Züge immer nur nach links, die vertikalen
Züge nur nach unten und die diagonalen nur nach links unten ausgeführt werden dürfen.
Das Spiel hat gewonnen, wer als erster die Dame auf a1 stellt.
Screen
Viel Spaß beim Testen
Gruß Fiete
Einloggen, um Attachments anzusehen!
_________________
Fietes Gesetz: use your brain (THINK)

Für diesen Beitrag haben gedankt: Bergmann89, Mathematiker, Narses
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mo 24.04.17 14:13 
- Nachträglich durch die Entwickler-Ecke gelöscht -
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 601
Erhaltene Danke: 339

W7
Delphi 6 pro
BeitragVerfasst: Di 25.04.17 16:57 
Moin Frühlingsrolle,
die Spielstufe benutze ich zur Entscheidung Zufalls- oder Strategiezug.
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
if random(100)>10*Stufe then Zug:=ZugListe[random(AN)+1// Zufall
 else
  begin
   for K:=1 to AN do
    if ZugListe[K].nach in[(* hier fehlt was *)then // Strategie
     begin
      Zug:=ZugListe[K];
      Sieg:=True;
      break
     end;
   if not Sieg then Zug:=ZugListe[random(AN)+1]
  end;

Wer ein Gewinnfeld erreicht kann das Spiel gewinnen, die Gewinnfelder stehen im Quelltext :wink:
Bei Spielbeginn steht die Dame auf einem zufälligen Feld, dadurch kann der Mensch auch auf Stufe 10 gewinnen.
Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)