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

/*
 * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
 * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
 */

/* CELER	The unit for updating the screen pics. */

#include "avalanche/avalanche.h"

#include "avalanche/celer2.h"
#include "avalanche/trip6.h"
#include "avalanche/lucerna2.h"
#include "avalanche/gyro2.h"
#include "avalanche/roomnums.h"

#include "common/textconsole.h"



namespace Avalanche {

const int16 Celer::kOnDisk = -1;



Celer::Celer(AvalancheEngine *vm) {
	_vm = vm;
	_spriteNum = 0;
}

Celer::~Celer() {
	forgetBackgroundSprites();
}


/**
 * @remarks	Originally called 'pics_link'
 */
void Celer::updateBackgroundSprites() {
	if (_vm->_gyro->ddmnow)
		return; // No animation when the menus are up.

	switch (_vm->_gyro->dna.room) {
	case r__outsideargentpub:
		if ((_vm->_gyro->roomtime % 12) == 0)
			drawBackgroundSprite(-1, -1, 1 + (_vm->_gyro->roomtime / 12) % 4);
		break;
	case r__brummieroad:
		if ((_vm->_gyro->roomtime % 2) == 0)
			drawBackgroundSprite(-1, -1, 1 + (_vm->_gyro->roomtime / 2) % 4);
		break;
	case r__bridge:
		if ((_vm->_gyro->roomtime % 2) == 0)
			drawBackgroundSprite(-1, -1, 4 + (_vm->_gyro->roomtime / 2) % 4);
		break;
	case r__yours:
		if ((!_vm->_gyro->dna.avvy_is_awake) && ((_vm->_gyro->roomtime % 4) == 0))
			drawBackgroundSprite(-1, -1, 1 + (_vm->_gyro->roomtime / 12) % 2);
		break;
	case r__argentpub: {
			if (((_vm->_gyro->roomtime % 7) == 1) && (_vm->_gyro->dna.malagauche != 177)) {
				// Malagauche cycle.
				_vm->_gyro->dna.malagauche += 1;
				switch (_vm->_gyro->dna.malagauche) {
				case 1:
				case 11:
				case 21:
					drawBackgroundSprite(-1, -1, 12); // Looks forwards.
					break; 
				case 8:
				case 18:
				case 28:
				case 32:
					drawBackgroundSprite(-1, -1, 11); // Looks at you.
					break; 
				case 30:
					drawBackgroundSprite(-1, -1, 13); // Winks.
					break; 
				case 33:
					_vm->_gyro->dna.malagauche = 0;
					break;
				}
			}

			switch (_vm->_gyro->roomtime % 200) {
			case 179:
			case 197:
				drawBackgroundSprite(-1, -1, 5); // Dogfood's drinking cycle.
				break; 
			case 182:
			case 194:
				drawBackgroundSprite(-1, -1, 6);
				break;
			case 185:
				drawBackgroundSprite(-1, -1, 7);
				break;
			case 199:
				_vm->_gyro->dna.dogfoodpos = 177; // Impossible value for this.
				break; 
			}

			if ((_vm->_gyro->roomtime % 200 >= 0) && (_vm->_gyro->roomtime % 200 <= 178)) { // Normally.
				byte direction = 0;
				if (((_vm->_lucerna->bearing(2) >= 1) && (_vm->_lucerna->bearing(2) <= 90)) || ((_vm->_lucerna->bearing(2) >= 358) && (_vm->_lucerna->bearing(2) <= 360)))
					direction = 3;
				else if ((_vm->_lucerna->bearing(2) >= 293) && (_vm->_lucerna->bearing(2) <= 357))
					direction = 2;
				else if ((_vm->_lucerna->bearing(2) >= 271) && (_vm->_lucerna->bearing(2) <= 292))
					direction = 4;

				if (direction != _vm->_gyro->dna.dogfoodpos) { // Only if it's changed.
					drawBackgroundSprite(-1, -1, direction);
					_vm->_gyro->dna.dogfoodpos = direction;
				}
			}
		}
		break;
	case r__westhall:
		if ((_vm->_gyro->roomtime % 3) == 0) {
			switch ((_vm->_gyro->roomtime / int32(3)) % int32(6)) {
			case 4:
				drawBackgroundSprite(-1, -1, 1);
				break;
			case 1:
			case 3:
			case 5:
				drawBackgroundSprite(-1, -1, 2);
				break;
			case 0:
			case 2:
				drawBackgroundSprite(-1, -1, 3);
				break;
			}
		}
		break;
	case r__lustiesroom:
		if (!(_vm->_gyro->dna.lustie_is_asleep)) {
			byte direction = 0;
			if ((_vm->_gyro->roomtime % 45) > 42)
				direction = 4; // du Lustie blinks.
			// Bearing of Avvy from du Lustie.
			else if (((_vm->_lucerna->bearing(2) >= 0) && (_vm->_lucerna->bearing(2) <= 45)) || ((_vm->_lucerna->bearing(2) >= 315) && (_vm->_lucerna->bearing(2) <= 360)))
					direction = 1; // Middle.
			else if ((_vm->_lucerna->bearing(2) >= 45) && (_vm->_lucerna->bearing(2) <= 180))
					direction = 2; // Left.
			else if ((_vm->_lucerna->bearing(2) >= 181) && (_vm->_lucerna->bearing(2) <= 314))
				direction = 3; // Right.

			if (direction != _vm->_gyro->dna.dogfoodpos) { // Only if it's changed.
				drawBackgroundSprite(-1, -1, direction);
				_vm->_gyro->dna.dogfoodpos = direction; // We use DogfoodPos here too - why not?
			}
		}
		break;
	case r__aylesoffice:
		if ((!_vm->_gyro->dna.ayles_is_awake) && (_vm->_gyro->roomtime % 14 == 0)) {
			switch ((_vm->_gyro->roomtime / 14) % 2) {
			case 0:
				drawBackgroundSprite(-1, -1, 1);  // Frame 2: EGA.
				break;
			case 1:
				drawBackgroundSprite(-1, -1, 3); // Frame 1: Natural.
				break; 
			}
		}
		break;
	case r__robins:
		if (_vm->_gyro->dna.tied_up) {
			switch (_vm->_gyro->roomtime % 54) {
			case 20:
				drawBackgroundSprite(-1, -1, 4); // Frame 4: Avalot blinks.
				break; 
			case 23:
				drawBackgroundSprite(-1, -1, 2); // Frame 1: Back to normal.
				break; 
			}
		}
		break;
	case r__nottspub: {
		// Bearing of Avvy from Port.
		byte direction = 0;
		if (((_vm->_lucerna->bearing(5) >= 0) && (_vm->_lucerna->bearing(5) <= 45)) || ((_vm->_lucerna->bearing(5) >= 315) && (_vm->_lucerna->bearing(5) <= 360)))
			direction = 2; // Middle.
		else if ((_vm->_lucerna->bearing(5) >= 45) && (_vm->_lucerna->bearing(5) <= 180))
			direction = 6; // Left.
		else if ((_vm->_lucerna->bearing(5) >= 181) && (_vm->_lucerna->bearing(5) <= 314))
			direction = 8; // Right.

		if ((_vm->_gyro->roomtime % 60) > 57)
			direction--; // Blinks.

		if (direction != _vm->_gyro->dna.dogfoodpos) { // Only if it's changed.
			drawBackgroundSprite(-1, -1, direction);
			_vm->_gyro->dna.dogfoodpos = direction; // We use DogfoodPos here too - why not?
		}

		switch (_vm->_gyro->roomtime % 50) {
		case 45 :
			drawBackgroundSprite(-1, -1, 9); // Spurge blinks.
			break; 
		case 49 :
			drawBackgroundSprite(-1, -1, 10);
			break;
		}
		break;
	  }
	case r__ducks: {
		if ((_vm->_gyro->roomtime % 3) == 0) // The fire flickers.
			drawBackgroundSprite(-1, -1, 1 + (_vm->_gyro->roomtime / 3) % 3);

		// Bearing of Avvy from Duck.
		byte direction = 0;
		if (((_vm->_lucerna->bearing(2) >= 0) && (_vm->_lucerna->bearing(2) <= 45)) || ((_vm->_lucerna->bearing(2) >= 315) && (_vm->_lucerna->bearing(2) <= 360)))
			direction = 4; // Middle.
		else if ((_vm->_lucerna->bearing(2) >= 45) && (_vm->_lucerna->bearing(2) <= 180))
			direction = 6; // Left.
		else if ((_vm->_lucerna->bearing(2) >= 181) && (_vm->_lucerna->bearing(2) <= 314))
			direction = 8; // Right.

		if ((_vm->_gyro->roomtime % 45) > 42)
			direction++; // Duck blinks.

		if (direction != _vm->_gyro->dna.dogfoodpos) { // Only if it's changed.
			drawBackgroundSprite(-1, -1, direction);
			_vm->_gyro->dna.dogfoodpos = direction; // We use DogfoodPos here too - why not?
		}
		break;
	   }
	}

	if ((_vm->_gyro->dna.ringing_bells) && (_vm->_gyro->flagset('B'))) {
		// They're ringing the bells.
		switch (_vm->_gyro->roomtime % 4) {
		case 1:
			if (_vm->_gyro->dna.nextbell < 5)
				_vm->_gyro->dna.nextbell = 12;
			_vm->_gyro->dna.nextbell--;
			_vm->_gyro->note(_vm->_gyro->notes[_vm->_gyro->dna.nextbell]);
			break;
		case 2:
			//nosound();
			updateBackgroundSprites();
			break;
		}
	}
}

void Celer::loadBackgroundSprites(byte number) {
	Common::File f;
	_filename = _filename.format("chunk%d.avd", number);
	if (!f.open(_filename)) {
		warning("AVALANCHE: Celer: File not found: %s", _filename.c_str());
		return;
	}

	f.seek(44);
	_spriteNum = f.readByte();
	for (byte i = 0; i < _spriteNum; i++)
		_offsets[i] = f.readSint32LE();

	for (byte i = 0; i < _spriteNum; i++) {
		f.seek(_offsets[i]);
		
		SpriteType sprite;
		sprite._type = PictureType(f.readByte());
		sprite._x = f.readSint16LE();
		sprite._y = f.readSint16LE();
		sprite._xl = f.readSint16LE();
		sprite._yl = f.readSint16LE();
		sprite._size = f.readSint32LE();
		bool natural = f.readByte();
		bool memorize = f.readByte();
				
		if (memorize) {
			_sprites[i]._x = sprite._x;
			_sprites[i]._xl = sprite._xl;
			_sprites[i]._y = sprite._y;
			_sprites[i]._yl = sprite._yl;
			_sprites[i]._type = sprite._type;

			if (natural) {
				_sprites[i]._type = kNaturalImage; // We simply read from the screen and later, in drawSprite() we draw it right back.
				_sprites[i]._size = _sprites[i]._xl * 8 * _sprites[i]._yl + 1; 
				_sprites[i]._picture.create(_sprites[i]._xl * 8, _sprites[i]._yl + 1, ::Graphics::PixelFormat::createFormatCLUT8());

				for (uint16 y = 0; y < _sprites[i]._yl + 1; y++)
					for (uint16 x = 0; x < _sprites[i]._xl * 8; x++)
						*(byte *)_sprites[i]._picture.getBasePtr(x, y) = *_vm->_graphics->getPixel(_sprites[i]._x * 8 + x, _sprites[i]._y + y);
			} else {
				_sprites[i]._size = sprite._size;
				_sprites[i]._picture = _vm->_graphics->loadPictureRow(f, _sprites[i]._xl * 8, _sprites[i]._yl + 1);
			}
		} else
			_sprites[i]._x = kOnDisk;
	}
	f.close();
}

void Celer::forgetBackgroundSprites() {
	for (byte i = 0; i < _spriteNum; i++)
		if (_sprites[i]._x > kOnDisk)
			_sprites[i]._picture.free();
}

void Celer::drawBackgroundSprite(int16 destX, int16 destY, byte which) {
	which--; // For the difference between the Pascal and C array indexes.
	//setactivepage(3);
	warning("STUB: Celer::show_one()");

	if (_sprites[which]._x > kOnDisk) {
		if (destX < 0) {
			destX = _sprites[which]._x * 8;
			destY = _sprites[which]._y;
		}
		drawSprite(destX, destY, _sprites[which]);
	} else {
		Common::File f;
		if (!f.open(_filename)) { // Filename was set in loadBackgroundSprites().
			warning("AVALANCHE: Celer: File not found: %s", _filename.c_str());
			return;
		}

		f.seek(_offsets[which]);

		SpriteType sprite;
		sprite._type = PictureType(f.readByte());
		sprite._x = f.readSint16LE();
		sprite._y = f.readSint16LE();
		sprite._xl = f.readSint16LE();
		sprite._yl = f.readSint16LE();
		sprite._size = f.readSint32LE();
		f.skip(2); // For the now not existing natural and memorize data members of the SpriteType (called chunkblocktype in the original).
		sprite._picture = _vm->_graphics->loadPictureRow(f, sprite._xl * 8, sprite._yl + 1);

		if (destX < 0) {
			destX = sprite._x * 8;
			destY = sprite._y;
		}
		drawSprite(destX, destY, sprite);

		f.close();
	}

	//setactivepage(1 - cp);
	warning("STUB: Celer::show_one()");

	for (byte i = 0; i < 2; i++)
		_vm->_trip->getset[i].remember(_r);
}



void Celer::drawSprite(int16 x, int16 y, const SpriteType &sprite) {
	_r.x1 = x;
	_r.y1 = y;
	_r.y2 = y + sprite._yl;

	switch (sprite._type) {
	case kNaturalImage: // Allow fallthorugh on purpose.
	case kBgi:
		_r.x2 = x + sprite._xl + 1;
		break;
	case kEga:
		_r.x2 = x + sprite._xl;
		break;
	}

	// These pictures are practically parts of the background. -10 is for the drop-down menu.
	_vm->_graphics->drawPicture(_vm->_graphics->_background, sprite._picture, x, y - 10);
}

} // End of namespace Avalanche.