anchor.diff:            end;
       end
       else
  -      LogIntParamWarn('States.IsWinefieldPlanAt', [X, Y]);
  +      LogIntParamWarn('States.IsWinefieldPlanAt', [aPlayer, X, Y]);
     except
       gScriptEvents.ExceptionOutsideScript := True; //Don't blame script for this exception
       raise;
  
positive.code:     Result := gHands[aHandId].Constructions.HousePlanList.HasPlan(KMPoint(aX, aY), HT);
      if Result then
      begin
        if aHouseType = htNone then
          aHouseType := HT
        else
          Result := aHouseType = HT;
  
negative.code:     function IsWinefieldAt(aPlayer: ShortInt; X, Y: Word): Boolean;
      function IsRoadAt(aPlayer: ShortInt; X, Y: Word): Boolean;
  
      function IsPlanAt(var aPlayer: Integer; var aFieldType: TKMFieldType; X, Y: Integer): Boolean;
      function IsFieldPlanAt(var aPlayer: Integer; X, Y: Integer): Boolean;
      function IsHousePlanAt(var aPlayer: Integer; var aHouseType: TKMHouseType; X, Y: Integer): Boolean;
      function IsRoadPlanAt(var aPlayer: Integer; X, Y: Integer): Boolean;
      function IsWinefieldPlanAt(var aPlayer: Integer; X, Y: Integer): Boolean;
  
      function IsMissionBuildType: Boolean;
      function IsMissionFightType: Boolean;
  