anchor.diff:  var
     Kind: TKMessageKind;
     M, M2: TKMemoryStream;
  -  RoomId: Integer;
     tmpInteger: Integer;
     Client: TKMServerClient;
  +  SenderIsHost: Boolean;
  +  SenderRoom: Integer;
   begin
     Assert(aLength >= 1, 'Unexpectedly short message');
   
  
positive.code:     Status('Warning: Received data from an unassigned client');
      exit;
    end;
  
    case Kind of
      mk_JoinRoom:
  
negative.code:               end;
              end;
      mk_BanPlayer:
              if SenderIsHost then
              begin
                M.Read(tmpInteger);
                if fClientList.GetByHandle(tmpInteger) <> nil then
                begin
                  BanPlayerFromRoom(tmpInteger, SenderRoom);
                  SendMessage(tmpInteger, mk_Kicked, TX_NET_BANNED_BY_HOST);
                  fServer.Kick(tmpInteger);
                end;
              end;
      mk_GiveHost:
              if SenderIsHost then
              begin
                M.Read(tmpInteger);
                if fClientList.GetByHandle(tmpInteger) <> nil then
                begin
                  fRoomInfo[SenderRoom].HostHandle := tmpInteger;
                  SendMessageToRoom(mk_ReassignHost, SenderRoom, tmpInteger); //Tell everyone about the new host
                end;
              end;
      mk_ResetBans:
              if SenderIsHost then
              begin
                SetLength(fRoomInfo[SenderRoom].BannedIPs, 0);
              end;
      mk_GetServerInfo:
              begin
  