aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--engines/director/lingo/lingo-funcs.cpp5
1 files changed, 4 insertions, 1 deletions
diff --git a/engines/director/lingo/lingo-funcs.cpp b/engines/director/lingo/lingo-funcs.cpp
index 0d8d98210d..ecb43337d4 100644
--- a/engines/director/lingo/lingo-funcs.cpp
+++ b/engines/director/lingo/lingo-funcs.cpp
@@ -355,8 +355,11 @@ void Lingo::func_cursor(int c) {
}
void Lingo::func_beep(int repeats) {
- for (int r = 1; r <= repeats; r++)
+ for (int r = 1; r <= repeats; r++) {
_vm->getSoundManager()->systemBeep();
+ if (r < repeats)
+ g_system->delayMillis(400);
+ }
}
int Lingo::func_marker(int m) {