diff options
| author | 2020-07-14 15:00:43 -0500 | |
|---|---|---|
| committer | 2020-07-14 17:56:43 -0500 | |
| commit | af11baee5869b8ecb709a798e402447bcf537b47 (patch) | |
| tree | c1beb1b7568ebff5b2d252de8333886475d79bcc | |
| parent | add element types, although nothing uses it yet (diff) | |
bug fixes
| -rw-r--r-- | data/items/consumable.lisp | 6 |
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)) |