functions to bring an array of sprites front/back

This commit is contained in:
2022-08-07 03:31:20 +00:00
parent dc33d17e92
commit a3b393c70a
2 changed files with 10 additions and 4 deletions

View File

@@ -229,12 +229,10 @@
(set s.mouseStartDragCallback
->:Void [s x y]
(let [s (cast s KissExtendedSprite)]
// Bring currently held pieces to the front:
(rewardSprites.bringToFront s)
(set s.priorityID (+ 1 .priorityID (last (the kiss.List<KissExtendedSprite> rewardSprites.members))))
(let [connectedPieces (recursivelyConnectedPieces s)]
(doFor connected connectedPieces
(rewardSprites.bringToFront connected))
// Bring currently held pieces to the front:
(rewardSprites.bringAllToFront (cast (concat [s] connectedPieces)))
(set s.connectedSprites connectedPieces))
(set draggingSprite s)
(set draggingLastPos (new FlxPoint s.x s.y))))