/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * 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 2
 * 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, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

#include "common/scummsys.h"
#include "common/algorithm.h"
#include "common/config-manager.h"
#include "common/file.h"
#include "tony/tony.h"
#include "tony/game.h"
#include "tony/mpal/mpal.h"

namespace Tony {

TonyEngine *_vm;

TonyEngine::TonyEngine(OSystem *syst, const TonyGameDescription *gameDesc) : Engine(syst), 
		_gameDescription(gameDesc), _randomSource("tony") {
	_vm = this;
}

TonyEngine::~TonyEngine() {
	// Close the voice database
	CloseVoiceDatabase();
}

/**
 * Run the game
 */
Common::Error TonyEngine::run() {
	Common::ErrorCode result = Init();
	if (result != Common::kNoError)
		return result;

	Play();
	Close();

	return Common::kNoError;
}

/**
 * Initialise the game
 */
Common::ErrorCode TonyEngine::Init() {
	m_hEndOfFrame = CreateEvent(NULL, false, false, NULL);

	m_bPaused = false;
	m_bDrawLocation = true;
	m_startTime = g_system->getMillis();

	// Initialise the function list
	Common::fill(FuncList, FuncList + 300, (LPCUSTOMFUNCTION)NULL);

	// Initializes MPAL system, passing the custom functions list
	Common::File f;
	if (!f.open("ROASTED.MPC"))
		return Common::kReadingFailed;
	f.close();

	if (!mpalInit("ROASTED.MPC", "ROASTED.MPR", FuncList))
		return Common::kUnknownError;

	// Initialise the update resources
	_resUpdate.Init("ROASTED.MPU");

	// Initialise the music
	InitMusic();

	// Initialise the voices database
	if (!OpenVoiceDatabase())
		return Common::kReadingFailed;

	// Initialise the boxes
	_theBoxes.Init();

	// Link to the custom graphics engine
	_theEngine.InitCustomDll();

	// Inizializza il gfxEngine
	_theEngine.Init();

	// Memoria per il thumbnail
	m_curThumbnail = new uint16[160 * 120];

	// Configurazione di default
	bCfgInvLocked = false;
	bCfgInvNoScroll = false;
	bCfgTimerizedText = true;
	bCfgInvUp = false;
	bCfgAnni30 = false;
	bCfgAntiAlias = false;
	bCfgTransparence = true;
	bCfgInterTips = true;
	bCfgSottotitoli = true;
	nCfgTonySpeed = 3;
	nCfgTextSpeed = 5;
	bCfgDubbing = true;
	bCfgMusic = true;
	bCfgSFX = true;
	nCfgDubbingVolume = 10;
	nCfgMusicVolume = 7;
	nCfgSFXVolume = 10;
	m_bQuitNow = false;

	return Common::kNoError;
}

/**
 * Display an error message
 */
void TonyEngine::GUIError(const Common::String &msg) {
	GUIErrorMessage(msg);
}

char nextMusic[MAX_PATH];
bool nextLoop;
int nextChannel;
int nextSync;
int curChannel;
int flipflop=0;
OSystem::MutexRef csMusic;


void TonyEngine::PlayMusic(int nChannel, const char *fn, int nFX, bool bLoop, int nSync) {
	warning("TonyEngine::PlayMusic");
}

void TonyEngine::PlaySFX(int nChannel, int nFX) {
	if (m_sfx[nChannel] == NULL)
		return;

	switch (nFX) {
	case 0:
		m_sfx[nChannel]->SetLoop(false);
		break;

	case 1:
		m_sfx[nChannel]->SetLoop(true);
		break;
	}

	m_sfx[nChannel]->Play();
}

void TonyEngine::StopMusic(int nChannel) {
	warning("TODO TonyEngine::StopMusic");
}

void TonyEngine::StopSFX(int nChannel) {
	warning("TODO TonyEngine::StopSFX");
}

void TonyEngine::PlayUtilSFX(int nChannel, int nFX) {
	warning("TODO TonyEngine::PlayUtilSFX");
}

void TonyEngine::StopUtilSFX(int nChannel) {
	warning("TODO TonyEngine::StopUtilSFX");
}

void TonyEngine::PreloadSFX(int nChannel, const char *fn) {
	if (m_sfx[nChannel] != NULL) {
		m_sfx[nChannel]->Stop();
		m_sfx[nChannel]->Release();
		m_sfx[nChannel] = NULL;
	}

	_theSound.CreateSfx(&m_sfx[nChannel]);

/*	
	// Mette il path giusto
	GetDataDirectory(DD_UTILSFX, path_buffer);
	_splitpath(path_buffer,drive,dir,NULL,NULL);
	_splitpath(fn,NULL,NULL,fname,ext);
	_makepath(path_buffer,drive,dir,fname,ext);

	m_sfx[nChannel]->LoadFile(path_buffer, FPCODEC_ADPCM);
*/
	m_sfx[nChannel]->LoadFile(fn, FPCODEC_ADPCM);
}

FPSFX *TonyEngine::CreateSFX(byte *buf) {
	FPSFX *sfx;
	
	_theSound.CreateSfx(&sfx);
	sfx->LoadFile(buf,FPCODEC_WAV);
	return sfx;
}

void TonyEngine::PreloadUtilSFX(int nChannel, const char *fn) {
	warning("TonyEngine::PreloadUtilSFX");
}

void TonyEngine::UnloadAllSFX(void) {
	warning("TonyEngine::UnloadAllSFX");
}

void TonyEngine::UnloadAllUtilSFX(void) {
	warning("TonyEngine::UnloadAllUtilSFX");
}

void TonyEngine::InitMusic() {
	int i;

	_theSound.Init(/*m_wnd*/);
	_theSound.SetMasterVolume(63);
	
	for (i = 0; i < 6; i++)
		_theSound.CreateStream(&m_stream[i]);

	for (i = 0; i < MAX_SFX_CHANNELS; i++) {
		m_sfx[i] = m_utilSfx[i] = NULL;
	}

	// Crea la critical section per la musica
	csMusic = g_system->createMutex();

	// Carica effetti sonori
//	PreloadUtilSFX(0,"AccendiOpzione.ADP");
//	PreloadUtilSFX(1,"ApriInterfaccia.ADP");
	
	PreloadUtilSFX(0, "U01.ADP"); // invertiti!!
	PreloadUtilSFX(1, "U02.ADP");
}

void TonyEngine::CloseMusic() {
	for (int i = 0; i < 6; i++) {
		m_stream[i]->Stop();
		m_stream[i]->UnloadFile();
		m_stream[i]->Release();
	}

	g_system->deleteMutex(csMusic);

	UnloadAllSFX();
	UnloadAllUtilSFX();
}

void TonyEngine::PauseSound(bool bPause) {
}

void TonyEngine::SetMusicVolume(int nChannel, int volume) {
}

int TonyEngine::GetMusicVolume(int nChannel) {
	return 255;
}


void TonyEngine::GetSaveStateFileName(int n, char *buf) {
	RMString name;

	if (n > 0)
		name.Format("%02d", n);	
	else
		name.Format("autosave");	

	name += ".sav";
}

void TonyEngine::AutoSave(void) {
	char buf[256];

	GrabThumbnail();
	MainWaitFrame();
	MainWaitFrame();
	MainFreeze();
	GetSaveStateFileName(0,buf);
	_theEngine.SaveState(buf, (byte *)m_curThumbnail, "Autosave", true);
	MainUnfreeze();
}


void TonyEngine::SaveState(int n, const char *name) {
	char buf[256];

	GetSaveStateFileName(n, buf);
	_theEngine.SaveState(buf,(byte *)m_curThumbnail, name);
}


void TonyEngine::LoadState(int n) {
	char buf[256];

	GetSaveStateFileName(n, buf);
	_theEngine.LoadState(buf);
}

bool TonyEngine::OpenVoiceDatabase() {
	char id[4];
	uint32 numfiles;

	// Add the voices folder to the search directory list
	const Common::FSNode gameDataDir(ConfMan.get("path"));
	SearchMan.addSubDirectoryMatching(gameDataDir, "voices");

	// Open the voices database
	if (!_vdbFP.open("voices.vdb"))
		return false;

	_vdbFP.seek(-8, SEEK_END);
	numfiles = _vdbFP.readUint32LE();
	_vdbFP.read(id, 4);

	if (id[0] != 'V' || id[1] != 'D' || id[2] != 'B' || id[3] != '1') {
		_vdbFP.close();
		return false;
	}

	// Read in the index
	_vdbFP.seek(-8 - (numfiles * VOICE_HEADER_SIZE), SEEK_END);

	for (uint32 i = 0; i < numfiles; ++i) {
		VoiceHeader vh;
		vh.offset = _vdbFP.readUint32LE();
		vh.code = _vdbFP.readUint32LE();
		vh.parts = _vdbFP.readUint32LE();

		_voices.push_back(vh);
	}

	return true;
}

void TonyEngine::CloseVoiceDatabase() {
	if (_vdbFP.isOpen())
		_vdbFP.close();

	if (_voices.size() > 0)
		_voices.clear();
}

void TonyEngine::GrabThumbnail(void) {
	//m_wnd.GrabThumbnail(m_curThumbnail);
	warning("TODO: TonyEngine::GrabThumbnail");
}

void TonyEngine::OptionScreen(void) {
}

void TonyEngine::OpenInitLoadMenu(void) {
	_theEngine.OpenOptionScreen(1);
}

void TonyEngine::OpenInitOptions(void) {
	_theEngine.OpenOptionScreen(2);
}

void TonyEngine::Abort(void) {
	m_bQuitNow = true;
}

void TonyEngine::Play(void) {
	warning("TODO TonyEngine::Play");
	
#if 0
	MSG msg;

	do {
		// Se siamo in pausa, entra nel loop appropriato
		if (m_bPaused)
			PauseLoop();

  		// Redraw del graphic engine
		theEngine.DoFrame(m_bDrawLocation);

		// Avverte che è finito un frame
		PulseEvent(m_hEndOfFrame);

		// Passa il buffer dall'engine alla finestra
		if (!m_bPaused) {
			if (!theEngine.m_bWiping)
				m_wnd.GetNewFrame(theEngine, NULL);
			else
				m_wnd.GetNewFrame(theEngine, &theEngine.m_rcWipeEllipse);
		}

		// Loop minchia dei messaggi
		if (PeekMessage(&msg, m_wnd, 0, 0, true)) {
			if (!TranslateAccelerator(m_wnd, m_hacc, &msg)) {
				TranslateMessage(&msg);
				DispatchMessage(&msg);
			}
		}
	} while (msg.message != WM_QUIT && !m_bQuitNow);
#endif
}



void TonyEngine::Close(void) {
	CloseMusic();
	CloseHandle(m_hEndOfFrame);
	_theBoxes.Close();
	RMText::Unload();
	_theEngine.Close();
	m_wnd.Close();
}

void TonyEngine::SwitchFullscreen(bool bFull) {
	m_wnd.SwitchFullscreen(bFull);
	_theEngine.SwitchFullscreen(bFull);
}

void TonyEngine::GDIControl(bool bCon) {
	_theEngine.GDIControl(bCon);
}


void TonyEngine::PauseLoop(void) {
	warning("TODO: TonyEngine::PauseLoop");

#if 0
	MSG msg;
	int st,et;

	st = GetTime();

	while (m_bPaused && GetMessage(&msg,m_wnd,0,0)) {
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	et = GetTime();

	m_startTime += et - st;
#endif
}

void TonyEngine::Pause(bool bPause) {
	// Se non e' cambiato lo stato di pausing, non fare nulla
	if (m_bPaused == bPause)
		return;

warning("TODO: TonyEninge::Pause");
/*
	m_bPaused = bPause;										
	theEngine.GDIControl(m_bPaused);

	if (m_bPaused) {
		SetWindowText(m_wnd, "Tony Tough and the night of Roasted Moths - PAUSED");
	} else {
		SetWindowText(m_wnd, "Tony Tough and the night of Roasted Moths");
	}
*/
}

void TonyEngine::FreezeTime(void) {
	m_bTimeFreezed = true;
	m_nTimeFreezed = GetTime() - m_startTime;
}

void TonyEngine::UnfreezeTime(void)
{
	m_bTimeFreezed = false;
}


/**
 * Returns the millisecond timer
 */
uint32 TonyEngine::GetTime() {
	return g_system->getMillis();
}

} // End of namespace Tony