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

fix some habit puzzle game logic

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-02-07 14:05:11 -07:00
parent f2ad2a64b0
commit 30938959b3
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
projects/habit-puzzle-game/source/HabitState.kiss
View File

@@ -14,8 +14,8 @@
(prop &mut :HabitModel model null) (prop &mut :HabitModel model null)
(var PUZZLE_WIDTH 15) (var PUZZLE_WIDTH 4)
(var PUZZLE_HEIGHT 10) (var PUZZLE_HEIGHT 4)
(var TOTAL_PIECES (* PUZZLE_WIDTH PUZZLE_HEIGHT)) (var TOTAL_PIECES (* PUZZLE_WIDTH PUZZLE_HEIGHT))
(prop &mut :FlxSprite rewardSprite null) (prop &mut :FlxSprite rewardSprite null)
@@ -25,12 +25,12 @@
(let [p (m.totalPoints) (let [p (m.totalPoints)
&mut i 0 &mut i 0
&mut currentRewardFile (first m.rewardFiles)] &mut currentRewardFile null]
// Find, load, and add the current reward image as big as possible: // Find, load, and add the current reward image as big as possible:
(until (< p currentRewardFile.startingPoints) (while (>= p .startingPoints (nth m.rewardFiles i))
(set currentRewardFile (nth m.rewardFiles i))
(if (>= ++i m.rewardFiles.length) (if (>= ++i m.rewardFiles.length)
(break) (break)))
(set currentRewardFile (nth m.rewardFiles i))))
(when rewardSprite (when rewardSprite
(remove rewardSprite)) (remove rewardSprite))
(set rewardSprite (new FlxSprite 0 0 (BitmapData.fromFile (joinPath (Path.directory m.textFile) currentRewardFile.path)))) (set rewardSprite (new FlxSprite 0 0 (BitmapData.fromFile (joinPath (Path.directory m.textFile) currentRewardFile.path))))
@@ -58,8 +58,8 @@
// Cover it up with (TOTAL_PIECES - p) black squares placed randomly by choosing and removing from a zipped coordinate list // Cover it up with (TOTAL_PIECES - p) black squares placed randomly by choosing and removing from a zipped coordinate list
(let [r (new FlxRandom (Strings.hashCode currentRewardFile.path))] (let [r (new FlxRandom (Strings.hashCode currentRewardFile.path))]
(r.shuffle blockerPoints) (r.shuffle blockerPoints)
(doFor i (range (- (+ TOTAL_PIECES currentRewardFile.startingPoints) p)) (doFor i (range (- ~(+ TOTAL_PIECES currentRewardFile.startingPoints) ~p))
(let [pos (nth blockerPoints i) (let [pos (nth blockerPoints ~i)
s (new FlxSprite pos.x pos.y)] s (new FlxSprite pos.x pos.y)]
(s.makeGraphic (Math.ceil PIECE_WIDTH) (Math.ceil PIECE_HEIGHT) FlxColor.BLACK) (s.makeGraphic (Math.ceil PIECE_WIDTH) (Math.ceil PIECE_HEIGHT) FlxColor.BLACK)
(rewardBlockers.add s)))))) (rewardBlockers.add s))))))