hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 10432 b0abef0ee78c
parent 10430 899a30018ede
child 10440 b74a7bbe224e
--- a/hedgewars/uFLTypes.pas	Sun Sep 28 01:17:55 2014 +0400
+++ b/hedgewars/uFLTypes.pas	Sun Sep 28 21:33:14 2014 +0400
@@ -9,9 +9,28 @@
                    len: Longword;
                    buf: Pointer
                end;
+
     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
     TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;
 
+    TGameType = (gtPreview, gtLocal);
+    THedgehog = record
+            name: shortstring;
+            hat: shortstring;
+            end;
+    TTeam = record
+            teamName: shortstring;
+            flag: shortstring;
+            graveName: shortstring;
+            fortName: shortstring;
+            owner: shortstring;
+            color: shortstring;
+            extDriven: boolean;
+            botLevel: Longword;
+            hedgehogs: array[0..7] of THedgehog;
+            hogsNumber: Longword;
+            end;
+
 implementation
 
 end.