anchor.diff:  procedure TAISquad.UpdateState(aTick: Cardinal);
   const
     RANGE_AIM_DELAY = 80;
  -  HOUSE_AIM_DELAY = 1000;
  +  HOUSE_AIM_DELAY = 100;
   var
     ActPos, FinPos: TKMPoint;
   begin
  
positive.code:     INIT_THREAT = 1000000;
      SQR_CLOSE_COMBAT_DISTANCE_LIMIT = 12*12;
      MAX_SOLDIERS_VS_HOUSE = 12;
      ATTACK_WATCHTOWER_WITH_CLOSE_COMBAT_DIST = 5;
      SQR_MAX_CLOSE_COMBAT_VS_UNIT_DIST = 3*3;
    var
      Output: Boolean;
  
negative.code:   else
    begin
      FinPos := FinalPosition.Loc;
      if PlanPath(ActPos, FinPos, False, False) then
        Group.OrderWalk(FinPos, True, wtokAISquad, FinalPosition.Dir)
      else if not KMSamePoint(Group.Position, FinalPosition.Loc) then // Dont repeat order and let archers fire
        Group.OrderWalk(FinalPosition.Loc, True, wtokAISquad, FinalPosition.Dir);
  