kiss-lang/hollywoo-flixel
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

linearMotion allow connected sprites

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-04-30 16:32:12 -06:00
parent 1bce23b2fb
commit 4cefee07a0
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/hollywoo_flixel/HollywooFlixelDSL.kiss
View File

@@ -18,7 +18,7 @@
(when cc (cc)) (when cc (cc))
})) }))
(method linearMotion [:FlxSprite sprite :Float destX :Float destY :Float speed &opt :Void->Void cc :String soundLoop :Float volumeMod] (method linearMotion [:FlxSprite sprite :Float destX :Float destY :Float speed &opt :Void->Void cc :String soundLoop :Float volumeMod :Array<FlxSprite> connectedSprites]
(when soundLoop (when soundLoop
(let [oldCC cc] (let [oldCC cc]
(set cc (set cc
@@ -28,12 +28,17 @@
(oldCC))))) (oldCC)))))
(loopSound soundLoop (makeCC null) volumeMod)) (loopSound soundLoop (makeCC null) volumeMod))
(tween (tween
(FlxTween.linearMotion sprite sprite.x sprite.y destX destY speed false (tweenOpts cc)))) (FlxTween.linearMotion sprite sprite.x sprite.y destX destY speed false (tweenOpts cc)))
(when connectedSprites
(doFor cSprite connectedSprites
(let [xOffset (- cSprite.x sprite.x)
yOffset (- cSprite.y sprite.y)]
(linearMotion cSprite (+ destX xOffset) (+ destY yOffset) speed)))))
(defAlias &ident FlxTween.linearMotion CHANGE_TO_MOVIE_LINEARMOTION) (defAlias &ident FlxTween.linearMotion CHANGE_TO_MOVIE_LINEARMOTION)
(method linearMotionTo [:FlxSprite sprite :String positionKey :Float speed &opt :Void->Void cc :String soundLoop :Float volumeMod] (method linearMotionTo [:FlxSprite sprite :String positionKey :Float speed &opt :Void->Void cc :String soundLoop :Float volumeMod :Array<FlxSprite> connectedSprites]
(let [position (resolvePosition positionKey)] (let [position (resolvePosition positionKey)]
(linearMotion sprite position.x position.y speed cc soundLoop volumeMod))) (linearMotion sprite position.x position.y speed cc soundLoop volumeMod connectedSprites)))
(method newFlxSet [name assetPath] (method newFlxSet [name assetPath]
(let [setSprite (new FlxSprite 0 0)] (let [setSprite (new FlxSprite 0 0)]