From a47457084f10faf49f002a0350bc9a832309e11d Mon Sep 17 00:00:00 2001
From: Paul Gilbert
Date: Thu, 28 Aug 2014 21:55:09 -0400
Subject: ACCESS: Add event polling to cmdVideoEnded to make videos play
 correctly

---
 engines/access/scripts.cpp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'engines')

diff --git a/engines/access/scripts.cpp b/engines/access/scripts.cpp
index ad806de056..c5b7d952da 100644
--- a/engines/access/scripts.cpp
+++ b/engines/access/scripts.cpp
@@ -458,10 +458,14 @@ void Scripts::cmdSetScroll() {
 }
 
 void Scripts::cmdVideoEnded() { 
-	if (_vm->_video->_videoEnd)
+	_vm->_events->pollEvents();
+
+	if (_vm->_video->_videoEnd) {
 		cmdGoto();
-	else
+	} else {
+		g_system->delayMillis(10);
 		_data->skip(2);
+	}
 }
 
 void Scripts::CMDSETBUFVID() { error("TODO CMDSETBUFVID"); }
-- 
cgit v1.2.3