Abwechselnd angreifen

[stahli]

ungefähr so...

Delphi-Quellcode:

Ende := False;
SpielerIstAmZug := True;
...
repeat
  if SpielerIstAmZug then
  begin
    SpielerZieht(Ende); // kann Ende auf True setzen
  end
  else
  begin
    GegnerZieht(Ende); // kann Ende auf True setzen
  end;
  SpielerIstAmZug := not SpielerIstAmZug;
until Ende;