MACVENTURE: Add untested script engine

1 files changed, 20 insertions, 0 deletions

diff --git a/engines/macventure/world.cpp b/engines/macventure/world.cpp
index feb8c0b7be..2cd50ff82a 100644
--- a/engines/macventure/world.cpp
+++ b/engines/macventure/world.cpp
@@ -1,4 +1,5 @@
 #include "macventure/world.h"
+#include "macventure/macventure.h"
 
 #include "common/file.h"
 
@@ -82,6 +83,25 @@ bool MacVenture::World::isObjActive(ObjID obj) {
 	return false;
 }
 
+Common::Array<ObjID> World::getFamily(ObjID objID, bool recursive) {
+	Common::Array<ObjID> res;
+	res.push_back(objID);
+	res.push_back(getChildren(objID, recursive));
+	return res;
+}
+
+Common::Array<ObjID> World::getChildren(ObjID objID, bool recursive) {
+	Common::Array<ObjID> res;
+	ObjID child = _relations[objID * 2];
+	while (child) {
+		res.push_back(child);
+		if (!recursive)
+			res.push_back(getChildren(child, false));
+		child = _relations[child * 2 + 1];
+	}
+	return Common::Array<ObjID>();
+}
+
 bool World::loadStartGameFileName() {
 	Common::SeekableReadStream *res;