Mercurial > vba-clojure

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

     2 

     3 

     4 (def base-mew

     5   {:species :mew

     6    :ID 5195

     7    :original-trainer "RLM"

     8 

     9    :dv

    10    {:hp 15

    11     :attack 15

    12     :defense 15

    13     :speed 15

    14     :special 15}

    15       

    16    :experience

    17    {:main-exp 20

    18     :hp-exp 0xFFFF

    19     :attack-exp 0xFFFF

    20     :defense-exp 0xFFFF

    21     :speed-exp 0xFFFF

    22     :special-exp 0xFFFF}

    23 

    24    :stats

    25    {:level 2

    26     :current-hp 17

    27     :hp 17

    28     :attack 10

    29     :defense 10

    30     :speed 10

    31     :special 10}

    32    

    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   {:species :pikachu

    42    :ID 5195

    43    :original-trainer "RLM"

    44 

    45    :dv

    46    {:hp 15

    47     :attack 15

    48     :defense 15

    49     :speed 15

    50     :special 15}

    51    

    52    :experience

    53    {:main-exp 20

    54     :hp-exp 0xFFFF

    55     :attack-exp 0xFFFF

    56     :defense-exp 0xFFFF

    57     :speed-exp 0xFFFF

    58     :special-exp 0xFFFF}

    59 

    60    :stats

    61    {:level 2

    62     :current-hp 15

    63     :hp 15

    64     :attack 9

    65     :defense 8

    66     :speed 10

    67     :special 8}

    68 

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

    70 

    71 

    72 (def young-jigglypuff

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

    74    :status :normal,

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

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

    77    :experience

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

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

    80    :type [:normal],

    81    :original-trainer "RLM",

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

    83            :speed 6, :special 7}, 

    84    :ID 5195})
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 30 Mar 2012 22:48:31 -0500
parents	ff37bc3004a7
children	8484e6f6db2c