mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-13 12:39:56 +00:00
291 lines
8.2 KiB
C++
291 lines
8.2 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.
|
|
*
|
|
*/
|
|
|
|
|
|
|
|
#include "common/config-manager.h"
|
|
|
|
#include "agos/debugger.h"
|
|
#include "agos/agos.h"
|
|
|
|
namespace AGOS {
|
|
|
|
Debugger::Debugger(AGOSEngine *vm)
|
|
: GUI::Debugger() {
|
|
_vm = vm;
|
|
|
|
DCmd_Register("continue", WRAP_METHOD(Debugger, Cmd_Exit));
|
|
DCmd_Register("level", WRAP_METHOD(Debugger, Cmd_DebugLevel));
|
|
DCmd_Register("music", WRAP_METHOD(Debugger, Cmd_PlayMusic));
|
|
DCmd_Register("sound", WRAP_METHOD(Debugger, Cmd_PlaySound));
|
|
DCmd_Register("voice", WRAP_METHOD(Debugger, Cmd_PlayVoice));
|
|
DCmd_Register("bit", WRAP_METHOD(Debugger, Cmd_SetBit));
|
|
DCmd_Register("bit2", WRAP_METHOD(Debugger, Cmd_SetBit2));
|
|
DCmd_Register("bit3", WRAP_METHOD(Debugger, Cmd_SetBit3));
|
|
DCmd_Register("var", WRAP_METHOD(Debugger, Cmd_SetVar));
|
|
DCmd_Register("obj", WRAP_METHOD(Debugger, Cmd_SetObjectFlag));
|
|
DCmd_Register("sub", WRAP_METHOD(Debugger, Cmd_StartSubroutine));
|
|
DCmd_Register("dumpimage", WRAP_METHOD(Debugger, Cmd_dumpImage));
|
|
DCmd_Register("dumpscript", WRAP_METHOD(Debugger, Cmd_dumpScript));
|
|
|
|
}
|
|
|
|
|
|
bool Debugger::Cmd_DebugLevel(int argc, const char **argv) {
|
|
if (argc == 1) {
|
|
if (_vm->_debugMode == false)
|
|
DebugPrintf("Debugging is not enabled at this time\n");
|
|
else
|
|
DebugPrintf("Debugging is currently set at level %d\n", gDebugLevel);
|
|
} else { // set level
|
|
gDebugLevel = atoi(argv[1]);
|
|
if (gDebugLevel >= 0 && gDebugLevel < 10) {
|
|
_vm->_debugMode = true;
|
|
DebugPrintf("Debug level set to level %d\n", gDebugLevel);
|
|
} else if (gDebugLevel < 0) {
|
|
_vm->_debugMode = false;
|
|
DebugPrintf("Debugging is now disabled\n");
|
|
} else
|
|
DebugPrintf("Not a valid debug level (0 - 10)\n");
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_PlayMusic(int argc, const char **argv) {
|
|
if (argc > 1) {
|
|
uint music = atoi(argv[1]);
|
|
if (music <= _vm->_numMusic) {
|
|
if (_vm->getGameType() == GType_PP) {
|
|
// TODO
|
|
} else if (_vm->getGameType() == GType_SIMON2) {
|
|
_vm->loadMusic(music);
|
|
_vm->_midi.startTrack(0);
|
|
} else {
|
|
_vm->playMusic(music, 0);
|
|
}
|
|
} else
|
|
DebugPrintf("Music out of range (0 - %d)\n", _vm->_numMusic);
|
|
} else
|
|
DebugPrintf("Syntax: music <musicnum>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_PlaySound(int argc, const char **argv) {
|
|
if (argc > 1) {
|
|
uint sound = atoi(argv[1]);
|
|
if (sound <= _vm->_numSFX)
|
|
_vm->_sound->playEffects(sound);
|
|
else
|
|
DebugPrintf("Sound out of range (0 - %d)\n", _vm->_numSFX);
|
|
} else
|
|
DebugPrintf("Syntax: sound <soundnum>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_PlayVoice(int argc, const char **argv) {
|
|
if (argc > 1) {
|
|
uint voice = atoi(argv[1]);
|
|
if (voice <= _vm->_numSpeech)
|
|
_vm->_sound->playVoice(voice);
|
|
else
|
|
DebugPrintf("Voice out of range (0 - %d)\n", _vm->_numSpeech);
|
|
} else
|
|
DebugPrintf("Syntax: voice <voicenum>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_SetBit(int argc, const char **argv) {
|
|
uint bit, value;
|
|
if (argc > 2) {
|
|
bit = atoi(argv[1]);
|
|
value = atoi(argv[2]);
|
|
if (value <= 1) {
|
|
_vm->setBitFlag(bit, value != 0);
|
|
DebugPrintf("Set bit %d to %d\n", bit, value);
|
|
} else
|
|
DebugPrintf("Bit value out of range (0 - 1)\n");
|
|
} else if (argc > 1) {
|
|
bit = atoi(argv[1]);
|
|
value = _vm->getBitFlag(bit);
|
|
DebugPrintf("Bit %d is %d\n", bit, value);
|
|
} else
|
|
DebugPrintf("Syntax: bit <bitnum> <value>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_SetBit2(int argc, const char **argv) {
|
|
uint bit, value;
|
|
if (argc > 2) {
|
|
bit = atoi(argv[1]);
|
|
value = atoi(argv[2]);
|
|
if (value == 0) {
|
|
_vm->_bitArrayTwo[bit / 16] &= ~(1 << (bit & 15));
|
|
DebugPrintf("Set bit2 %d to %d\n", bit, value);
|
|
} else if (value == 1) {
|
|
_vm->_bitArrayTwo[bit / 16] |= (1 << (bit & 15));
|
|
DebugPrintf("Set bit2 %d to %d\n", bit, value);
|
|
} else
|
|
DebugPrintf("Bit2 value out of range (0 - 1)\n");
|
|
} else if (argc > 1) {
|
|
bit = atoi(argv[1]);
|
|
value = (_vm->_bitArrayTwo[bit / 16] & (1 << (bit & 15))) != 0;
|
|
DebugPrintf("Bit2 %d is %d\n", bit, value);
|
|
} else
|
|
DebugPrintf("Syntax: bit2 <bitnum> <value>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_SetBit3(int argc, const char **argv) {
|
|
uint bit, value;
|
|
if (argc > 2) {
|
|
bit = atoi(argv[1]);
|
|
value = atoi(argv[2]);
|
|
if (value == 0) {
|
|
_vm->_bitArrayThree[bit / 16] &= ~(1 << (bit & 15));
|
|
DebugPrintf("Set bit3 %d to %d\n", bit, value);
|
|
} else if (value == 1) {
|
|
_vm->_bitArrayThree[bit / 16] |= (1 << (bit & 15));
|
|
DebugPrintf("Set bit3 %d to %d\n", bit, value);
|
|
} else
|
|
DebugPrintf("Bit3 value out of range (0 - 1)\n");
|
|
} else if (argc > 1) {
|
|
bit = atoi(argv[1]);
|
|
value = (_vm->_bitArrayThree[bit / 16] & (1 << (bit & 15))) != 0;
|
|
DebugPrintf("Bit3 %d is %d\n", bit, value);
|
|
} else
|
|
DebugPrintf("Syntax: bit3 <bitnum> <value>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_SetVar(int argc, const char **argv) {
|
|
uint var, value;
|
|
if (argc > 1) {
|
|
var = atoi(argv[1]);
|
|
if (var < _vm->_numVars) {
|
|
if (argc > 2) {
|
|
value = atoi(argv[2]);
|
|
_vm->writeVariable(var, value);
|
|
DebugPrintf("Set var %d to %d\n", var, value);
|
|
} else {
|
|
value = _vm->readVariable(var);
|
|
DebugPrintf("Var %d is %d\n", var, value);
|
|
}
|
|
} else
|
|
DebugPrintf("Var out of range (0 - %d)\n", _vm->_numVars - 1);
|
|
} else
|
|
DebugPrintf("Syntax: var <varnum> <value>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_SetObjectFlag(int argc, const char **argv) {
|
|
uint obj, prop, value;
|
|
if (argc > 2) {
|
|
obj = atoi(argv[1]);
|
|
prop = atoi(argv[2]);
|
|
|
|
if (obj >= 1 && obj < _vm->_itemArraySize) {
|
|
SubObject *o = (SubObject *)_vm->findChildOfType(_vm->derefItem(obj), kObjectType);
|
|
if (o != NULL) {
|
|
if (o->objectFlags & (1 << prop) && prop < 16) {
|
|
uint offs = _vm->getOffsetOfChild2Param(o, 1 << prop);
|
|
if (argc > 3) {
|
|
value = atoi(argv[3]);
|
|
o->objectFlagValue[offs] = value;
|
|
DebugPrintf("Object %d Flag %d set to %d\n", obj, prop, value);
|
|
} else {
|
|
value = o->objectFlagValue[offs];
|
|
DebugPrintf("Object %d Flag %d is %d\n", obj, prop, value);
|
|
}
|
|
} else {
|
|
DebugPrintf("Object flag out of range\n");
|
|
}
|
|
} else {
|
|
DebugPrintf("Item isn't an object\n");
|
|
}
|
|
} else {
|
|
DebugPrintf("Item out of range (1 - %d)\n", _vm->_itemArraySize - 1);
|
|
}
|
|
} else {
|
|
DebugPrintf("Syntax: obj <itemnum> <flag> <value>\n");
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_StartSubroutine(int argc, const char **argv) {
|
|
if (argc > 1) {
|
|
uint subroutine = atoi(argv[1]);
|
|
Subroutine *sub;
|
|
sub = _vm->getSubroutineByID(subroutine);
|
|
if (sub != NULL)
|
|
_vm->startSubroutine(sub);
|
|
} else
|
|
DebugPrintf("Subroutine %d\n", _vm->_currentTable->id);
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_dumpImage(int argc, const char **argv) {
|
|
if (argc > 1) {
|
|
uint16 zoneNum = atoi(argv[1]);
|
|
_vm->loadZone(zoneNum, false);
|
|
VgaPointersEntry *vpe = &_vm->_vgaBufferPointers[zoneNum];
|
|
if (vpe->vgaFile2 != NULL) {
|
|
_vm->dumpVgaBitmaps(zoneNum);
|
|
} else {
|
|
DebugPrintf("Invalid Zone Number %d\n", zoneNum);
|
|
|
|
}
|
|
} else
|
|
DebugPrintf("Syntax: dumpimage <zonenum>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
bool Debugger::Cmd_dumpScript(int argc, const char **argv) {
|
|
if (argc > 1) {
|
|
uint16 zoneNum = atoi(argv[1]);
|
|
_vm->loadZone(zoneNum, false);
|
|
VgaPointersEntry *vpe = &_vm->_vgaBufferPointers[zoneNum];
|
|
if (vpe->vgaFile1 != NULL) {
|
|
_vm->dumpVgaFile(vpe->vgaFile1);
|
|
} else {
|
|
DebugPrintf("Invalid Zone Number %d\n", zoneNum);
|
|
|
|
}
|
|
} else
|
|
DebugPrintf("Syntax: dumpscript <zonenum>\n");
|
|
|
|
return true;
|
|
}
|
|
|
|
} // End of namespace AGOS
|
|
|