anchor.diff:    end;
   
     //Common class for all civil units
  -  TKMCivilUnit = class(TKMUnit)
  +  TKMCivilUnit = class abstract(TKMUnit)
     public
       function GoEat(aInn: TKMHouseInn; aUnitAlreadyInsideInn: Boolean = False): Boolean;
       function CheckCondition: Boolean;
  
positive.code: 
    TKMUnitArray = array of TKMUnit;
  
    TKMUnitAction = class
    protected
      fType: TKMUnitActionType;
      fUnit: TKMUnit;
  
negative.code: 
    TKMTaskResult = (trTaskContinues, trTaskDone); //There's no difference between Done and Aborted
  
    TKMUnitTask = class abstract
    protected
      fType: TKMUnitTaskType;
      fUnit: TKMUnit; //Unit who's performing the Task
  