DIRECTOR: Lingo: Implemented script execution

1 files changed, 13 insertions, 0 deletions

diff --git a/engines/director/lingo/lingo.cpp b/engines/director/lingo/lingo.cpp
index 4ac9c12ed3..fc79167373 100644
--- a/engines/director/lingo/lingo.cpp
+++ b/engines/director/lingo/lingo.cpp
@@ -100,6 +100,8 @@ int Lingo::codeString(const char *str) {
 }
 
 void Lingo::addCode(Common::String code, ScriptType type, uint16 id) {
+	code += '\n';
+
 	debug(2, "Add code \"%s\" for type %d with id %d", code.c_str(), type, id);
 
 	if (_scripts[type].contains(id)) {
@@ -114,6 +116,17 @@ void Lingo::addCode(Common::String code, ScriptType type, uint16 id) {
 	Common::hexdump((byte *)&_currentScript->front(), _currentScript->size() * sizeof(inst));
 }
 
+void Lingo::executeScript(ScriptType type, uint16 id) {
+	if (!_scripts[type].contains(id)) {
+		warning("Request to execute non-existant script type %d id %d", type, id);
+		return;
+	}
+
+	for(_pc = &_scripts[type][id]->front(); *_pc != STOP;) {
+		(*((++_pc)[-1]))();
+	}
+}
+
 void Lingo::processEvent(LEvent event, int entityId) {
 	if (!_eventHandlerTypes.contains(event))
 		error("processEvent: Unknown event %d for entity %d", event, entityId);