Changeset 103 for trunk/Forms

Timestamp:

May 21, 2024, 3:55:43 PM (18 months ago)

Author:

chronos

Message:

• Fixed: Destroying other player didn't end the round.
• Modified: End the game after three wins of the best player.

File:

• trunk/Forms/FormMain.pas (modified) (2 diffs)

trunk/Forms/FormMain.pas

@@ -77 +77 @@
 
 resourcestring
-  SRound = '%0:s of %1:s';
+  SRound = '%0:s';
 
 { TFormMain }
@@ -95 +95 @@
         //  IntToStr(TPlayer(Engine.Players[0]).Direction);
         StatusBar1.Panels[2].Text := FloatToStr(RoundTo(Engine.DrawDuration / OneMillisecond, -2));
-        StatusBar1.Panels[3].Text := Format(SRound, [IntToStr(Engine.CurrentRound),
-          IntToStr(Engine.MaxRound)]);
+        StatusBar1.Panels[3].Text := Format(SRound, [IntToStr(Engine.CurrentRound)]);
       finally
         Engine.Lock.Release;