-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathGlobals.p
executable file
·51 lines (41 loc) · 911 Bytes
/
Globals.p
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
44
45
46
47
48
49
50
51
unit Globals;
interface
uses
Sound,
Windows, Menus, QDOffScreen;
type
Preferences = record
Width, Height: integer;
GrafFlags: byte;
TextureSize, Speed, X: integer;
Offset: integer;
end;
PrefPtr = ^Preferences;
PrefHandle = ^PrefPtr;
Keys = record
AccCode, BrakCode, LCode, RCode: integer;
end;
KeyPtr = ^Keys;
KeyHandle = ^KeyPtr;
ScoreEntry=record
Score:longint;
Name:string;
end;
ScorePtr=^ScoreEntry;
ScoreHandle=^ScorePtr;
var
ShellWindow, RaceWindow: WindowPtr;
AppleMenu, FileMenu, OptMenu: MenuHandle;
GamePlay,GamePause: boolean;
GamePrefs: PrefHandle;
GameKeys: KeyHandle;
CarID, Level: integer;
TheScreen: GDHandle;
EngineChannel, EffectAChannel, EffectBChannel: SndChannelPtr;
ErrFlags: byte;
CTOrig,Depth,OldDepth: integer;
SoundDisable: boolean;
Cheater:boolean;
Sb,Sf:RgbColor;
implementation
end.