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

macro to clean up (checkMatches)

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-12 17:13:50 +00:00
parent 5a64e95a0f
commit 231fc1f57c
1 changed files with 17 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
projects/flixel-desktop-habit-puzzle-game/source/HabitState.kiss
View File

@@ -421,33 +421,29 @@
(thisConnectedPieces.push toSprite) (thisConnectedPieces.push toSprite)
(toConnectedPieces.push self))) (toConnectedPieces.push self)))
(defMacro _checkMatch [side otherSide]
(let [sideStr (symbolNameValue side)
otherSideStr (symbolNameValue otherSide)
to (symbol "to$sideStr")
mp (symbol "matchingPieces$sideStr")
mz1 (symbol "matchZone$sideStr")
mz2 (symbol "matchZone$otherSideStr")]
`(whenLet [,to (dictGet ,mp id)
mz1 (,mz1 s)
mz2 (,mz2 ,to)]
(unless .isEmpty (mz1.intersection mz2)
(connectPiece id s ,to mz1 mz2)))))
(method :Void checkMatches [id] (method :Void checkMatches [id]
(when !(pieceData.exists id) (return)) (when !(pieceData.exists id) (return))
(let [s (dictGet spriteMap id) (let [s (dictGet spriteMap id)
jig (dictGet pieceData id) jig (dictGet pieceData id)
row jig.row row jig.row
col jig.col] col jig.col]
(_checkMatch Left Right)
(whenLet [toLeft (dictGet matchingPiecesLeft id) (_checkMatch Right Left)
mzl (matchZoneLeft s) (_checkMatch Up Down)
mzr (matchZoneRight toLeft)] (_checkMatch Down Up)))
(unless .isEmpty (mzl.intersection mzr)
(connectPiece id s toLeft mzl mzr)))
(whenLet [toRight (dictGet matchingPiecesRight id)
mzr (matchZoneRight s)
mzl (matchZoneLeft toRight)]
(unless .isEmpty (mzl.intersection mzr)
(connectPiece id s toRight mzr mzl)))
(whenLet [toUp (dictGet matchingPiecesUp id)
mzu (matchZoneUp s)
mzd (matchZoneDown toUp)]
(unless .isEmpty (mzu.intersection mzd)
(connectPiece id s toUp mzu mzd)))
(whenLet [toDown (dictGet matchingPiecesDown id)
mzd (matchZoneDown s)
mzu (matchZoneUp toDown)]
(unless .isEmpty (mzu.intersection mzd)
(connectPiece id s toDown mzd mzu)))))
(method :Array<KissExtendedSprite> recursivelyConnectedPieces [s &opt :Array<KissExtendedSprite> collected] (method :Array<KissExtendedSprite> recursivelyConnectedPieces [s &opt :Array<KissExtendedSprite> collected]
(unless collected (set collected [])) (unless collected (set collected []))