1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clojure/com/aurellem/exp/species.clj	Tue Mar 20 05:18:31 2012 -0500
     1.3 @@ -0,0 +1,282 @@
     1.4 +(ns com.aurellem.exp.species
     1.5 +  (:use (com.aurellem.gb gb-driver items util))
     1.6 +  (:import [com.aurellem.gb.gb_driver SaveState]))
     1.7 +
     1.8 +(def species-ID-1 0xD163)
     1.9 +
    1.10 +(defn species-state []
    1.11 +  (read-state "pika-no-1"))
    1.12 +
    1.13 +(defn view-species [n]
    1.14 +  (run-moves
    1.15 +   (set-memory (species-state) species-ID-1 n)
    1.16 +   (concat [[:a]]
    1.17 +           (repeat 200 [])
    1.18 +           [[:a]]
    1.19 +           (repeat 200 []))))
    1.20 +
    1.21 +(defn iterate-species []
    1.22 +  (dorun
    1.23 +   (map (fn [n] (println n)
    1.24 +          (view-species n)
    1.25 +          (Thread/sleep 4800))
    1.26 +        (range (inc 0xFF)))))
    1.27 +
    1.28 +
    1.29 +
    1.30 +;; 000  00  :    glitch
    1.31 +;; 001  01  :    Rhydon
    1.32 +;; 002  02  :    Kangashgan
    1.33 +;; 003  03  :    nidoran-male
    1.34 +;; 004  04  :    clefairy
    1.35 +;; 005  05  :    spearow
    1.36 +;; 006  06  :    voltorb
    1.37 +;; 007  07  :    nidoking
    1.38 +;; 008  08  :    slowbrow
    1.39 +;; 009  09  :    ivysaur
    1.40 +;; 010  0A  :    eggxecutor
    1.41 +;; 011  0B  :    likitoungue
    1.42 +;; 012  0C  :    eggxegutte
    1.43 +;; 013  0D  :    grimer
    1.44 +;; 014  0E  :    gengar
    1.45 +;; 015  0F  :    nidoran-female
    1.46 +;; 016  10  :    nodoqueen
    1.47 +;; 017  11  :    cubone
    1.48 +;; 018  12  :    rhyhorn
    1.49 +;; 019  13  :    lapras
    1.50 +;; 020  14  :    arcanine
    1.51 +;; 021  15  :    mew
    1.52 +;; 022  16  :    gyarados
    1.53 +;; 023  17  :    shelder
    1.54 +;; 024  18  :    tentacool
    1.55 +;; 025  19  :    gastly
    1.56 +;; 026  1A  :    scyther
    1.57 +;; 027  1B  :    staryu
    1.58 +;; 028  1C  :    blastoise
    1.59 +;; 029  1D  :    pinsir
    1.60 +;; 030  1E  :    tangela
    1.61 +;; 031  1F  :    glitch
    1.62 +;; 032  20  :    glitch
    1.63 +;; 033  21  :    growlithe
    1.64 +;; 034  22  :    onix
    1.65 +;; 035  23  :    fearow
    1.66 +;; 036  24  :    pidgey
    1.67 +;; 037  25  :    slowpoke
    1.68 +;; 038  26  :    kadabra
    1.69 +;; 039  27  :    graveller
    1.70 +;; 040  28  :    chansey
    1.71 +;; 041  29  :    machoke
    1.72 +;; 042  2A  :    mr-mime
    1.73 +;; 043  2B  :    hitmonlee
    1.74 +;; 044  2C  :    hitmonchan
    1.75 +;; 045  2D  :    arbok
    1.76 +;; 046  2E  :    parasect
    1.77 +;; 047  2F  :    psyduck
    1.78 +;; 048  30  :    drowzee
    1.79 +;; 049  31  :    golem
    1.80 +;; 050  32  :    glitch
    1.81 +;; 051  33  :    magmar
    1.82 +;; 052  34  :    glitch
    1.83 +;; 053  35  :    electabuzz
    1.84 +;; 054  36  :    magneton
    1.85 +;; 055  37  :    koffing
    1.86 +;; 056  38  :    glitch
    1.87 +;; 057  39  :    mankey
    1.88 +;; 058  3A  :    seel
    1.89 +;; 059  3B  :    diglett
    1.90 +;; 060  3C  :    tauros
    1.91 +;; 061  3D  :    glitch
    1.92 +;; 062  3E  :    glitch
    1.93 +;; 063  3F  :    glitch
    1.94 +;; 064  40  :    farfedtch
    1.95 +;; 065  41  :    venonat
    1.96 +;; 066  42  :    dragonite
    1.97 +;; 067  43  :    glitch
    1.98 +;; 068  44  :    glitch
    1.99 +;; 069  45  :    glitch
   1.100 +;; 070  46  :    doduo
   1.101 +;; 071  47  :    poliwag
   1.102 +;; 072  48  :    jynx
   1.103 +;; 073  49  :    moltres
   1.104 +;; 074  4A  :    articuno
   1.105 +;; 075  4B  :    zapdos
   1.106 +;; 076  4C  :    ditto
   1.107 +;; 077  4D  :    meowth
   1.108 +;; 078  4E  :    krabby
   1.109 +;; 079  4F  :    glitch
   1.110 +;; 080  50  :    glitch
   1.111 +;; 081  51  :    glitch
   1.112 +;; 082  52  :    vulpix
   1.113 +;; 083  53  :    ninetails
   1.114 +;; 084  54  :    pikachu
   1.115 +;; 085  55  :    riachu
   1.116 +;; 086  56  :    glitch
   1.117 +;; 087  57  :    glitch
   1.118 +;; 088  58  :    dratini
   1.119 +;; 089  59  :    dragonair
   1.120 +;; 090  5A  :    kabuto
   1.121 +;; 091  5B  :    kabutops
   1.122 +;; 092  5C  :    horsea
   1.123 +;; 093  5D  :    sedra
   1.124 +;; 094  5E  :    glitch
   1.125 +;; 095  5F  :    glitch
   1.126 +;; 096  60  :    sandshrew
   1.127 +;; 097  61  :    sandslash
   1.128 +;; 098  62  :    omanyte
   1.129 +;; 099  63  :    omastar
   1.130 +;; 100  64  :    jugglypuff
   1.131 +;; 101  65  :    wigglytuff
   1.132 +;; 102  66  :    eevee
   1.133 +;; 103  67  :    flareon
   1.134 +;; 104  68  :    jolteon
   1.135 +;; 105  69  :    vapeoreon
   1.136 +;; 106  6A  :    machop
   1.137 +;; 107  6B  :    zubat
   1.138 +;; 108  6C  :    ekans
   1.139 +;; 109  6D  :    paras
   1.140 +;; 110  6E  :    poliwhirl
   1.141 +;; 111  6F  :    poliwrath
   1.142 +;; 112  70  :    weedle
   1.143 +;; 113  71  :    kakuna
   1.144 +;; 114  72  :    beedrill
   1.145 +;; 115  73  :    glitch
   1.146 +;; 116  74  :    dodrio
   1.147 +;; 117  75  :    primeape
   1.148 +;; 118  76  :    dugtrio
   1.149 +;; 119  77  :    venomoth
   1.150 +;; 120  78  :    dewgong
   1.151 +;; 121  79  :    glitch
   1.152 +;; 122  7A  :    glitch
   1.153 +;; 123  7B  :    caterpie
   1.154 +;; 124  7C  :    metapod
   1.155 +;; 125  7D  :    butterfree
   1.156 +;; 126  7E  :    machamp
   1.157 +;; 127  7F  :    glitch
   1.158 +;; 128  80  :    golduck
   1.159 +;; 129  81  :    hypno
   1.160 +;; 130  82  :    golbat
   1.161 +;; 131  83  :    mewtwo
   1.162 +;; 132  84  :    snorlax
   1.163 +;; 133  85  :    magikarp
   1.164 +;; 134  86  :    glitch
   1.165 +;; 135  87  :    glitch
   1.166 +;; 136  88  :    muk
   1.167 +;; 137  89  :    glitch
   1.168 +;; 138  8A  :    kingler
   1.169 +;; 139  8B  :    cloyster
   1.170 +;; 140  8C  :    glitch
   1.171 +;; 141  8D  :    electrode
   1.172 +;; 142  8E  :    clefable
   1.173 +;; 143  8F  :    wheezing
   1.174 +;; 144  90  :    persian
   1.175 +;; 145  91  :    marowak
   1.176 +;; 146  92  :    glitch
   1.177 +;; 147  93  :    haunter
   1.178 +;; 148  94  :    abra
   1.179 +;; 149  95  :    alakazam
   1.180 +;; 150  96  :    pidgeotto
   1.181 +;; 151  97  :    pidgeot
   1.182 +;; 152  98  :    starmie
   1.183 +;; 153  99  :    bulbasaur
   1.184 +;; 154  9A  :    venusaur
   1.185 +;; 155  9B  :    tentacruel
   1.186 +;; 156  9C  :    glitch
   1.187 +;; 157  9D  :    goldeen
   1.188 +;; 158  9E  :    seaking
   1.189 +;; 159  9F  :    glitch
   1.190 +;; 160  A0  :    glitch
   1.191 +;; 161  A1  :    glitch
   1.192 +;; 162  A2  :    glitch
   1.193 +;; 163  A3  :    ponyta
   1.194 +;; 164  A4  :    rapidash
   1.195 +;; 165  A5  :    rattatta
   1.196 +;; 166  A6  :    raticate
   1.197 +;; 167  A7  :    nidorino
   1.198 +;; 168  A8  :    nidorina
   1.199 +;; 169  A9  :    geodude
   1.200 +;; 170  AA  :    porygon
   1.201 +;; 171  AB  :    aerodactyl
   1.202 +;; 172  AC  :    glitch
   1.203 +;; 173  AD  :    magnemite
   1.204 +;; 174  AE  :    glitch
   1.205 +;; 175  AF  :    glitch
   1.206 +;; 176  B0  :    charmander
   1.207 +;; 177  B1  :    squirtle
   1.208 +;; 178  B2  :    charmelon
   1.209 +;; 179  B3  :    wartortle
   1.210 +;; 180  B4  :    charizard
   1.211 +;; 181  B5  :    glitch
   1.212 +;; 182  B6  :    glitch
   1.213 +;; 183  B7  :    glitch
   1.214 +;; 184  B8  :    glitch
   1.215 +;; 185  B9  :    oddish
   1.216 +;; 186  BA  :    gloom
   1.217 +;; 187  BB  :    vileplume
   1.218 +;; 188  BC  :    bellsprout
   1.219 +;; 189  BD  :    weepenbell
   1.220 +;; 190  BE  :    victriebell
   1.221 +;; 191  BF  :    glitch
   1.222 +;; 192  C0  :    glitch
   1.223 +;; 193  C1  :    glitch
   1.224 +;; 194  C2  :    glitch
   1.225 +;; 195  C3  :    glitch
   1.226 +;; 196  C4  :    glitch
   1.227 +;; 197  C5  :    glitch
   1.228 +;; 198  C6  :    glitch
   1.229 +;; 199  C7  :    charizard-glitch
   1.230 +;; 200  C8  :    glitch
   1.231 +;; 201  C9  :    nidorino-glitch
   1.232 +;; 202  CA  :    glitch
   1.233 +;; 203  CB  :    magnemite-clitch
   1.234 +;; 204  CC  :    glitch
   1.235 +;; 205  CD  :    glitch
   1.236 +;; 206  CE  :    glitch
   1.237 +;; 207  CF  :    glitch
   1.238 +;; 208  D0  :    glitch
   1.239 +;; 209  D1  :    glitch
   1.240 +;; 210  D2  :    nidorino-glitch
   1.241 +;; 211  D3  :    glitch
   1.242 +;; 212  D4  :    glitch
   1.243 +;; 213  D5  :    bulbasaur-glitch
   1.244 +;; 214  D6  :    charmander-glitch
   1.245 +;; 215  D7  :    glitch
   1.246 +;; 216  D8  :    glitch
   1.247 +;; 217  D9  :    glitch
   1.248 +;; 218  DA  :    glitch
   1.249 +;; 219  DB  :    glitch
   1.250 +;; 220  DC  :    glitch
   1.251 +;; 221  DD  :    glitch
   1.252 +;; 222  DE  :    glitch
   1.253 +;; 223  DF  :    glitch
   1.254 +;; 224  E0  :    glitch
   1.255 +;; 225  E1  :    glitch
   1.256 +;; 226  E2  :    glitch
   1.257 +;; 227  E3  :    glitch
   1.258 +;; 228  E4  :    glitch
   1.259 +;; 229  E5  :    glitch
   1.260 +;; 230  E6  :    glitch
   1.261 +;; 231  E7  :    glitch
   1.262 +;; 232  E8  :    seaking-glitch
   1.263 +;; 233  E9  :    nidorino-glicth
   1.264 +;; 234  EA  :    glitch
   1.265 +;; 235  EB  :    glitch
   1.266 +;; 236  EC  :    glitch
   1.267 +;; 237  ED  :    glitch
   1.268 +;; 238  EE  :    glitch
   1.269 +;; 239  EF  :    glitch
   1.270 +;; 240  F0  :    charizard-glitch
   1.271 +;; 241  F1  :    nidorino-glitch
   1.272 +;; 242  F2  :    glitch
   1.273 +;; 243  F3  :    glitch
   1.274 +;; 244  F4  :    glitch
   1.275 +;; 245  F5  :    glitch
   1.276 +;; 246  F6  :    glitch
   1.277 +;; 247  F7  :    bulbasaur-glitch
   1.278 +;; 248  F8  :    bulbasaur-glitch*
   1.279 +;; 249  F9  :    glitch
   1.280 +;; 250  FA  :    glitch
   1.281 +;; 251  FB  :    glitch
   1.282 +;; 252  FC  :    oddish-glitch
   1.283 +;; 253  FD  :    glitch
   1.284 +;; 254  FE  :    glitch
   1.285 +;; 255  FF  :    glitch
   1.286 \ No newline at end of file