diff options
-rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 4 | ||||
-rw-r--r-- | engines/director/score.h | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp index be0a191a5b..8ae595c01c 100644 --- a/engines/director/lingo/lingo-builtins.cpp +++ b/engines/director/lingo/lingo-builtins.cpp @@ -20,6 +20,7 @@ * */ +#include "common/system.h" #include "director/lingo/lingo.h" namespace Director { @@ -871,7 +872,8 @@ void Lingo::b_nothing(int nargs) { void Lingo::b_delay(int nargs) { Datum d = g_lingo->pop(); d.toInt(); - warning("STUB: b_delay(%d)", d.u.i); + + g_director->getCurrentScore()->_nextFrameTime = g_system->getMillis() + (float)d.u.i / 60 * 1000; } void Lingo::b_do(int nargs) { diff --git a/engines/director/score.h b/engines/director/score.h index dca1b8fc02..61d911800e 100644 --- a/engines/director/score.h +++ b/engines/director/score.h @@ -110,6 +110,7 @@ public: Common::Rect _movieRect; bool _stopPlay; + uint32 _nextFrameTime; private: uint16 _versionMinor; @@ -123,7 +124,6 @@ private: uint16 _castArrayStart; uint16 _currentFrame; Common::String _currentLabel; - uint32 _nextFrameTime; uint32 _flags; uint16 _castArrayEnd; uint16 _movieScriptCount; |