mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-22 09:49:11 +00:00
508 lines
14 KiB
C++
508 lines
14 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.
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* This file is based on WME Lite.
|
|
* http://dead-code.org/redir.php?target=wmelite
|
|
* Copyright (c) 2011 Jan Nedoma
|
|
*/
|
|
|
|
#include "engines/wintermute/dcgf.h"
|
|
#include "engines/wintermute/BRegion.h"
|
|
#include "engines/wintermute/BParser.h"
|
|
#include "engines/wintermute/BDynBuffer.h"
|
|
#include "engines/wintermute/BGame.h"
|
|
#include "engines/wintermute/scriptables/ScScript.h"
|
|
#include "engines/wintermute/scriptables/ScStack.h"
|
|
#include "engines/wintermute/scriptables/ScValue.h"
|
|
#include "engines/wintermute/BFileManager.h"
|
|
#include "engines/wintermute/PlatformSDL.h"
|
|
|
|
namespace WinterMute {
|
|
|
|
IMPLEMENT_PERSISTENT(CBRegion, false)
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
CBRegion::CBRegion(CBGame *inGame): CBObject(inGame) {
|
|
_active = true;
|
|
_editorSelectedPoint = -1;
|
|
_lastMimicScale = -1;
|
|
_lastMimicX = _lastMimicY = INT_MIN;
|
|
|
|
CBPlatform::SetRectEmpty(&_rect);
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
CBRegion::~CBRegion() {
|
|
Cleanup();
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
void CBRegion::Cleanup() {
|
|
for (int i = 0; i < _points.GetSize(); i++) delete _points[i];
|
|
_points.RemoveAll();
|
|
|
|
CBPlatform::SetRectEmpty(&_rect);
|
|
_editorSelectedPoint = -1;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
bool CBRegion::CreateRegion() {
|
|
return SUCCEEDED(GetBoundingRect(&_rect));
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
bool CBRegion::PointInRegion(int X, int Y) {
|
|
if (_points.GetSize() < 3) return false;
|
|
|
|
POINT pt;
|
|
pt.x = X;
|
|
pt.y = Y;
|
|
|
|
RECT rect;
|
|
rect.left = X - 1;
|
|
rect.right = X + 2;
|
|
rect.top = Y - 1;
|
|
rect.bottom = Y + 2;
|
|
|
|
if (CBPlatform::PtInRect(&_rect, pt)) return PtInPolygon(X, Y);
|
|
else return false;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::LoadFile(const char *Filename) {
|
|
byte *Buffer = Game->_fileManager->ReadWholeFile(Filename);
|
|
if (Buffer == NULL) {
|
|
Game->LOG(0, "CBRegion::LoadFile failed for file '%s'", Filename);
|
|
return E_FAIL;
|
|
}
|
|
|
|
HRESULT ret;
|
|
|
|
_filename = new char [strlen(Filename) + 1];
|
|
strcpy(_filename, Filename);
|
|
|
|
if (FAILED(ret = LoadBuffer(Buffer, true))) Game->LOG(0, "Error parsing REGION file '%s'", Filename);
|
|
|
|
|
|
delete [] Buffer;
|
|
|
|
return ret;
|
|
}
|
|
|
|
|
|
TOKEN_DEF_START
|
|
TOKEN_DEF(REGION)
|
|
TOKEN_DEF(TEMPLATE)
|
|
TOKEN_DEF(NAME)
|
|
TOKEN_DEF(ACTIVE)
|
|
TOKEN_DEF(POINT)
|
|
TOKEN_DEF(CAPTION)
|
|
TOKEN_DEF(SCRIPT)
|
|
TOKEN_DEF(EDITOR_SELECTED_POINT)
|
|
TOKEN_DEF(PROPERTY)
|
|
TOKEN_DEF_END
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::LoadBuffer(byte *Buffer, bool Complete) {
|
|
TOKEN_TABLE_START(commands)
|
|
TOKEN_TABLE(REGION)
|
|
TOKEN_TABLE(TEMPLATE)
|
|
TOKEN_TABLE(NAME)
|
|
TOKEN_TABLE(ACTIVE)
|
|
TOKEN_TABLE(POINT)
|
|
TOKEN_TABLE(CAPTION)
|
|
TOKEN_TABLE(SCRIPT)
|
|
TOKEN_TABLE(EDITOR_SELECTED_POINT)
|
|
TOKEN_TABLE(PROPERTY)
|
|
TOKEN_TABLE_END
|
|
|
|
byte *params;
|
|
int cmd;
|
|
CBParser parser(Game);
|
|
|
|
if (Complete) {
|
|
if (parser.GetCommand((char **)&Buffer, commands, (char **)¶ms) != TOKEN_REGION) {
|
|
Game->LOG(0, "'REGION' keyword expected.");
|
|
return E_FAIL;
|
|
}
|
|
Buffer = params;
|
|
}
|
|
|
|
int i;
|
|
|
|
for (i = 0; i < _points.GetSize(); i++) delete _points[i];
|
|
_points.RemoveAll();
|
|
|
|
while ((cmd = parser.GetCommand((char **)&Buffer, commands, (char **)¶ms)) > 0) {
|
|
switch (cmd) {
|
|
case TOKEN_TEMPLATE:
|
|
if (FAILED(LoadFile((char *)params))) cmd = PARSERR_GENERIC;
|
|
break;
|
|
|
|
case TOKEN_NAME:
|
|
SetName((char *)params);
|
|
break;
|
|
|
|
case TOKEN_CAPTION:
|
|
SetCaption((char *)params);
|
|
break;
|
|
|
|
case TOKEN_ACTIVE:
|
|
parser.ScanStr((char *)params, "%b", &_active);
|
|
break;
|
|
|
|
case TOKEN_POINT: {
|
|
int x, y;
|
|
parser.ScanStr((char *)params, "%d,%d", &x, &y);
|
|
_points.Add(new CBPoint(x, y));
|
|
}
|
|
break;
|
|
|
|
case TOKEN_SCRIPT:
|
|
AddScript((char *)params);
|
|
break;
|
|
|
|
case TOKEN_EDITOR_SELECTED_POINT:
|
|
parser.ScanStr((char *)params, "%d", &_editorSelectedPoint);
|
|
break;
|
|
|
|
case TOKEN_PROPERTY:
|
|
ParseProperty(params, false);
|
|
break;
|
|
}
|
|
}
|
|
if (cmd == PARSERR_TOKENNOTFOUND) {
|
|
Game->LOG(0, "Syntax error in REGION definition");
|
|
return E_FAIL;
|
|
}
|
|
|
|
CreateRegion();
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// high level scripting interface
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::ScCallMethod(CScScript *Script, CScStack *Stack, CScStack *ThisStack, const char *Name) {
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// AddPoint
|
|
//////////////////////////////////////////////////////////////////////////
|
|
if (strcmp(Name, "AddPoint") == 0) {
|
|
Stack->CorrectParams(2);
|
|
int X = Stack->Pop()->GetInt();
|
|
int Y = Stack->Pop()->GetInt();
|
|
|
|
_points.Add(new CBPoint(X, Y));
|
|
CreateRegion();
|
|
|
|
Stack->PushBool(true);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// InsertPoint
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "InsertPoint") == 0) {
|
|
Stack->CorrectParams(3);
|
|
int Index = Stack->Pop()->GetInt();
|
|
int X = Stack->Pop()->GetInt();
|
|
int Y = Stack->Pop()->GetInt();
|
|
|
|
if (Index >= 0 && Index < _points.GetSize()) {
|
|
_points.InsertAt(Index, new CBPoint(X, Y));
|
|
CreateRegion();
|
|
|
|
Stack->PushBool(true);
|
|
} else Stack->PushBool(false);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// SetPoint
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "SetPoint") == 0) {
|
|
Stack->CorrectParams(3);
|
|
int Index = Stack->Pop()->GetInt();
|
|
int X = Stack->Pop()->GetInt();
|
|
int Y = Stack->Pop()->GetInt();
|
|
|
|
if (Index >= 0 && Index < _points.GetSize()) {
|
|
_points[Index]->x = X;
|
|
_points[Index]->y = Y;
|
|
CreateRegion();
|
|
|
|
Stack->PushBool(true);
|
|
} else Stack->PushBool(false);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// RemovePoint
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "RemovePoint") == 0) {
|
|
Stack->CorrectParams(1);
|
|
int Index = Stack->Pop()->GetInt();
|
|
|
|
if (Index >= 0 && Index < _points.GetSize()) {
|
|
delete _points[Index];
|
|
_points[Index] = NULL;
|
|
|
|
_points.RemoveAt(Index);
|
|
CreateRegion();
|
|
|
|
Stack->PushBool(true);
|
|
} else Stack->PushBool(false);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// GetPoint
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "GetPoint") == 0) {
|
|
Stack->CorrectParams(1);
|
|
int Index = Stack->Pop()->GetInt();
|
|
|
|
if (Index >= 0 && Index < _points.GetSize()) {
|
|
CScValue *Val = Stack->GetPushValue();
|
|
if (Val) {
|
|
Val->SetProperty("X", _points[Index]->x);
|
|
Val->SetProperty("Y", _points[Index]->y);
|
|
}
|
|
} else Stack->PushNULL();
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
else return CBObject::ScCallMethod(Script, Stack, ThisStack, Name);
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
CScValue *CBRegion::ScGetProperty(const char *Name) {
|
|
_scValue->SetNULL();
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// Type
|
|
//////////////////////////////////////////////////////////////////////////
|
|
if (strcmp(Name, "Type") == 0) {
|
|
_scValue->SetString("region");
|
|
return _scValue;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// Name
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "Name") == 0) {
|
|
_scValue->SetString(_name);
|
|
return _scValue;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// Active
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "Active") == 0) {
|
|
_scValue->SetBool(_active);
|
|
return _scValue;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// NumPoints
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "NumPoints") == 0) {
|
|
_scValue->SetInt(_points.GetSize());
|
|
return _scValue;
|
|
}
|
|
|
|
else return CBObject::ScGetProperty(Name);
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::ScSetProperty(const char *Name, CScValue *Value) {
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// Name
|
|
//////////////////////////////////////////////////////////////////////////
|
|
if (strcmp(Name, "Name") == 0) {
|
|
SetName(Value->GetString());
|
|
return S_OK;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
// Active
|
|
//////////////////////////////////////////////////////////////////////////
|
|
else if (strcmp(Name, "Active") == 0) {
|
|
_active = Value->GetBool();
|
|
return S_OK;
|
|
}
|
|
|
|
else return CBObject::ScSetProperty(Name, Value);
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
char *CBRegion::ScToString() {
|
|
return "[region]";
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::SaveAsText(CBDynBuffer *Buffer, int Indent, char *NameOverride) {
|
|
if (!NameOverride) Buffer->PutTextIndent(Indent, "REGION {\n");
|
|
else Buffer->PutTextIndent(Indent, "%s {\n", NameOverride);
|
|
|
|
Buffer->PutTextIndent(Indent + 2, "NAME=\"%s\"\n", _name);
|
|
Buffer->PutTextIndent(Indent + 2, "CAPTION=\"%s\"\n", GetCaption());
|
|
Buffer->PutTextIndent(Indent + 2, "ACTIVE=%s\n", _active ? "TRUE" : "FALSE");
|
|
Buffer->PutTextIndent(Indent + 2, "EDITOR_SELECTED_POINT=%d\n", _editorSelectedPoint);
|
|
|
|
int i;
|
|
|
|
for (i = 0; i < _scripts.GetSize(); i++) {
|
|
Buffer->PutTextIndent(Indent + 2, "SCRIPT=\"%s\"\n", _scripts[i]->_filename);
|
|
}
|
|
|
|
for (i = 0; i < _points.GetSize(); i++) {
|
|
Buffer->PutTextIndent(Indent + 2, "POINT {%d,%d}\n", _points[i]->x, _points[i]->y);
|
|
}
|
|
|
|
if (_scProp) _scProp->SaveAsText(Buffer, Indent + 2);
|
|
|
|
Buffer->PutTextIndent(Indent, "}\n\n");
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::Persist(CBPersistMgr *PersistMgr) {
|
|
|
|
CBObject::Persist(PersistMgr);
|
|
|
|
PersistMgr->Transfer(TMEMBER(_active));
|
|
PersistMgr->Transfer(TMEMBER(_editorSelectedPoint));
|
|
PersistMgr->Transfer(TMEMBER(_lastMimicScale));
|
|
PersistMgr->Transfer(TMEMBER(_lastMimicX));
|
|
PersistMgr->Transfer(TMEMBER(_lastMimicY));
|
|
_points.Persist(PersistMgr);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
typedef struct {
|
|
double x, y;
|
|
} dPoint;
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
bool CBRegion::PtInPolygon(int X, int Y) {
|
|
if (_points.GetSize() < 3) return false;
|
|
|
|
int counter = 0;
|
|
int i;
|
|
double xinters;
|
|
dPoint p, p1, p2;
|
|
|
|
p.x = (double)X;
|
|
p.y = (double)Y;
|
|
|
|
p1.x = (double)_points[0]->x;
|
|
p1.y = (double)_points[0]->y;
|
|
|
|
for (i = 1; i <= _points.GetSize(); i++) {
|
|
p2.x = (double)_points[i % _points.GetSize()]->x;
|
|
p2.y = (double)_points[i % _points.GetSize()]->y;
|
|
|
|
if (p.y > std::min(p1.y, p2.y)) {
|
|
if (p.y <= std::max(p1.y, p2.y)) {
|
|
if (p.x <= std::max(p1.x, p2.x)) {
|
|
if (p1.y != p2.y) {
|
|
xinters = (p.y - p1.y) * (p2.x - p1.x) / (p2.y - p1.y) + p1.x;
|
|
if (p1.x == p2.x || p.x <= xinters)
|
|
counter++;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
p1 = p2;
|
|
}
|
|
|
|
if (counter % 2 == 0)
|
|
return false;
|
|
else
|
|
return true;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::GetBoundingRect(RECT *Rect) {
|
|
if (_points.GetSize() == 0) CBPlatform::SetRectEmpty(Rect);
|
|
else {
|
|
int MinX = INT_MAX, MinY = INT_MAX, MaxX = INT_MIN, MaxY = INT_MIN;
|
|
|
|
for (int i = 0; i < _points.GetSize(); i++) {
|
|
MinX = std::min(MinX, _points[i]->x);
|
|
MinY = std::min(MinY, _points[i]->y);
|
|
|
|
MaxX = std::max(MaxX, _points[i]->x);
|
|
MaxY = std::max(MaxY, _points[i]->y);
|
|
}
|
|
CBPlatform::SetRect(Rect, MinX, MinY, MaxX, MaxY);
|
|
}
|
|
return S_OK;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////
|
|
HRESULT CBRegion::Mimic(CBRegion *Region, float Scale, int X, int Y) {
|
|
if (Scale == _lastMimicScale && X == _lastMimicX && Y == _lastMimicY) return S_OK;
|
|
|
|
Cleanup();
|
|
|
|
for (int i = 0; i < Region->_points.GetSize(); i++) {
|
|
int x, y;
|
|
|
|
x = (int)((float)Region->_points[i]->x * Scale / 100.0f);
|
|
y = (int)((float)Region->_points[i]->y * Scale / 100.0f);
|
|
|
|
_points.Add(new CBPoint(x + X, y + Y));
|
|
}
|
|
|
|
_lastMimicScale = Scale;
|
|
_lastMimicX = X;
|
|
_lastMimicY = Y;
|
|
|
|
return CreateRegion() ? S_OK : E_FAIL;
|
|
}
|
|
|
|
} // end of namespace WinterMute
|