drag to select works in many cases

This commit is contained in:
2022-08-17 22:48:24 +00:00
parent 0d934e1f4d
commit ab71d9523c
3 changed files with 62 additions and 13 deletions

View File

@@ -347,8 +347,7 @@
(set s.priorityID (+ 1 .priorityID (last (the kiss.List<KissExtendedSprite> rewardSprites.members))))
(let [connectedPieces (recursivelyConnectedPieces s)]
// Bring currently held pieces to the front:
(rewardSprites.bringAllToFront connectedPieces)
(set s.connectedSprites connectedPieces))
(rewardSprites.bringAllToFront connectedPieces))
(set draggingSprite s)
(set draggingLastPos (new FlxPoint s.x s.y))))
(set s.mouseStopDragCallback
@@ -505,6 +504,9 @@
(thisConnectedPieces.push toSprite)
(toConnectedPieces.push self)
(let [selfAndAttached (recursivelyConnectedPieces self)]
(doFor s selfAndAttached
(set s.connectedSprites selfAndAttached)))
true))
(defMacro _checkMatch [side otherSide]