anchor.diff:    TKMCompanyMode = (cm_Attack, cm_Defence);
     TKMCompanyState = (cs_Attack, cs_Walking, cs_Idle);
   
  -  TAISquad = class // Squad management (one group)
  +  TAISquad = class
     private
       fGroup: TKMUnitGroup;
       fOnPlace, fTargetChanged: Boolean;
  
positive.code:     FinPos := fTargetHouse.GetPosition;
      if PlanPath(ActPos, FinPos, True) then
        Group.OrderWalk(FinPos, True, FinalPosition.Dir)
      else if fTargetChanged then
      begin
        fTargetChanged := False;
        Group.OrderAttackHouse(fTargetHouse, True);
      end;
  
negative.code: // Update state of squad (group orders)
  procedure TAISquad.UpdateState(aTick: Cardinal);
  const
    RANGE_AIM_DELAY = 80;
    HOUSE_AIM_DELAY = 1000;
  var
    ActPos, FinPos: TKMPoint;
  begin
  