From 3b706314dadde2d6b420e8c88847d7b778c397c4 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Wed, 8 Jan 2020 23:41:28 +0100
Subject: DIRECTOR: Correctly set script type for Lscr bytecode

---
 engines/director/score.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/engines/director/score.cpp b/engines/director/score.cpp
index 88927c1366..67eb27b74e 100644
--- a/engines/director/score.cpp
+++ b/engines/director/score.cpp
@@ -781,7 +781,7 @@ void Score::loadCastData(Common::SeekableSubReadStreamEndian &stream, uint16 id,
 			uint scriptId = ((ScriptCast *)(*_loadedCast)[id])->_id - 1;
 			if (scriptId < _castScriptIds.size()) {
 				int resourceId = _castScriptIds[scriptId];
-				_lingo->addCodeV4(*_movieArchive->getResource(MKTAG('L', 's', 'c', 'r'), resourceId), kCastScript, id);
+				_lingo->addCodeV4(*_movieArchive->getResource(MKTAG('L', 's', 'c', 'r'), resourceId), ((ScriptCast *)_loadedCast->getVal(id))->_scriptType, id);
 			} else {
 				warning("Score::loadCastData(): Lingo context missing a resource entry for script %d referenced in cast %d", scriptId, id);
 			}
-- 
cgit v1.2.3