2009-06-08 22:18:52 +00:00
|
|
|
/* 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$
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
2009-06-27 15:17:26 +00:00
|
|
|
#ifndef DRACI_SCRIPT_H
|
|
|
|
#define DRACI_SCRIPT_H
|
2009-06-10 01:35:47 +00:00
|
|
|
|
2009-06-27 15:17:26 +00:00
|
|
|
#include "common/str.h"
|
|
|
|
#include "common/stream.h"
|
2009-07-04 14:48:36 +00:00
|
|
|
#include "common/queue.h"
|
2009-06-08 22:18:52 +00:00
|
|
|
|
|
|
|
namespace Draci {
|
|
|
|
|
2009-06-12 10:39:33 +00:00
|
|
|
/** The maximum number of parameters for a GPL command */
|
|
|
|
const int kMaxParams = 3;
|
|
|
|
|
2009-07-04 14:48:36 +00:00
|
|
|
class DraciEngine;
|
|
|
|
class Script;
|
|
|
|
|
|
|
|
enum {
|
|
|
|
kNumCommands = 55
|
|
|
|
};
|
|
|
|
|
2009-09-25 17:33:00 +00:00
|
|
|
// TODO(spalek): shouldn't modify params passed by reference. Either make it const or copy the parameter.
|
2009-07-04 14:48:36 +00:00
|
|
|
typedef void (Script::* GPLHandler)(Common::Queue<int> &);
|
2009-09-25 08:13:39 +00:00
|
|
|
typedef int (Script::* GPLOperatorHandler)(int, int) const;
|
|
|
|
typedef int (Script::* GPLFunctionHandler)(int) const;
|
2009-06-12 09:45:12 +00:00
|
|
|
|
|
|
|
/**
|
|
|
|
* Represents a single command in the GPL scripting language bytecode.
|
|
|
|
* Each command is represented in the bytecode by a command number and a
|
|
|
|
* subnumber.
|
|
|
|
*/
|
|
|
|
|
2009-06-10 01:35:47 +00:00
|
|
|
struct GPL2Command {
|
|
|
|
byte _number;
|
|
|
|
byte _subNumber;
|
|
|
|
Common::String _name;
|
|
|
|
uint16 _numParams;
|
2009-06-12 10:39:33 +00:00
|
|
|
int _paramTypes[kMaxParams];
|
2009-07-04 14:48:36 +00:00
|
|
|
GPLHandler _handler;
|
2009-06-10 01:35:47 +00:00
|
|
|
};
|
|
|
|
|
2009-07-06 17:25:34 +00:00
|
|
|
struct GPL2Operator {
|
|
|
|
Common::String _name;
|
|
|
|
GPLOperatorHandler _handler;
|
|
|
|
};
|
|
|
|
|
2009-07-06 18:49:51 +00:00
|
|
|
struct GPL2Function {
|
|
|
|
Common::String _name;
|
|
|
|
GPLFunctionHandler _handler;
|
|
|
|
};
|
|
|
|
|
2009-06-28 16:19:10 +00:00
|
|
|
/**
|
|
|
|
* A convenience data type that holds both the actual bytecode and the
|
|
|
|
* length of the bytecode. Passed to Script::run().
|
|
|
|
*/
|
|
|
|
|
|
|
|
struct GPL2Program {
|
|
|
|
GPL2Program() : _bytecode(NULL), _length(0) {}
|
|
|
|
|
|
|
|
byte *_bytecode;
|
|
|
|
uint16 _length;
|
|
|
|
};
|
|
|
|
|
2009-06-27 15:17:26 +00:00
|
|
|
class Script {
|
|
|
|
|
|
|
|
public:
|
2009-07-08 00:34:53 +00:00
|
|
|
Script(DraciEngine *vm) : _vm(vm), _jump(0) { setupCommandList(); };
|
2009-07-04 14:48:36 +00:00
|
|
|
|
2009-09-25 17:33:00 +00:00
|
|
|
int run(const GPL2Program &program, uint16 offset);
|
|
|
|
bool testExpression(const GPL2Program &program, uint16 offset) const;
|
2009-08-06 07:40:14 +00:00
|
|
|
void endCurrentProgram();
|
2009-07-04 14:48:36 +00:00
|
|
|
|
2009-06-27 15:17:26 +00:00
|
|
|
private:
|
2009-07-04 14:48:36 +00:00
|
|
|
|
2009-07-08 00:34:53 +00:00
|
|
|
int _jump;
|
2009-08-06 07:40:14 +00:00
|
|
|
bool _endProgram;
|
2009-07-08 00:34:53 +00:00
|
|
|
|
2009-07-04 14:48:36 +00:00
|
|
|
/** List of all GPL commands. Initialised in the constructor. */
|
|
|
|
const GPL2Command *_commandList;
|
2009-07-06 17:25:34 +00:00
|
|
|
const GPL2Operator *_operatorList;
|
2009-07-06 18:49:51 +00:00
|
|
|
const GPL2Function *_functionList;
|
2009-07-04 14:48:36 +00:00
|
|
|
|
2009-07-08 00:34:53 +00:00
|
|
|
void c_If(Common::Queue<int> ¶ms);
|
|
|
|
void c_Goto(Common::Queue<int> ¶ms);
|
|
|
|
void c_Let(Common::Queue<int> ¶ms);
|
2009-07-04 18:36:45 +00:00
|
|
|
void load(Common::Queue<int> ¶ms);
|
2009-07-06 17:25:34 +00:00
|
|
|
void start(Common::Queue<int> ¶ms);
|
2009-07-24 05:00:53 +00:00
|
|
|
void mark(Common::Queue<int> ¶ms);
|
|
|
|
void release(Common::Queue<int> ¶ms);
|
2009-08-17 18:50:38 +00:00
|
|
|
void icoStat(Common::Queue<int> ¶ms);
|
2009-07-25 02:23:00 +00:00
|
|
|
void objStat(Common::Queue<int> ¶ms);
|
|
|
|
void objStatOn(Common::Queue<int> ¶ms);
|
2009-07-25 03:37:22 +00:00
|
|
|
void execInit(Common::Queue<int> ¶ms);
|
|
|
|
void execLook(Common::Queue<int> ¶ms);
|
|
|
|
void execUse(Common::Queue<int> ¶ms);
|
2009-07-25 04:36:43 +00:00
|
|
|
void walkOn(Common::Queue<int> ¶ms);
|
2009-08-11 04:18:14 +00:00
|
|
|
void walkOnPlay(Common::Queue<int> ¶ms);
|
2009-07-29 01:02:50 +00:00
|
|
|
void play(Common::Queue<int> ¶ms);
|
2009-07-29 19:41:30 +00:00
|
|
|
void startPlay(Common::Queue<int> ¶ms);
|
2009-07-31 04:32:33 +00:00
|
|
|
void newRoom(Common::Queue<int> ¶ms);
|
2009-08-02 05:12:42 +00:00
|
|
|
void talk(Common::Queue<int> ¶ms);
|
2009-08-09 04:12:36 +00:00
|
|
|
void loadMap(Common::Queue<int> ¶ms);
|
|
|
|
void roomMap(Common::Queue<int> ¶ms);
|
2009-08-11 04:03:22 +00:00
|
|
|
void dialogue(Common::Queue<int> ¶ms);
|
|
|
|
void exitDialogue(Common::Queue<int> ¶ms);
|
|
|
|
void resetDialogue(Common::Queue<int> ¶ms);
|
|
|
|
void resetDialogueFrom(Common::Queue<int> ¶ms);
|
|
|
|
void resetBlock(Common::Queue<int> ¶ms);
|
2009-08-15 02:42:34 +00:00
|
|
|
void setPalette(Common::Queue<int> ¶ms);
|
|
|
|
void blackPalette(Common::Queue<int> ¶ms);
|
|
|
|
void loadPalette(Common::Queue<int> ¶ms);
|
2009-07-06 17:25:34 +00:00
|
|
|
|
2009-09-25 08:13:39 +00:00
|
|
|
int operAnd(int op1, int op2) const;
|
|
|
|
int operOr(int op1, int op2) const;
|
|
|
|
int operXor(int op1, int op2) const;
|
|
|
|
int operSub(int op1, int op2) const;
|
|
|
|
int operAdd(int op1, int op2) const;
|
|
|
|
int operDiv(int op1, int op2) const;
|
|
|
|
int operMul(int op1, int op2) const;
|
|
|
|
int operEqual(int op1, int op2) const;
|
|
|
|
int operNotEqual(int op1, int op2) const;
|
|
|
|
int operGreater(int op1, int op2) const;
|
|
|
|
int operLess(int op1, int op2) const;
|
|
|
|
int operGreaterOrEqual(int op1, int op2) const;
|
|
|
|
int operLessOrEqual(int op1, int op2) const;
|
|
|
|
int operMod(int op1, int op2) const;
|
|
|
|
|
|
|
|
int funcRandom(int n) const;
|
|
|
|
int funcNot(int n) const;
|
|
|
|
int funcIsIcoOn(int iconID) const;
|
|
|
|
int funcIcoStat(int iconID) const;
|
|
|
|
int funcActIco(int iconID) const;
|
|
|
|
int funcIsIcoAct(int iconID) const;
|
|
|
|
int funcIsObjOn(int objID) const;
|
|
|
|
int funcIsObjOff(int objID) const;
|
|
|
|
int funcIsObjAway(int objID) const;
|
|
|
|
int funcActPhase(int objID) const;
|
|
|
|
int funcObjStat(int objID) const;
|
|
|
|
int funcLastBlock(int blockID) const;
|
|
|
|
int funcAtBegin(int yesno) const;
|
|
|
|
int funcBlockVar(int blockID) const;
|
|
|
|
int funcHasBeen(int blockID) const;
|
|
|
|
int funcMaxLine(int lines) const;
|
2009-07-06 19:26:53 +00:00
|
|
|
|
2009-07-04 14:48:36 +00:00
|
|
|
void setupCommandList();
|
2009-09-25 08:13:39 +00:00
|
|
|
const GPL2Command *findCommand(byte num, byte subnum) const;
|
|
|
|
int handleMathExpression(Common::MemoryReadStream &reader) const;
|
2009-07-04 14:48:36 +00:00
|
|
|
|
|
|
|
DraciEngine *_vm;
|
2009-06-27 15:17:26 +00:00
|
|
|
};
|
2009-06-08 22:18:52 +00:00
|
|
|
|
|
|
|
}
|
|
|
|
|
2009-06-27 15:17:26 +00:00
|
|
|
#endif // DRACI_SCRIPT_H
|