leave sound looping to hollywoo core

src/hollywoo_flixel/FlxDirector.kiss

@@ -611,9 +611,6 @@
     (sound.play))
 
 (method :Void stopSound [:FlxSound sound]
-    (when (flxMovie.loopingOnCompletes.exists sound)
-        ((dictGet flxMovie.loopingOnCompletes sound))
-        (flxMovie.loopingOnCompletes.remove sound))
     (currentSounds.remove sound)
     (sound.stop))
 

src/hollywoo_flixel/FlxMovie.hx

@@ -39,7 +39,6 @@ class FlxMovie extends Movie<FlxSprite, ActorFlxSprite, FlxSound, FlxSound, FlxS
     public var tweenedPositionsOfSpritesInScenes:Map<String,Map<FlxSprite,FlxPoint>> = [];
 
     public var tweens:Array<FlxTween> = [];
-    public var loopingOnCompletes:Map<FlxSound,Void->Void> = [];
     public var STAGE_LEFT_X:Float;
     public var STAGE_RIGHT_X:Float;
     public var ACTOR_WIDTH:Int;

src/hollywoo_flixel/HollywooFlixelDSL.kiss

@@ -58,7 +58,7 @@
         (let [oldCC cc]
             (set cc
                 (makeCC
-                    (stopSound skipping soundLoop (makeCC null))
+                    (stopLoopingSound skipping (makeCC null))
                     (when oldCC
                         (oldCC)))))
         (loopSound skipping soundLoop (makeCC null) volumeMod))
@@ -238,16 +238,6 @@
                 (when delayWhileShown (cc)))))
     (unless delayWhileShown (cc)))
 
-(method loopSound [:Bool skipping name :Void->Void cc &opt :Float volumeMod]
-    (playSound skipping name (makeCC null) volumeMod false)
-    (let [cs flxDirector.currentSounds
-            sound (nth cs (- cs.length 1))
-            onComplete sound.onComplete]
-        (dictSet loopingOnCompletes sound onComplete)
-        (set sound.onComplete null)
-        (set sound.looped true))
-    (cc))
-
 (method putPresetPosition [key x y z]
     (let [pos (new StagePosition (Std.int x) (Std.int y) (Std.int z))]
         (stagePositions.put key pos)