18 lines
859 B
ObjectPascal
18 lines
859 B
ObjectPascal
VAR
|
|
dispensers : DispenserPointerType; { rock dispensers linked list }
|
|
numDispensers : INTEGER; { # of dispensers on current level }
|
|
lastScore : INTEGER; { score from last completed game }
|
|
playSpeed : INTEGER;
|
|
m : MapDataType;
|
|
lad : ActorType;
|
|
ladXY : XYtype; { starting position of lad }
|
|
nextNewLad : INTEGER; { score for next new lad awarded }
|
|
dataFileContents : DataFileType;
|
|
highScores : ARRAY[1..NumHighScores] OF HighScoreType;
|
|
sound : BOOLEAN; { TRUE for sound }
|
|
insults : BOOLEAN; { TRUE for insults }
|
|
levelCycle : INTEGER;
|
|
displayLevel : INTEGER; { displayed map level }
|
|
upKey, downKey, leftKey, rightKey : CHAR; { lad direction control keys }
|
|
|