aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-21 09:40:48 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-21 09:40:48 -0500
commit54b90c37b63de5053b388483cdadb4bcf9bfb00d (patch)
tree4e081079211625cb78fc176a23e001e20ea2b6f0
parentadd abdl element type (diff)
indention
-rw-r--r--data/element-types/pokemon.lisp165
1 files changed, 91 insertions, 74 deletions
diff --git a/data/element-types/pokemon.lisp b/data/element-types/pokemon.lisp
index a11e528..b613597 100644
--- a/data/element-types/pokemon.lisp
+++ b/data/element-types/pokemon.lisp
@@ -1,76 +1,93 @@
;;;; -*- mode: Common-Lisp; sly-buffer-package: "yadfa-element-types"; coding: utf-8-unix; -*-
(in-package :yadfa-element-types)
-(define-type normal () ()
- (:not-very-effective rock steel)
- (:no-effect ghost)
- (:element-name "Normal"))
-(define-type fighting () ()
- (:not-very-effective flying poison bug psychic fairy)
- (:no-effect ghost)
- (:super-effective rock ice dark steel)
- (:element-name "Fighting"))
-(define-type flying () ()
- (:not-very-effective rock steel electric)
- (:super-effective fighting bug grass)
- (:element-name "Flying"))
-(define-type poison () ()
- (:not-very-effective poison ground rock ghost)
- (:super-effective grass fairy)
- (:no-effect steel)
- (:element-name "Poison"))
-(define-type ground () ()
- (:not-very-effective bug grass)
- (:super-effective poison rock steel fire electric)
- (:no-effect flying)
- (:element-name "Ground"))
-(define-type rock () ()
- (:not-very-effective fight ground steel)
- (:super-effective flying bug fire ice)
- (:element-name "Rock"))
-(define-type bug () ()
- (:not-very-effective fighting flying poison ghost steel fire fairy)
- (:super-effective grass psychic dark)
- (:element-name "Bug"))
-(define-type steel () ()
- (:not-very-effective steel fire water electric)
- (:super-effective rockice fairy)
- (:element-name "Steel"))
-(define-type fire () ()
- (:not-very-effective rock fire water)
- (:super-effective bug steel grass ice dragon)
- (:element-name "Fire"))
-(define-type water () ()
- (:not-very-effective ground rock fire)
- (:super-effective water grass dragon)
- (:element-name "Water"))
-(define-type grass () ()
- (:super-effective ground rock water)
- (:not-very-effective flying poison bug steel fire grass dragon)
- (:element-name "Water"))
-(define-type electric () ()
- (:not-very-effective grass electric dragon)
- (:no-effect ground)
- (:super-effective flying water)
- (:element-name "Electric"))
-(define-type psychic () ()
- (:not-very-effective steel psychic)
- (:no-effect dark)
- (:super-effective fighting poison)
- (:element-name "Psychic"))
-(define-type ice () ()
- (:not-very-effective steel fire water ice)
- (:super-effective flying ground grass dragon)
- (:element-name "Ice"))
-(define-type dragon () ()
- (:not-very-effective steel)
- (:no-effect fairy)
- (:super-effective dragon)
- (:element-name "Dragon"))
-(define-type dark () ()
- (:not-very-effective fighting dark fairy)
- (:super-effective ghost psychic abdl)
- (:element-name "Dark"))
-(define-type fairy () ()
- (:not-very-effective poison steel fire abdl)
- (:super-effective fighting dragon dark)
- (:element-name "Fairy"))
+(define-type normal ()
+ ()
+ (:not-very-effective rock steel)
+ (:no-effect ghost)
+ (:element-name "Normal"))
+(define-type fighting ()
+ ()
+ (:not-very-effective flying poison bug psychic fairy)
+ (:no-effect ghost)
+ (:super-effective rock ice dark steel)
+ (:element-name "Fighting"))
+(define-type flying ()
+ ()
+ (:not-very-effective rock steel electric)
+ (:super-effective fighting bug grass)
+ (:element-name "Flying"))
+(define-type poison ()
+ ()
+ (:not-very-effective poison ground rock ghost)
+ (:super-effective grass fairy)
+ (:no-effect steel)
+ (:element-name "Poison"))
+(define-type ground ()
+ ()
+ (:not-very-effective bug grass)
+ (:super-effective poison rock steel fire electric)
+ (:no-effect flying)
+ (:element-name "Ground"))
+(define-type rock ()
+ ()
+ (:not-very-effective fight ground steel)
+ (:super-effective flying bug fire ice)
+ (:element-name "Rock"))
+(define-type bug ()
+ ()
+ (:not-very-effective fighting flying poison ghost steel fire fairy)
+ (:super-effective grass psychic dark)
+ (:element-name "Bug"))
+(define-type steel ()
+ ()
+ (:not-very-effective steel fire water electric)
+ (:super-effective rockice fairy)
+ (:element-name "Steel"))
+(define-type fire ()
+ ()
+ (:not-very-effective rock fire water)
+ (:super-effective bug steel grass ice dragon)
+ (:element-name "Fire"))
+(define-type water ()
+ ()
+ (:not-very-effective ground rock fire)
+ (:super-effective water grass dragon)
+ (:element-name "Water"))
+(define-type grass ()
+ ()
+ (:super-effective ground rock water)
+ (:not-very-effective flying poison bug steel fire grass dragon)
+ (:element-name "Water"))
+(define-type electric ()
+ ()
+ (:not-very-effective grass electric dragon)
+ (:no-effect ground)
+ (:super-effective flying water)
+ (:element-name "Electric"))
+(define-type psychic ()
+ ()
+ (:not-very-effective steel psychic)
+ (:no-effect dark)
+ (:super-effective fighting poison)
+ (:element-name "Psychic"))
+(define-type ice ()
+ ()
+ (:not-very-effective steel fire water ice)
+ (:super-effective flying ground grass dragon)
+ (:element-name "Ice"))
+(define-type dragon ()
+ ()
+ (:not-very-effective steel)
+ (:no-effect fairy)
+ (:super-effective dragon)
+ (:element-name "Dragon"))
+(define-type dark ()
+ ()
+ (:not-very-effective fighting dark fairy)
+ (:super-effective ghost psychic abdl)
+ (:element-name "Dark"))
+(define-type fairy ()
+ ()
+ (:not-very-effective poison steel fire abdl)
+ (:super-effective fighting dragon dark)
+ (:element-name "Fairy"))