13                     , mtRemoveRoomClient, mtRoomChatLine, mtAddRoom, mtUpdateRoom

    13                     , mtRemoveRoomClient, mtRoomChatLine, mtAddRoom, mtUpdateRoom

    14                     , mtRemoveRoom, mtError, mtWarning, mtMoveToLobby, mtMoveToRoom

    14                     , mtRemoveRoom, mtError, mtWarning, mtMoveToLobby, mtMoveToRoom

    15                     , mtNickname, mtSeed, mtTheme, mtScript, mtFeatureSize, mtMapGen

    15                     , mtNickname, mtSeed, mtTheme, mtScript, mtFeatureSize, mtMapGen

    16                     , mtMap, mtMazeSize, mtTemplate, mtAmmo, mtScheme);

    16                     , mtMap, mtMazeSize, mtTemplate, mtAmmo, mtScheme);

    17 

    17 

    19 

    19 

    20     TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin);

    20     TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin);

    21 

    21 

    22     PIPCMessage = ^TIPCMessage;

    22     PIPCMessage = ^TIPCMessage;

    23     TIPCMessage = record

    23     TIPCMessage = record

    35                end;

    35                end;

    36 

    36 

    37     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);

    37     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);

    38     TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;

    38     TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;

    39 

    39 

    41     THedgehog = record

    41     THedgehog = record

    42             name: shortstring;

    42             name: shortstring;

    43             hat: shortstring;

    43             hat: shortstring;

    44             end;

    44             end;

    45     TTeam = record

    45     TTeam = record