Mercurial > vba-clojure

     1 (ns com.aurellem.gb.pokemon-presets)

     2 

     3 (def pokemon-base

     4   {:dv {:attack 15 :hp 15 :defense 15

     5         :special 15 :speed 15}

     6    :species :ditto

     7    :original-trainer "RLM"

     8    :ID 5195

     9    :status :normal

    10    :experience

    11    {:main-exp 500

    12     :attack-exp 0xFFFF

    13     :defense-exp 0xFFFF

    14     :speed-exp 0xFFFF

    15     :special-exp 0xFFFF

    16     :hp-exp 0xFFFF}

    17 

    18    :stats

    19    {:level 2

    20     :current-hp 17

    21     :hp 17

    22     :attack 10

    23     :defense 10

    24     :speed 10

    25     :special 10}

    26       

    27    :moves [[:transform {:pp-ups 0 :current-pp 5}]]})

    28 

    29 (def base-mew

    30   (merge

    31    pokemon-base

    32    {:species :mew

    33     :moves [:pound]}))

    34    

    35 (def HM-mew

    36   (merge

    37    base-mew

    38    {:moves [:fly :flash :cut :strength]}))

    39 

    40 (def ideal-pikachu

    41   (merge

    42    pokemon-base

    43    {:species :pikachu

    44     :moves [:thundershock :growl :surf]}))

    45 

    46 

    47 (def young-jigglypuff

    48   {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,

    49    :status :normal,

    50    :moves [[:sing {:pp-ups 0, :current-pp 4}]],

    51    :dv {:attack 15, :defense 15, :speed 15, :special 15, :hp 15},

    52    :experience

    53    {:main-exp 21, :hp-exp 0xFF, :attack-exp 0xFF,

    54     :defense-exp 0xFF, :speed-exp 0xFF, :special-exp 0xFF}, 

    55    :type [:normal],

    56    :original-trainer "RLM",

    57    :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,

    58            :speed 6, :special 7}, 

    59    :ID 5195})

    60 

    61 (def tauros

    62   (merge

    63    pokemon-base

    64    {:species :tauros

    65     :stats {:level 3, :current-hp 20, :hp 20,

    66             :attack 13, :defense 13, :speed 14, :special 11}

    67     :moves [:body-slam :hyper-beam

    68             :earthquake :blizzard]}))

    69 

    70 (def chansey

    71   (merge

    72    pokemon-base

    73    {:species :chansey

    74     :stats {:level 3, :current-hp 30, :hp 30,

    75             :attack 8, :defense 8, :speed 10, :special 14}

    76     :moves [:ice-beam :thunderbolt

    77             :softboiled :thunder-wave]}))

    78 

    79 (def starmie

    80   (merge

    81    pokemon-base

    82    {:species :starmie

    83     :stats {:level 3, :current-hp 19, :hp 19,

    84             :attack 12, :defense 12, :speed 14, :special 13}

    85     :moves [:thunderbolt :blizzard

    86             :thunder-wave :recover]}))

    87 

    88 (def golem

    89   (merge

    90    pokemon-base

    91    {:species :golem

    92     :stats {:level 3, :current-hp 20, :hp 20,

    93             :attack 14, :defense 15, :speed 10, :special 11}

    94     :moves [:earthquake :body-slam

    95             :rock-slide :explosion]}))

    96 

    97 (def exeggutor

    98   (merge

    99    pokemon-base

   100    {:species :exeggutor

   101     :stats {:level 3, :current-hp 21, :hp 21,

   102             :attack 13, :defense 12, :speed 11, :special 15}

   103     :moves [:psychic :sleep-powder

   104             :mega-drain :explosion]}))

   105 

   106 (def alakazam

   107   (merge

   108    pokemon-base

   109    {:species :alakazam

   110     :stats {:level 3, :current-hp 19, :hp 19,

   111             :attack 10, :defense 10, :speed 14, :special 15}

   112     :moves [:psychic :thunder-wave

   113             :recover :seismic-toss]}))

   114             

   115 (def zapdos

   116   (merge

   117    pokemon-base

   118    {:species :zapdos

   119     :moves [:thunderbolt :drill-peck

   120             :thunder-wave :agility]}))
author	Robert McIntyre <rlm@mit.edu>
date	Wed, 11 Apr 2012 10:47:27 -0500
parents	8484e6f6db2c
children