scummvm-cursorfix/engines/director/castmember/script.cpp

/* 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 "common/stream.h"
#include "director/director.h"
#include "director/cast.h"
#include "director/castmember/script.h"
#include "director/lingo/lingo-the.h"

namespace Director {

ScriptCastMember::ScriptCastMember(Cast *cast, uint16 castId, Common::SeekableReadStreamEndian &stream, uint16 version)
		: CastMember(cast, castId, stream) {
	_type = kCastLingoScript;
	_scriptType = kNoneScript;

	if (debugChannelSet(5, kDebugLoading)) {
		debugC(5, kDebugLoading, "ScriptCastMember::ScriptCastMember(): Contents");
		stream.hexdump(stream.size());
	}

	if (version < kFileVer400) {
		error("Unhandled Script cast");
	} else if (version >= kFileVer400 && version < kFileVer1100) {
		uint16 type = stream.readUint16BE();

		switch (type) {
		case 0:
			_scriptType = kNoneScript;
			break;
		case 1:
			_scriptType = kScoreScript;
			break;
		case 3:
			_scriptType = kMovieScript;
			break;
		case 7:
			_scriptType = kParentScript;
			warning("Unhandled kParentScript %d", castId);
			break;
		default:
			error("ScriptCastMember: Unprocessed script type: %d", type);
		}

		debugC(3, kDebugLoading, "  CASt: Script type: %s (%d)", scriptType2str(_scriptType), type);

		assert(stream.pos() == stream.size()); // There should be no more data
	} else {
		warning("STUB: ScriptCastMember::ScriptCastMember(): Scripts not yet supported for version v%d (%d)", humanVersion(version), version);
	}
}

ScriptCastMember::ScriptCastMember(Cast *cast, uint16 castId, ScriptCastMember &source)
	: CastMember(cast, castId) {
	_type = kCastLingoScript;
	_scriptType = source._scriptType;
	warning("ScriptCastMember(): Duplicating source %d to target %d! This is unlikely to work properly, as the actual scripts aren't yet copied", source._castId, castId);
}

bool ScriptCastMember::hasField(int field) {
	switch (field) {
	case kTheScriptType:
		return true;
	default:
		break;
	}
	return CastMember::hasField(field);
}

Datum ScriptCastMember::getField(int field) {
	Datum d;

	switch (field) {
	case kTheScriptType:
		switch (_scriptType) {
		case kMovieScript:
			d = Common::String("movie");
			d.type = SYMBOL;
			break;
		case kScoreScript:
			d = Common::String("score");
			d.type = SYMBOL;
			break;
		case kParentScript:
			d = Common::String("parent");
			d.type = SYMBOL;
			break;
		default:
			break;
		}
		break;
	default:
		d = CastMember::getField(field);
		break;
	}

	return d;
}

void ScriptCastMember::setField(int field, const Datum &d) {
	switch (field) {
	case kTheScriptType:
		warning("ScriptCastMember::setField(): setting scriptType! This probably isn't going to work as it doesn't recategorize the script.");
		if (d.type == SYMBOL) {
			if (d.u.s->equalsIgnoreCase("movie")) {
				_scriptType = kMovieScript;
			} else if (d.u.s->equalsIgnoreCase("score")) {
				_scriptType = kScoreScript;
			} else if (d.u.s->equalsIgnoreCase("parent")) {
				_scriptType = kParentScript;
			}
		}
		return;
	default:
		break;
	}

	CastMember::setField(field, d);
}

Common::String ScriptCastMember::formatInfo() {
	return Common::String::format(
		"scriptType: %s", scriptType2str(_scriptType)
	);
}

uint32 ScriptCastMember::getCastDataSize() {
	if (_cast->_version >= kFileVer400 && _cast->_version < kFileVer500) {
		// 2 bytes for type and unk1 + 2 byte for castType and flags ma(see Cast::loadCastData() for Director 4 only
		return 2 + 2;
	} else if (_cast->_version >= kFileVer500 && _cast->_version < kFileVer600) {
		// type and unk1: 2 bytes
		return 2;
	} else {
		warning("ScriptCastMember::writeCastData(): invalid or unhandled Script version: %d", _cast->_version);
		return 0;
	}
}

void ScriptCastMember::writeCastData(Common::SeekableWriteStream *writeStream) {
	if (_cast->_version >= kFileVer400 && _cast->_version < kFileVer600) {
		writeStream->writeByte(0);		// unknown

		switch (_scriptType) {
		case kScoreScript:
			writeStream->writeByte(1);
			break;
		case kMovieScript:
			writeStream->writeByte(3);
			break;
		case kParentScript:
			writeStream->writeByte(7);
			break;
		default:
			break;
		}
	} else {
		warning("ScriptCastMember::writeCastData(): invalid or unhandled Script version: %d", _cast->_version);
	}
}

}