Make delayLengths a JsonMap

src/hollywoo/DelayLength.hx

@@ -0,0 +1,7 @@
+package hollywoo;
+
+import kiss.Prelude;
+import kiss.List;
+
+@:build(kiss.Kiss.build())
+class DelayLength {}

src/hollywoo/DelayLength.kiss

@@ -0,0 +1,4 @@
+(defNew [&prop :Float length])
+
+(method stringify [] "$length")
+(method parse [:String data] (new DelayLength (Std.parseFloat data)))

src/hollywoo/Movie.kiss

@@ -155,6 +155,7 @@
             :String lightSourceJsonFile
             :LightSource defaultLightSource
             :String stagePositionsJson
+            :String delayLengthsJson
             &opt :String voiceLinesJson
         ]
         [
@@ -162,6 +163,8 @@
                 (new JsonMap stagePositionsJson (new StagePosition 0 0 0))
             :JsonMap<JsonableArray<LightSource>> lightSources
                 (new JsonMap lightSourceJsonFile (new JsonableArray [] defaultLightSource))
+            :JsonMap<DelayLength> delayLengths
+                (new JsonMap delayLengthsJson (new DelayLength 0.5))
         ]
 
         (set director.movie this)
@@ -203,7 +206,11 @@
             (#unless subclass (method ,nameAndType ,argList ,@body))
         }))
 
-(hollywooMethod :Void delay true [sec :Continuation cc]
+(hollywooMethod :Void delay true [:Dynamic length :Continuation cc]
+    (let [sec (typeCase [length]
+                    ([:Float sec] sec)
+                    ([:String key] .length (delayLengths.get key))
+                    (never otherwise))]
         (case delayHandling
             (Auto
                 (Timer.delay cc (* 1000 sec)))
@@ -227,7 +234,7 @@
                         (director.stopWaitForInput cc)
                         (cc)
                     }))
-        (otherwise (throw "Unsupported delay type $delayHandling"))))
+            (otherwise (throw "Unsupported delay type $delayHandling")))))
 
 (hollywooMethod newSet true [name :Set set]
     (assert isLoading)