view clojure/com/aurellem/gb/pokemon_presets.clj @ 279:aa9b8d9d5b76

script: save corruption
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Mar 2012 13:33:44 -0500
parents ff37bc3004a7
children 8484e6f6db2c
line wrap: on
line source
1 (ns com.aurellem.gb.pokemon-presets)
4 (def base-mew
5 {:species :mew
6 :ID 5195
7 :original-trainer "RLM"
9 :dv
10 {:hp 15
11 :attack 15
12 :defense 15
13 :speed 15
14 :special 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}
24 :stats
25 {:level 2
26 :current-hp 17
27 :hp 17
28 :attack 10
29 :defense 10
30 :speed 10
31 :special 10}
33 :moves [:pound]})
35 (def HM-mew
36 (merge
37 base-mew
38 {:moves [:fly :flash :cut :strength]}))
40 (def ideal-pikachu
41 {:species :pikachu
42 :ID 5195
43 :original-trainer "RLM"
45 :dv
46 {:hp 15
47 :attack 15
48 :defense 15
49 :speed 15
50 :special 15}
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}
60 :stats
61 {:level 2
62 :current-hp 15
63 :hp 15
64 :attack 9
65 :defense 8
66 :speed 10
67 :special 8}
69 :moves [:thundershock :growl :surf]})
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})