anchor.diff:    if not OrderToAttack(ScanPosition, UA, UGA, HA) then
     begin
       fState := cs_Walking;
  -    if SquadsInPosition() then
  +    if InPosition then
       begin
         if not OrderMove(PathPosition) then
           fState := cs_Idle;
  
positive.code:   TKMCompanyMode = (cm_Attack, cm_Defence);
    TKMCompanyState = (cs_Attack, cs_Walking, cs_Idle);
  
    TAISquad = class // Squad management (one group)
    private
      fGroup: TKMUnitGroup;
      fOnPlace, fTargetChanged: Boolean;
  
negative.code:         TAISquad( fSquads[GT].Items[I] ).UpdateState(aTick);
    end;
  var
    InPosition: Boolean;
    I: Integer;
    SQRRadius: Single;
    HA: TKMHouseArray;
    UA: TKMUnitArray;
    UGA: TKMUnitGroupArray;
  