diff options
-rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 21 | ||||
-rw-r--r-- | engines/director/lingo/lingo.h | 1 |
2 files changed, 15 insertions, 7 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp index d88527226e..6228380a52 100644 --- a/engines/director/lingo/lingo-builtins.cpp +++ b/engines/director/lingo/lingo-builtins.cpp @@ -33,10 +33,10 @@ static struct BuiltinProto { } builtins[] = { // Math { "abs", Lingo::b_abs, 1, 1, true }, // D2 function - { "atan", Lingo::b_atan, 1, 1, true }, // D4 function - { "cos", Lingo::b_cos, 1, 1, true }, // D4 function - { "exp", Lingo::b_exp, 1, 1, true }, // D4 function - { "float", Lingo::b_float, 1, 1, true }, // D4 function + { "atan", Lingo::b_atan, 1, 1, true }, // D4 f + { "cos", Lingo::b_cos, 1, 1, true }, // D4 f + { "exp", Lingo::b_exp, 1, 1, true }, // D4 f + { "float", Lingo::b_float, 1, 1, true }, // D4 f { "integer", Lingo::b_integer, 1, 1, true }, // D3 f { "log", Lingo::b_log, 1, 1, true }, // D4 f { "pi", Lingo::b_pi, 0, 0, true }, // D4 f @@ -176,10 +176,11 @@ static struct BuiltinProto { { "beep", Lingo::b_beep, 0, 1, false }, // D2 { "mci", Lingo::b_mci, 1, 1, false }, { "mciwait", Lingo::b_mciwait, 1, 1, false }, - { "sound-fadeIn", Lingo::b_soundFadeIn, 1, 2, false }, // D3 - { "sound-fadeOut", Lingo::b_soundFadeOut, 1, 2, false }, // D3 + { "sound-close", Lingo::b_soundClose, 1, 1, false }, // D4 c + { "sound-fadeIn", Lingo::b_soundFadeIn, 1, 2, false }, // D3 c + { "sound-fadeOut", Lingo::b_soundFadeOut, 1, 2, false }, // D3 c { "sound-playFile", Lingo::b_soundPlayFile, 2, 2, false }, // D3 c - { "sound-stop", Lingo::b_soundStop, 1, 1, false }, // D3 + { "sound-stop", Lingo::b_soundStop, 1, 1, false }, // D3 c { "soundBusy", Lingo::b_soundBusy, 1, 1, true }, // D3 f // Window { "close", Lingo::b_close, 1, 1, false }, // D4 c @@ -1337,6 +1338,12 @@ void Lingo::b_soundBusy(int nargs) { g_lingo->dropStack(nargs); } +void Lingo::b_soundClose(int nargs) { + g_lingo->printSTUBWithArglist("b_soundClose", nargs); + + g_lingo->dropStack(nargs); +} + void Lingo::b_soundFadeIn(int nargs) { g_lingo->printSTUBWithArglist("b_soundFadeIn", nargs); diff --git a/engines/director/lingo/lingo.h b/engines/director/lingo/lingo.h index ab9f09b370..b15691acc7 100644 --- a/engines/director/lingo/lingo.h +++ b/engines/director/lingo/lingo.h @@ -464,6 +464,7 @@ public: static void b_mci(int nargs); static void b_mciwait(int nargs); static void b_soundBusy(int nargs); + static void b_soundClose(int nargs); static void b_soundFadeIn(int nargs); static void b_soundFadeOut(int nargs); static void b_soundPlayFile(int nargs); |