[nongnu] elpa/pacmacs 00b3223066 305/472: Handle ghost bling threshold (#159)

[ELPA Syncer]

branch: elpa/pacmacs
commit 00b3223066e48e91e75bc20f3db79d96e0128046
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Handle ghost bling threshold (#159)
---
 pacmacs.el | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/pacmacs.el b/pacmacs.el
index e0887ab881..553b2b64d0 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -49,6 +49,7 @@
 
 (defconst pacmacs-buffer-name "*Pacmacs*")
 (defconst pacmacs-tick-duration-ms 100)
+(defconst pacmacs--ghost-blinking-threshold 2500)
 
 (defvar pacmacs-debug-output nil)
 
@@ -151,6 +152,17 @@
                  (cl-decf terrified-timer
                           pacmacs-tick-duration-ms)))))
 
+(defun pacmacs--handle-ghost-blinking-threshold ()
+  (dolist (terrified-ghost pacmacs--terrified-ghosts)
+    (plist-bind ((terrified-timer :terrified-timer))
+        terrified-ghost
+      (when (<= (- terrified-timer pacmacs-tick-duration-ms)
+                pacmacs--ghost-blinking-threshold
+                terrified-timer)
+        (plist-put terrified-ghost
+                   :current-animation
+                   (pacmacs-load-anim "Blinking-Terrified-Ghost"))))))
+
 (defun pacmacs--switch-direction-animation-callback (animation-prefix)
   (let ((direction-animations (-mapcat
                                (-lambda (direction)
@@ -475,7 +487,11 @@
     (pacmacs--anim-object-list-next-frame pacmacs--terrified-ghosts 
pacmacs-tick-duration-ms)
 
     (pacmacs--recalc-track-board)
+
     (pacmacs--unterrify-timed-out-ghosts)
+    (pacmacs--decrease-terrified-timers)
+    (pacmacs--handle-ghost-blinking-threshold)
+
     (if pacmacs--pills
         (progn
           (pacmacs--step-object pacmacs--player-state)
@@ -487,7 +503,6 @@
             (pacmacs--step-ghosts)
             (pacmacs--step-terrified-ghosts)
             (pacmacs--detect-terrified-ghost-collision)
-            (pacmacs--decrease-terrified-timers)
             (when (pacmacs--ghost-collision-p)
               (dolist (ghost pacmacs--ghosts)
                 (pacmacs--step-back-object ghost))