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

#include "bagel/spacebar/baglib/bagel.h"
#include "bagel/spacebar/baglib/master_win.h"
#include "bagel/spacebar/baglib/time_object.h"
#include "bagel/boflib/log.h"

namespace Bagel {
namespace SpaceBar {

CBagTimeObject::CBagTimeObject() : CBagObject() {
	_xObjType = SPRITE_OBJ;
	_xDig1 = nullptr;
	_xDig2 = nullptr;
	_xColon = nullptr;
	_xDig3 = nullptr;
	_xDig4 = nullptr;
	_nCels = 1;

	CBagObject::setOverCursor(1);
	setTimeless(true);
}

CBagTimeObject::~CBagTimeObject() {
	CBagTimeObject::detach();
}

ErrorCode CBagTimeObject::attach() {
	CBofPoint p = CBagObject::getPosition();

	_xDig1 = new CBofSprite();

	if (_xDig1->loadSprite(getFileName(), getCels()) != 0 && (_xDig1->width() != 0) && (_xDig1->height() != 0)) {
		_xDig1->setAnimated(false);
		_xDig1->setPosition(p.x, p.y);

		p.offset(_xDig1->width(), 0);

	} else {
		reportError(ERR_FOPEN, "Could Not Open Dig1 Sprite: %s", _xDig1->getFileName());
	}

	_xDig2 = new CBofSprite();

	if (_xDig2->loadSprite(getFileName(), getCels()) != 0 && (_xDig2->width() != 0) && (_xDig2->height() != 0)) {
		_xDig2->setAnimated(false);
		_xDig2->setPosition(p.x, p.y);
		p.offset(_xDig2->width(), 0);
	} else {
		reportError(ERR_FOPEN, "Could Not Open Dig2 Sprite: %s", _xDig2->getFileName());
	}

	_xColon = new CBofSprite();

	if (_xColon->loadSprite(getFileName(), getCels()) != 0 && (_xColon->width() != 0) && (_xColon->height() != 0)) {
		_xColon->setAnimated(false);
		// The time sprite should start with 0 and go to 9 followed by the :
		_xColon->setCel(_nCels - 1);
		_xColon->setPosition(p.x, p.y);

		p.offset(_xColon->width(), 0);
	} else {
		reportError(ERR_FOPEN, "Could Not Open Colon Sprite: %s", _xColon->getFileName());
	}

	_xDig3 = new CBofSprite();

	if (_xDig3->loadSprite(getFileName(), getCels()) != 0 && (_xDig3->width() != 0) && (_xDig3->height() != 0)) {
		_xDig3->setAnimated(false);
		_xDig3->setPosition(p.x, p.y);
		p.offset(_xDig3->width(), 0);
	} else {
		reportError(ERR_FOPEN, "Could Not Open Dig3 Sprite: %s", _xDig3->getFileName());
	}

	_xDig4 = new CBofSprite();

	if (_xDig4->loadSprite(getFileName(), getCels()) != 0 && (_xDig4->width() != 0) && (_xDig4->height() != 0)) {
		_xDig4->setAnimated(false);
		_xDig4->setPosition(p.x, p.y);
		p.offset(_xDig4->width(), 0);
	} else {
		reportError(ERR_FOPEN, "Could Not Open Dig4 Sprite: %s", _xDig4->getFileName());
	}

	return CBagObject::attach();
}

ErrorCode CBagTimeObject::detach() {
	delete _xDig1;
	_xDig1 = nullptr;

	delete _xDig2;
	_xDig2 = nullptr;

	delete _xColon;
	_xColon = nullptr;

	delete _xDig3;
	_xDig3 = nullptr;

	delete _xDig4;
	_xDig4 = nullptr;

	return CBagObject::detach();
}

void CBagTimeObject::setCels(int nCels) {
	_nCels = nCels;

	if (_xDig1)
		_xDig1->setupCels(nCels);
	if (_xDig2)
		_xDig2->setupCels(nCels);
	if (_xColon)
		_xColon->setupCels(nCels);
	if (_xDig3)
		_xDig3->setupCels(nCels);
	if (_xDig4)
		_xDig4->setupCels(nCels);
}

void CBagTimeObject::setPosition(const CBofPoint &pos) {
	CBagObject::setPosition(pos);
}

CBofRect CBagTimeObject::getRect() {
	CBofPoint p = getPosition();
	CBofSize s;

	if (_xDig1) {
		s = _xDig1->getSize();

		// Increase the width to accommodate all 5 sprites
		s.cx = s.cx * 5;
	}
	return CBofRect(p, s);
}

ParseCodes CBagTimeObject::setInfo(CBagIfstream &istr) {
	bool nObjectUpdated = false;

	while (!istr.eof()) {
		istr.eatWhite();

		char ch = (char)istr.peek();
		switch (ch) {
		//
		//  +n  - n number of slides in sprite
		//
		case '+': {
			int cels;
			istr.getCh();
			getIntFromStream(istr, cels);
			setCels(cels);
			nObjectUpdated = true;
			break;
		}

		case 'V': {
			char szLocalBuff[256];
			szLocalBuff[0] = '\0';
			CBofString sStr(szLocalBuff, 256);

			getAlphaNumFromStream(istr, sStr);

			if (!sStr.find("VALUE")) {
				istr.eatWhite();
				char szLocalBuff1[256];
				szLocalBuff[0] = '\0';
				CBofString s(szLocalBuff1, 256);
				getAlphaNumFromStream(istr, s);

				setVariable(s);

				nObjectUpdated = true;
			} else {
				putbackStringOnStream(istr, sStr);
			}
			break;
		}

		// No match return from function
		default: {
			ParseCodes parseCode = CBagObject::setInfo(istr);
			if (parseCode == PARSING_DONE) {
				return PARSING_DONE;
			}

			if (parseCode == UPDATED_OBJECT) {
				nObjectUpdated = true;
			} else {
				// rc==UNKNOWN_TOKEN
				if (nObjectUpdated)
					return UPDATED_OBJECT;

				return UNKNOWN_TOKEN;
			}
			break;
		}
		}
	}

	return PARSING_DONE;
}

ErrorCode CBagTimeObject::update(CBofBitmap *pBmp, CBofPoint pt, CBofRect * /*pSrcRect*/, int) {
	char szLocalBuff[256];
	szLocalBuff[0] = '\0';
	CBofString sTimeString(szLocalBuff, 256);
	ErrorCode errorCode = ERR_NONE;

	CBagVar *xVar = g_VarManager->getVariable(_sVariable);

	// If everything looks good
	if (isAttached() && xVar && !(xVar->getValue().isEmpty())) {
		int nTimeVal = xVar->getNumValue();
		sTimeString = buildString("%04d", nTimeVal);
		char sDigString[2] = "0";

		// Digit 1
		if (_xDig1) {
			sDigString[0] = sTimeString[0];
			_xDig1->setCel(atoi(sDigString));
			_xDig1->paintSprite(pBmp, pt.x, pt.y);
			pt.offset(_xDig1->width(), 0);
		}
		// Digit 2
		if (_xDig2) {
			sDigString[0] = sTimeString[1];
			_xDig2->setCel(atoi(sDigString));
			_xDig2->paintSprite(pBmp, pt.x, pt.y);
			pt.offset(_xDig2->width(), 0);
		}
		if (_xColon) {
			_xColon->paintSprite(pBmp, pt.x, pt.y);
			pt.offset(_xColon->width(), 0);
		}
		// Digit 3
		if (_xDig3) {
			sDigString[0] = sTimeString[2];
			_xDig3->setCel(atoi(sDigString));
			_xDig3->paintSprite(pBmp, pt.x, pt.y);
			pt.offset(_xDig3->width(), 0);
		}
		// Digit 4
		if (_xDig4) {
			sDigString[0] = sTimeString[3];
			_xDig4->setCel(atoi(sDigString));
			_xDig4->paintSprite(pBmp, pt.x, pt.y);
		}
	}

	return errorCode;
}

} // namespace SpaceBar
} // namespace Bagel