equal
deleted
inserted
replaced
1 unit uFLTypes; |
1 unit uFLTypes; |
2 interface |
2 interface |
3 |
3 |
4 type |
4 type |
5 TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam |
5 TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam |
6 , mtTeamColor); |
6 , mtTeamColor, mtNetData); |
7 |
7 |
8 TIPCMessage = record |
8 TIPCMessage = record |
9 str: shortstring; |
9 str: shortstring; |
10 len: Longword; |
10 len: Longword; |
11 buf: Pointer |
11 buf: Pointer |
12 end; |
12 end; |
13 |
13 |
14 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
14 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
15 TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
15 TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
16 |
16 |
17 TGameType = (gtPreview, gtLocal); |
17 TGameType = (gtPreview, gtLocal); |
18 THedgehog = record |
18 THedgehog = record |
19 name: shortstring; |
19 name: shortstring; |
20 hat: shortstring; |
20 hat: shortstring; |