1.1 --- a/clojure/com/aurellem/gb/species.clj	Sat Mar 24 00:13:06 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/species.clj	Sat Mar 24 03:10:56 2012 -0500
     1.3 @@ -3,10 +3,12 @@
     1.4                           constants))
     1.5    (:import [com.aurellem.gb.gb_driver SaveState]))
     1.6  
     1.7 +
     1.8 +
     1.9  (def species-code->species-name
    1.10    {0x01  :rhydon
    1.11     0x02  :kangaskhan
    1.12 -   0x03  :nidoran-male
    1.13 +   0x03  :nidoran♂
    1.14     0x04  :clefairy
    1.15     0x05  :spearow
    1.16     0x06  :voltorb
    1.17 @@ -18,7 +20,7 @@
    1.18     0x0C  :exeggcute
    1.19     0x0D  :grimer
    1.20     0x0E  :gengar
    1.21 -   0x0F  :nidoran-female
    1.22 +   0x0F  :nidoran♀
    1.23     0x10  :nidoqueen
    1.24     0x11  :cubone
    1.25     0x12  :rhyhorn
    1.26 @@ -72,15 +74,15 @@
    1.27     0x4D  :meowth
    1.28     0x4E  :krabby
    1.29     0x52  :vulpix
    1.30 -   0x53  :ninetails
    1.31 +   0x53  :ninetales
    1.32     0x54  :pikachu
    1.33 -   0x55  :riachu
    1.34 +   0x55  :raichu
    1.35     0x58  :dratini
    1.36     0x59  :dragonair
    1.37     0x5A  :kabuto
    1.38     0x5B  :kabutops
    1.39     0x5C  :horsea
    1.40 -   0x5D  :sedra
    1.41 +   0x5D  :seadra
    1.42     0x60  :sandshrew
    1.43     0x61  :sandslash
    1.44     0x62  :omanyte
    1.45 @@ -120,7 +122,7 @@
    1.46     0x8B  :cloyster
    1.47     0x8D  :electrode
    1.48     0x8E  :clefable
    1.49 -   0x8F  :wheezing
    1.50 +   0x8F  :weezing
    1.51     0x90  :persian
    1.52     0x91  :marowak
    1.53     0x93  :haunter
    1.54 @@ -153,7 +155,7 @@
    1.55     0xBA  :gloom
    1.56     0xBB  :vileplume
    1.57     0xBC  :bellsprout
    1.58 -   0xBD  :weepenbell
    1.59 +   0xBD  :weepinbell
    1.60     0xBE  :victreebel})
    1.61  
    1.62  (def species-ID-1 0xD163)
    1.63 @@ -212,4 +214,313 @@
    1.64    ([poke-num new-species]
    1.65       (set-species2 @current-state poke-num new-species)))
    1.66  
    1.67 -     
    1.68 \ No newline at end of file
    1.69 +
    1.70 +(def pokedex-num->species-name
    1.71 +  {1       :bulbasaur     
    1.72 +   2       :ivysaur       
    1.73 +   3       :venusaur      
    1.74 +   4       :charmander    
    1.75 +   5       :charmeleon    
    1.76 +   6       :charizard     
    1.77 +   7       :squirtle      
    1.78 +   8       :wartortle     
    1.79 +   9       :blastoise     
    1.80 +   10      :caterpie      
    1.81 +   11      :metapod       
    1.82 +   12      :butterfree    
    1.83 +   13      :weedle        
    1.84 +   14      :kakuna        
    1.85 +   15      :beedrill      
    1.86 +   16      :pidgey        
    1.87 +   17      :pidgeotto     
    1.88 +   18      :pidgeot       
    1.89 +   19      :rattata       
    1.90 +   20      :raticate      
    1.91 +   21      :spearow       
    1.92 +   22      :fearow        
    1.93 +   23      :ekans         
    1.94 +   24      :arbok         
    1.95 +   25      :pikachu       
    1.96 +   26      :raichu        
    1.97 +   27      :sandshrew     
    1.98 +   28      :sandslash     
    1.99 +   29      :nidoran♀      
   1.100 +   30      :nidorina      
   1.101 +   31      :nidoqueen     
   1.102 +   32      :nidoran♂      
   1.103 +   33      :nidorino      
   1.104 +   34      :nidoking      
   1.105 +   35      :clefairy      
   1.106 +   36      :clefable      
   1.107 +   37      :vulpix        
   1.108 +   38      :ninetales     
   1.109 +   39      :jigglypuff    
   1.110 +   40      :wigglytuff    
   1.111 +   41      :zubat         
   1.112 +   42      :golbat        
   1.113 +   43      :oddish        
   1.114 +   44      :gloom         
   1.115 +   45      :vileplume     
   1.116 +   46      :paras         
   1.117 +   47      :parasect      
   1.118 +   48      :venonat       
   1.119 +   49      :venomoth      
   1.120 +   50      :diglett       
   1.121 +   51      :dugtrio       
   1.122 +   52      :meowth        
   1.123 +   53      :persian       
   1.124 +   54      :psyduck       
   1.125 +   55      :golduck       
   1.126 +   56      :mankey        
   1.127 +   57      :primeape      
   1.128 +   58      :growlithe     
   1.129 +   59      :arcanine      
   1.130 +   60      :poliwag       
   1.131 +   61      :poliwhirl     
   1.132 +   62      :poliwrath     
   1.133 +   63      :abra          
   1.134 +   64      :kadabra       
   1.135 +   65      :alakazam      
   1.136 +   66      :machop        
   1.137 +   67      :machoke       
   1.138 +   68      :machamp       
   1.139 +   69      :bellsprout    
   1.140 +   70      :weepinbell    
   1.141 +   71      :victreebel    
   1.142 +   72      :tentacool     
   1.143 +   73      :tentacruel    
   1.144 +   74      :geodude       
   1.145 +   75      :graveler      
   1.146 +   76      :golem         
   1.147 +   77      :ponyta        
   1.148 +   78      :rapidash      
   1.149 +   79      :slowpoke      
   1.150 +   80      :slowbro       
   1.151 +   81      :magnemite     
   1.152 +   82      :magneton      
   1.153 +   83      :farfetch    
   1.154 +   84      :doduo         
   1.155 +   85      :dodrio        
   1.156 +   86      :seel          
   1.157 +   87      :dewgong       
   1.158 +   88      :grimer        
   1.159 +   89      :muk           
   1.160 +   90      :shellder      
   1.161 +   91      :cloyster      
   1.162 +   92      :gastly        
   1.163 +   93      :haunter       
   1.164 +   94      :gengar        
   1.165 +   95      :onix          
   1.166 +   96      :drowzee       
   1.167 +   97      :hypno         
   1.168 +   98      :krabby        
   1.169 +   99      :kingler       
   1.170 +   100     :voltorb       
   1.171 +   101     :electrode     
   1.172 +   102     :exeggcute     
   1.173 +   103     :exeggutor     
   1.174 +   104     :cubone        
   1.175 +   105     :marowak       
   1.176 +   106     :hitmonlee     
   1.177 +   107     :hitmonchan    
   1.178 +   108     :lickitung     
   1.179 +   109     :koffing       
   1.180 +   110     :weezing       
   1.181 +   111     :rhyhorn       
   1.182 +   112     :rhydon        
   1.183 +   113     :chansey       
   1.184 +   114     :tangela       
   1.185 +   115     :kangaskhan    
   1.186 +   116     :horsea        
   1.187 +   117     :seadra        
   1.188 +   118     :goldeen       
   1.189 +   119     :seaking       
   1.190 +   120     :staryu        
   1.191 +   121     :starmie       
   1.192 +   122     :mr-mime      
   1.193 +   123     :scyther       
   1.194 +   124     :jynx          
   1.195 +   125     :electabuzz    
   1.196 +   126     :magmar        
   1.197 +   127     :pinsir        
   1.198 +   128     :tauros        
   1.199 +   129     :magikarp      
   1.200 +   130     :gyarados      
   1.201 +   131     :lapras        
   1.202 +   132     :ditto         
   1.203 +   133     :eevee         
   1.204 +   134     :vaporeon      
   1.205 +   135     :jolteon       
   1.206 +   136     :flareon       
   1.207 +   137     :porygon       
   1.208 +   138     :omanyte       
   1.209 +   139     :omastar       
   1.210 +   140     :kabuto        
   1.211 +   141     :kabutops      
   1.212 +   142     :aerodactyl    
   1.213 +   143     :snorlax       
   1.214 +   144     :articuno      
   1.215 +   145     :zapdos        
   1.216 +   146     :moltres       
   1.217 +   147     :dratini       
   1.218 +   148     :dragonair     
   1.219 +   149     :dragonite     
   1.220 +   150     :mewtwo         
   1.221 +   151     :mew})
   1.222 +         
   1.223 +
   1.224 +
   1.225 +
   1.226 +
   1.227 +
   1.228 +           
   1.229 +           
   1.230 +           
   1.231 +           
   1.232 +           
   1.233 +           
   1.234 +           
   1.235 +           
   1.236 +           
   1.237 +           
   1.238 +           
   1.239 +           
   1.240 +           
   1.241 +           
   1.242 +           
   1.243 +           
   1.244 +           
   1.245 +           
   1.246 +           
   1.247 +           
   1.248 +           
   1.249 +           
   1.250 +           
   1.251 +           
   1.252 +           
   1.253 +           
   1.254 +           
   1.255 +           
   1.256 +           
   1.257 +           
   1.258 +           
   1.259 +           
   1.260 +           
   1.261 +           
   1.262 +           
   1.263 +           
   1.264 +           
   1.265 +           
   1.266 +           
   1.267 +           
   1.268 +           
   1.269 +           
   1.270 +           
   1.271 +           
   1.272 +           
   1.273 +           
   1.274 +           
   1.275 +           
   1.276 +           
   1.277 +           
   1.278 +           
   1.279 +           
   1.280 +           
   1.281 +           
   1.282 +           
   1.283 +           
   1.284 +           
   1.285 +           
   1.286 +           
   1.287 +           
   1.288 +           
   1.289 +           
   1.290 +           
   1.291 +           
   1.292 +           
   1.293 +           
   1.294 +           
   1.295 +           
   1.296 +           
   1.297 +           
   1.298 +           
   1.299 +           
   1.300 +           
   1.301 +           
   1.302 +           
   1.303 +           
   1.304 +           
   1.305 +           
   1.306 +           
   1.307 +           
   1.308 +           
   1.309 +           
   1.310 +           
   1.311 +           
   1.312 +           
   1.313 +           
   1.314 +           
   1.315 +           
   1.316 +           
   1.317 +           
   1.318 +           
   1.319 +           
   1.320 +           
   1.321 +           
   1.322 +           
   1.323 +           
   1.324 +           
   1.325 +           
   1.326 +           
   1.327 +           
   1.328 +           
   1.329 +           
   1.330 +           
   1.331 +           
   1.332 +           
   1.333 +           
   1.334 +           
   1.335 +           
   1.336 +           
   1.337 +           
   1.338 +           
   1.339 +           
   1.340 +           
   1.341 +           
   1.342 +           
   1.343 +           
   1.344 +           
   1.345 +           
   1.346 +           
   1.347 +           
   1.348 +           
   1.349 +           
   1.350 +           
   1.351 +           
   1.352 +           
   1.353 +           
   1.354 +           
   1.355 +           
   1.356 +           
   1.357 +           
   1.358 +           
   1.359 +           
   1.360 +           
   1.361 +           
   1.362 +           
   1.363 +           
   1.364 +           
   1.365 +           
   1.366 +           
   1.367 +           
   1.368 +           
   1.369 +           
   1.370 +           
   1.371 +           
   1.372 +           
   1.373 +           
   1.374 +           
   1.375 +           
   1.376 +           
   1.377 +           
   1.378 +           
   1.379 \ No newline at end of file