anchor.diff:    protected
       function InitiateActivity: TKMUnitTask; override;
     public
  -    procedure Paint(aTickLag: Single); override;
     end;
   
     //Serf - transports all wares between houses
  
positive.code:     procedure ProceedHouseClosedForWorker;
    public
      function UpdateState: Boolean; override;
    end;
  
    //This is a common class for all units, who can work in house
  
negative.code:   public
      function CanWorkAt(aLoc: TKMPoint; aGatheringScript: TKMGatheringScript): Boolean;
      function GetActivityText: UnicodeString; override;
    end;
  
  
  