Changeset 103 for trunk/Engine.pas

Timestamp:

May 21, 2024, 3:55:43 PM (5 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/Engine.pas (modified) (4 diffs)

trunk/Engine.pas

@@ -260 +260 @@
     Lock: TCriticalSection;
     CurrentRound: Integer;
-    MaxRound: Integer;
+    MaxScore: Integer;
     AudioShot: TSound;
     AudioExplode: TSound;
@@ -733 +733 @@
     Explosion(Position, ExplosionRange);
     Exploded := True;
+    ExplosionPending := True;
+    ExplosionTime := Now;
     Engine.AudioExplode.Play;
   end;
@@ -1883 +1885 @@
 var
   I: Integer;
+  HighestScore: Integer;
 begin
   if Players.GetAliveCount <= 1 then begin
+    HighestScore := 0;
     for I := 0 to Players.Count - 1 do
-    with Players[I] do
+    with Players[I] do begin
       if not Exploded then Inc(Score);
-    if CurrentRound < MaxRound then begin
+      HighestScore := Max(Score, HighestScore);
+    end;
+    if HighestScore < MaxScore then begin
       Inc(CurrentRound);
       NewRound;
       State := gsNewRound;
-    end else
+    end else begin
       State := gsMap;
       if Assigned(FOnGameEnd) then
         FOnGameEnd(Self);
+    end;
   end;
 end;
@@ -2144 +2151 @@
   InitDigMasks;
   Redraw;
-  MaxRound := 5;
+  MaxScore := 3;
 end;