aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-14 15:00:43 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-14 17:56:43 -0500
commitaf11baee5869b8ecb709a798e402447bcf537b47 (patch)
treec1beb1b7568ebff5b2d252de8333886475d79bcc
parentadd element types, although nothing uses it yet (diff)
bug fixes
-rw-r--r--data/items/consumable.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/data/items/consumable.lisp b/data/items/consumable.lisp
index fd94563..fd44336 100644
--- a/data/items/consumable.lisp
+++ b/data/items/consumable.lisp
@@ -46,7 +46,7 @@
(+ (bowels/contents-of user) (bowels/potty-dance-limit-of user)))))
(defclass consious-mixin (item) ())
(defmethod cant-use-p ((item consious-mixin) (user base-character) (target base-character) action &key &allow-other-keys)
- (declare (ignorable item user keys action))
+ (declare (ignorable item user action))
(when (<= (health-of target) 0)
(format t "Does ~a look conscious enough to use that?~%" (name-of target))
t)
@@ -69,7 +69,7 @@
:value 500
:consumable t))
(defmethod cant-use-p ((item revive) (user base-character) (target base-character) action &key &allow-other-keys)
- (declare (ignorable item user keys target action))
+ (declare (ignorable item user target action))
(when (> (health-of target) 0)
(format t "Does ~a look unconscious to you?~%" (name-of target))
t))
@@ -102,7 +102,7 @@
:value 200
:consumable t))
(defmethod cant-use-p ((item holy-hand-grenade) (user base-character) (target base-character) action &key &allow-other-keys)
- (declare (ignorable item user keys target action))
+ (declare (ignorable item user target action))
(unless *battle*
(write-line "You can only use that in battle")
t))