music for hollywoo-flixel

projects/hollywoo/src/hollywoo/Director.hx

@@ -9,10 +9,12 @@ enum Appearance {
 
 typedef Continuation = Void -> Void;
 
-interface Director<Set, StagePosition, StageFacing, ScreenPosition, Actor, Sound> {
+interface Director<Set, StagePosition, StageFacing, ScreenPosition, Actor, Sound, Song> {
     function showScene(scene:Scene<Set, StagePosition, StageFacing, ScreenPosition, Actor>, appearance:Appearance, cc:Continuation):Void;
     function showCharacter(character:Character<StagePosition, StageFacing, Actor>, appearance:Appearance, cc:Continuation):Void;
-    function playSound(sound:Sound, volumeMod:Float, cc:Continuation):Void;
+    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 stopSong():Void;
     function waitForInputOrDelay(delaySeconds:Float, cc:Continuation):Void;
     function showDialog(speakerName:String, type:SpeechType<StagePosition, StageFacing, Actor>, wryly:String, dialog:String, cc:Continuation):Void;
 }

projects/hollywoo/src/hollywoo/Movie.hx

@@ -1,5 +1,6 @@
 package hollywoo;
 
+import haxe.Constraints.Function;
 import kiss.AsyncEmbeddedScript;
 import kiss.Prelude;
 import hollywoo.Scene;
@@ -9,7 +10,7 @@ import hollywoo.Director;
  * Model/controller of a Hollywoo film, and main execution script
  */
 @:build(kiss.Kiss.build())
-class Movie<Set, StagePosition, StageFacing, ScreenPosition, Actor, Sound> extends AsyncEmbeddedScript {
+class Movie<Set, StagePosition, StageFacing, ScreenPosition, Actor, Sound, Song> extends AsyncEmbeddedScript {
     // TODO for some reason this wasn't working when declared in Movie.kiss:
     // Mutable representation of frames in time:
     var scenes:Map<String, Scene<Set, StagePosition, StageFacing, ScreenPosition, Actor>> = [];

projects/hollywoo/src/hollywoo/Movie.kiss

@@ -2,6 +2,7 @@
 (prop :Map<String,Set> sets (new Map))
 (prop :Map<String,Actor> actors (new Map))
 (prop :Map<String,Sound> sounds (new Map))
+(prop :Map<String,Song> songs (new Map))
 
 // TODO for some reason this won't work when declared in Kiss syntax:
 // Mutable representation of frames in time:
@@ -26,7 +27,7 @@
 (defNew
     [
         // "View" in the Model-View-Controller architecture:
-        &prop :Director<Set,StagePosition,StageFacing,ScreenPosition,Actor,Sound> director
+        &prop :Director<Set,StagePosition,StageFacing,ScreenPosition,Actor,Sound,Song> director
     ]
 
     (super))
@@ -62,10 +63,31 @@
     (assert isLoading)
     (dictSet sounds name s))
 
-(method playSound [name :Continuation cc &opt :Float volumeMod]
+(method playSound [name :Continuation cc &opt :Float volumeMod :Bool waitForEnd]
     (set volumeMod (or volumeMod 1))
     (assert (<= 0 volumeMod 1))
-    (director.playSound (dictGet sounds name) volumeMod cc))
+    (director.playSound (dictGet sounds name) volumeMod ?waitForEnd cc))
+
+(method awaitPlaySound [name :Continuation cc &opt :Float volumeMod]
+    (playSound name cc volumeMod true))
+
+(method newSong [name :Song song]
+    (assert isLoading)
+    (dictSet songs name song))
+
+(method playSong [name :Continuation cc &opt :Float volumeMod :Bool loop :Bool waitForEnd]
+    (set volumeMod (or volumeMod 1))
+    (assert (<= 0 volumeMod 1))
+    (director.playSong (dictGet songs name) volumeMod ?loop ?waitForEnd cc))
+
+(method awaitPlaySong [name :Continuation cc &opt :Float volumeMod]
+    (playSong name cc volumeMod false true))
+    
+(method loopSong [name :Continuation cc &opt :Float volumeMod]
+    (playSong name cc volumeMod true false))
+
+(method stopSong []
+    (director.stopSong))
 
 (method newActor [name :Actor actor]
     (assert isLoading)