Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/types.clj @ 204:43bb461a7419

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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