hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 11451 6e9b12864856
parent 11450 0c75fa9ce340
child 11452 78860824b5a5
--- a/hedgewars/uFLTypes.pas	Thu Dec 10 00:33:45 2015 +0300
+++ b/hedgewars/uFLTypes.pas	Thu Dec 10 23:49:12 2015 +0300
@@ -15,7 +15,7 @@
                     , mtNickname, mtSeed, mtTheme, mtScript, mtFeatureSize, mtMapGen
                     , mtMap, mtMazeSize, mtTemplate, mtAmmo, mtScheme);
 
-    TFLIBEvent = (flibGameFinished);
+    TFLIBEvent = (flibGameFinished, flibRunNetGame);
 
     TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin);
 
@@ -37,7 +37,7 @@
     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
     TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;
 
-    TGameType = (gtPreview, gtLocal);
+    TGameType = (gtPreview, gtLocal, gtNet);
     THedgehog = record
             name: shortstring;
             hat: shortstring;