[nongnu] elpa/pacmacs 69437be130 259/472: Extra points for eating big pills (#81)

[ELPA Syncer]

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

    Extra points for eating big pills (#81)
---
 maps/map01.txt |  2 +-
 pacmacs.el     | 11 ++++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/maps/map01.txt b/maps/map01.txt
index bee14b9a8d..f5e806c521 100644
--- a/maps/map01.txt
+++ b/maps/map01.txt
@@ -1,7 +1,7 @@
 ##########
 #o.     ##
  ######  
-      ####
+     +####
 #### ###..
    # #. #
 ##    #.##
diff --git a/pacmacs.el b/pacmacs.el
index 542a4dacdc..a40c7c8c4f 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -130,17 +130,18 @@
         :column column
         :type 'wall))
 
-(defun pacmacs--make-pill (row column anim-name)
+(defun pacmacs--make-pill (row column anim-name points)
   (list :current-animation (pacmacs-load-anim anim-name)
         :row row
         :column column
-        :type 'pill))
+        :type 'pill
+        :points points))
 
 (defun pacmacs--make-regular-pill (row column)
-  (pacmacs--make-pill row column "Pill"))
+  (pacmacs--make-pill row column "Pill" 10))
 
 (defun pacmacs--make-big-pill (row column)
-  (pacmacs--make-pill row column "Big-Pill"))
+  (pacmacs--make-pill row column "Big-Pill" 50))
 
 (defun pacmacs--make-ghost (row column)
   (list :row row
@@ -335,7 +336,7 @@
                (column :column))
       pacmacs--player-state
     (-when-let (pill (pacmacs--pill-at-p row column))
-      (setq pacmacs-score (+ pacmacs-score 10))
+      (setq pacmacs-score (+ pacmacs-score (plist-get pill :points)))
       (setq pacmacs--pills (-remove (-partial #'eql pill) pacmacs--pills))
       (pacmacs--remove-object pill))))