author | unc0rr |
Mon, 03 Nov 2014 23:36:53 +0300 | |
branch | qmlfrontend |
changeset 10454 | 2b590e7972b1 |
parent 10452 | 03519fd9f98d |
child 10819 | 57e21f7621b0 |
permissions | -rw-r--r-- |
10406 | 1 |
unit uFLTypes; |
10418
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
2 |
interface |
10406 | 3 |
|
10428
7c25297720f1
More refactoring: move PoC preview getting code into flib
unc0rr
parents:
10420
diff
changeset
|
4 |
type |
10452
03519fd9f98d
Show team color in teams list widget, also allow to change it on mouse click
unc0rr
parents:
10450
diff
changeset
|
5 |
TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam |
03519fd9f98d
Show team color in teams list widget, also allow to change it on mouse click
unc0rr
parents:
10450
diff
changeset
|
6 |
, mtTeamColor); |
10428
7c25297720f1
More refactoring: move PoC preview getting code into flib
unc0rr
parents:
10420
diff
changeset
|
7 |
|
7c25297720f1
More refactoring: move PoC preview getting code into flib
unc0rr
parents:
10420
diff
changeset
|
8 |
TIPCMessage = record |
10418
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
9 |
str: shortstring; |
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
10 |
len: Longword; |
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
11 |
buf: Pointer |
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
12 |
end; |
10432 | 13 |
|
10420 | 14 |
TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
10430 | 15 |
TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
10406 | 16 |
|
10432 | 17 |
TGameType = (gtPreview, gtLocal); |
18 |
THedgehog = record |
|
19 |
name: shortstring; |
|
20 |
hat: shortstring; |
|
21 |
end; |
|
22 |
TTeam = record |
|
23 |
teamName: shortstring; |
|
24 |
flag: shortstring; |
|
25 |
graveName: shortstring; |
|
26 |
fortName: shortstring; |
|
27 |
owner: shortstring; |
|
10450 | 28 |
color: Longword; |
10432 | 29 |
extDriven: boolean; |
30 |
botLevel: Longword; |
|
31 |
hedgehogs: array[0..7] of THedgehog; |
|
32 |
hogsNumber: Longword; |
|
10440 | 33 |
end; |
34 |
PTeam = ^TTeam; |
|
10432 | 35 |
|
10406 | 36 |
implementation |
37 |
||
38 |
end. |