diff options
author | 2020-07-21 09:40:48 -0500 | |
---|---|---|
committer | 2020-07-21 09:40:48 -0500 | |
commit | 54b90c37b63de5053b388483cdadb4bcf9bfb00d (patch) | |
tree | 4e081079211625cb78fc176a23e001e20ea2b6f0 | |
parent | add abdl element type (diff) |
indention
-rw-r--r-- | data/element-types/pokemon.lisp | 165 |
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")) |