habit game fix launching with no puzzles started
This commit is contained in:
@@ -39,40 +39,49 @@
|
|||||||
(#when debug
|
(#when debug
|
||||||
(debugLayer.clear)
|
(debugLayer.clear)
|
||||||
|
|
||||||
(doFor s rewardSprites
|
(when model.rewardFiles
|
||||||
null
|
(doFor s rewardSprites
|
||||||
// Uncomment for debugging piece rotation:
|
null
|
||||||
//(debugLayer.drawCircle s.x s.y 1 FlxColor.RED)
|
// Uncomment for debugging piece rotation:
|
||||||
//(debugLayer.drawCircle (+ s.x s.origin.x) (+ s.y s.origin.y) 1 FlxColor.LIME)
|
//(debugLayer.drawCircle s.x s.y 1 FlxColor.RED)
|
||||||
// Uncomment for debugging match zones:
|
//(debugLayer.drawCircle (+ s.x s.origin.x) (+ s.y s.origin.y) 1 FlxColor.LIME)
|
||||||
**(let [matchZones [(matchZoneLeft s) (matchZoneRight s)(matchZoneUp s)(matchZoneDown s)]]
|
// Uncomment for debugging match zones:
|
||||||
(doFor z matchZones
|
**(let [matchZones [(matchZoneLeft s) (matchZoneRight s)(matchZoneUp s)(matchZoneDown s)]]
|
||||||
(unless z.isEmpty
|
(doFor z matchZones
|
||||||
(debugLayer.drawFlxRect z FlxColor.RED))))))
|
(unless z.isEmpty
|
||||||
|
(debugLayer.drawFlxRect z FlxColor.RED)))))))
|
||||||
|
|
||||||
(let [zoom pieceCamera.zoom
|
(when model.rewardFiles
|
||||||
scroll (pieceCamera.scroll.copyTo)]
|
(let [zoom pieceCamera.zoom
|
||||||
(pieceCamera.updateScrollWheelZoom elapsed 5)
|
scroll (pieceCamera.scroll.copyTo)]
|
||||||
(pieceCamera.updateMouseBorderControl elapsed KEYBOARD_SCROLL_SPEED 0.002 uiCamera)
|
(pieceCamera.updateScrollWheelZoom elapsed 5)
|
||||||
(when (or !(= zoom pieceCamera.zoom) !(scroll.equals pieceCamera.scroll))
|
(pieceCamera.updateMouseBorderControl elapsed KEYBOARD_SCROLL_SPEED 0.002 uiCamera)
|
||||||
(set save.data.zoom pieceCamera.zoom)
|
(when (or !(= zoom pieceCamera.zoom) !(scroll.equals pieceCamera.scroll))
|
||||||
(set save.data.scroll pieceCamera.scroll)
|
(set save.data.zoom pieceCamera.zoom)
|
||||||
(save.flush)))
|
(set save.data.scroll pieceCamera.scroll)
|
||||||
|
(save.flush)))
|
||||||
|
|
||||||
(when entryWindow
|
(when entryWindow
|
||||||
(when FlxG.keys.justPressed.ESCAPE
|
(when FlxG.keys.justPressed.ESCAPE
|
||||||
(if (entryWindow.isShown)
|
(if (entryWindow.isShown)
|
||||||
(entryWindow.hide)
|
(entryWindow.hide)
|
||||||
(entryWindow.show))))
|
(entryWindow.show))))
|
||||||
|
|
||||||
(#when debug
|
(when (and FlxG.keys.justPressed.SPACE !entryNameText)
|
||||||
(when FlxG.keys.justPressed.SEMICOLON
|
(defAndCall method toggleBackgroundColor
|
||||||
(set pieceCamera.zoom 1))
|
(set save.data.backgroundIndex #{(save.data.backgroundIndex + 1) % backgroundOptions.length;}#)
|
||||||
**(when FlxG.keys.justPressed.CONTROL
|
(save.flush)
|
||||||
(set save.data.storedPositions (new Map<Int,FlxPoint>))
|
// setModel so the entry text gets remade in inverted/lightened colors when necessary
|
||||||
(set save.data.storedAngles (new Map<Int,Float>))
|
(refreshModel)))
|
||||||
(set save.data.storedOrigins (new Map<Int,FlxPoint>))
|
|
||||||
(save.flush)))
|
(#when debug
|
||||||
|
(when FlxG.keys.justPressed.SEMICOLON
|
||||||
|
(set pieceCamera.zoom 1))
|
||||||
|
**(when FlxG.keys.justPressed.CONTROL
|
||||||
|
(set save.data.storedPositions (new Map<Int,FlxPoint>))
|
||||||
|
(set save.data.storedAngles (new Map<Int,Float>))
|
||||||
|
(set save.data.storedOrigins (new Map<Int,FlxPoint>))
|
||||||
|
(save.flush))))
|
||||||
|
|
||||||
(when FlxG.keys.justPressed.DELETE
|
(when FlxG.keys.justPressed.DELETE
|
||||||
(Sys.exit 0))
|
(Sys.exit 0))
|
||||||
@@ -87,12 +96,7 @@
|
|||||||
(dictSet (the Map<Int,FlxPoint> save.data.storedOrigins) (dictGet indexMap s) s.origin))
|
(dictSet (the Map<Int,FlxPoint> save.data.storedOrigins) (dictGet indexMap s) s.origin))
|
||||||
(save.flush)))
|
(save.flush)))
|
||||||
|
|
||||||
(when (and FlxG.keys.justPressed.SPACE !entryNameText)
|
|
||||||
(defAndCall method toggleBackgroundColor
|
|
||||||
(set save.data.backgroundIndex #{(save.data.backgroundIndex + 1) % backgroundOptions.length;}#)
|
|
||||||
(save.flush)
|
|
||||||
// setModel so the entry text gets remade in inverted/lightened colors when necessary
|
|
||||||
(refreshModel)))
|
|
||||||
|
|
||||||
(method startAdding [:EntryType type]
|
(method startAdding [:EntryType type]
|
||||||
(set typeAdding type)
|
(set typeAdding type)
|
||||||
@@ -180,175 +184,24 @@
|
|||||||
// Find, load, and add the current reward image as big as possible:
|
// Find, load, and add the current reward image as big as possible:
|
||||||
(unless currentRewardFile
|
(unless currentRewardFile
|
||||||
(set currentRewardFile (nth m.rewardFiles 0))
|
(set currentRewardFile (nth m.rewardFiles 0))
|
||||||
(while (> p .startingPoints (nth m.rewardFiles i))
|
|
||||||
(set rewardFileIndex i)
|
|
||||||
(set currentRewardFile (nth m.rewardFiles i))
|
|
||||||
(set maxRewardFile i)
|
|
||||||
(when (>= ++i m.rewardFiles.length)
|
|
||||||
--i
|
|
||||||
(let [lastStartingPoints .startingPoints (nth m.rewardFiles i)
|
|
||||||
piecesPerPoint .piecesPerPoint (nth m.rewardFiles i)
|
|
||||||
nextStartingPoints (+ lastStartingPoints (Math.ceil (/ TOTAL_PIECES piecesPerPoint)))]
|
|
||||||
(when (> p nextStartingPoints)
|
|
||||||
(set puzzleUnlocked nextStartingPoints))
|
|
||||||
(break)))))
|
|
||||||
|
|
||||||
(set save (new FlxSave))
|
|
||||||
(save.bind currentRewardFile.path)
|
|
||||||
(unless save.data.storedPositions
|
|
||||||
(set save.data.storedPositions (new Map<Int,FlxPoint>)))
|
|
||||||
(unless save.data.storedAngles
|
|
||||||
(set save.data.storedAngles (new Map<Int,Float>)))
|
|
||||||
(unless save.data.storedOrigins
|
|
||||||
(set save.data.storedOrigins (new Map<Int,FlxPoint>)))
|
|
||||||
(unless save.data.backgroundIndex
|
|
||||||
(set save.data.backgroundIndex 0))
|
|
||||||
(set pieceCamera.bgColor (nth backgroundOptions save.data.backgroundIndex))
|
|
||||||
(when save.data.zoom
|
|
||||||
(set pieceCamera.zoom save.data.zoom)
|
|
||||||
(set pieceCamera.scroll save.data.scroll))
|
|
||||||
|
|
||||||
(unless (and (= lastRewardFileIndex rewardFileIndex) (= lastTotalPoints (m.totalPoints)))
|
|
||||||
(set rewardSprite
|
|
||||||
(new FlxSprite 0 0
|
|
||||||
(BitmapData.fromFile
|
|
||||||
currentRewardFile.path)))
|
|
||||||
(when rewardSprites
|
|
||||||
(remove rewardSprites))
|
|
||||||
(rewardSprite.setGraphicSize FlxG.width 0)
|
|
||||||
(rewardSprite.updateHitbox)
|
|
||||||
(when (> rewardSprite.height FlxG.height)
|
|
||||||
(rewardSprite.setGraphicSize 0 FlxG.height))
|
|
||||||
(rewardSprite.updateHitbox)
|
|
||||||
(rewardSprite.screenCenter)
|
|
||||||
|
|
||||||
(unless save.data.zoom
|
|
||||||
(set pieceCamera.zoom rewardSprite.scale.x))
|
|
||||||
|
|
||||||
(set rewardSprites (new FlxTypedGroup))
|
|
||||||
|
|
||||||
(doFor map [matchingPiecesLeft matchingPiecesRight matchingPiecesUp matchingPiecesDown]
|
(if m.rewardFiles
|
||||||
(map.clear))
|
(while (> p .startingPoints (nth m.rewardFiles i))
|
||||||
(connectedPieces.clear)
|
(set rewardFileIndex i)
|
||||||
(doFor i (range TOTAL_PIECES) (dictSet connectedPieces i []))
|
(set currentRewardFile (nth m.rewardFiles i))
|
||||||
(indexMap.clear)
|
(set maxRewardFile i)
|
||||||
|
(when (>= ++i m.rewardFiles.length)
|
||||||
(let [r (new FlxRandom (Strings.hashCode currentRewardFile.path))
|
--i
|
||||||
ros (roughOptimalScale)
|
(let [lastStartingPoints .startingPoints (nth m.rewardFiles i)
|
||||||
graphicWidth (* ros rewardSprite.pixels.width)
|
piecesPerPoint .piecesPerPoint (nth m.rewardFiles i)
|
||||||
graphicHeight (* ros rewardSprite.pixels.height)
|
nextStartingPoints (+ lastStartingPoints (Math.ceil (/ TOTAL_PIECES piecesPerPoint)))]
|
||||||
pieceAssetWidth (/ (- graphicWidth (* EDGE_LEEWAY 2)) PUZZLE_WIDTH)
|
(when (> p nextStartingPoints)
|
||||||
pieceAssetHeight (/ (- graphicHeight (* EDGE_LEEWAY 2)) PUZZLE_HEIGHT)
|
(set puzzleUnlocked nextStartingPoints))
|
||||||
j (new Jigsawx pieceAssetWidth pieceAssetHeight graphicWidth graphicHeight EDGE_LEEWAY BUBBLE_SIZE PUZZLE_HEIGHT PUZZLE_WIDTH r)
|
(break))))
|
||||||
PIECE_WIDTH
|
(set puzzleUnlocked 0)))
|
||||||
(/ rewardSprite.width PUZZLE_WIDTH)
|
|
||||||
PIECE_HEIGHT
|
(when m.rewardFiles
|
||||||
(/ rewardSprite.height PUZZLE_HEIGHT)
|
(makeRewardSprites m p currentRewardFile))
|
||||||
:Array<FlxPoint> startingPoints []
|
|
||||||
:Array<Float> startingAngles []]
|
|
||||||
(let [&mut i 0]
|
|
||||||
(doFor y (range PUZZLE_HEIGHT)
|
|
||||||
(doFor x (range PUZZLE_WIDTH)
|
|
||||||
(startingAngles.push (* 90 (r.int 0 3)))
|
|
||||||
(startingPoints.push
|
|
||||||
(new FlxPoint (+ rewardSprite.x (* x PIECE_WIDTH)) (+ rewardSprite.y (* y PIECE_HEIGHT))))
|
|
||||||
(+= i 1))))
|
|
||||||
(r.shuffle startingPoints)
|
|
||||||
(set jigsaw j)
|
|
||||||
(r.shuffle jigsaw.jigs)
|
|
||||||
(localVar spriteGrid (for y (range PUZZLE_HEIGHT) (for x (range PUZZLE_WIDTH) null)))
|
|
||||||
(localVar indexGrid (for y (range PUZZLE_HEIGHT) (for x (range PUZZLE_WIDTH) -1)))
|
|
||||||
(doFor i (range (min TOTAL_PIECES (* currentRewardFile.piecesPerPoint (- p currentRewardFile.startingPoints))))
|
|
||||||
(let [jig (nth jigsaw.jigs i)
|
|
||||||
pos (ifLet [point (dictGet (the Map<Int,FlxPoint> save.data.storedPositions) i)]
|
|
||||||
point
|
|
||||||
(nth startingPoints i))
|
|
||||||
angle (ifLet [angle (dictGet (the Map<Int,Float> save.data.storedAngles) i)]
|
|
||||||
angle
|
|
||||||
(nth startingAngles i))
|
|
||||||
s (new KissExtendedSprite pos.x pos.y)
|
|
||||||
source (new FlxSprite)
|
|
||||||
mask (new FlxSprite)
|
|
||||||
sourceRect (new Rectangle (/ jig.xy.x ros) (/ jig.xy.y ros) (/ jig.wh.x ros) (/ jig.wh.y ros))]
|
|
||||||
(set s.angle angle)
|
|
||||||
(set s.priorityID i)
|
|
||||||
(setNth spriteGrid jig.row jig.col s)
|
|
||||||
(setNth indexGrid jig.row jig.col i)
|
|
||||||
(dictSet pieceData i jig)
|
|
||||||
(dictSet indexMap s i)
|
|
||||||
(dictSet spriteMap i s)
|
|
||||||
(set s.draggable true)
|
|
||||||
(s.enableMouseDrag false true)
|
|
||||||
(set s.mouseStartDragCallback
|
|
||||||
->:Void [s x y]
|
|
||||||
(let [s (cast s KissExtendedSprite)]
|
|
||||||
(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))
|
|
||||||
(set draggingSprite s)
|
|
||||||
(set draggingLastPos (new FlxPoint s.x s.y))))
|
|
||||||
(set s.mouseStopDragCallback
|
|
||||||
->:Void [s x y]
|
|
||||||
(let [s (cast s KissExtendedSprite)]
|
|
||||||
(set draggingSprite null)
|
|
||||||
|
|
||||||
(let [connectedPieces (recursivelyConnectedPieces s)]
|
|
||||||
(doFor connected connectedPieces
|
|
||||||
(checkMatches (dictGet indexMap connected)))
|
|
||||||
|
|
||||||
(doFor connected connectedPieces
|
|
||||||
(dictSet (the Map<Int,FlxPoint> save.data.storedPositions) (dictGet indexMap connected) (new FlxPoint connected.x connected.y))))
|
|
||||||
|
|
||||||
(pieceCamera.calculateScrollBounds rewardSprites uiCamera SCROLL_BOUND_MARGIN)
|
|
||||||
(save.flush)))
|
|
||||||
|
|
||||||
(var ROT_PADDING 2)
|
|
||||||
(localVar fWidth (+ (Std.int sourceRect.width) (* 2 ROT_PADDING)))
|
|
||||||
(localVar fHeight (+ (Std.int sourceRect.height) (* 2 ROT_PADDING)))
|
|
||||||
(source.makeGraphic fWidth fHeight FlxColor.TRANSPARENT true)
|
|
||||||
(source.pixels.copyPixels rewardSprite.pixels sourceRect (new Point ROT_PADDING ROT_PADDING))
|
|
||||||
|
|
||||||
(mask.makeGraphic fWidth fHeight FlxColor.TRANSPARENT true)
|
|
||||||
(drawPieceShape mask jig ros FlxColor.BLACK)
|
|
||||||
(FlxSpriteUtil.alphaMask s source.pixels mask.pixels)
|
|
||||||
|
|
||||||
// Uncomment to debug piece ids and row/columns
|
|
||||||
**(#when debug
|
|
||||||
(kiss_flixel.SpriteTools.writeOnSprite "$i" 32 s (object x (Percent 0.5) y (Percent 0.5)) FlxColor.RED)
|
|
||||||
(kiss_flixel.SpriteTools.writeOnSprite "(${jig.col},${jig.row})" 32 s (object x (Percent 0.5) y (Percent 0.7)) FlxColor.RED))
|
|
||||||
|
|
||||||
(s.loadRotatedGraphic s.pixels 4 -1 /*false true*/)
|
|
||||||
|
|
||||||
(set s.cameras [pieceCamera])
|
|
||||||
|
|
||||||
|
|
||||||
(rewardSprites.add s)))
|
|
||||||
(doFor row (range PUZZLE_HEIGHT)
|
|
||||||
(doFor col (range PUZZLE_WIDTH)
|
|
||||||
(let [id (nth indexGrid row col)]
|
|
||||||
(when (= id -1) (continue))
|
|
||||||
(when (>= (- col 1) 0)
|
|
||||||
(let [toLeft (nth spriteGrid row (- col 1))]
|
|
||||||
(dictSet matchingPiecesLeft id toLeft)))
|
|
||||||
(when (< (+ col 1) PUZZLE_WIDTH)
|
|
||||||
(let [toRight (nth spriteGrid row (+ col 1))]
|
|
||||||
(dictSet matchingPiecesRight id toRight)))
|
|
||||||
(when (>= (- row 1) 0)
|
|
||||||
(let [toUp (nth spriteGrid (- row 1) col)]
|
|
||||||
(dictSet matchingPiecesUp id toUp)))
|
|
||||||
(when (< (+ row 1) PUZZLE_HEIGHT)
|
|
||||||
(let [toDown (nth spriteGrid (+ row 1) col)]
|
|
||||||
(dictSet matchingPiecesDown id toDown))))))
|
|
||||||
(add rewardSprites)
|
|
||||||
(doFor i (range TOTAL_PIECES)
|
|
||||||
(checkMatches i))))
|
|
||||||
(set lastRewardFileIndex rewardFileIndex)
|
|
||||||
(prop &mut lastTotalPoints -1)
|
|
||||||
(set lastTotalPoints (m.totalPoints))
|
|
||||||
|
|
||||||
(pieceCamera.calculateScrollBounds rewardSprites uiCamera SCROLL_BOUND_MARGIN)
|
|
||||||
|
|
||||||
(localVar &mut windowWasShown true)
|
(localVar &mut windowWasShown true)
|
||||||
(when entryWindow
|
(when entryWindow
|
||||||
@@ -357,7 +210,8 @@
|
|||||||
(set entryWindow (new SimpleWindow "" (FlxColor.fromRGBFloat 0 0 0 0.5) FlxColor.WHITE 0.9 0.9))
|
(set entryWindow (new SimpleWindow "" (FlxColor.fromRGBFloat 0 0 0 0.5) FlxColor.WHITE 0.9 0.9))
|
||||||
(set entryWindow.cameras [uiCamera])
|
(set entryWindow.cameras [uiCamera])
|
||||||
(set entryWindow.textColor FlxColor.LIME)
|
(set entryWindow.textColor FlxColor.LIME)
|
||||||
(_makeText "Puzzle #$(+ 1 rewardFileIndex) / ${model.rewardFiles.length}" (max 0 (- TOTAL_PIECES (* currentRewardFile.piecesPerPoint (- p currentRewardFile.startingPoints)))))
|
(when m.rewardFiles
|
||||||
|
(_makeText "Puzzle #$(+ 1 rewardFileIndex) / ${model.rewardFiles.length}" (max 0 (- TOTAL_PIECES (* currentRewardFile.piecesPerPoint (- p currentRewardFile.startingPoints))))))
|
||||||
(set entryWindow.textColor FlxColor.ORANGE)
|
(set entryWindow.textColor FlxColor.ORANGE)
|
||||||
(map (m.activeDailyEntries) makeText)
|
(map (m.activeDailyEntries) makeText)
|
||||||
(set entryWindow.textColor FlxColor.GREEN)
|
(set entryWindow.textColor FlxColor.GREEN)
|
||||||
@@ -369,7 +223,8 @@
|
|||||||
(set entryWindow.textColor FlxColor.YELLOW)
|
(set entryWindow.textColor FlxColor.YELLOW)
|
||||||
(map (m.activeTodoEntries) makeText)
|
(map (m.activeTodoEntries) makeText)
|
||||||
(set entryWindow.textColor FlxColor.GRAY)
|
(set entryWindow.textColor FlxColor.GRAY)
|
||||||
(_makeText "[SPACE] Cycle background color" 0)
|
(when m.rewardFiles
|
||||||
|
(_makeText "[SPACE] Cycle background color" 0))
|
||||||
(when windowWasShown
|
(when windowWasShown
|
||||||
(entryWindow.show))
|
(entryWindow.show))
|
||||||
|
|
||||||
@@ -394,6 +249,164 @@
|
|||||||
FlxColor.GRAY
|
FlxColor.GRAY
|
||||||
])
|
])
|
||||||
|
|
||||||
|
(method makeRewardSprites [m p currentRewardFile]
|
||||||
|
(set save (new FlxSave))
|
||||||
|
(save.bind currentRewardFile.path)
|
||||||
|
(unless save.data.storedPositions
|
||||||
|
(set save.data.storedPositions (new Map<Int,FlxPoint>)))
|
||||||
|
(unless save.data.storedAngles
|
||||||
|
(set save.data.storedAngles (new Map<Int,Float>)))
|
||||||
|
(unless save.data.storedOrigins
|
||||||
|
(set save.data.storedOrigins (new Map<Int,FlxPoint>)))
|
||||||
|
(unless save.data.backgroundIndex
|
||||||
|
(set save.data.backgroundIndex 0))
|
||||||
|
(set pieceCamera.bgColor (nth backgroundOptions save.data.backgroundIndex))
|
||||||
|
(when save.data.zoom
|
||||||
|
(set pieceCamera.zoom save.data.zoom)
|
||||||
|
(set pieceCamera.scroll save.data.scroll))
|
||||||
|
|
||||||
|
(unless (and (= lastRewardFileIndex rewardFileIndex) (= lastTotalPoints (m.totalPoints)))
|
||||||
|
(set rewardSprite
|
||||||
|
(new FlxSprite 0 0
|
||||||
|
(BitmapData.fromFile
|
||||||
|
currentRewardFile.path)))
|
||||||
|
(when rewardSprites
|
||||||
|
(remove rewardSprites))
|
||||||
|
(rewardSprite.setGraphicSize FlxG.width 0)
|
||||||
|
(rewardSprite.updateHitbox)
|
||||||
|
(when (> rewardSprite.height FlxG.height)
|
||||||
|
(rewardSprite.setGraphicSize 0 FlxG.height))
|
||||||
|
(rewardSprite.updateHitbox)
|
||||||
|
(rewardSprite.screenCenter)
|
||||||
|
|
||||||
|
(unless save.data.zoom
|
||||||
|
(set pieceCamera.zoom rewardSprite.scale.x))
|
||||||
|
|
||||||
|
(set rewardSprites (new FlxTypedGroup))
|
||||||
|
|
||||||
|
(doFor map [matchingPiecesLeft matchingPiecesRight matchingPiecesUp matchingPiecesDown]
|
||||||
|
(map.clear))
|
||||||
|
(connectedPieces.clear)
|
||||||
|
(doFor i (range TOTAL_PIECES) (dictSet connectedPieces i []))
|
||||||
|
(indexMap.clear)
|
||||||
|
|
||||||
|
(let [r (new FlxRandom (Strings.hashCode currentRewardFile.path))
|
||||||
|
ros (roughOptimalScale)
|
||||||
|
graphicWidth (* ros rewardSprite.pixels.width)
|
||||||
|
graphicHeight (* ros rewardSprite.pixels.height)
|
||||||
|
pieceAssetWidth (/ (- graphicWidth (* EDGE_LEEWAY 2)) PUZZLE_WIDTH)
|
||||||
|
pieceAssetHeight (/ (- graphicHeight (* EDGE_LEEWAY 2)) PUZZLE_HEIGHT)
|
||||||
|
j (new Jigsawx pieceAssetWidth pieceAssetHeight graphicWidth graphicHeight EDGE_LEEWAY BUBBLE_SIZE PUZZLE_HEIGHT PUZZLE_WIDTH r)
|
||||||
|
PIECE_WIDTH
|
||||||
|
(/ rewardSprite.width PUZZLE_WIDTH)
|
||||||
|
PIECE_HEIGHT
|
||||||
|
(/ rewardSprite.height PUZZLE_HEIGHT)
|
||||||
|
:Array<FlxPoint> startingPoints []
|
||||||
|
:Array<Float> startingAngles []]
|
||||||
|
(let [&mut i 0]
|
||||||
|
(doFor y (range PUZZLE_HEIGHT)
|
||||||
|
(doFor x (range PUZZLE_WIDTH)
|
||||||
|
(startingAngles.push (* 90 (r.int 0 3)))
|
||||||
|
(startingPoints.push
|
||||||
|
(new FlxPoint (+ rewardSprite.x (* x PIECE_WIDTH)) (+ rewardSprite.y (* y PIECE_HEIGHT))))
|
||||||
|
(+= i 1))))
|
||||||
|
(r.shuffle startingPoints)
|
||||||
|
(set jigsaw j)
|
||||||
|
(r.shuffle jigsaw.jigs)
|
||||||
|
(localVar spriteGrid (for y (range PUZZLE_HEIGHT) (for x (range PUZZLE_WIDTH) null)))
|
||||||
|
(localVar indexGrid (for y (range PUZZLE_HEIGHT) (for x (range PUZZLE_WIDTH) -1)))
|
||||||
|
(doFor i (range (min TOTAL_PIECES (* currentRewardFile.piecesPerPoint (- p currentRewardFile.startingPoints))))
|
||||||
|
(let [jig (nth jigsaw.jigs i)
|
||||||
|
pos (ifLet [point (dictGet (the Map<Int,FlxPoint> save.data.storedPositions) i)]
|
||||||
|
point
|
||||||
|
(nth startingPoints i))
|
||||||
|
angle (ifLet [angle (dictGet (the Map<Int,Float> save.data.storedAngles) i)]
|
||||||
|
angle
|
||||||
|
(nth startingAngles i))
|
||||||
|
s (new KissExtendedSprite pos.x pos.y)
|
||||||
|
source (new FlxSprite)
|
||||||
|
mask (new FlxSprite)
|
||||||
|
sourceRect (new Rectangle (/ jig.xy.x ros) (/ jig.xy.y ros) (/ jig.wh.x ros) (/ jig.wh.y ros))]
|
||||||
|
(set s.angle angle)
|
||||||
|
(set s.priorityID i)
|
||||||
|
(setNth spriteGrid jig.row jig.col s)
|
||||||
|
(setNth indexGrid jig.row jig.col i)
|
||||||
|
(dictSet pieceData i jig)
|
||||||
|
(dictSet indexMap s i)
|
||||||
|
(dictSet spriteMap i s)
|
||||||
|
(set s.draggable true)
|
||||||
|
(s.enableMouseDrag false true)
|
||||||
|
(set s.mouseStartDragCallback
|
||||||
|
->:Void [s x y]
|
||||||
|
(let [s (cast s KissExtendedSprite)]
|
||||||
|
(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))
|
||||||
|
(set draggingSprite s)
|
||||||
|
(set draggingLastPos (new FlxPoint s.x s.y))))
|
||||||
|
(set s.mouseStopDragCallback
|
||||||
|
->:Void [s x y]
|
||||||
|
(let [s (cast s KissExtendedSprite)]
|
||||||
|
(set draggingSprite null)
|
||||||
|
|
||||||
|
(let [connectedPieces (recursivelyConnectedPieces s)]
|
||||||
|
(doFor connected connectedPieces
|
||||||
|
(checkMatches (dictGet indexMap connected)))
|
||||||
|
|
||||||
|
(doFor connected connectedPieces
|
||||||
|
(dictSet (the Map<Int,FlxPoint> save.data.storedPositions) (dictGet indexMap connected) (new FlxPoint connected.x connected.y))))
|
||||||
|
|
||||||
|
(pieceCamera.calculateScrollBounds rewardSprites uiCamera SCROLL_BOUND_MARGIN)
|
||||||
|
(save.flush)))
|
||||||
|
|
||||||
|
(var ROT_PADDING 2)
|
||||||
|
(localVar fWidth (+ (Std.int sourceRect.width) (* 2 ROT_PADDING)))
|
||||||
|
(localVar fHeight (+ (Std.int sourceRect.height) (* 2 ROT_PADDING)))
|
||||||
|
(source.makeGraphic fWidth fHeight FlxColor.TRANSPARENT true)
|
||||||
|
(source.pixels.copyPixels rewardSprite.pixels sourceRect (new Point ROT_PADDING ROT_PADDING))
|
||||||
|
|
||||||
|
(mask.makeGraphic fWidth fHeight FlxColor.TRANSPARENT true)
|
||||||
|
(drawPieceShape mask jig ros FlxColor.BLACK)
|
||||||
|
(FlxSpriteUtil.alphaMask s source.pixels mask.pixels)
|
||||||
|
|
||||||
|
// Uncomment to debug piece ids and row/columns
|
||||||
|
**(#when debug
|
||||||
|
(kiss_flixel.SpriteTools.writeOnSprite "$i" 32 s (object x (Percent 0.5) y (Percent 0.5)) FlxColor.RED)
|
||||||
|
(kiss_flixel.SpriteTools.writeOnSprite "(${jig.col},${jig.row})" 32 s (object x (Percent 0.5) y (Percent 0.7)) FlxColor.RED))
|
||||||
|
|
||||||
|
(s.loadRotatedGraphic s.pixels 4 -1 /*false true*/)
|
||||||
|
|
||||||
|
(set s.cameras [pieceCamera])
|
||||||
|
|
||||||
|
|
||||||
|
(rewardSprites.add s)))
|
||||||
|
(doFor row (range PUZZLE_HEIGHT)
|
||||||
|
(doFor col (range PUZZLE_WIDTH)
|
||||||
|
(let [id (nth indexGrid row col)]
|
||||||
|
(when (= id -1) (continue))
|
||||||
|
(when (>= (- col 1) 0)
|
||||||
|
(let [toLeft (nth spriteGrid row (- col 1))]
|
||||||
|
(dictSet matchingPiecesLeft id toLeft)))
|
||||||
|
(when (< (+ col 1) PUZZLE_WIDTH)
|
||||||
|
(let [toRight (nth spriteGrid row (+ col 1))]
|
||||||
|
(dictSet matchingPiecesRight id toRight)))
|
||||||
|
(when (>= (- row 1) 0)
|
||||||
|
(let [toUp (nth spriteGrid (- row 1) col)]
|
||||||
|
(dictSet matchingPiecesUp id toUp)))
|
||||||
|
(when (< (+ row 1) PUZZLE_HEIGHT)
|
||||||
|
(let [toDown (nth spriteGrid (+ row 1) col)]
|
||||||
|
(dictSet matchingPiecesDown id toDown))))))
|
||||||
|
(add rewardSprites)
|
||||||
|
(doFor i (range TOTAL_PIECES)
|
||||||
|
(checkMatches i))))
|
||||||
|
(set lastRewardFileIndex rewardFileIndex)
|
||||||
|
(prop &mut lastTotalPoints -1)
|
||||||
|
(set lastTotalPoints (m.totalPoints))
|
||||||
|
|
||||||
|
(pieceCamera.calculateScrollBounds rewardSprites uiCamera SCROLL_BOUND_MARGIN))
|
||||||
|
|
||||||
(method makeText [:Entry e]
|
(method makeText [:Entry e]
|
||||||
(let [label (HabitModel.activeLabel e)]
|
(let [label (HabitModel.activeLabel e)]
|
||||||
(_makeText label.label label.points ->:Void text {
|
(_makeText label.label label.points ->:Void text {
|
||||||
|
|||||||
Reference in New Issue
Block a user