fix bug in Movie.delay

2021-11-02 20:08:14 -04:00
parent a393db0eda
commit 7697f31cee
1 changed files with 13 additions and 7 deletions
--- a/projects/hollywoo/src/hollywoo/Movie.kiss
+++ b/projects/hollywoo/src/hollywoo/Movie.kiss
@@ -41,13 +41,19 @@
        (Auto
            (Timer.delay cc (* 1000 sec)))
        (AutoWithSkip
-            (director.startWaitForInput cc)
-            (Timer.delay
-                ->{
-                    (director.stopWaitForInput)
-                    (cc)
-                }
-                (* 1000 sec)))
+            (let [autoDelay
+                        (Timer.delay
+                            ->{
+                                (director.stopWaitForInput)
+                                (cc)
+                            }
+                            (* 1000 sec))]
+                (director.startWaitForInput 
+                    ->{
+                        (director.stopWaitForInput)
+                        (autoDelay.stop)
+                        (cc)
+                    })))
        (Manual
            (director.startWaitForInput
                ->{