Mole/types.pas at main · GSoftwareDevelopment/Mole · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
type
	TStatus = Record
		score,
		blocks:Word;
		level:Byte;
		nextLevel:Word;
		oldNextLevel:Word;
		blockFallSpeed:shortint;
		blockVanishingTime:Word;	// Time after which the block disappears
		vanishWarning:Word;			// Time after which thw Warning block flash
		breakSpeed:Word;			// speed of block break before vanish
	end;

// 	PBestEntry=^TBestEntry;
 	TBestEntry=record
 		nick:string[8];
 		score:string[6];
 		_score:cardinal;
 	end;

	THistoryPage=record
		nStr:Byte;
		startY:Byte;
		lines:Byte;
	end;

	TMenu = (
		menu_newgame = 0,
		menu_bests = 1,
		menu_history = 2
	);

	TBestsMode = (
		mode_local = 0,
		mode_disc = 1,
		mode_net = 2,
	);

	THistoryPages = record
		start:Byte;
		YStart:Byte;
		lines:Byte;
	end;