From 5f6e158fd3d60ab400074c667c275932d36a275c Mon Sep 17 00:00:00 2001
From: Scott Percival
Date: Thu, 31 Oct 2019 16:59:46 +0800
Subject: DIRECTOR: Add support for exit.

---
 engines/director/lingo/lingo-bytecode.cpp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/engines/director/lingo/lingo-bytecode.cpp b/engines/director/lingo/lingo-bytecode.cpp
index 832566c44a..618909cfb8 100644
--- a/engines/director/lingo/lingo-bytecode.cpp
+++ b/engines/director/lingo/lingo-bytecode.cpp
@@ -237,9 +237,12 @@ void Lingo::addCodeV4(Common::SeekableSubReadStreamEndian &stream, ScriptType ty
                 }
 
             } else {
+                // exit condition
+                if (opcode == 0x01) {
+                    offset_list.push_back(_currentScript->size());
+                    g_lingo->code1(STOP);
                 // unimplemented instruction
-
-                if (opcode < 0x40) { // 1 byte instruction
+                } else if (opcode < 0x40) { // 1 byte instruction
                     offset_list.push_back(_currentScript->size());
                     g_lingo->code1(Lingo::c_unk);
                     g_lingo->codeInt(opcode);
-- 
cgit v1.2.3