DIRECTOR: Lingo: Documented D4 "Digital video" Lingo

3 files changed, 26 insertions, 13 deletions

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 630d681dee..123ce8cfbf 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -196,6 +196,7 @@ static const char *twoWordBuiltins[] = {
 static const char *builtinFunctions[] = {
 	"cast",
 	"field",
+	"findEmpty",
 	0
 };
 
diff --git a/engines/director/lingo/lingo-the.cpp b/engines/director/lingo/lingo-the.cpp
index d606b76945..8658e64362 100644
--- a/engines/director/lingo/lingo-the.cpp
+++ b/engines/director/lingo/lingo-the.cpp
@@ -91,6 +91,8 @@ TheEntity entities[] = {
 	{ kThePauseState,		"pauseState",		false },	// D2 f
 	{ kThePerFrameHook,		"perFrameHook",		false },	// D2 p
 	{ kThePreloadEventAbort,"preloadEventAbort",false },
+	{ kThePreLoadRAM,		"preLoadRAM",		false },	//				D4 p
+	{ kTheQuickTimePresent,	"quickTimePresent",	false },	//				D4 f
 	{ kTheResult,			"result",			false },	// D2 f
 	{ kTheRightMouseDown,	"rightMouseDown",	false },
 	{ kTheRightMouseUp,		"rightMouseUp",		false },
@@ -145,20 +147,20 @@ TheEntityField fields[] = {
 	{ kTheSprite,	"locH",			kTheLocH },			// D2 p
 	{ kTheSprite,	"locV",			kTheLocV },			// D2 p
 	{ kTheSprite,	"moveable",		kTheMoveable },
-	{ kTheSprite,	"movieRate",	kTheMovieRate },
-	{ kTheSprite,	"movieTime",	kTheMovieTime },
+	{ kTheSprite,	"movieRate",	kTheMovieRate },	//				D4 P
+	{ kTheSprite,	"movieTime",	kTheMovieTime },	//				D4 P
 	{ kTheSprite,	"pattern",		kThePattern },		// D2 p
 	{ kTheSprite,	"puppet",		kThePuppet },		// D2 p
 	{ kTheSprite,	"right",		kTheRight },		// D2 p
 	{ kTheSprite,	"scriptNum",	kTheScriptNum },	//				D4 p
-	{ kTheSprite,	"startTime",	kTheStartTime },
+	{ kTheSprite,	"startTime",	kTheStartTime },	//				D4 p
 	{ kTheSprite,	"stretch",		kTheStrech },		// D2 p
-	{ kTheSprite,	"stopTime",		kTheStopTime },
+	{ kTheSprite,	"stopTime",		kTheStopTime },		//				D4 p
 	{ kTheSprite,	"top",			kTheTop },			// D2 p
 	{ kTheSprite,	"trails",		kTheTrails },
 	{ kTheSprite,	"type",			kTheType },			// D2 p
 	{ kTheSprite,	"visible",		kTheVisible },
-	{ kTheSprite,	"volume",		kTheVolume },
+	{ kTheSprite,	"volume",		kTheVolume },		//				D4 p
 	{ kTheSprite,	"width",		kTheWidth },		// D2 p
 
 	// Common cast fields
@@ -179,13 +181,17 @@ TheEntityField fields[] = {
 	{ kTheCast,		"foreColor",	kTheForeColor },
 
 	// Digital video fields
-	{ kTheCast,		"controller",	kTheController },
-	{ kTheCast,		"directToStage",kTheDirectToStage },
-	{ kTheCast,		"frameRate",	kTheFrameRate },
-	{ kTheCast,		"loop",			kTheLoop },
-	{ kTheCast,		"pausedAtStart",kThePausedAtStart },
-	{ kTheCast,		"preload",		kThePreload },
-	{ kTheCast,		"sound",		kTheSound }, // 0-1 off-on
+	{ kTheCast,		"center",		kTheCenter },		//				D4 p
+	{ kTheCast,		"controller",	kTheController },	//				D4 p
+	{ kTheCast,		"crop",			kTheCrop },			//				D4 p
+	{ kTheCast,		"directToStage",kTheDirectToStage },//				D4 p
+	{ kTheCast,		"duration",		kTheDuration },		//				D4 p
+	{ kTheCast,		"frameRate",	kTheFrameRate },	//				D4 p
+	{ kTheCast,		"loop",			kTheLoop },			//				D4 p
+	{ kTheCast,		"pausedAtStart",kThePausedAtStart },//				D4 p
+	{ kTheCast,		"preLoad",		kThePreLoad },		//				D4 p
+	{ kTheCast,		"sound",		kTheSound },		//				D4 p // 0-1 off-on
+	{ kTheCast,		"video",		kTheVideo },		//				D4 p
 
 	// Bitmap fields
 	{ kTheCast,		"depth",		kTheDepth },
diff --git a/engines/director/lingo/lingo-the.h b/engines/director/lingo/lingo-the.h
index be501ba984..08522b45a2 100644
--- a/engines/director/lingo/lingo-the.h
+++ b/engines/director/lingo/lingo-the.h
@@ -89,6 +89,8 @@ enum TheEntityType {
 	kThePauseState,
 	kThePerFrameHook,
 	kThePreloadEventAbort,
+	kThePreLoadRAM,
+	kTheQuickTimePresent,
 	kTheResult,
 	kTheRightMouseDown,
 	kTheRightMouseUp,
@@ -130,12 +132,15 @@ enum TheFieldType {
 	kTheAbbr    = 1,
 	kTheCastNum,
 	kTheCastType,
+	kTheCenter,
 	kTheCheckMark,
 	kTheController,
+	kTheCrop,
 	kTheCursor,
 	kTheDepth,
 	kTheDirectToStage,
 	kTheDrawRect,
+	kTheDuration,
 	kTheLocH,
 	kTheLocV,
 	kTheBackColor,
@@ -166,7 +171,7 @@ enum TheFieldType {
 	kThePattern,
 	kThePausedAtStart,
 	kThePicture,
-	kThePreload,
+	kThePreLoad,
 	kThePuppet,
 	kThePurgePriority,
 	kTheRect,
@@ -192,6 +197,7 @@ enum TheFieldType {
 	kTheTop,
 	kTheTrails,
 	kTheType,
+	kTheVideo,
 	kTheVisible,
 	kTheVolume,
 	kTheWidth