Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/types.clj @ 204:43bb461a7419
constructing default types....
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 23 Mar 2012 04:19:38 -0500 |
parents | 85a2c2e2d318 |
children | 28d35c9e3ab6 |
comparison
equal
deleted
inserted
replaced
203:85a2c2e2d318 | 204:43bb461a7419 |
---|---|
15 0x15 :water | 15 0x15 :water |
16 0x16 :grass | 16 0x16 :grass |
17 0x17 :electric | 17 0x17 :electric |
18 0x18 :psychic | 18 0x18 :psychic |
19 0x19 :ice | 19 0x19 :ice |
20 0x1A :dragon}) | 20 0x1A :dragon }) |
21 | 21 |
22 (def type-name->type-code | 22 (def type-name->type-code |
23 (zipmap (vals type-code->type-name) | 23 (zipmap (vals type-code->type-name) |
24 (keys type-code->type-name))) | 24 (keys type-code->type-name))) |
25 | 25 |
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 | 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 | |
60 (def pokemon->type | 79 (def pokemon->type |
61 {:rhydon | 80 { |
62 :kangaskhan | 81 :abra psy |
63 :nidoran-male | 82 :aerodactyl rck fly |
64 :clefairy | 83 :alakazam psy |
65 :spearow | 84 :arbok poi |
66 :voltorb | 85 :arcanine fir |
67 :nidoking | 86 :articuno ice fly |
68 :slowbro | 87 :beedrill bug poi |
69 :ivysaur | 88 :bellsprout gra poi |
70 :exeggutor | 89 :blastoise wat |
71 :lickitung | 90 :bulbasaur gra poi |
72 :exeggcute | 91 :butterfree bug fly |
73 :grimer | 92 :caterpie bug |
74 :gengar | 93 :chansey nor |
75 :nidoran-female | 94 :charizard fir fly |
76 :nidoqueen | 95 :charmander fir |
77 :cubone | 96 :charmeleon fir |
78 :rhyhorn | 97 :clefable nor |
79 :lapras | 98 :clefairy nor |
80 :arcanine | 99 :cloyster wat ice |
81 :mew | 100 :cubone gro |
82 :gyarados | 101 :dewgong wat ice |
83 :shellder | 102 :diglett gro |
84 :tentacool | 103 :ditto nor |
85 :gastly | 104 :dodrio nor fly |
86 :scyther | 105 :doduo nor fly |
87 :staryu | 106 :dragonair drg |
88 :blastoise | 107 :dragonite drg fly |
89 :pinsir | 108 :dratini drg |
90 :tangela | 109 :drowzee psy |
91 :growlithe | 110 :dugtrio gro |
92 :onix | 111 :eevee nor |
93 :fearow | 112 :ekans poi |
94 :pidgey | 113 :electabuzz ele |
95 :slowpoke | 114 :electrode ele |
96 :kadabra | 115 :exeggcute gra psy |
97 :graveler | 116 :exeggutor gra psy |
98 :chansey | 117 :farfetchd nor fly |
99 :machoke | 118 :fearow nor fly |
100 :mr-mime | 119 :flareon fir |
101 :hitmonlee | 120 :gastly gho poi |
102 :hitmonchan | 121 :gengar gho poi |
103 :arbok | 122 :geodude rck gro |
104 :parasect | 123 :gloom gra poi |
105 :psyduck | 124 :golbat poi fly |
106 :drowzee | 125 :goldeen wat |
107 :golem | 126 :golduck wat |
108 :magmar | 127 :golem rck gro |
109 :electabuzz | 128 :graveler rck gro |
110 :magneton | 129 :grimer poi |
111 :koffing | 130 :growlithe fir |
112 :mankey | 131 :gyarados wat fly |
113 :seel | 132 :haunter gho poi |
114 :diglett | 133 :hitmonchan fgt |
115 :tauros | 134 :hitmonlee fgt |
116 :farfetch'd | 135 :horsea wat |
117 :venonat | 136 :hypno psy |
118 :dragonite | 137 :ivysaur gra poi |
119 :doduo | 138 :jigglypuff nor |
120 :poliwag | 139 :jolteon ele |
121 :jynx | 140 :jynx ice psy |
122 :moltres | 141 :kabuto rck wat |
123 :articuno | 142 :kabutops rck wat |
124 :zapdos | 143 :kadabra psy |
125 :ditto | 144 :kakuna bug poi |
126 :meowth | 145 :kangaskhan nor |
127 :krabby | 146 :kingler wat |
128 :vulpix | 147 :koffing poi |
129 :ninetails | 148 :krabby wat |
130 :pikachu | 149 :lapras wat ice |
131 :riachu | 150 :lickitung nor |
132 :dratini | 151 :machamp fgt |
133 :dragonair | 152 :machoke fgt |
134 :kabuto | 153 :machop fgt |
135 :kabutops | 154 :magikarp wat |
136 :horsea | 155 :magmar fir |
137 :sedra | 156 :magnemite ele |
138 :sandshrew | 157 :magneton ele |
139 :sandslash | 158 :mankey fgt |
140 :omanyte | 159 :marowak gro |
141 :omastar | 160 :meowth nor |
142 :jigglypuff | 161 :metapod bug |
143 :wigglytuff | 162 :mew psy |
144 :eevee | 163 :mewtwo psy |
145 :flareon | 164 :moltres fir fly |
146 :jolteon | 165 :mr-mime psy |
147 :vaporeon | 166 :muk poi |
148 :machop | 167 :nidoking poi gro |
149 :zubat | 168 :nidoqueen poi gro |
150 :ekans | 169 :nidoran-female poi |
151 :paras | 170 :nidoran-male poi |
152 :poliwhirl | 171 :nidorina poi |
153 :poliwrath | 172 :nidorino poi |
154 :weedle | 173 :ninetails fir |
155 :kakuna | 174 :oddish gra poi |
156 :beedrill | 175 :omanyte rck wat |
157 :dodrio | 176 :omastar rck wat |
158 :primeape | 177 :onix rck gro |
159 :dugtrio | 178 :paras bug gra |
160 :venomoth | 179 :parasect bug gra |
161 :dewgong | 180 :persian nor |
162 :caterpie | 181 :pidgeot nor fly |
163 :metapod | 182 :pidgeotto nor fly |
164 :butterfree | 183 :pidgey nor fly |
165 :machamp | 184 :pikachu ele |
166 :golduck | 185 :pinsir bug |
167 :hypno | 186 :poliwag wat |
168 :golbat | 187 :poliwhirl wat |
169 :mewtwo | 188 :poliwrath wat fgt |
170 :snorlax | 189 :ponyta fir |
171 :magikarp | 190 :porygon nor |
172 :muk | 191 :primeape fgt |
173 :kingler | 192 :psyduck wat |
174 :cloyster | 193 :raichu ele |
175 :electrode | 194 :rapidash fir |
176 :clefable | 195 :raticate nor |
177 :wheezing | 196 :rattata nor |
178 :persian | 197 :rhydon gro rck |
179 :marowak | 198 :rhyhorn gro rck |
180 :haunter | 199 :sandshrew gro |
181 :abra | 200 :sandslash gro |
182 :alakazam | 201 :scyther bug fly |
183 :pidgeotto | 202 :seaking wat |
184 :pidgeot | 203 :sedra wat |
185 :starmie | 204 :seel wat |
186 :bulbasaur | 205 :shellder wat |
187 :venusaur | 206 :slowbro wat psy |
188 :tentacruel | 207 :slowpoke wat psy |
189 :goldeen | 208 :snorlax nor |
190 :seaking | 209 :spearow nor fly |
191 :ponyta | 210 :squirtle wat |
192 :rapidash | 211 :starmie wat psy |
193 :rattata | 212 :staryu wat |
194 :raticate | 213 :tangela gra |
195 :nidorino | 214 :tauros nor |
196 :nidorina | 215 :tentacool wat poi |
197 :geodude | 216 :tentacruel wat poi |
198 :porygon | 217 :vaporeon wat |
199 :aerodactyl | 218 :venomoth bug poi |
200 :magnemite | 219 :venonat bug poi |
201 :charmander | 220 :venusaur gra poi |
202 :squirtle | 221 :victreebel gra poi |
203 :charmeleon | 222 :vileplume gra poi |
204 :wartortle | 223 :voltorb ele |
205 :charizard | 224 :vulpix fir |
206 :oddish | 225 :wartortle wat |
207 :gloom | 226 :weedle bug poi |
208 :vileplume | 227 :weepenbell gra poi |
209 :bellsprout | 228 :wheezing poi |
210 :weepenbell | 229 :wigglytuff nor |
211 :victreebel | 230 :zapdos ele fly |
231 :zubat poi fly |