hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 11434 23912c93935a
parent 11433 bca9afcc3a72
child 11437 6e641b5453f9
equal deleted inserted replaced
11433:bca9afcc3a72 11434:23912c93935a
     1 unit uFLTypes;
     1 unit uFLTypes;
     2 interface
     2 interface
     3 
     3 
       
     4 const
       
     5     MAXARGS = 32;
       
     6 
     4 type
     7 type
     5     TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam
     8     TMessageType = (mtRenderingPreview, mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam
     6                     , mtTeamColor, mtNetData, mtConnected, mtDisconnected, mtAddLobbyClient
     9                     , mtTeamColor, mtNetData, mtFlibEvent, mtConnected, mtDisconnected, mtAddLobbyClient
     7                     , mtRemoveLobbyClient, mtLobbyChatLine, mtAddRoomClient
    10                     , mtRemoveLobbyClient, mtLobbyChatLine, mtAddRoomClient
     8                     , mtRemoveRoomClient, mtRoomChatLine, mtAddRoom, mtUpdateRoom
    11                     , mtRemoveRoomClient, mtRoomChatLine, mtAddRoom, mtUpdateRoom
     9                     , mtRemoveRoom, mtError, mtWarning, mtMoveToLobby, mtMoveToRoom
    12                     , mtRemoveRoom, mtError, mtWarning, mtMoveToLobby, mtMoveToRoom
    10                     , mtNickname, mtSeed, mtTheme, mtScript, mtFeatureSize, mtMapGen
    13                     , mtNickname, mtSeed, mtTheme, mtScript, mtFeatureSize, mtMapGen
    11                     , mtMap, mtMazeSize, mtTemplate);
    14                     , mtMap, mtMazeSize, mtTemplate);
       
    15 
       
    16     TFLIBEvent = (flibGameFinished);
    12 
    17 
    13     TIPCMessage = record
    18     TIPCMessage = record
    14                    str: shortstring;
    19                    str: shortstring;
    15                    len: Longword;
    20                    len: Longword;
    16                    buf: Pointer
    21                    buf: Pointer
    84             ammoName: shortstring;
    89             ammoName: shortstring;
    85             a, b, c, d: shortstring;
    90             a, b, c, d: shortstring;
    86         end;
    91         end;
    87     PAmmo = ^TAmmo;
    92     PAmmo = ^TAmmo;
    88 
    93 
       
    94     PGameConfig = ^TGameConfig;
       
    95     TGameConfig = record
       
    96             seed: shortstring;
       
    97             theme: shortstring;
       
    98             script: shortstring;
       
    99             map: shortstring;
       
   100             scheme: TScheme;
       
   101             ammo: TAmmo;
       
   102             mapgen: LongInt;
       
   103             featureSize: LongInt;
       
   104             mazesize: LongInt;
       
   105             template: LongInt;
       
   106             gameType: TGameType;
       
   107             teams: array[0..7] of TTeam;
       
   108             arguments: array[0..Pred(MAXARGS)] of shortstring;
       
   109             argv: array[0..Pred(MAXARGS)] of PChar;
       
   110             argumentsNumber: Longword;
       
   111             nextConfig: PGameConfig;
       
   112             end;
       
   113 
    89 implementation
   114 implementation
    90 
   115 
    91 end.
   116 end.