/* 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 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/>.
 *
 */

/*
 * This file is based on WME Lite.
 * http://dead-code.org/redir.php?target=wmelite
 * Copyright (c) 2011 Jan Nedoma
 */

#include "engines/metaengine.h"
#include "engines/wintermute/wintermute.h"
#include "engines/wintermute/base/base_game.h"
#include "engines/wintermute/base/base_engine.h"
#include "engines/wintermute/base/scriptables/script_stack.h"
#include "engines/wintermute/base/scriptables/script_value.h"
#include "engines/wintermute/ext/wme_3fstatistics.h"

namespace Wintermute {

IMPLEMENT_PERSISTENT(SX3fStatistics, false)

BaseScriptable *makeSX3fStatistics(BaseGame *inGame, ScStack *stack) {
	return new SX3fStatistics(inGame,  stack);
}

//////////////////////////////////////////////////////////////////////////
SX3fStatistics::SX3fStatistics(BaseGame *inGame, ScStack *stack) : BaseScriptable(inGame) {
	stack->correctParams(4);

	ScValue * tmp;
	_baseUrl = stack->pop()->getString();
	tmp = stack->pop();
	_chapter = tmp->isNULL() ? "" : tmp->getString();
	tmp = stack->pop();
	_language = tmp->isNULL() ? "" : tmp->getString();
	tmp = stack->pop();
	_buildNum = tmp->isNULL() ? "" : tmp->getString();

	_repeat = 0;

	_game->LOG(0, "new Statistics(\"%s\", \"%s\", \"%s\", \"%s\")", _baseUrl.c_str(), _chapter.c_str(), _language.c_str(), _buildNum.c_str());
}

//////////////////////////////////////////////////////////////////////////
SX3fStatistics::~SX3fStatistics() {
}

//////////////////////////////////////////////////////////////////////////
const char *SX3fStatistics::scToString() {
	return "[statistics object]";
}


//////////////////////////////////////////////////////////////////////////
bool SX3fStatistics::scCallMethod(ScScript *script, ScStack *stack, ScStack *thisStack, const char *name) {
	//////////////////////////////////////////////////////////////////////////
	// Send()
	// Known stats to send are "Start a new game" and "--Juego Finalizado--"
	// Known action: send HTTP POST request to _baseUrl
	//
	// Headers:
	//   Accept: */*
	//   User-Agent: Mozilla/4.0
	//   Content-Length: <len>
	//   Accept-Language: en-us
	//   Host: www.soluciones3f.com.ar
	//
	// Body:
	// {
	//   "capitulo": "<_chapter value, e.g. '1'>",
	//   "dispositivo": "<OS family, e.g. 'windows'>",
	//   "hash": "<MD5 of MAC address, e.g. '58cb64ba781ca09f9e9cf8bd51ff0b05' for 44:8a:5b:00:00:00>",
	//   "idioma": "<_language value, e.g. 'ru'>",
	//   "idioma_os": "<OS language code, e.g. 'Russian_Russia.1251'>",
	//   "memoria": "<RAM size in bytes, e.g. '8504971264'>",
	//   "message": "<message value, e.g. 'Start a new game'>",
	//   "procesador": "<CPU model name, see /proc/cpuinfo for examples>",
	//   "resolucion": "<screen resolution, e.g. '1920x1080'>",
	//   "sistema": "<OS version, e.g. 'Microsoft  (build 9200), 64-bit'",
	//   "version": "<_buildNum value, e.g. '1.3.2369'>",
	//   "windowed": "<screen mode windowed flag, e.g. 'yes'>"
	// }
	//////////////////////////////////////////////////////////////////////////
	if (strcmp(name, "Send") == 0) {
		stack->correctParams(1);
		const char *message = stack->pop()->getString();
		_game->LOG(0, "Send(\"%s\")", message);

		// do nothing

		stack->pushNULL();
		return STATUS_OK;
	}

	//////////////////////////////////////////////////////////////////////////
	// SetRepeat()
	// Known _repeat values are 0 and 60
	// Known action: set timer to send HTTP POST request every _repeat seconds
	// HTTP POST request is the same as with Send(), message is "Tick"
	//////////////////////////////////////////////////////////////////////////
	else if (strcmp(name, "SetRepeat") == 0) {
		stack->correctParams(1);
		_repeat = stack->pop()->getInt();

		// do nothing

		stack->pushNULL();
		return STATUS_OK;
	}

	else {
		return STATUS_FAILED;
	}
}


//////////////////////////////////////////////////////////////////////////
ScValue *SX3fStatistics::scGetProperty(const char *name) {
	_scValue->setNULL();

	//////////////////////////////////////////////////////////////////////////
	// Type (RO)
	//////////////////////////////////////////////////////////////////////////
	if (strcmp(name, "Type") == 0) {
		_scValue->setString("statistics");
		return _scValue;
	}

	else {
		return _scValue;
	}
}


//////////////////////////////////////////////////////////////////////////
bool SX3fStatistics::scSetProperty(const char *name, ScValue *value) {
	return STATUS_FAILED;
}


//////////////////////////////////////////////////////////////////////////
bool SX3fStatistics::persist(BasePersistenceManager *persistMgr) {
	BaseScriptable::persist(persistMgr);

	persistMgr->transferString(TMEMBER(_baseUrl));
	persistMgr->transferString(TMEMBER(_chapter));
	persistMgr->transferString(TMEMBER(_language));
	persistMgr->transferString(TMEMBER(_buildNum));
	persistMgr->transferSint32(TMEMBER(_repeat));

	return STATUS_OK;
}

} // End of namespace Wintermute