Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/pokemon_presets.clj @ 237:ff37bc3004a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
continuing work on map-function-addresses.
author Robert McIntyre <rlm@mit.edu>
date Sat, 24 Mar 2012 23:38:21 -0500
parents 5becef6312b9
children 8484e6f6db2c
comparison
equal deleted inserted replaced
236:30ced394823a 237:ff37bc3004a7
1 (ns com.aurellem.gb.pokemon-presets) 1 (ns com.aurellem.gb.pokemon-presets)
2 2
3 3
4 (def HM-mew 4 (def base-mew
5 {:species :mew 5 {:species :mew
6 :ID 5195 6 :ID 5195
7 :original-trainer "RLM" 7 :original-trainer "RLM"
8
9 :dv
10 {:hp 15
11 :attack 15
12 :defense 15
13 :speed 15
14 :special 15}
15
8 :experience 16 :experience
9 {:main-exp 200 17 {:main-exp 20
10 :hp-exp 0xFFFF 18 :hp-exp 0xFFFF
11 :attack-exp 0xFFFF 19 :attack-exp 0xFFFF
12 :defense-exp 0xFFFF 20 :defense-exp 0xFFFF
13 :speed-exp 0xFFFF 21 :speed-exp 0xFFFF
14 :special-exp 0xFFFF} 22 :special-exp 0xFFFF}
15 :moves [:fly :surf :cut :strength]}) 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]}))
16 39
17 (def ideal-pikachu 40 (def ideal-pikachu
18 {:species :pikachu 41 {:species :pikachu
19 :ID 5195 42 :ID 5195
20 :original-trainer "RLM" 43 :original-trainer "RLM"
42 :defense 8 65 :defense 8
43 :speed 10 66 :speed 10
44 :special 8} 67 :special 8}
45 68
46 :moves [:thundershock :growl :surf]}) 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})