rename some standalone projects

2023-04-27 12:31:50 -06:00
parent f798f7b32d
commit 81e8d84596
74 changed files with 0 additions and 0 deletions
--- a/projects/_standalone/habit-puzzles/source/FlxPomTimer.kiss
+++ b/projects/_standalone/habit-puzzles/source/FlxPomTimer.kiss
@@ -0,0 +1,48 @@
+(savedVar :Bool workMode false)
+(savedVar :Float timerValue 0)
+(savedVar :Float workMin 25)
+(savedVar :Float breakMin 5)
+(savedVar :Float longBreakMin 10)
+(savedVar :Int totalPoms 0)
+(prop :FlxSound dingSound)
+
+(prop &mut :Void->Void onFinishedPom)
+(prop &mut :Void->Void onStartPom)
+
+(method getText []
+    "$(if workMode "FOCUS ON WORK FOR " "TAKE A BREAK FOR ")$(Std.int (/ timerValue 60)):$(.lpad (Std.string (Std.int (% timerValue 60))) "0" 2)")
+
+(method new []
+    (super (fHalf FlxG.width) 0 (getText) (* 2 SimpleWindow.textSize))
+    (set color FlxColor.ORANGE)
+    (set dingSound (FlxG.sound.load "assets/ding.wav")))
+
+(method &override :Void update [:Float elapsed]
+    (super.update elapsed)
+    (-= timerValue elapsed)
+    (#when debug
+        (when (and FlxG.keys.pressed.CONTROL FlxG.keys.justPressed.P)
+            (set timerValue 0)))
+    (when (<= timerValue 0)
+        (when workMode
+            (+= totalPoms 1)
+            (when onFinishedPom
+                (onFinishedPom)))
+        (set workMode !workMode)
+        (dingSound.play)
+        (set timerValue 
+            (* 60 
+                (if workMode 
+                        {
+                            (when onStartPom (onStartPom))
+                            workMin
+                        } 
+                    (if (= 0 (% totalPoms 4))
+                            longBreakMin 
+                        breakMin)))))
+    (set text (getText)))
+
+(function resetTimer []
+    (set workMode false)
+    (set timerValue 0)
+    (set totalPoms 0))