diff options
| author | 2020-07-21 11:22:52 -0500 | |
|---|---|---|
| committer | 2020-07-21 11:22:52 -0500 | |
| commit | 5f501132ecf8ed2646556d2f0b33197f870b953d (patch) | |
| tree | af62c114a7b97243cbae9b265e423285170e30a9 | |
| parent | add more valid element types to moves (diff) | |
Think I got this wrong
| -rw-r--r-- | core/libexec.lisp | 5 |
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) |