Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/pokemon_presets.clj @ 326:8484e6f6db2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress before trip to Liberal.
author Robert McIntyre <rlm@mit.edu>
date Wed, 04 Apr 2012 14:55:43 -0500
parents ff37bc3004a7
children
comparison
equal deleted inserted replaced
325:a5cdb2f76307 326:8484e6f6db2c
1 (ns com.aurellem.gb.pokemon-presets) 1 (ns com.aurellem.gb.pokemon-presets)
2 2
3 3 (def pokemon-base
4 (def base-mew 4 {:dv {:attack 15 :hp 15 :defense 15
5 {:species :mew 5 :special 15 :speed 15}
6 :species :ditto
7 :original-trainer "RLM"
6 :ID 5195 8 :ID 5195
7 :original-trainer "RLM" 9 :status :normal
8
9 :dv
10 {:hp 15
11 :attack 15
12 :defense 15
13 :speed 15
14 :special 15}
15
16 :experience 10 :experience
17 {:main-exp 20 11 {:main-exp 500
18 :hp-exp 0xFFFF
19 :attack-exp 0xFFFF 12 :attack-exp 0xFFFF
20 :defense-exp 0xFFFF 13 :defense-exp 0xFFFF
21 :speed-exp 0xFFFF 14 :speed-exp 0xFFFF
22 :special-exp 0xFFFF} 15 :special-exp 0xFFFF
16 :hp-exp 0xFFFF}
23 17
24 :stats 18 :stats
25 {:level 2 19 {:level 2
26 :current-hp 17 20 :current-hp 17
27 :hp 17 21 :hp 17
28 :attack 10 22 :attack 10
29 :defense 10 23 :defense 10
30 :speed 10 24 :speed 10
31 :special 10} 25 :special 10}
32 26
33 :moves [:pound]}) 27 :moves [[:transform {:pp-ups 0 :current-pp 5}]]})
28
29 (def base-mew
30 (merge
31 pokemon-base
32 {:species :mew
33 :moves [:pound]}))
34 34
35 (def HM-mew 35 (def HM-mew
36 (merge 36 (merge
37 base-mew 37 base-mew
38 {:moves [:fly :flash :cut :strength]})) 38 {:moves [:fly :flash :cut :strength]}))
39 39
40 (def ideal-pikachu 40 (def ideal-pikachu
41 {:species :pikachu 41 (merge
42 :ID 5195 42 pokemon-base
43 :original-trainer "RLM" 43 {:species :pikachu
44 44 :moves [:thundershock :growl :surf]}))
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 45
71 46
72 (def young-jigglypuff 47 (def young-jigglypuff
73 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff, 48 {:name "JIGGLYPUFF", :species :jigglypuff, :species2 :jigglypuff,
74 :status :normal, 49 :status :normal,
80 :type [:normal], 55 :type [:normal],
81 :original-trainer "RLM", 56 :original-trainer "RLM",
82 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6, 57 :stats {:level 3, :current-hp 5, :hp 20, :attack 8, :defense 6,
83 :speed 6, :special 7}, 58 :speed 6, :special 7},
84 :ID 5195}) 59 :ID 5195})
60
61 (def tauros
62 (merge
63 pokemon-base
64 {:species :tauros
65 :stats {:level 3, :current-hp 20, :hp 20,
66 :attack 13, :defense 13, :speed 14, :special 11}
67 :moves [:body-slam :hyper-beam
68 :earthquake :blizzard]}))
69
70 (def chansey
71 (merge
72 pokemon-base
73 {:species :chansey
74 :stats {:level 3, :current-hp 30, :hp 30,
75 :attack 8, :defense 8, :speed 10, :special 14}
76 :moves [:ice-beam :thunderbolt
77 :softboiled :thunder-wave]}))
78
79 (def starmie
80 (merge
81 pokemon-base
82 {:species :starmie
83 :stats {:level 3, :current-hp 19, :hp 19,
84 :attack 12, :defense 12, :speed 14, :special 13}
85 :moves [:thunderbolt :blizzard
86 :thunder-wave :recover]}))
87
88 (def golem
89 (merge
90 pokemon-base
91 {:species :golem
92 :stats {:level 3, :current-hp 20, :hp 20,
93 :attack 14, :defense 15, :speed 10, :special 11}
94 :moves [:earthquake :body-slam
95 :rock-slide :explosion]}))
96
97 (def exeggutor
98 (merge
99 pokemon-base
100 {:species :exeggutor
101 :stats {:level 3, :current-hp 21, :hp 21,
102 :attack 13, :defense 12, :speed 11, :special 15}
103 :moves [:psychic :sleep-powder
104 :mega-drain :explosion]}))
105
106 (def alakazam
107 (merge
108 pokemon-base
109 {:species :alakazam
110 :stats {:level 3, :current-hp 19, :hp 19,
111 :attack 10, :defense 10, :speed 14, :special 15}
112 :moves [:psychic :thunder-wave
113 :recover :seismic-toss]}))
114
115 (def zapdos
116 (merge
117 pokemon-base
118 {:species :zapdos
119 :moves [:thunderbolt :drill-peck
120 :thunder-wave :agility]}))