Changeset 58
- Timestamp:
- Dec 25, 2022, 9:52:40 AM (23 months ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc
r51 r58 595 595 begin 596 596 Y := Start.Y; 597 while Y < Count.Y do begin597 while Y < Start.Y + Count.Y do begin 598 598 X := Start.X; 599 while X < Count.X do begin599 while X < Start.X + Count.X do begin 600 600 ItemsXY[X, Y] := Value; 601 601 X := X + 1; -
trunk/UEngine.pas
r57 r58 216 216 end; 217 217 218 TGameState = (gsMenu, gsRunning, gsNewRound, gsMap, gsMenuStats, gsInformation, 219 gsInstructions); 220 218 221 { TEngine } 219 222 … … 237 240 procedure InitPlayerPool; 238 241 procedure InitPlayers; 242 procedure CheckGameEnd; 239 243 public 240 244 Keyboard: TKeyboard; … … 249 253 AudioExplode: TMediaPlayer; 250 254 DrawDuration: TDatetime; 251 procedure CheckGameEnd;255 State: TGameState; 252 256 constructor Create(AOwner: TComponent); override; 253 257 destructor Destroy; override; … … 860 864 ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack 861 865 else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua; 862 863 for I := ScreenFrame.Left to ScreenFrame.Right - 1 do864 ItemsXY[I, 0] := $010101 * I;865 866 end; 866 867 end;
Note:
See TracChangeset
for help on using the changeset viewer.