Mercurial > vba-clojure

view clojure/com/aurellem/gb/pokemon_presets.clj @ 274:210b465e4720

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactored walking code from buy-initial-objects to its own function.
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Mar 2012 11:30:58 -0500
parents ff37bc3004a7
children 8484e6f6db2c
line wrap: on
line source
     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})