Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/types.clj @ 205:28d35c9e3ab6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
default type list complete.
author Robert McIntyre <rlm@mit.edu>
date Fri, 23 Mar 2012 04:25:17 -0500
parents 43bb461a7419
children 32ac21c9a30d
comparison
equal deleted inserted replaced
204:43bb461a7419 205:28d35c9e3ab6
54 [(type-code->type-name type-1)] 54 [(type-code->type-name type-1)]
55 (mapv type-code->type-name [type-1 type-2])))) 55 (mapv type-code->type-name [type-1 type-2]))))
56 ([poke-num] 56 ([poke-num]
57 (read-type @current-state poke-num))) 57 (read-type @current-state poke-num)))
58 58
59
60
61 :normal nor
62 :fighting fig
63 :flying fly
64 :poision poi
65 :ground gro
66 :rock roc
67 :bug bug
68 :ghost gho
69 :fire fir
70 :water wat
71 :grass gra
72 :electric ele
73 :psychic psy
74 :ice ice
75 :dragon dra
76
77
78
79 (def pokemon->type 59 (def pokemon->type
80 { 60 {:abra [:psychic]
81 :abra psy 61 :aerodactyl [:rock :flying]
82 :aerodactyl rck fly 62 :alakazam [:psychic]
83 :alakazam psy 63 :arbok [:poison]
84 :arbok poi 64 :arcanine [:fire]
85 :arcanine fir 65 :articuno [:ice :flying]
86 :articuno ice fly 66 :beedrill [:bug :poison]
87 :beedrill bug poi 67 :bellsprout [:grass :poison]
88 :bellsprout gra poi 68 :blastoise [:water]
89 :blastoise wat 69 :bulbasaur [:grass :poison]
90 :bulbasaur gra poi 70 :butterfree [:bug :flying]
91 :butterfree bug fly 71 :caterpie [:bug]
92 :caterpie bug 72 :chansey [:normal]
93 :chansey nor 73 :charizard [:fire :flying]
94 :charizard fir fly 74 :charmander [:fire]
95 :charmander fir 75 :charmeleon [:fire]
96 :charmeleon fir 76 :clefable [:normal]
97 :clefable nor 77 :clefairy [:normal]
98 :clefairy nor 78 :cloyster [:water :ice]
99 :cloyster wat ice 79 :cubone [:ground]
100 :cubone gro 80 :dewgong [:water :ice]
101 :dewgong wat ice 81 :diglett [:ground]
102 :diglett gro 82 :ditto [:normal]
103 :ditto nor 83 :dodrio [:normal :flying]
104 :dodrio nor fly 84 :doduo [:normal :flying]
105 :doduo nor fly 85 :dragonair [:dragon]
106 :dragonair drg 86 :dragonite [:dragon :flying]
107 :dragonite drg fly 87 :dratini [:dragon]
108 :dratini drg 88 :drowzee [:psychic]
109 :drowzee psy 89 :dugtrio [:ground]
110 :dugtrio gro 90 :eevee [:normal]
111 :eevee nor 91 :ekans [:poison]
112 :ekans poi 92 :electabuzz [:electric]
113 :electabuzz ele 93 :electrode [:electric]
114 :electrode ele 94 :exeggcute [:grass :psychic]
115 :exeggcute gra psy 95 :exeggutor [:grass :psychic]
116 :exeggutor gra psy 96 :farfetchd [:normal :flying]
117 :farfetchd nor fly 97 :fearow [:normal :flying]
118 :fearow nor fly 98 :flareon [:fire]
119 :flareon fir 99 :gastly [:ghost :poison]
120 :gastly gho poi 100 :gengar [:ghost :poison]
121 :gengar gho poi 101 :geodude [:rock :ground]
122 :geodude rck gro 102 :gloom [:grass :poison]
123 :gloom gra poi 103 :golbat [:poison :flying]
124 :golbat poi fly 104 :goldeen [:water]
125 :goldeen wat 105 :golduck [:water]
126 :golduck wat 106 :golem [:rock :ground]
127 :golem rck gro 107 :graveler [:rock :ground]
128 :graveler rck gro 108 :grimer [:poison]
129 :grimer poi 109 :growlithe [:fire]
130 :growlithe fir 110 :gyarados [:water :flying]
131 :gyarados wat fly 111 :haunter [:ghost :poison]
132 :haunter gho poi 112 :hitmonchan [:fighting]
133 :hitmonchan fgt 113 :hitmonlee [:fighting]
134 :hitmonlee fgt 114 :horsea [:water]
135 :horsea wat 115 :hypno [:psychic]
136 :hypno psy 116 :ivysaur [:grass :poison]
137 :ivysaur gra poi 117 :jigglypuff [:normal]
138 :jigglypuff nor 118 :jolteon [:electric]
139 :jolteon ele 119 :jynx [:ice :psychic]
140 :jynx ice psy 120 :kabuto [:rock :water]
141 :kabuto rck wat 121 :kabutops [:rock :water]
142 :kabutops rck wat 122 :kadabra [:psychic]
143 :kadabra psy 123 :kakuna [:bug :poison]
144 :kakuna bug poi 124 :kangaskhan [:normal]
145 :kangaskhan nor 125 :kingler [:water]
146 :kingler wat 126 :koffing [:poison]
147 :koffing poi 127 :krabby [:water]
148 :krabby wat 128 :lapras [:water :ice]
149 :lapras wat ice 129 :lickitung [:normal]
150 :lickitung nor 130 :machamp [:fighting]
151 :machamp fgt 131 :machoke [:fighting]
152 :machoke fgt 132 :machop [:fighting]
153 :machop fgt 133 :magikarp [:water]
154 :magikarp wat 134 :magmar [:fire]
155 :magmar fir 135 :magnemite [:electric]
156 :magnemite ele 136 :magneton [:electric]
157 :magneton ele 137 :mankey [:fighting]
158 :mankey fgt 138 :marowak [:ground]
159 :marowak gro 139 :meowth [:normal]
160 :meowth nor 140 :metapod [:bug]
161 :metapod bug 141 :mew [:psychic]
162 :mew psy 142 :mewtwo [:psychic]
163 :mewtwo psy 143 :moltres [:fire :flying]
164 :moltres fir fly 144 :mr-mime [:psychic]
165 :mr-mime psy 145 :muk [:poison]
166 :muk poi 146 :nidoking [:poison :ground]
167 :nidoking poi gro 147 :nidoqueen [:poison :ground]
168 :nidoqueen poi gro 148 :nidoran-female [:poison]
169 :nidoran-female poi 149 :nidoran-male [:poison]
170 :nidoran-male poi 150 :nidorina [:poison]
171 :nidorina poi 151 :nidorino [:poison]
172 :nidorino poi 152 :ninetails [:fire]
173 :ninetails fir 153 :oddish [:grass :poison]
174 :oddish gra poi 154 :omanyte [:rock :water]
175 :omanyte rck wat 155 :omastar [:rock :water]
176 :omastar rck wat 156 :onix [:rock :ground]
177 :onix rck gro 157 :paras [:bug :grass]
178 :paras bug gra 158 :parasect [:bug :grass]
179 :parasect bug gra 159 :persian [:normal]
180 :persian nor 160 :pidgeot [:normal :flying]
181 :pidgeot nor fly 161 :pidgeotto [:normal :flying]
182 :pidgeotto nor fly 162 :pidgey [:normal :flying]
183 :pidgey nor fly 163 :pikachu [:electric]
184 :pikachu ele 164 :pinsir [:bug]
185 :pinsir bug 165 :poliwag [:water]
186 :poliwag wat 166 :poliwhirl [:water]
187 :poliwhirl wat 167 :poliwrath [:water :fighting]
188 :poliwrath wat fgt 168 :ponyta [:fire]
189 :ponyta fir 169 :porygon [:normal]
190 :porygon nor 170 :primeape [:fighting]
191 :primeape fgt 171 :psyduck [:water]
192 :psyduck wat 172 :raichu [:electric]
193 :raichu ele 173 :rapidash [:fire]
194 :rapidash fir 174 :raticate [:normal]
195 :raticate nor 175 :rattata [:normal]
196 :rattata nor 176 :rhydon [:ground :rock]
197 :rhydon gro rck 177 :rhyhorn [:ground :rock]
198 :rhyhorn gro rck 178 :sandshrew [:ground]
199 :sandshrew gro 179 :sandslash [:ground]
200 :sandslash gro 180 :scyther [:bug :flying]
201 :scyther bug fly 181 :seaking [:water]
202 :seaking wat 182 :sedra [:water]
203 :sedra wat 183 :seel [:water]
204 :seel wat 184 :shellder [:water]
205 :shellder wat 185 :slowbro [:water :psychic]
206 :slowbro wat psy 186 :slowpoke [:water :psychic]
207 :slowpoke wat psy 187 :snorlax [:normal]
208 :snorlax nor 188 :spearow [:normal :flying]
209 :spearow nor fly 189 :squirtle [:water]
210 :squirtle wat 190 :starmie [:water :psychic]
211 :starmie wat psy 191 :staryu [:water]
212 :staryu wat 192 :tangela [:grass]
213 :tangela gra 193 :tauros [:normal]
214 :tauros nor 194 :tentacool [:water :poison]
215 :tentacool wat poi 195 :tentacruel [:water :poison]
216 :tentacruel wat poi 196 :vaporeon [:water]
217 :vaporeon wat 197 :venomoth [:bug :poison]
218 :venomoth bug poi 198 :venonat [:bug :poison]
219 :venonat bug poi 199 :venusaur [:grass :poison]
220 :venusaur gra poi 200 :victreebel [:grass :poison]
221 :victreebel gra poi 201 :vileplume [:grass :poison]
222 :vileplume gra poi 202 :voltorb [:electric]
223 :voltorb ele 203 :vulpix [:fire]
224 :vulpix fir 204 :wartortle [:water]
225 :wartortle wat 205 :weedle [:bug :poison]
226 :weedle bug poi 206 :weepenbell [:grass :poison]
227 :weepenbell gra poi 207 :wheezing [:poison]
228 :wheezing poi 208 :wigglytuff [:normal]
229 :wigglytuff nor 209 :zapdos [:electric :flying]
230 :zapdos ele fly 210 :zubat [:poison :flying]})
231 :zubat poi fly 211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364