Changeset 58

Timestamp:

Dec 25, 2022, 9:52:40 AM (2 years ago)

Author:

chronos

Message:

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

Location:

trunk

Files:

• Packages/TemplateGenerics/Generic/GenericMatrix.inc (modified) (1 diff)
• UEngine.pas (modified) (4 diffs)

trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

@@ -595 +595 @@
 begin
   Y := Start.Y;
-  while Y < Count.Y do begin
+  while Y < Start.Y + Count.Y do begin
     X := Start.X;
-    while X < Count.X do begin
+    while X < Start.X + Count.X do begin
       ItemsXY[X, Y] := Value;
       X := X + 1;

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;