Changeset 58 for trunk/UEngine.pas

Timestamp:

Dec 25, 2022, 9:52:40 AM (23 months ago)

Author:

chronos

Message:

• Fixed: Rock drawing issue for player on the righ or bottom side.

File:

• trunk/UEngine.pas (modified) (4 diffs)

trunk/UEngine.pas

@@ -216 +216 @@
   end;
 
+  TGameState = (gsMenu, gsRunning, gsNewRound, gsMap, gsMenuStats, gsInformation,
+    gsInstructions);
+
   { TEngine }
 
@@ -237 +240 @@
     procedure InitPlayerPool;
     procedure InitPlayers;
+    procedure CheckGameEnd;
   public
     Keyboard: TKeyboard;
@@ -249 +253 @@
     AudioExplode: TMediaPlayer;
     DrawDuration: TDatetime;
-    procedure CheckGameEnd;
+    State: TGameState;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -860 +864 @@
         ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
         else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua;
-
-    for I := ScreenFrame.Left to ScreenFrame.Right - 1 do
-      ItemsXY[I, 0] := $010101 * I;
   end;
 end;