equal
deleted
inserted
replaced
7 TIPCMessage = record |
7 TIPCMessage = record |
8 str: shortstring; |
8 str: shortstring; |
9 len: Longword; |
9 len: Longword; |
10 buf: Pointer |
10 buf: Pointer |
11 end; |
11 end; |
|
12 |
12 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
13 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
13 TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
14 TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
|
15 |
|
16 TGameType = (gtPreview, gtLocal); |
|
17 THedgehog = record |
|
18 name: shortstring; |
|
19 hat: shortstring; |
|
20 end; |
|
21 TTeam = record |
|
22 teamName: shortstring; |
|
23 flag: shortstring; |
|
24 graveName: shortstring; |
|
25 fortName: shortstring; |
|
26 owner: shortstring; |
|
27 color: shortstring; |
|
28 extDriven: boolean; |
|
29 botLevel: Longword; |
|
30 hedgehogs: array[0..7] of THedgehog; |
|
31 hogsNumber: Longword; |
|
32 end; |
14 |
33 |
15 implementation |
34 implementation |
16 |
35 |
17 end. |
36 end. |