anchor.diff:  procedure TKMUnit.Feed(Amount: Single);
   begin
     fCondition := Math.min(fCondition + Round(Amount), UNIT_MAX_CONDITION);
  +end;
  +
  +
  +function TKMUnit.IsHungry: Boolean;
  +begin
  +  Result := fCondition < UNIT_MIN_CONDITION;
   end;
   
   
  
positive.code:     procedure SetActionWalkPushed(const aLocB: TKMPoint; aActionType: TKMUnitActionType = ua_Walk);
  
      procedure Feed(Amount: Single);
      procedure AbandonWalk;
      property  DesiredPassability: TKMTerrainPassability read GetDesiredPassability;
      property  Owner: TKMHandIndex read fOwner;
  
negative.code: 
  function TKMUnitSerf.UpdateState: Boolean;
  var
    OldThought: TKMUnitThought;
    WasIdle: Boolean;
  begin
  