diff options
Diffstat (limited to 'engines')
-rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 8 | ||||
-rw-r--r-- | engines/director/lingo/lingo-funcs.cpp | 2 |
2 files changed, 7 insertions, 3 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) { diff --git a/engines/director/lingo/lingo-funcs.cpp b/engines/director/lingo/lingo-funcs.cpp index b28436aea3..0d8d98210d 100644 --- a/engines/director/lingo/lingo-funcs.cpp +++ b/engines/director/lingo/lingo-funcs.cpp @@ -355,7 +355,7 @@ void Lingo::func_cursor(int c) { } void Lingo::func_beep(int repeats) { - for (int r = 0; r <= repeats; r++) + for (int r = 1; r <= repeats; r++) _vm->getSoundManager()->systemBeep(); } |