anchor.diff:      procedure HouseWeaponsOrderSet(aHouseID, aWareType, aAmount: Integer);
       procedure HouseSchoolQueueRemove(aHouseID, QueueIndex: Integer);
       procedure HouseUnlock(aPlayer, aHouseType: Word);
  +    procedure PlayerAllianceChange(aPlayer1, aPlayer2: Byte; aCompliment, aAllied: Boolean);
  +    procedure PlayerAddDefaultGoals(aPlayer: Byte; aBuildings: Boolean);
       procedure PlayerDefeat(aPlayer: Word);
       procedure PlayerWin(const aVictors: array of Integer; aTeamVictory: Boolean);
  -    procedure PlayerAllianceChange(aPlayer1, aPlayer2: Byte; aCompliment, aAllied: Boolean);
  -    procedure PlayerAddDefaultGoals(aPlayer: Byte; aBuildings: Boolean);
  -    procedure FogRevealCircle(aPlayer, X, Y, aRadius: Word);
  -    procedure FogCoverCircle(aPlayer, X, Y, aRadius: Word);
  -    procedure FogRevealAll(aPlayer: Byte);
  -    procedure FogCoverAll(aPlayer: Byte);
       procedure SetTradeAllowed(aPlayer, aResType: Word; aAllowed: Boolean);
       procedure ShowMsg(aPlayer: Word; aText: AnsiString);
       procedure SetOverlayText(aPlayer: Word; aText: AnsiString);
  
positive.code:     function PlanAddRoad(aPlayer, X, Y: Word): Boolean;
      function PlanAddWinefield(aPlayer, X, Y: Word): Boolean;
      function SchoolAddToQueue(aHouseID: Integer; aUnitType: Integer; aCount: Integer): Integer;
      procedure GiveWares(aPlayer, aType, aCount: Word);
      procedure GiveWeapons(aPlayer, aType, aCount: Word);
      procedure GroupOrderAttackHouse(aGroupID, aHouseID: Integer);
  
negative.code:     function TextFormatted(aIndex: Word; const Args: array of const): AnsiString;
      function FogRevealed(aPlayer: Byte; aX, aY: Word): Boolean;
  
      function GroupAt(aX, aY: Word): Integer;
      function GroupDead(aGroupID: Integer): Boolean;
      function GroupMember(aGroupID, aMemberIndex: Integer): Integer;
      function GroupMemberCount(aGroupID: Integer): Integer;
      function GroupOwner(aGroupID: Integer): Integer;
  
      function HouseAt(aX, aY: Word): Integer;
      function HouseDamage(aHouseID: Integer): Integer;
  