aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-21 11:22:52 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-21 11:22:52 -0500
commit5f501132ecf8ed2646556d2f0b33197f870b953d (patch)
treeaf62c114a7b97243cbae9b265e423285170e30a9
parentadd more valid element types to moves (diff)
Think I got this wrong
-rw-r--r--core/libexec.lisp5
1 files changed, 4 insertions, 1 deletions
diff --git a/core/libexec.lisp b/core/libexec.lisp
index e3e1752..86a25bb 100644
--- a/core/libexec.lisp
+++ b/core/libexec.lisp
@@ -3400,7 +3400,10 @@ randomrange is @code{(random-from-range 85 100)}"
(if (> no-effect 0)
0
(expt 2 (- super-effective not-very-effective)))
- (if (intersection attack-element-types user-element-types :key 'coerce-element-type :test 'subtypep)
+ (if (intersection user-element-types attack-element-types
+ :key (lambda (o)
+ (class-of (coerce-element-type o)))
+ :test 'subtypep)
1.5
1)))))))
(defun present-stats (user)