/*
 * Descent 3
 * Copyright (C) 2024 Parallax Software
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

// AmbientSoundPattern.cpp : implementation file
//

#include "stdafx.h"
#include "editor.h"
#include "AmbientSoundPattern.h"
#include "AmbientSoundElement.h"
#include "EditLineDialog.h"
#include "ambient.h"
#include "ssl_lib.h"
#include "pserror.h"
#include "gamefilepage.h"
#include "ddio.h"
#include "mem.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CAmbientSoundPattern dialog

CAmbientSoundPattern::CAmbientSoundPattern(CWnd *pParent /*=NULL*/) : CDialog(CAmbientSoundPattern::IDD, pParent) {
  //{{AFX_DATA_INIT(CAmbientSoundPattern)
  // NOTE: the ClassWizard will add member initialization here
  //}}AFX_DATA_INIT
}

void CAmbientSoundPattern::DoDataExchange(CDataExchange *pDX) {
  CDialog::DoDataExchange(pDX);
  //{{AFX_DATA_MAP(CAmbientSoundPattern)
  // NOTE: the ClassWizard will add DDX and DDV calls here
  //}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAmbientSoundPattern, CDialog)
//{{AFX_MSG_MAP(CAmbientSoundPattern)
ON_CBN_SELENDOK(IDC_ASP_LIST, OnSelendokASPList)
ON_BN_CLICKED(IDC_ASP_CHECK_IN, OnASPCheckIn)
ON_BN_CLICKED(IDC_ASP_DELETE, OnASPDelete)
ON_BN_CLICKED(IDC_ASP_EDIT_ELEMENT, OnASPEditElement)
ON_BN_CLICKED(IDC_ASP_LOCK, OnASPLock)
ON_BN_CLICKED(IDC_ASP_NEW, OnASPNew)
ON_BN_CLICKED(IDC_ASP_NEW_ELEMENT, OnASPNewElement)
ON_BN_CLICKED(IDC_ASP_RENAME, OnASPRename)
ON_LBN_SELCHANGE(IDC_ASP_ELEMENT_LIST, OnSelchangeASPElementList)
ON_BN_CLICKED(IDC_ASP_DELETE_ELEMENT, OnASPDeleteElement)
ON_BN_CLICKED(IDC_ASP_UNDO_LOCK, OnASPUndoLock)
ON_EN_KILLFOCUS(IDC_ASP_MAX_DELAY, OnKillfocusASPMaxDelay)
ON_EN_KILLFOCUS(IDC_ASP_MIN_DELAY, OnKillfocusASPMinDelay)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CAmbientSoundPattern message handlers

BOOL CAmbientSoundPattern::OnInitDialog() {
  CDialog::OnInitDialog();

  m_current_asp = m_current_element = -1;

  m_locked = (mng_FindTrackLock(AMBIENT_FILE_NAME, PAGETYPE_GAMEFILE) != -1);

  UpdateDialog();

  return TRUE; // return TRUE unless you set the focus to a control
               // EXCEPTION: OCX Property Pages should return FALSE
}

void CAmbientSoundPattern::UpdateDialog() {
  int i;

  // Build the ambient sound list
  CComboBox *asplist = (CComboBox *)GetDlgItem(IDC_ASP_LIST);
  asplist->ResetContent();
  for (i = 0; i < Num_ambient_sound_patterns; i++)
    if (Ambient_sound_patterns[i].name[0]) {
      asplist->AddString(Ambient_sound_patterns[i].name);
      if (m_current_asp == -1)
        m_current_asp = i;
    }
  if (m_current_asp != -1)
    asplist->SelectString(-1, Ambient_sound_patterns[m_current_asp].name);

  // Write out elements for current ASP
  CListBox *aselist = (CListBox *)GetDlgItem(IDC_ASP_ELEMENT_LIST);
  char tbuf[100];
  asp *asp = &Ambient_sound_patterns[m_current_asp];
  aselist->ResetContent();
  for (i = 0; i < asp->num_sounds; i++) {
    ase *ase = &asp->sounds[i];
    sprintf(tbuf, "%s:   vol=%.2f,%.2f   prob=%d", Sounds[ase->handle].name, ase->min_volume, ase->max_volume,
            ase->probability);
    aselist->AddString(tbuf);
  }

  // Write out the delay values
  CEdit *ebox = (CEdit *)GetDlgItem(IDC_ASP_MIN_DELAY);
  char buf[20];
  sprintf(buf, "%.1f", asp->min_delay);
  ebox->SetWindowText(buf);

  ebox = (CEdit *)GetDlgItem(IDC_ASP_MAX_DELAY);
  sprintf(buf, "%.1f", asp->max_delay);
  ebox->SetWindowText(buf);

  // Select current element
  if (aselist->GetCount() > 0)
    aselist->SetCurSel(m_current_element);

  // Enable/disable editing buttons
  ((CButton *)GetDlgItem(IDC_ASP_DELETE))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_EDIT_ELEMENT))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_NEW))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_NEW_ELEMENT))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_RENAME))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_DELETE_ELEMENT))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_MIN_DELAY))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_MAX_DELAY))->EnableWindow(m_locked);

  // Enable/disable locking buttons
  ((CButton *)GetDlgItem(IDC_ASP_CHECK_IN))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_UNDO_LOCK))->EnableWindow(m_locked);
  ((CButton *)GetDlgItem(IDC_ASP_LOCK))->EnableWindow(!m_locked);
}

void CAmbientSoundPattern::OnSelendokASPList() {
  char name[200];

  CComboBox *asplist = (CComboBox *)GetDlgItem(IDC_ASP_LIST);

  asplist->GetLBText(asplist->GetCurSel(), name);
  m_current_asp = FindAmbientSoundPattern(name);

  if (Ambient_sound_patterns[m_current_asp].num_sounds)
    m_current_element = 0;
  else
    m_current_element = -1;

  UpdateDialog();
}

void CAmbientSoundPattern::OnASPRename() {
  if (!InputString(Ambient_sound_patterns[m_current_asp].name, sizeof(Ambient_sound_patterns[m_current_asp].name),
                   "Ambient Sound Pattern", "Enter a new name"))
    return;

  UpdateDialog();
}

void CAmbientSoundPattern::OnSelchangeASPElementList() {
  CListBox *lb = (CListBox *)GetDlgItem(IDC_ASP_ELEMENT_LIST);

  m_current_element = lb->GetCurSel();
}

void CAmbientSoundPattern::OnASPDelete() {
  if (OutrageMessageBox(MBOX_YESNO, "Do you really want to delete the ambient sound pattern '%s'?",
                        AmbientSoundPatternName(m_current_asp)) == IDYES) {
    asp *asp = &Ambient_sound_patterns[m_current_asp];

    asp->name[0] = 0; // null string for name
    mem_free(asp->sounds);
    asp->num_sounds = 0;
    m_current_asp = -1;

    UpdateDialog();
  }
}

void CAmbientSoundPattern::OnASPNew() {
  asp *asp = &Ambient_sound_patterns[Num_ambient_sound_patterns];

  if (InputString(asp->name, sizeof(asp->name), "Ambient Sound Pattern", "Enter a name for your new pattern"))
    if (asp->name[0]) {
      asp->num_sounds = 0;
      asp->min_delay = asp->max_delay = 0.0;
      m_current_asp = Num_ambient_sound_patterns++;
      UpdateDialog();
    }
}

void CAmbientSoundPattern::OnASPNewElement() {
  asp *asp = &Ambient_sound_patterns[m_current_asp];
  ase new_element;

  new_element.handle = -1;
  new_element.min_volume = new_element.max_volume = 1.0;
  new_element.probability = 50;

  CAmbientSoundElement dlg(&new_element);

  theApp.pause();
  dlg.DoModal();
  theApp.resume();

  if (new_element.handle != -1) {

    ase *new_sounds = (ase *)mem_malloc(sizeof(*new_sounds) * (asp->num_sounds + 1));

    for (int s = 0; s < asp->num_sounds; s++)
      new_sounds[s] = asp->sounds[s];

    mem_free(asp->sounds);

    asp->sounds = new_sounds;
    asp->sounds[s] = new_element;

    asp->num_sounds++;

    m_current_element = s;

    UpdateDialog();
  }
}

void CAmbientSoundPattern::OnASPEditElement() {
  if (m_current_element > -1) {
    CAmbientSoundElement dlg(&Ambient_sound_patterns[m_current_asp].sounds[m_current_element]);

    theApp.pause();
    dlg.DoModal();
    theApp.resume();

    UpdateDialog();
  }
}

void CAmbientSoundPattern::OnASPDeleteElement() {
  asp *asp = &Ambient_sound_patterns[m_current_asp];
  ase *new_sounds;

  if (m_current_element > -1) {
    if (OutrageMessageBox(MBOX_YESNO, "Do you really want to delete sound '%s' from pattern '%s'?",
                          Sounds[asp->sounds[m_current_element].handle].name, asp->name) == IDYES) {
      new_sounds = (ase *)mem_malloc(sizeof(*new_sounds) * (asp->num_sounds - 1));

      for (int s = 0; s < m_current_element; s++)
        new_sounds[s] = asp->sounds[s];

      for (; s < asp->num_sounds - 1; s++)
        new_sounds[s] = asp->sounds[s + 1];

      mem_free(asp->sounds);

      asp->sounds = new_sounds;

      asp->num_sounds--;

      UpdateDialog();
    }
  }
}

void CAmbientSoundPattern::OnKillfocusASPMinDelay() {
  asp *asp = &Ambient_sound_patterns[m_current_asp];

  CEdit *ebox;
  char buf[20];

  ebox = (CEdit *)GetDlgItem(IDC_ASP_MIN_DELAY);
  ebox->GetWindowText(buf, sizeof(buf));

  asp->min_delay = atof(buf);

  UpdateDialog();
}

void CAmbientSoundPattern::OnKillfocusASPMaxDelay() {
  asp *asp = &Ambient_sound_patterns[m_current_asp];

  CEdit *ebox;
  char buf[20];

  ebox = (CEdit *)GetDlgItem(IDC_ASP_MAX_DELAY);
  ebox->GetWindowText(buf, sizeof(buf));

  asp->max_delay = atof(buf);

  UpdateDialog();
}

void CAmbientSoundPattern::OnCancel() {
  // Re-read old data
  ReadAmbientData();

  CDialog::OnCancel();
}

void CAmbientSoundPattern::OnOK() {
  // Verify probabilities
  for (int p = 0; p < Num_ambient_sound_patterns; p++) {
    asp *asp = &Ambient_sound_patterns[p];
    if (asp->num_sounds) {
      int prob = 0;

      for (int s = 0; s < asp->num_sounds; s++)
        prob += asp->sounds[s].probability;

      if (prob != 100) {
        OutrageMessageBox("Error:  the probabilities for pattern '%s' don't add up to 100.", asp->name);
        return;
      }
    }
  }

  // Update the data
  WriteAmbientData();

  CDialog::OnOK();
}

void CAmbientSoundPattern::OnASPLock() {
  int n;
  mngs_Pagelock temp_pl;
  mngs_gamefile_page gamefilepage;
  int r;

  // Find where it is in the list
  n = FindGamefileName(AMBIENT_FILE_NAME);

  if (n == -1) {
    Int3(); // Get Matt or Jason - AMBIENT file name is no longer in the table file!
    return;
  }

  if (!mng_MakeLocker())
    return;

  // Make sure it can be locked
  strcpy(temp_pl.name, AMBIENT_FILE_NAME);
  temp_pl.pagetype = PAGETYPE_GAMEFILE;

  r = mng_CheckIfPageLocked(&temp_pl);
  if (r == 2) {
    int answer;
    answer = OutrageMessageBox(MBOX_YESNO, "This page is not even in the table file, or the database maybe corrupt.  "
                                           "Override to 'Unlocked'? (Select NO if you don't know what you're doing)");
    if (answer == IDYES) {
      strcpy(temp_pl.holder, "UNLOCKED");
      if (!mng_ReplacePagelock(temp_pl.name, &temp_pl))
        MessageBox(ErrorString, "Error!");
    }
  } else if (r < 0)
    OutrageMessageBox(ErrorString);
  else if (r == 1)
    OutrageMessageBox(InfoString);
  else {

    // Everything is ok.  Tell the network we're locking it and get a copy to
    // our local drive
    strcpy(temp_pl.holder, TableUser);

    // Search thru the net pagefile and get a new copy in RAM in case anyone
    // changed it since we started the editor
    if (mng_FindSpecificGamefilePage(temp_pl.name, &gamefilepage, 0)) {

      if (mng_AssignGamefilePageToGamefile(&gamefilepage, n)) {
        if (!mng_ReplacePage(Gamefiles[n].name, Gamefiles[n].name, n, PAGETYPE_GAMEFILE, 1)) {
          OutrageMessageBox("There was problem writing that page locally!");
          mng_EraseLocker();
          return;
        } else {

          if (!mng_ReplacePagelock(temp_pl.name, &temp_pl)) {
            MessageBox(ErrorString, "Error!");
            mng_EraseLocker();
            return;
          }
        }
        OutrageMessageBox("Gamefile locked.");
      } else
        OutrageMessageBox(
            "There was a problem loading this gamefile.  You might encounter problems in dealing with it.  Good luck!");

      mng_AllocTrackLock(Gamefiles[n].name, PAGETYPE_GAMEFILE);
      UpdateDialog();
    } else
      OutrageMessageBox("Couldn't find that gamefile in the table file!");
  }

  mng_EraseLocker();

  // Read the data again in case we just got a newer file
  ReadAmbientData();

  m_locked = 1;

  UpdateDialog();
}

void CAmbientSoundPattern::OnASPCheckIn() {
  // Write the updated data to the file
  WriteAmbientData();

  // Find where it is in the files index
  int n = FindGamefileName(AMBIENT_FILE_NAME);

  if (n == -1) {
    Int3(); // Get Matt or Jason - AMBIENT file name is no longer in the table file!
    return;
  }

  mngs_Pagelock temp_pl;
  int r;

  // Lock the network table file
  if (!mng_MakeLocker())
    return;

  // Make sure we own this gamefile
  strcpy(temp_pl.name, Gamefiles[n].name);
  temp_pl.pagetype = PAGETYPE_GAMEFILE;

  r = mng_CheckIfPageOwned(&temp_pl, TableUser);
  if (r < 0)
    OutrageMessageBox(ErrorString);
  else if (r == 0)
    OutrageMessageBox(InfoString);
  else {
    // Change the pagelock state to UNLOCKED
    strcpy(temp_pl.holder, "UNLOCKED");
    if (!mng_ReplacePagelock(temp_pl.name, &temp_pl)) {
      MessageBox(ErrorString, "Error!");
      mng_EraseLocker();
      return;
    } else {
      // Now actually replace the copy on the net with our local one

      if (!mng_ReplacePage(Gamefiles[n].name, Gamefiles[n].name, n, PAGETYPE_GAMEFILE, 0))
        OutrageMessageBox(ErrorString);
      else {
        // Save this gamefile file to the network for all

        char destname[100], srcname[100];

        ddio_MakePath(srcname, LocalD3Dir, "data", Gamefiles[n].dir_name, Gamefiles[n].name, NULL);
        ddio_MakePath(destname, NetD3Dir, "data", Gamefiles[n].dir_name, Gamefiles[n].name, NULL);

        cf_CopyFile(destname, srcname);

        OutrageMessageBox("File checked in.");

        // Delete it from local pagefile if its there
        int dret = mng_DeletePage(Gamefiles[n].name, PAGETYPE_GAMEFILE, 1);
        ASSERT(dret == 1);
        mng_EraseLocker();

        // Free the tracklock
        int p = mng_FindTrackLock(Gamefiles[n].name, PAGETYPE_GAMEFILE);
        ASSERT(p != -1);
        mng_FreeTrackLock(p);
      }
    }
  }

  m_locked = 0;
  UpdateDialog();
}

void CAmbientSoundPattern::OnASPUndoLock() {
  int tl;
  mngs_Pagelock pl;
  mngs_gamefile_page page;

  // Should have this item locked
  if ((tl = mng_FindTrackLock(AMBIENT_FILE_NAME, PAGETYPE_GAMEFILE)) == -1)
    return;

  if (OutrageMessageBox(MBOX_YESNO,
                        "Are you sure you want to undo your lock and lose any changes you may have made?") != IDYES)
    return;

  if (!mng_MakeLocker())
    return;

  // Find where it is in the files index
  int n = FindGamefileName(AMBIENT_FILE_NAME);

  if (n == -1) {
    Int3(); // Get Matt or Jason - AMBIENT file name is no longer in the table file!
    return;
  }

  strcpy(pl.name, AMBIENT_FILE_NAME);
  pl.pagetype = PAGETYPE_GAMEFILE;

  mng_FreeTrackLock(tl);

  // Delete local page
  if (!mng_DeletePage(AMBIENT_FILE_NAME, PAGETYPE_GAMEFILE, 1)) {
    mprintf(0, ErrorString);
    Int3();
  }

  // Get old data from net
  if (!mng_FindSpecificGamefilePage(pl.name, &page))
    Int3();

  // Copy old get into our local array
  if (!mng_AssignGamefilePageToGamefile(&page, n))
    Int3();

  // We're done
  mng_EraseLocker();

  // Re-read old data
  ReadAmbientData();

  m_current_asp = -1;
  m_locked = 0;

  UpdateDialog();
}