14 

    14 

    15 type

    15 type

    16     PHandler = procedure (var t: TCmdData);

    16     PHandler = procedure (var t: TCmdData);

    17 

    17 

    18 var isInRoom: boolean;

    18 var isInRoom: boolean;

    20 

    19 

    21 procedure onRoomLeaving();

    20 procedure onRoomLeaving();

    22 begin

    21 begin

    23     isInRoom:= false;

    22     isInRoom:= false;

    24     sendUI(mtMoveToLobby, nil, 0);

    23     sendUI(mtMoveToLobby, nil, 0);

   308 

   307 

   309 procedure handler_CONNECTED(var p: TCmdParami);

   308 procedure handler_CONNECTED(var p: TCmdParami);

   310 begin

   309 begin

   311     sendUI(mtConnected, nil, 0);

   310     sendUI(mtConnected, nil, 0);

   312     //writeln('Server features version ', p.param1);

   311     //writeln('Server features version ', p.param1);

   315 end;

   314 end;

   316 

   315 

   317 procedure handler_EM(var p: TCmdParam);

   316 procedure handler_EM(var p: TCmdParam);

   318 begin

   317 begin

   319 end;

   318 end;