From e11311e9b63f9ad08adea2e7cde008ad079e0bcc Mon Sep 17 00:00:00 2001
From: Roland van Laar
Date: Sun, 22 Dec 2019 20:58:18 +0100
Subject: DIRECTOR: Add wait between beeps.

The delay was choosen based on hearing the delay
in the original Director 4 beep script.
---
 engines/director/lingo/lingo-funcs.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'engines/director/lingo')

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) 	{
-- 
cgit v1.2.3