Mercurial > vba-clojure

view clojure/com/aurellem/gb/species.clj @ 218:ca9d2897435b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
moved hardcoded stuff into its own namespace.
author Robert McIntyre <rlm@mit.edu>
date Fri, 23 Mar 2012 20:18:03 -0500
parents aba78e52faba
children c9a855de1d07
line wrap: on
line source
     1 (ns com.aurellem.gb.species



     2   (:use (com.aurellem.gb assembly characters gb-driver util



     3                          constants))



     4   (:import [com.aurellem.gb.gb_driver SaveState]))



     5 



     6 (def species-code->species-name



     7   {0x01  :rhydon



     8    0x02  :kangaskhan



     9    0x03  :nidoran-male



    10    0x04  :clefairy



    11    0x05  :spearow



    12    0x06  :voltorb



    13    0x07  :nidoking



    14    0x08  :slowbro



    15    0x09  :ivysaur



    16    0x0A  :exeggutor



    17    0x0B  :lickitung



    18    0x0C  :exeggcute



    19    0x0D  :grimer



    20    0x0E  :gengar



    21    0x0F  :nidoran-female



    22    0x10  :nidoqueen



    23    0x11  :cubone



    24    0x12  :rhyhorn



    25    0x13  :lapras



    26    0x14  :arcanine



    27    0x15  :mew



    28    0x16  :gyarados



    29    0x17  :shellder



    30    0x18  :tentacool



    31    0x19  :gastly



    32    0x1A  :scyther



    33    0x1B  :staryu



    34    0x1C  :blastoise



    35    0x1D  :pinsir



    36    0x1E  :tangela



    37    0x21  :growlithe



    38    0x22  :onix



    39    0x23  :fearow



    40    0x24  :pidgey



    41    0x25  :slowpoke



    42    0x26  :kadabra



    43    0x27  :graveler



    44    0x28  :chansey



    45    0x29  :machoke



    46    0x2A  :mr-mime



    47    0x2B  :hitmonlee



    48    0x2C  :hitmonchan



    49    0x2D  :arbok



    50    0x2E  :parasect



    51    0x2F  :psyduck



    52    0x30  :drowzee



    53    0x31  :golem



    54    0x33  :magmar



    55    0x35  :electabuzz



    56    0x36  :magneton



    57    0x37  :koffing



    58    0x39  :mankey



    59    0x3A  :seel



    60    0x3B  :diglett



    61    0x3C  :tauros



    62    0x40  :farfetch



    63    0x41  :venonat



    64    0x42  :dragonite



    65    0x46  :doduo



    66    0x47  :poliwag



    67    0x48  :jynx



    68    0x49  :moltres



    69    0x4A  :articuno



    70    0x4B  :zapdos



    71    0x4C  :ditto



    72    0x4D  :meowth



    73    0x4E  :krabby



    74    0x52  :vulpix



    75    0x53  :ninetails



    76    0x54  :pikachu



    77    0x55  :riachu



    78    0x58  :dratini



    79    0x59  :dragonair



    80    0x5A  :kabuto



    81    0x5B  :kabutops



    82    0x5C  :horsea



    83    0x5D  :sedra



    84    0x60  :sandshrew



    85    0x61  :sandslash



    86    0x62  :omanyte



    87    0x63  :omastar



    88    0x64  :jigglypuff



    89    0x65  :wigglytuff



    90    0x66  :eevee



    91    0x67  :flareon



    92    0x68  :jolteon



    93    0x69  :vaporeon



    94    0x6A  :machop



    95    0x6B  :zubat



    96    0x6C  :ekans



    97    0x6D  :paras



    98    0x6E  :poliwhirl



    99    0x6F  :poliwrath



   100    0x70  :weedle



   101    0x71  :kakuna



   102    0x72  :beedrill



   103    0x74  :dodrio



   104    0x75  :primeape



   105    0x76  :dugtrio



   106    0x77  :venomoth



   107    0x78  :dewgong



   108    0x7B  :caterpie



   109    0x7C  :metapod



   110    0x7D  :butterfree



   111    0x7E  :machamp



   112    0x80  :golduck



   113    0x81  :hypno



   114    0x82  :golbat



   115    0x83  :mewtwo



   116    0x84  :snorlax



   117    0x85  :magikarp



   118    0x88  :muk



   119    0x8A  :kingler



   120    0x8B  :cloyster



   121    0x8D  :electrode



   122    0x8E  :clefable



   123    0x8F  :wheezing



   124    0x90  :persian



   125    0x91  :marowak



   126    0x93  :haunter



   127    0x94  :abra



   128    0x95  :alakazam



   129    0x96  :pidgeotto



   130    0x97  :pidgeot



   131    0x98  :starmie



   132    0x99  :bulbasaur



   133    0x9A  :venusaur



   134    0x9B  :tentacruel



   135    0x9D  :goldeen



   136    0x9E  :seaking



   137    0xA3  :ponyta



   138    0xA4  :rapidash



   139    0xA5  :rattata



   140    0xA6  :raticate



   141    0xA7  :nidorino



   142    0xA8  :nidorina



   143    0xA9  :geodude



   144    0xAA  :porygon



   145    0xAB  :aerodactyl



   146    0xAD  :magnemite



   147    0xB0  :charmander



   148    0xB1  :squirtle



   149    0xB2  :charmeleon



   150    0xB3  :wartortle



   151    0xB4  :charizard



   152    0xB9  :oddish



   153    0xBA  :gloom



   154    0xBB  :vileplume



   155    0xBC  :bellsprout



   156    0xBD  :weepenbell



   157    0xBE  :victreebel})



   158 



   159 (def species-ID-1 0xD163)



   160 



   161 (def species-name->species-code



   162   (zipmap (vals species-code->species-name)



   163           (keys species-code->species-name)))



   164 



   165 (defn pokemon-species-data-address [poke-num]



   166   (+ species-ID-1 poke-num))



   167 



   168 (defn read-species



   169   ([^SaveState state poke-num]



   170      (assert (<= 0 poke-num 5))



   171      (species-code->species-name



   172       (aget (memory state)



   173             (pokemon-species-data-address poke-num))))



   174   ([poke-num]



   175      (read-species @current-state poke-num)))



   176 



   177 (defn set-species



   178   ([^SaveState state poke-num species-name]



   179      (assert (<= 0 poke-num 5))



   180      (let [species-code (species-name->species-code



   181                          species-name



   182                          species-name)]



   183        



   184        (set-memory state (pokemon-species-data-address poke-num)



   185                    species-code)))



   186   ([poke-num species-name]



   187      (set-species @current-state poke-num species-name)))



   188 



   189 



   190 (def pokemon-1-species2-address 0xD16A)



   191 



   192 (defn pokemon-species2-address [poke-num]



   193   (+ pokemon-1-species2-address



   194      (* pokemon-record-width poke-num)))



   195 



   196 (defn read-species2



   197   ([^SaveState state poke-num]



   198      (species-code->species-name



   199       (aget (memory state)



   200             (pokemon-species2-address poke-num))))



   201   ([poke-num]



   202      (read-species2 @current-state poke-num)))



   203 



   204 (defn set-species2



   205   ([^SaveState state poke-num new-species]



   206      (let [species-code (species-name->species-code



   207                          new-species



   208                          new-species)]



   209        



   210        (set-memory state (pokemon-species2-address poke-num)



   211                    species-code)))



   212   ([poke-num new-species]



   213      (set-species2 @current-state poke-num new-species)))



   214 



   215