anchor.diff:  
   function TKMUnit.GetPosition: TKMPoint;
   begin
  -  Result := fPosition;
  +  Result := fPositionRound;
   end;
   
   
  
positive.code: begin
    Result := True; //Required for override compatibility
  
    SetCurrPosition(KMPointRound(fPositionF));
  
    if fAction = nil then
      raise ELocError.Create(gRes.Units[UnitType].GUIName + ' has no action at start of TKMUnitAnimal.UpdateState', fPosition);
  
    if fKillASAP then
    begin
  
negative.code:     procedure SetDirection(aValue: TKMDirection);
      procedure SetAction(aAction: TKMUnitAction; aStep: Integer = 0);
      procedure SetNextPosition(const aLoc: TKMPoint);
      procedure SetPositionRound(const aLoc: TKMPoint);
      procedure SetCondition(aValue: Integer);
      function CanAccessHome: Boolean;
      procedure SetHome(aHome: TKMHouse);
  