1
0
vt100-games/LadderTP/LADVAR.PAS

18 lines
859 B
Plaintext
Raw Normal View History

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 }