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

extra tally symbol

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-17 01:32:54 +00:00
parent 4546792a17
commit 25464a4e0c
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -606,6 +606,10 @@
(+= y b.height)))) (+= y b.height))))
(function pointsStr [points] (function pointsStr [points]
(let [tallyUnit 5] (let [&mut str "" tallyUnit 5 symbols ["+" "*" "\$"]]
(+ (* "*" (Math.floor (/ points tallyUnit))) (doFor i (reverse (collect (range symbols.length)))
(* "+" (% points tallyUnit))))) (let [scaledTallyUnit (^ tallyUnit i)
tallies (Math.floor (/ points scaledTallyUnit))]
(+= str (* (nth symbols i) tallies))
(-= points (* tallies scaledTallyUnit))))
str))