diff options
Diffstat (limited to 'engines/director/lingo/lingo-builtins.cpp')
-rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp index dc2f88fe24..d1056fe397 100644 --- a/engines/director/lingo/lingo-builtins.cpp +++ b/engines/director/lingo/lingo-builtins.cpp @@ -1542,8 +1542,12 @@ void Lingo::b_union(int nargs) { // Sound /////////////////// void Lingo::b_beep(int nargs) { - Datum d = g_lingo->pop(); - g_lingo->func_beep(d.u.i); + int repeat = 1; + if (nargs == 1) { + Datum d = g_lingo->pop(); + repeat = d.u.i; + } + g_lingo->func_beep(repeat); } void Lingo::b_mci(int nargs) { |