branch: elpa/pacmacs
commit 69437be130144d3cfdff63e584e535e569436acb
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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))))
