anchor.diff:        RegisterMethod('function HouseDestroyed(aHouseID: Integer): Boolean');
         RegisterMethod('function HouseHasOccupant(aHouseID: Integer): Boolean');
         RegisterMethod('function HouseIsComplete(aHouseID: Integer): Boolean');
  -      RegisterMethod('function HouseTypeMaxHealth(aHouseType: Integer): Word');
         RegisterMethod('function HouseOwner(aHouseID: Integer): Integer');
  -      RegisterMethod('function HouseTypeToOccupantType(aHouseID: Integer): Integer');
         RegisterMethod('function HousePositionX(aHouseID: Integer): Integer');
         RegisterMethod('function HousePositionY(aHouseID: Integer): Integer');
         RegisterMethod('function HouseRepair(aHouseID: Integer): Boolean');
  
positive.code:       RegisterMethod('function UnitOwner(aUnitID: Integer): Integer');
        RegisterMethod('function UnitPositionX(aHouseID: Integer): Integer');
        RegisterMethod('function UnitPositionY(aHouseID: Integer): Integer');
        RegisterMethod('function UnitType(aUnitID: Integer): Integer');
        RegisterMethod('function UnitTypeName(aUnitType: Byte): AnsiString');
        RegisterMethod('function WareTypeName(aWareType: Byte): AnsiString');
      end;
  
  
negative.code:       RegisterMethod('procedure PlayerWin(const aVictors: array of Integer; aTeamVictory: Boolean)');
  
        RegisterMethod('procedure PlayWAV(aPlayer: ShortInt; const aFileName: AnsiString; aVolume: Single)');
        RegisterMethod('procedure PlayWAVAtLocation(aPlayer: ShortInt; const aFileName: AnsiString; aVolume: Single; aRadius: Single; aX, aY: Word)');
        RegisterMethod('function  PlayWAVAtLocationLooped(aPlayer: ShortInt; const aFileName: AnsiString; aVolume: Single; aRadius: Single; aX, aY: Word): Integer');
        RegisterMethod('procedure PlayWAVFadeMusic(aPlayer: ShortInt; const aFileName: AnsiString; aVolume: Single)');
        RegisterMethod('function  PlayWAVLooped(aPlayer: ShortInt; const aFileName: AnsiString; aVolume: Single): Integer');
        RegisterMethod('procedure StopLoopedWAV(aLoopIndex: Integer)');
  
        RegisterMethod('procedure RemoveRoad(X, Y: Word)');
  
        RegisterMethod('procedure SetTradeAllowed(aPlayer, aResType: Word; aAllowed: Boolean)');
  
        RegisterMethod('procedure ShowMsg(aPlayer: ShortInt; aText: AnsiString)');
        RegisterMethod('procedure ShowMsgFormatted(aPlayer: Shortint; aText: AnsiString; Params: array of const)');
        RegisterMethod('procedure ShowMsgGoto(aPlayer: Shortint; aX, aY: Word; aText: AnsiString)');
  