anchor.diff:        fOnAllReady:TNotifyEvent;
         fOnCommands:TStreamEvent;
   
  -      function CanJoin(aAddr, aNik:string):string;
  +      function CheckCanJoin(aAddr, aNik:string):string;
         procedure StartGame;
   
         procedure PacketRecieve(const aData: array of byte; aAddr:string); //Process all commands
  
positive.code: 
    case Kind of
      mk_AskToJoin:   if fLANPlayerKind = lpk_Host then begin
                        ReMsg := CanJoin(aAddr, Msg);
                        if ReMsg = '' then
                          PacketSend(aAddr, mk_AllowToJoin, 'Allowed')
                        else
  
negative.code: 
  
  //See if player can join our game
  function TKMNetworking.CheckCanJoin(aAddr, aNik:string):string;
  begin
    if fPlayers.Count >= MAX_PLAYERS then 
      Result := 'No more players can join the game'
  