anchor.diff:      constructor Load(LoadStream: TKMemoryStream); override;
       property FishCount: byte read fFishCount;
       function ReduceFish: Boolean;
  +    function IsAnimal: Boolean; override;
       procedure Save(SaveStream: TKMemoryStream); override;
       function UpdateState: Boolean; override;
       procedure Paint(aTickLag: Single); override;
  
positive.code: end;
  
  
  constructor TKMUnitAnimal.Load(LoadStream: TKMemoryStream);
  begin
    inherited;
  
negative.code:     function  IsDismissAvailable: Boolean;
      function  IsDismissCancelAvailable: Boolean;
  
      function IsAnimal: Boolean; virtual;
  
      property  Thought: TKMUnitThought read fThought write SetThought;
      function  GetMovementVector: TKMPointF;
      function  IsIdle: Boolean;
  