author | unc0rr |
Sun, 28 Sep 2014 21:33:14 +0400 | |
branch | qmlfrontend |
changeset 10432 | b0abef0ee78c |
parent 10430 | 899a30018ede |
child 10440 | b74a7bbe224e |
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 |
7c25297720f1
More refactoring: move PoC preview getting code into flib
unc0rr
parents:
10420
diff
changeset
|
5 |
TMessageType = (mtPreview); |
7c25297720f1
More refactoring: move PoC preview getting code into flib
unc0rr
parents:
10420
diff
changeset
|
6 |
|
7c25297720f1
More refactoring: move PoC preview getting code into flib
unc0rr
parents:
10420
diff
changeset
|
7 |
TIPCMessage = record |
10418
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
8 |
str: shortstring; |
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
9 |
len: Longword; |
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
10 |
buf: Pointer |
091d2c0216c3
Move away from passing shortstrings into C code, now IPC works
unc0rr
parents:
10406
diff
changeset
|
11 |
end; |
10432 | 12 |
|
10420 | 13 |
TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
10430 | 14 |
TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl; |
10406 | 15 |
|
10432 | 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; |
|
33 |
||
10406 | 34 |
implementation |
35 |
||
36 |
end. |