skip voice tracks when skipping dialogue

src/hollywoo/Director.hx

@@ -17,6 +17,7 @@ interface Director<Set, StagePosition, StageFacing, ScreenPosition, Actor, Sound
     function playSound(sound:Sound, volumeMod:Float, waitForEnd:Bool, cc:Continuation):Void;
     function playSong(song:Song, volumeMod:Float, loop:Bool, waitForEnd:Bool, cc:Continuation):Void;
     function playVoiceTrack(track:VoiceTrack, volumeMod:Float, start:Float, end:Float, cc:Continuation):Void;
+    function stopVoiceTrack(track:VoiceTrack):Void;
     function stopSong():Void;
     function startWaitForInput(cc:Continuation):Void;
     function stopWaitForInput():Void;

src/hollywoo/Movie.kiss

@@ -41,15 +41,17 @@
             (whenLet [sceneForActor (dictGet intercutMap actorName)]
                 (setScene sceneForActor ->{})))
         
-        (let [cc ->:Void {(director.hideDialog) (cc)}]
-            (director.showDialog actorName dialogType wryly text cc)
+        (let [cc ->:Void {(director.hideDialog) (cc)}
+                &mut skipCC cc]
             // When an actorName is given, check for a voiced line to play.
             // Otherwise, assume it is un-voiced super text
             (when (and actorName (< 0 (count voiceTracks)))
                     (case (try (dictGet voiceLines "$actorName $text") (catch [e] (print e) null))
                         ((objectWith trackKey start end)
-                            (director.playVoiceTrack (dictGet voiceTracks trackKey) 1 start end cc))
-                        (otherwise)))))
+                            (director.playVoiceTrack (dictGet voiceTracks trackKey) 1 start end cc)
+                            (set skipCC ->:Void {(director.stopVoiceTrack (dictGet voiceTracks trackKey)) (cc)}))
+                        (otherwise)))
+            (director.showDialog actorName dialogType wryly text skipCC)))
 
     (method newVoiceTrack [actorName :VoiceTrack track :String lineJson]
         (let [actorNumVoiceTracks (or (dictGet voiceTracksPerActor actorName) 0)