From 92601ae5f170464c28d940005052bc5d9f41a247 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Thu, 31 Aug 2023 19:17:04 -0600 Subject: [PATCH] allow skipping awaitplaysound --- src/hollywoo/Movie.kiss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/hollywoo/Movie.kiss b/src/hollywoo/Movie.kiss index 38a004f..24b8eeb 100644 --- a/src/hollywoo/Movie.kiss +++ b/src/hollywoo/Movie.kiss @@ -791,12 +791,14 @@ (delay skipping (min MAX_CAPTION_DURATION (director.getSoundLength sound)) (makeCC (director.hideCaption id)))) - (director.playSound sound volumeMod (when waitForEnd cc))) + + (withFunctions [(:Void innerCC [] (director.stopSound sound)(director.stopWaitForInput innerCC)(cc))] + (director.startWaitForInput innerCC) + (director.playSound sound volumeMod (when waitForEnd innerCC)))) (unless waitForEnd (cc))) (hollywooMethod awaitPlaySound [:Bool skipping :String name :Continuation cc &opt :Float volumeMod] - (director.startWaitForInput cc) (playSound skipping name cc volumeMod true))