aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-21 09:39:53 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-21 09:39:53 -0500
commit0034ed5aea8834529f20609ac71b336d25e31d6d (patch)
treeb08b0e0c4bb1514dd8a1b015d06d8c69622ddf7c
parentmoves can now have mutliple element types (diff)
add abdl element type
-rw-r--r--data/element-types/abdl.lisp5
-rw-r--r--data/element-types/pokemon.lisp4
-rw-r--r--packages.lisp2
3 files changed, 8 insertions, 3 deletions
diff --git a/data/element-types/abdl.lisp b/data/element-types/abdl.lisp
new file mode 100644
index 0000000..bb0a46c
--- /dev/null
+++ b/data/element-types/abdl.lisp
@@ -0,0 +1,5 @@
+;;;; -*- mode: Common-Lisp; sly-buffer-package: "yadfa-element-types"; coding: utf-8-unix; -*-
+(in-package :yadfa-element-types)
+(define-type abdl ()
+ ()
+ (:element-name "ABDL"))
diff --git a/data/element-types/pokemon.lisp b/data/element-types/pokemon.lisp
index 9f78d56..a11e528 100644
--- a/data/element-types/pokemon.lisp
+++ b/data/element-types/pokemon.lisp
@@ -68,9 +68,9 @@
(:element-name "Dragon"))
(define-type dark () ()
(:not-very-effective fighting dark fairy)
- (:super-effective ghost psychic)
+ (:super-effective ghost psychic abdl)
(:element-name "Dark"))
(define-type fairy () ()
- (:not-very-effective poison steel fire)
+ (:not-very-effective poison steel fire abdl)
(:super-effective fighting dragon dark)
(:element-name "Fairy"))
diff --git a/packages.lisp b/packages.lisp
index 5afe1f7..28a0b34 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -518,7 +518,7 @@
(uiop:define-package :yadfa-element-types
(:use :cl :yadfa :yadfa-util :iterate)
(:export #:normal #:fighting #:flying #:poison #:ground #:rock #:bug #:ghost #:steel #:fire #:water
- #:grass #:electric #:psychic #:ice #:dragon #:dark #:fairy)
+ #:grass #:electric #:psychic #:ice #:dragon #:dark #:fairy #:abdl)
(:documentation "Element types")
(:local-nicknames (:s :serapeum) (:a :alexandria) (:u :ugly-tiny-infix-macro) (:g :global-vars)
(:c :clim) (:ce :clim-extensions) (:cc :conditional-commands) (:f :fmt)))