/* DBCServer_Release_x64.exe sha256 d9e4fccdf3482e50247686d4452c0b13c75a53efc4bd7320668eece8d1ce828c
 * Ghidra 12.1.2 decompiler output for 0x1401d9ac0 FUN_1401d9ac0
 * Pseudocode, not original source. */

double FUN_1401d9ac0(longlong *param_1,int param_2,undefined8 param_3,undefined8 param_4)

{
  undefined8 *puVar1;
  void *pvVar2;
  double dVar3;
  undefined8 uVar4;
  longlong *plVar5;
  longlong lVar6;
  longlong lVar7;
  undefined4 *puVar8;
  double dVar9;
  double dVar10;
  longlong *local_res8;
  longlong *local_res18;
  undefined8 uVar11;
  undefined8 uVar12;
  
  uVar11 = 0xfffffffffffffffe;
  uVar4 = (**(code **)(param_1[-0xe] + 0x58))(param_1 + -0xe);
  uVar12 = uVar4;
  FUN_14016db50(uVar4);
  if (param_2 == 1) {
    dVar10 = (double)param_1[0x91];
    FUN_14016dbe0(uVar4);
  }
  else {
    plVar5 = (longlong *)FUN_1401d2620(param_1 + -0xe,&local_res18,param_2,param_4,uVar11,uVar12,1);
    lVar7 = 0;
    if ((longlong *)*plVar5 != (longlong *)0x0) {
      lVar7 = *(longlong *)*plVar5;
    }
    if ((local_res18 != (longlong *)0x0) &&
       (local_res18[1] = local_res18[1] + -1, local_res18[1] == 0)) {
      puVar1 = (undefined8 *)*local_res18;
      if (puVar1 != (undefined8 *)0x0) {
        (**(code **)*puVar1)(puVar1,1);
      }
      FUN_14016d970(local_res18);
    }
    if (lVar7 == 0) {
      FUN_1401d8f20(param_1 + -0xe,&local_res8,param_2);
      if ((local_res8 != (longlong *)0x0) && (lVar7 = *local_res8, lVar7 != 0)) {
        dVar10 = 0.0;
        dVar3 = dVar10;
        if (*(longlong *)(lVar7 + 0x28) == 0) {
          puVar8 = (undefined4 *)0x0;
        }
        else {
          puVar8 = *(undefined4 **)(lVar7 + 0x18);
        }
        while( true ) {
          if (local_res8 == (longlong *)0x0) {
            lVar6 = 0;
          }
          else {
            lVar6 = *local_res8;
          }
          if (puVar8 == (undefined4 *)0x0) break;
          dVar9 = (double)(**(code **)(*param_1 + 0x128))(param_1,*puVar8);
          if (0.0 <= dVar9) {
            dVar3 = dVar3 + 1.0;
            dVar10 = dVar10 + dVar9;
          }
          puVar8 = *(undefined4 **)(puVar8 + 4);
        }
        if (lVar7 + 8 != lVar6 + 8) {
                    /* WARNING: Subroutine does not return */
          FUN_14004dc60(0x80004005);
        }
        if (0.0 < dVar3) {
          if ((local_res8 != (longlong *)0x0) &&
             (local_res8[1] = local_res8[1] + -1, local_res8[1] == 0)) {
            pvVar2 = (void *)*local_res8;
            if (pvVar2 != (void *)0x0) {
              FUN_1401c9600((longlong)pvVar2 + 8);
              operator_delete(pvVar2);
            }
            FUN_14016d970(local_res8);
          }
          FUN_14016dbe0(uVar12);
          return dVar10 / dVar3;
        }
      }
      if ((local_res8 != (longlong *)0x0) &&
         (local_res8[1] = local_res8[1] + -1, local_res8[1] == 0)) {
        pvVar2 = (void *)*local_res8;
        if (pvVar2 != (void *)0x0) {
          FUN_1401c9600((longlong)pvVar2 + 8);
          operator_delete(pvVar2);
        }
        FUN_14016d970(local_res8);
      }
      FUN_14016dbe0(uVar12);
      dVar10 = -1.0;
    }
    else {
      *(undefined1 *)(lVar7 + 0x21) = 1;
      dVar10 = *(double *)(lVar7 + 0x50);
      FUN_14016dbe0(uVar12);
    }
  }
  return dVar10;
}