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

/* VISA		The new Sez handler. (Replaces Access.) */

#include "avalanche/avalanche.h"

#include "avalanche/visa2.h"
#include "avalanche/gyro2.h"
#include "avalanche/scrolls2.h"
#include "avalanche/acci2.h"
#include "avalanche/lucerna2.h"
#include "avalanche/animation.h"

#include "common/textconsole.h"

namespace Avalanche {

Visa::Visa(AvalancheEngine *vm) {
	_vm = vm;
	_noError = true;
}

void Visa::unSkrimble() {
	for (uint16  i = 0; i < _vm->_gyro->_bufSize; i++)
		_vm->_gyro->_buffer[i] = (~(_vm->_gyro->_buffer[i] - (i + 1))) % 256;
}

void Visa::doTheBubble() {
	_vm->_gyro->_bufSize++;
	_vm->_gyro->_buffer[_vm->_gyro->_bufSize - 1] = 2;
}

/**
 * Display a string in a scroll
 * @remarks	Originally called 'dixi'
 */
void Visa::displayScrollChain(char block, byte point, bool report, bool bubbling) {
	Common::File indexfile;
	if (!indexfile.open("avalot.idx"))
		error("AVALANCHE: Visa: File not found: avalot.idx");

	bool error = false;

	indexfile.seek((toupper(block) - 65) * 2);
	uint16 idx_offset = indexfile.readUint16LE();
	if (idx_offset == 0)
		error = true;

	indexfile.seek(idx_offset + point * 2);
	uint16 sez_offset = indexfile.readUint16LE();
	if (sez_offset == 0)
		error = true;

	indexfile.close();

	_noError = !error;

	if (error) {
		if (report) {
			Common::String todisplay = Common::String::format("%cError accessing scroll %c%d", Scrolls::kControlBell, block, point);
			_vm->_scrolls->displayText(todisplay);
		}
		return;
	}

	Common::File sezfile;
	if (!sezfile.open("avalot.sez"))
		::error("AVALANCHE: Visa: File not found: avalot.sez");

	sezfile.seek(sez_offset);
	_vm->_gyro->_bufSize = sezfile.readUint16LE();
	sezfile.read(_vm->_gyro->_buffer, _vm->_gyro->_bufSize);
	sezfile.close();
	unSkrimble();

	if (bubbling)
		doTheBubble();

	_vm->_scrolls->callScrollDriver();
}

/**
 * Start speech
 * @remarks	Originally called 'speech'
 */
void Visa::speak(byte who, byte subject) {
	if (subject == 0) { // No subject.
		displayScrollChain('s', who, false, true);
		return;
	}

	// Subject given.
	_noError = false; // Assume that until we know otherwise.

	Common::File indexfile;
	if (!indexfile.open("converse.avd"))
		error("AVALANCHE: Visa: File not found: converse.avd");

	indexfile.seek(who * 2 - 2);
	uint16 idx_offset = indexfile.readUint16LE();
	uint16 next_idx_offset = indexfile.readUint16LE();

	if ((idx_offset == 0) || ((((next_idx_offset - idx_offset) / 2) - 1) < subject))
		return;

	indexfile.seek(idx_offset + subject * 2);
	uint16 sez_offset = indexfile.readUint16LE();
	if ((sez_offset == 0) || (indexfile.err()))
		return;
	indexfile.close();

	Common::File sezfile;
	if (!sezfile.open("avalot.sez"))
		error("AVALANCHE: Visa: File not found: avalot.sez");

	sezfile.seek(sez_offset);
	_vm->_gyro->_bufSize = sezfile.readUint16LE();
	sezfile.read(_vm->_gyro->_buffer, _vm->_gyro->_bufSize);
	sezfile.close();

	unSkrimble();
	doTheBubble();

	_vm->_scrolls->callScrollDriver();
	_noError = true;
}

void Visa::talkTo(byte whom) {
	if (_vm->_acci->_person == _vm->_acci->kPardon) {
		_vm->_acci->_person = _vm->_gyro->_subjectNum;
		_vm->_gyro->_subjectNum = 0;
	}

	if (_vm->_gyro->_subjectNum == 0) {
		switch (whom) {
		case Gyro::kPeopleSpludwick:
			if ((_vm->_gyro->_lustieIsAsleep) & (!_vm->_gyro->_objects[Gyro::kObjectPotion - 1])) {
				displayScrollChain('q', 68);
				_vm->_gyro->_objects[Gyro::kObjectPotion - 1] = true;
				_vm->_lucerna->refreshObjectList();
				_vm->_lucerna->incScore(3);
				return;
			} else if (_vm->_gyro->_talkedToCrapulus) {
				// Spludwick - what does he need?
				// 0 - let it through to use normal routine.
				switch (_vm->_gyro->_givenToSpludwick) {
				case 1: // Fallthrough is intended.
				case 2: {
					Common::String objStr = _vm->_gyro->getItem(Gyro::kSpludwicksOrder[_vm->_gyro->_givenToSpludwick]);
					Common::String tmpStr = Common::String::format("Can you get me %s, please?%c2%c", objStr.c_str(), Scrolls::kControlRegister, Scrolls::kControlSpeechBubble);
					_vm->_scrolls->displayText(tmpStr);
					}
					return;
				case 3:
					displayScrollChain('q', 30); // Need any help with the game?
					return;
				}
			} else {
				displayScrollChain('q', 42); // Haven't talked to Crapulus. Go and talk to him.
				return;
			}
			break;
		case Gyro::kPeopleIbythneth:
			if (_vm->_gyro->_givenBadgeToIby) {
				displayScrollChain('q', 33); // Thanks a lot!
				return; // And leave the proc.
			}
			break; // Or... just continue, 'cos he hasn't got it.
		case Gyro::kPeopleDogfood:
			if (_vm->_gyro->_wonNim) { // We've won the game.
				displayScrollChain('q', 6); // "I'm Not Playing!"
				return; // Zap back.
			} else
				_vm->_gyro->_askedDogfoodAboutNim = true;
			break;
		case Gyro::kPeopleAyles:
			if (!_vm->_gyro->_aylesIsAwake) {
				displayScrollChain('q', 43); // He's fast asleep!
				return;
			} else if (!_vm->_gyro->_givenPenToAyles) {
				displayScrollChain('q', 44); // Can you get me a pen, Avvy?
				return;
			}
			break;

		case Gyro::kPeopleJacques:
			displayScrollChain('q', 43);
			return;

		case Gyro::kPeopleGeida:
			if (_vm->_gyro->_givenPotionToGeida)
				_vm->_gyro->_geidaFollows = true;
			else {
				displayScrollChain('u', 17);
				return;
			}
			break;
		case Gyro::kPeopleSpurge:
			if (!_vm->_gyro->_sittingInPub) {
				displayScrollChain('q', 71); // Try going over and sitting down.
				return;
			} else {
				if (_vm->_gyro->_spurgeTalkCount < 5)
					_vm->_gyro->_spurgeTalkCount++;
				if (_vm->_gyro->_spurgeTalkCount > 1) { // no. 1 falls through
					displayScrollChain('q', 70 + _vm->_gyro->_spurgeTalkCount);
					return;
				}
			}
			break;
		}
	// On a subject. Is there any reason to block it?
	} else if ((whom == Gyro::kPeopleAyles) && (!_vm->_gyro->_aylesIsAwake)) {
		displayScrollChain('q', 43); // He's fast asleep!
		return;
	}

	if (whom > 149)
		whom -= 149;

	bool noMatches = true;
	for (byte i = 0; i <= _vm->_animation->kSpriteNumbMax; i++) {
		if (_vm->_animation->_sprites[i]._stat._acciNum == whom) {
			Common::String tmpStr = Common::String::format("%c%c%c", Scrolls::kControlRegister, i + 49, Scrolls::kControlToBuffer);
			_vm->_scrolls->displayText(tmpStr);
			noMatches = false;
			break;
		}
	}

	if (noMatches) {
		Common::String tmpStr = Common::String::format("%c%c%c", Scrolls::kControlRegister, Scrolls::kControlRegister, Scrolls::kControlToBuffer);
		_vm->_scrolls->displayText(tmpStr);
	}

	speak(whom, _vm->_gyro->_subjectNum);

	if (!_noError)
		displayScrollChain('n', whom); // File not found!

	if ((_vm->_gyro->_subjectNum == 0) && ((whom + 149) == Gyro::kPeopleCrapulus)) { // Crapulus: get the badge - first time only
		_vm->_gyro->_objects[Gyro::kObjectBadge - 1] = true;
		_vm->_lucerna->refreshObjectList();
		displayScrollChain('q', 1); // Circular from Cardiff.
		_vm->_gyro->_talkedToCrapulus = true;
		_vm->_gyro->_whereIs[Gyro::kPeopleCrapulus - 150] = 177; // Crapulus walks off.

		AnimationType *spr = &_vm->_animation->_sprites[1];
		spr->_vanishIfStill = true;
		spr->walkTo(3); // Walks away.

		_vm->_lucerna->incScore(2);
	}
}

} // End of namespace Avalanche.