annotate clojure/com/aurellem/gb/pokemon_presets.clj @ 291:c8b0db518de3
script: creating header for initial bootstrap program.
| author |
Robert McIntyre <rlm@mit.edu> |
| date |
Thu, 29 Mar 2012 18:23:20 -0500 |
| parents |
ff37bc3004a7 |
| children |
8484e6f6db2c |
| rev |
line source |
|
rlm@228
|
1 (ns com.aurellem.gb.pokemon-presets)
|
|
rlm@228
|
2
|
|
rlm@228
|
3
|
|
rlm@237
|
4 (def base-mew
|
|
rlm@228
|
5 {:species :mew
|
|
rlm@228
|
6 :ID 5195
|
|
rlm@228
|
7 :original-trainer "RLM"
|
|
rlm@237
|
8
|
|
rlm@237
|
9 :dv
|
|
rlm@237
|
10 {:hp 15
|
|
rlm@237
|
11 :attack 15
|
|
rlm@237
|
12 :defense 15
|
|
rlm@237
|
13 :speed 15
|
|
rlm@237
|
14 :special 15}
|
|
rlm@237
|
15
|
|
rlm@228
|
16 :experience
|
|
rlm@237
|
17 {:main-exp 20
|
|
rlm@228
|
18 :hp-exp 0xFFFF
|
|
rlm@228
|
19 :attack-exp 0xFFFF
|
|
rlm@228
|
20 :defense-exp 0xFFFF
|
|
rlm@228
|
21 :speed-exp 0xFFFF
|
|
rlm@228
|
22 :special-exp 0xFFFF}
|
|
rlm@237
|
23
|
|
rlm@237
|
24 :stats
|
|
rlm@237
|
25 {:level 2
|
|
rlm@237
|
26 :current-hp 17
|
|
rlm@237
|
27 :hp 17
|
|
rlm@237
|
28 :attack 10
|
|
rlm@237
|
29 :defense 10
|
|
rlm@237
|
30 :speed 10
|
|
rlm@237
|
31 :special 10}
|
|
rlm@237
|
32
|
|
rlm@237
|
33 :moves [:pound]})
|
|
rlm@237
|
34
|
|
rlm@237
|
35 (def HM-mew
|
|
rlm@237
|
36 (merge
|
|
rlm@237
|
37 base-mew
|
|
rlm@237
|
38 {:moves [:fly :flash :cut :strength]}))
|
|
rlm@235
|
39
|
|
rlm@235
|
40 (def ideal-pikachu
|
|
rlm@235
|
41 {:species :pikachu
|
|
rlm@235
|
42 :ID 5195
|
|
rlm@235
|
43 :original-trainer "RLM"
|
|
rlm@235
|
44
|
|
rlm@235
|
45 :dv
|
|
rlm@235
|
46 {:hp 15
|
|
rlm@235
|
47 :attack 15
|
|
rlm@235
|
48 :defense 15
|
|
rlm@235
|
49 :speed 15
|
|
rlm@235
|
50 :special 15}
|
|
rlm@235
|
51
|
|
rlm@235
|
52 :experience
|
|
rlm@235
|
53 {:main-exp 20
|
|
rlm@235
|
54 :hp-exp 0xFFFF
|
|
rlm@235
|
55 :attack-exp 0xFFFF
|
|
rlm@235
|
56 :defense-exp 0xFFFF
|
|
rlm@235
|
57 :speed-exp 0xFFFF
|
|
rlm@235
|
58 :special-exp 0xFFFF}
|
|
rlm@235
|
59
|
|
rlm@235
|
60 :stats
|
|
rlm@235
|
61 {:level 2
|
|
rlm@235
|
62 :current-hp 15
|
|
rlm@235
|
63 :hp 15
|
|
rlm@235
|
64 :attack 9
|
|
rlm@235
|
65 :defense 8
|
|
rlm@235
|
66 :speed 10
|
|
rlm@235
|
67 :special 8}
|
|
rlm@235
|
68
|
|
rlm@235
|
69 :moves [:thundershock :growl :surf]})
|
|
rlm@237
|
70
|
|
rlm@237
|
71
|
|
rlm@237
|
72 (def young-jigglypuff
|
|
rlm@237
|
73 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,
|
|
rlm@237
|
74 :status :normal,
|
|
rlm@237
|
75 :moves [[:sing {:pp-ups 0, :current-pp 4}]],
|
|
rlm@237
|
76 :dv {:attack 15, :defense 15, :speed 15, :special 15, :hp 15},
|
|
rlm@237
|
77 :experience
|
|
rlm@237
|
78 {:main-exp 21, :hp-exp 0xFF, :attack-exp 0xFF,
|
|
rlm@237
|
79 :defense-exp 0xFF, :speed-exp 0xFF, :special-exp 0xFF},
|
|
rlm@237
|
80 :type [:normal],
|
|
rlm@237
|
81 :original-trainer "RLM",
|
|
rlm@237
|
82 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
|
|
rlm@237
|
83 :speed 6, :special 7},
|
|
rlm@237
|
84 :ID 5195})
|
