scummvm/engines/kyra/kyra_v3.cpp
Johannes Schickel 1140fca82e - Kyrandia 1 works again
- Added timer class for timer handling
- Little bit more resturcturing
- A little bit (almost nothing but a start!) Kyrandia 2 support

svn-id: r28297
2007-07-29 16:33:11 +00:00

697 lines
16 KiB
C++

/* 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.
*
* $URL$
* $Id$
*
*/
#include "kyra/kyra.h"
#include "kyra/kyra_v3.h"
#include "kyra/screen.h"
#include "kyra/wsamovie.h"
#include "kyra/sound.h"
#include "kyra/text.h"
#include "kyra/vqa.h"
#include "common/system.h"
#include "common/config-manager.h"
// TODO: Temporary, to get the mouse cursor mock-up working
#include "graphics/cursorman.h"
namespace Kyra {
KyraEngine_v3::KyraEngine_v3(OSystem *system, const GameFlags &flags) : KyraEngine_v2(system, flags) {
_soundDigital = 0;
_musicSoundChannel = -1;
_menuAudioFile = "TITLE1.AUD";
_curMusicTrack = -1;
_unkPage1 = _unkPage2 = 0;
_interfaceCPS1 = _interfaceCPS2 = 0;
memset(_gameShapes, 0, sizeof(_gameShapes));
_shapePoolBuffer = 0;
_itemBuffer1 = _itemBuffer2 = 0;
_mouseSHPBuf = 0;
_tableBuffer1 = _tableBuffer2 = 0;
_unkBuffer5 = _unkBuffer6 = _unkBuffer7 = _unkBuffer9 = 0;
_costpalData = 0;
_unkWSAPtr = 0;
memset(_unkShapeTable, 0, sizeof(_unkShapeTable));
_scoreFile = 0;
_cCodeFile = 0;
_scenesList = 0;
}
KyraEngine_v3::~KyraEngine_v3() {
delete _soundDigital;
delete [] _unkPage1;
delete [] _unkPage2;
delete [] _interfaceCPS1;
delete [] _interfaceCPS2;
delete [] _itemBuffer1;
delete [] _itemBuffer2;
delete [] _shapePoolBuffer;
delete [] _mouseSHPBuf;
delete [] _unkBuffer5;
delete [] _unkBuffer6;
delete [] _unkBuffer7;
delete [] _unkBuffer9;
delete [] _costpalData;
delete [] _unkWSAPtr;
delete [] _scoreFile;
delete [] _cCodeFile;
delete [] _scenesList;
}
int KyraEngine_v3::init() {
KyraEngine::init();
gui_initMainMenu();
_soundDigital = new SoundDigital(this, _mixer);
assert(_soundDigital);
if (!_soundDigital->init())
error("_soundDigital->init() failed");
_screen->loadFont(Screen::FID_6_FNT, "6.FNT");
_screen->loadFont(Screen::FID_8_FNT, "8FAT.FNT");
_screen->loadFont(Screen::FID_BOOKFONT_FNT, "BOOKFONT.FNT");
_screen->setAnimBlockPtr(3500);
_screen->setScreenDim(0);
_shapePoolBuffer = new uint8[300000];
assert(_shapePoolBuffer);
memset(_shapePoolBuffer, 0, 300000);
initTableBuffer(_shapePoolBuffer, 300000);
_itemBuffer1 = new uint8[72];
_itemBuffer2 = new uint8[144];
assert(_itemBuffer1 && _itemBuffer2);
_mouseSHPBuf = _res->fileData("MOUSE.SHP", 0);
assert(_mouseSHPBuf);
for (int i = 0; i <= 6; ++i)
_gameShapes[i] = _screen->getPtrToShape(_mouseSHPBuf, i);
initItems();
_screen->setMouseCursor(0, 0, *_gameShapes);
return 0;
}
int KyraEngine_v3::go() {
uint8 *pal = _screen->getPalette(1);
assert(pal);
_mainMenuLogo = createWSAMovie();
assert(_mainMenuLogo);
_mainMenuLogo->open("REVENGE.WSA", 1, pal);
assert(_mainMenuLogo->opened());
bool running = true;
while (running && !_quitFlag) {
_screen->_curPage = 0;
_screen->clearPage(0);
pal[0] = pal[1] = pal[2] = 0;
_screen->setScreenPalette(pal);
// XXX
playMenuAudioFile();
_mainMenuLogo->setX(0); _mainMenuLogo->setY(0);
_mainMenuLogo->setDrawPage(0);
for (int i = 0; i < 64 && !_quitFlag; ++i) {
uint32 nextRun = _system->getMillis() + 3 * _tickLength;
_mainMenuLogo->displayFrame(i);
_screen->updateScreen();
delayUntil(nextRun);
}
for (int i = 64; i > 29 && !_quitFlag; --i) {
uint32 nextRun = _system->getMillis() + 3 * _tickLength;
_mainMenuLogo->displayFrame(i);
_screen->updateScreen();
delayUntil(nextRun);
}
switch (gui_handleMainMenu()) {
case 0:
delete _mainMenuLogo;
_mainMenuLogo = 0;
preinit();
realInit();
// XXX
running = false;
break;
case 1:
playVQA("K3INTRO");
break;
case 2:
//delete _mainMenuLogo;
//_mainMenuLogo = 0;
//show load dialog
//running = false;
break;
case 3:
_soundDigital->beginFadeOut(_musicSoundChannel);
_screen->fadeToBlack();
_soundDigital->stopSound(_musicSoundChannel);
_musicSoundChannel = -1;
running = false;
break;
default:
break;
}
}
delete _mainMenuLogo;
return 0;
}
void KyraEngine_v3::playVQA(const char *name) {
debugC(9, kDebugLevelMain, "KyraEngine::playVQA('%s')", name);
VQAMovie vqa(this, _system);
char filename[20];
int size = 0; // TODO: Movie size is 0, 1 or 2.
snprintf(filename, sizeof(filename), "%s%d.VQA", name, size);
if (vqa.open(filename)) {
uint8 pal[768];
memcpy(pal, _screen->getPalette(0), sizeof(pal));
if (_screen->_curPage == 0)
_screen->copyRegion(0, 0, 0, 0, 320, 200, 0, 3);
_screen->hideMouse();
_soundDigital->beginFadeOut(_musicSoundChannel);
_musicSoundChannel = -1;
_screen->fadeToBlack();
vqa.setDrawPage(0);
vqa.play();
vqa.close();
_screen->showMouse();
if (_screen->_curPage == 0)
_screen->copyRegion(0, 0, 0, 0, 320, 200, 3, 0);
_screen->setScreenPalette(pal);
}
}
#pragma mark -
void KyraEngine_v3::playMenuAudioFile() {
debugC(9, kDebugLevelMain, "KyraEngine::playMenuAudioFile()");
if (_soundDigital->isPlaying(_musicSoundChannel))
return;
Common::File *handle = new Common::File();
uint32 temp = 0;
_res->getFileHandle(_menuAudioFile, &temp, *handle);
if (handle->isOpen())
_musicSoundChannel = _soundDigital->playSound(handle, true);
else
delete handle;
}
void KyraEngine_v3::playMusicTrack(int track, int force) {
debugC(9, kDebugLevelMain, "KyraEngine::playMusicTrack(%d, %d)", track, force);
// XXX byte_2C87C compare
if (_musicSoundChannel != -1 && !_soundDigital->isPlaying(_musicSoundChannel))
force = 1;
else if (_musicSoundChannel == -1)
force = 1;
if (track == _curMusicTrack && !force)
return;
stopMusicTrack();
if (_musicSoundChannel == -1) {
assert(track < _soundListSize && track >= 0);
Common::File *handle = new Common::File();
uint32 temp = 0;
_res->getFileHandle(_soundList[track], &temp, *handle);
if (handle->isOpen())
_musicSoundChannel = _soundDigital->playSound(handle);
else
delete handle;
}
_musicSoundChannel = track;
}
void KyraEngine_v3::stopMusicTrack() {
if (_musicSoundChannel != -1 && _soundDigital->isPlaying(_musicSoundChannel)) {
_soundDigital->stopSound(_musicSoundChannel);
}
_curMusicTrack = -1;
_musicSoundChannel = -1;
}
int KyraEngine_v3::musicUpdate(int forceRestart) {
debugC(9, kDebugLevelMain, "KyraEngine::unkUpdate(%d)", forceRestart);
static uint32 mTimer = 0;
static uint16 lock = 0;
if (ABS<int>(_system->getMillis() - mTimer) > (int)(0x0F * _tickLength)) {
mTimer = _system->getMillis();
}
if (_system->getMillis() < mTimer && !forceRestart) {
return 1;
}
if (!lock) {
lock = 1;
if (_musicSoundChannel >= 0) {
// XXX sub_1C262 (sound specific. it seems to close some sound resource files in special cases)
if (!_soundDigital->isPlaying(_musicSoundChannel)) {
if (_curMusicTrack != -1)
playMusicTrack(_curMusicTrack, 1);
}
}
lock = 0;
mTimer = _system->getMillis() + 0x0F * _tickLength;
}
return 1;
}
#pragma mark -
void KyraEngine_v3::gui_initMainMenu() {
KyraEngine_v2::gui_initMainMenu();
_mainMenuFrame = 29;
_mainMenuFrameAdd = 1;
}
void KyraEngine_v3::gui_updateMainMenuAnimation() {
uint32 nextRun = 0;
uint32 now = _system->getMillis();
if (now < nextRun)
return;
// yes 2 * _tickLength here not 3 * like in the first draw
nextRun = now + 2 * _tickLength;
_mainMenuLogo->displayFrame(_mainMenuFrame);
_screen->updateScreen();
_mainMenuFrame += _mainMenuFrameAdd;
if (_mainMenuFrame < 29) {
_mainMenuFrame = 29;
_mainMenuFrameAdd = 1;
} else if (_mainMenuFrame > 63) {
_mainMenuFrame = 64;
_mainMenuFrameAdd = -1;
}
// XXX
}
#pragma mark -
void KyraEngine_v3::preinit() {
debugC(9, kDebugLevelMain, "KyraEngine::preinit()");
musicUpdate(0);
// XXX snd_allocateSoundBuffer?
memset(_flagsTable, 0, sizeof(_flagsTable));
// XXX
setGameFlag(0x216);
_unkPage1 = new uint8[64000];
assert(_unkPage1);
musicUpdate(0);
musicUpdate(0);
_interfaceCPS1 = new uint8[17920];
_interfaceCPS2 = new uint8[3840];
assert(_interfaceCPS1 && _interfaceCPS2);
_screen->setFont(Screen::FID_6_FNT);
}
void KyraEngine_v3::realInit() {
debugC(9, kDebugLevelMain, "KyraEngine::realInit()");
// XXX sound specific stuff
_unkBuffer5 = new uint8[500];
_unkBuffer6 = new uint8[200];
_unkBuffer7 = new uint8[600];
_costpalData = new uint8[864];
_unkBuffer9 = new uint8[3618];
_unkWSAPtr = new uint8[624];
musicUpdate(0);
_unkPage2 = new uint8[64000];
musicUpdate(0);
musicUpdate(0);
if (!loadLanguageFile("ITEMS.", _itemList))
error("couldn't load ITEMS");
if (!loadLanguageFile("C_CODE.", _cCodeFile))
error("couldn't load C_CODE");
if (!loadLanguageFile("SCENES.", _scenesList))
error("couldn't load SCENES");
assert(_unkBuffer5 && _unkBuffer6 && _unkBuffer7 && _costpalData && _unkBuffer9 &&
_unkWSAPtr && _unkPage2 && _itemList && _cCodeFile && _scenesList);
musicUpdate(0);
}
#pragma mark -
int KyraEngine_v3::initTableBuffer(uint8 *buf, int size) {
debugC(9, kDebugLevelMain, "KyraEngine::initTableBuffer(%p, %d)", (void *)buf, size);
if (!buf || size < 6320)
return 0;
if (_tableBuffer2 != _tableBuffer1 && _tableBuffer2 && _tableBuffer1) {
// no idea if this *should* be called
memmove(_tableBuffer2, _tableBuffer1, 6320);
}
_tableBuffer1 = buf;
size -= 6320;
*((uint16*)(_tableBuffer1)) = 0;
*((uint16*)(_tableBuffer1 + 2)) = 1;
*((uint16*)(_tableBuffer1 + 4)) = 1;
*((uint32*)(_tableBuffer1 + 6)) = size >> 4;
*((uint16*)(_tableBuffer1 + 10)) = 1;
*((uint32*)(_tableBuffer1 + 16)) = 6320;
*((uint32*)(_tableBuffer1 + 22)) = size >> 4;
_tableBuffer2 = buf;
return 1;
}
void KyraEngine_v3::updateTableBuffer(uint8 *buf) {
debugC(9, kDebugLevelMain, "KyraEngine::updateTableBuffer(%p)", (void *)buf);
if (_tableBuffer2 == buf)
return;
if (_tableBuffer1 != _tableBuffer2)
memmove(_tableBuffer2, _tableBuffer1, 6320);
_tableBuffer2 = _tableBuffer1 = buf;
}
int KyraEngine_v3::addShapeToTable(const uint8 *buf, int id, int shapeNum) {
debugC(9, kDebugLevelMain, "KyraEngine::addShapeToTable(%p, %d, %d)", (const void *)buf, id, shapeNum);
if (!buf)
return 0;
const uint8 *shapePtr = _screen->getPtrToShape(buf, shapeNum);
if (!shapePtr)
return 0;
int shapeSize = _screen->getShapeSize(shapePtr);
if (getTableSize(_shapePoolBuffer) < shapeSize) {
// XXX
error("[1] unimplemented table handling");
}
uint8 *ptr = allocTableSpace(_shapePoolBuffer, shapeSize, id);
if (!ptr) {
// XXX
error("[2] unimplemented table handling");
}
if (!ptr) {
warning("adding shape %d to _shapePoolBuffer not possible, not enough space left\n", id);
return shapeSize;
}
memcpy(ptr, shapePtr, shapeSize);
return shapeSize;
}
int KyraEngine_v3::getTableSize(uint8 *buf) {
debugC(9, kDebugLevelMain, "KyraEngine::getTableSize(%p)", (void *)buf);
updateTableBuffer(buf);
if (*((uint16*)(_tableBuffer1 + 4)) >= 450)
return 0;
return (*((uint32*)(_tableBuffer1 + 6)) << 4);
}
uint8 *KyraEngine_v3::allocTableSpace(uint8 *buf, int size, int id) {
debugC(9, kDebugLevelMain, "KyraEngine::allocTableSpace(%p, %d, %d)", (void *)buf, size, id);
if (!buf || !size)
return 0;
updateTableBuffer(buf);
int entries = *(uint16*)(_tableBuffer1 + 4);
if (entries >= 450)
return 0;
size += 0xF;
size &= 0xFFFFFFF0;
uint size2 = size >> 4;
if (*(uint32*)(_tableBuffer1 + 6) < size2)
return 0;
int unk1 = *(uint16*)(_tableBuffer1);
int usedEntry = unk1;
int ok = 0;
for (; usedEntry < entries; ++usedEntry) {
if (size2 <= *(uint32*)(_tableBuffer1 + usedEntry * 14 + 22)) {
ok = 1;
break;
}
}
if (!ok)
return 0;
ok = 0;
int unk3 = unk1 - 1;
while (ok <= unk3) {
int temp = (ok + unk3) >> 1;
if (*(uint32*)(_tableBuffer1 + temp * 14 + 12) >= (uint)id) {
if (*(uint32*)(_tableBuffer1 + temp * 14 + 12) <= (uint)id) {
return 0;
} else {
unk3 = temp - 1;
continue;
}
}
ok = temp + 1;
}
uint8 *buf2 = _tableBuffer1 + usedEntry * 14;
uint unkValue1 = *(uint32*)(buf2 + 16);
uint unkValue2 = *(uint32*)(buf2 + 22);
if (size2 < unkValue2) {
*(uint32*)(buf2 + 22) = unkValue2 - size2;
*(uint32*)(buf2 + 16) = unkValue1 + size;
memcpy(_tableBuffer1 + entries * 14 + 12, _tableBuffer1 + unk1 * 14 + 12, 14);
} else {
if (usedEntry > unk1)
memcpy(buf2 + 12, _tableBuffer1 + unk1 * 14 + 12, 14);
int temp = *(uint16*)(_tableBuffer1 + 2) - 1;
*(uint16*)(_tableBuffer1 + 2) = temp;
temp = *(uint16*)(_tableBuffer1 + 4) - 1;
*(uint16*)(_tableBuffer1 + 4) = temp;
}
for (int i = unk1; i > ok; --i)
memcpy(_tableBuffer1 + i * 14 + 12, _tableBuffer1 + (i-1) * 14 + 12, 14);
buf2 = _tableBuffer1 + ok * 14;
*(uint32*)(buf2 + 12) = id;
*(uint32*)(buf2 + 16) = unkValue1;
*(uint32*)(buf2 + 20) = (_system->getMillis() / 60) >> 4;
*(uint32*)(buf2 + 22) = size2;
int temp = *(uint16*)(_tableBuffer1) + 1;
*(uint16*)(_tableBuffer1) = temp;
temp = *(uint16*)(_tableBuffer1 + 4) + 1;
*(uint16*)(_tableBuffer1 + 4) = temp;
if (temp > *(uint16*)(_tableBuffer1 + 10)) {
*(uint16*)(_tableBuffer1 + 10) = temp;
if (temp > _unkTableValue)
_unkTableValue = temp;
}
temp = *(uint32*)(_tableBuffer1 + 6) - size2;
*(uint32*)(_tableBuffer1 + 6) = temp;
return _tableBuffer2 + unkValue1;
}
namespace {
int tableIdCompare(const void *l, const void *r) {
int lV = *(const uint32*)(l);
int rV = *(const uint32*)(r);
return CLIP(lV - rV, -1, 1);
}
}
uint8 *KyraEngine_v3::findIdInTable(uint8 *buf, int id) {
debugC(9, kDebugLevelMain, "KyraEngine::findIdInTable(%p, %d)", (void *)buf, id);
updateTableBuffer(buf);
uint32 idVal = id;
uint8 *ptr = (uint8*)bsearch(&idVal, _tableBuffer1 + 12, *(uint16*)(_tableBuffer1), 14, &tableIdCompare);
if (!ptr)
return 0;
return _tableBuffer2 + *(uint32*)(ptr + 4);
}
uint8 *KyraEngine_v3::findShapeInTable(int id) {
debugC(9, kDebugLevelMain, "KyraEngine::findShapeInTable(%d)", id);
return findIdInTable(_shapePoolBuffer, id);
}
#pragma mark - items
void KyraEngine_v3::initItems() {
debugC(9, kDebugLevelMain, "KyraEngine::initItems()");
_screen->loadBitmap("ITEMS.CSH", 3, 3, 0);
for (int i = 248; i <= 319; ++i)
addShapeToTable(_screen->getCPagePtr(3), i, i-248);
_screen->loadBitmap("ITEMS2.CSH", 3, 3, 0);
for (int i = 320; i <= 397; ++i)
addShapeToTable(_screen->getCPagePtr(3), i, i-320);
uint32 size = 0;
uint8 *itemsDat = _res->fileData("_ITEMS.DAT", &size);
assert(size >= 72+144);
memcpy(_itemBuffer1, itemsDat , 72);
memcpy(_itemBuffer2, itemsDat+72, 144);
delete [] itemsDat;
_screen->_curPage = 0;
}
#pragma mark -
int KyraEngine_v3::getMaxFileSize(const char *file) {
debugC(9, kDebugLevelMain, "KyraEngine::getMaxFileSize(%s)", file);
int size = 0;
char buffer[32];
for (int i = 0; i < _languageExtensionSize; ++i) {
strncpy(buffer, file, 32);
size = MAX<uint32>(size, _res->getFileSize(appendLanguage(buffer, i, sizeof(buffer))));
}
return size + 20;
}
char *KyraEngine_v3::appendLanguage(char *buf, int lang, int bufSize) {
debugC(9, kDebugLevelMain, "KyraEngine::appendLanguage([%p|'%s'], %d, %d)", (const void*)buf, buf, lang, bufSize);
assert(lang < _languageExtensionSize);
int size = strlen(buf) + strlen(_languageExtension[lang]);
if (size > bufSize) {
warning("buffer too small to append language extension");
return 0;
}
char *temp = buf + strlen(buf);
bufSize -= strlen(buf);
strncat(temp, _languageExtension[lang], bufSize);
return buf;
}
bool KyraEngine_v3::loadLanguageFile(const char *file, uint8 *&buffer) {
debugC(9, kDebugLevelMain, "KyraEngine::loadLanguageFile('%s', %p)", file, (const void*)buffer);
uint32 size = 0;
char nBuf[32];
strncpy(nBuf, file, 32);
buffer = _res->fileData(appendLanguage(nBuf, _lang, sizeof(nBuf)), &size);
return size != 0 && buffer != 0;
}
} // end of namespace Kyra