Changeset 58


Ignore:
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.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

    r51 r58  
    595595begin
    596596  Y := Start.Y;
    597   while Y < Count.Y do begin
     597  while Y < Start.Y + Count.Y do begin
    598598    X := Start.X;
    599     while X < Count.X do begin
     599    while X < Start.X + Count.X do begin
    600600      ItemsXY[X, Y] := Value;
    601601      X := X + 1;
  • trunk/UEngine.pas

    r57 r58  
    216216  end;
    217217
     218  TGameState = (gsMenu, gsRunning, gsNewRound, gsMap, gsMenuStats, gsInformation,
     219    gsInstructions);
     220
    218221  { TEngine }
    219222
     
    237240    procedure InitPlayerPool;
    238241    procedure InitPlayers;
     242    procedure CheckGameEnd;
    239243  public
    240244    Keyboard: TKeyboard;
     
    249253    AudioExplode: TMediaPlayer;
    250254    DrawDuration: TDatetime;
    251     procedure CheckGameEnd;
     255    State: TGameState;
    252256    constructor Create(AOwner: TComponent); override;
    253257    destructor Destroy; override;
     
    860864        ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
    861865        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua;
    862 
    863     for I := ScreenFrame.Left to ScreenFrame.Right - 1 do
    864       ItemsXY[I, 0] := $010101 * I;
    865866  end;
    866867end;
Note: See TracChangeset for help on using the changeset viewer.