paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed the warnings

Browse Source
This commit is contained in:
alex 2000-02-22 03:10:39 +00:00
parent 642bf91b4c
commit f3618e1424
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
install/demo/fpctris.pp
View File

@ -58,12 +58,14 @@ CONST TheWidth = 11; {Watch out, also correct RowMask!}
PosYField = 3; PosYField = 3;
MaxFigures= 16; {Maximum # figures place is reserved for.} MaxFigures= 16; {Maximum # figures place is reserved for.}
NrLevels = 12; {Number of levels currenty defined} NrLevels = 12; {Number of levels currenty defined}
FieldSpace= 177; { FieldSpace= 177;}
{$IFDEF UseGraphics}
DisplGrX=110; DisplGrX=110;
DisplGrY=90; DisplGrY=90;
DisplGrScale=16; DisplGrScale=16;
HelpY=130; HelpY=130;
{$ENDIF}
{$IFDEF UseGraphics} {$IFDEF UseGraphics}
BaseX =300; {Coordinates of highscores} BaseX =300; {Coordinates of highscores}
@ -76,7 +78,7 @@ CONST TheWidth = 11; {Watch out, also correct RowMask!}
TYPE TetrisFieldType = ARRAY [0..25] OF LONGINT; TYPE TetrisFieldType = ARRAY [0..25] OF LONGINT;
LevelInfoType = ARRAY [0..NrLevels-1] OF LONGINT; LevelInfoType = ARRAY [0..NrLevels-1] OF LONGINT;
FigureType = LONGINT; { actually array[0..4][0..4] of bit rounded up to a longint} FigureType = LONGINT; { actually array[0..4][0..4] of bit rounded up to a longint}
CHARSET = SET OF CHAR; { CHARSET = SET OF CHAR;}
{The figures, are converted to binary bitmaps on startup.} {The figures, are converted to binary bitmaps on startup.}
@ -812,7 +814,10 @@ END.
{ {
$Log$ $Log$
Revision 1.5 2000-01-21 00:44:51 peter Revision 1.6 2000-02-22 03:10:39 alex
fixed the warnings
Revision 1.5 2000/01/21 00:44:51 peter
* remove unused vars * remove unused vars
* renamed to .pp * renamed to .pp