Mercurial > vba-clojure

annotate clojure/com/aurellem/exp/species.clj @ 534:3f2072b8e457

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor change to make button presses more dramatic.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 12:45:57 -0500
parents 6f80c07eb32a
children
rev   line source
rlm@160 1 (ns com.aurellem.exp.species
rlm@160 2 (:use (com.aurellem.gb gb-driver items util))
rlm@160 3 (:import [com.aurellem.gb.gb_driver SaveState]))
rlm@160 4
rlm@160 5 (def species-ID-1 0xD163)
rlm@160 6
rlm@160 7 (defn species-state []
rlm@160 8 (read-state "pika-no-1"))
rlm@160 9
rlm@160 10 (defn view-species [n]
rlm@160 11 (run-moves
rlm@160 12 (set-memory (species-state) species-ID-1 n)
rlm@160 13 (concat [[:a]]
rlm@160 14 (repeat 200 [])
rlm@160 15 [[:a]]
rlm@160 16 (repeat 200 []))))
rlm@160 17
rlm@160 18 (defn iterate-species []
rlm@160 19 (dorun
rlm@160 20 (map (fn [n] (println n)
rlm@160 21 (view-species n)
rlm@160 22 (Thread/sleep 4800))
rlm@160 23 (range (inc 0xFF)))))
rlm@160 24
rlm@164 25 ;;; Results:
rlm@160 26
rlm@160 27 ;; 000 00 : glitch
rlm@160 28 ;; 001 01 : Rhydon
rlm@160 29 ;; 002 02 : Kangashgan
rlm@160 30 ;; 003 03 : nidoran-male
rlm@160 31 ;; 004 04 : clefairy
rlm@160 32 ;; 005 05 : spearow
rlm@160 33 ;; 006 06 : voltorb
rlm@160 34 ;; 007 07 : nidoking
rlm@160 35 ;; 008 08 : slowbrow
rlm@160 36 ;; 009 09 : ivysaur
rlm@160 37 ;; 010 0A : eggxecutor
rlm@160 38 ;; 011 0B : likitoungue
rlm@160 39 ;; 012 0C : eggxegutte
rlm@160 40 ;; 013 0D : grimer
rlm@160 41 ;; 014 0E : gengar
rlm@160 42 ;; 015 0F : nidoran-female
rlm@160 43 ;; 016 10 : nodoqueen
rlm@160 44 ;; 017 11 : cubone
rlm@160 45 ;; 018 12 : rhyhorn
rlm@160 46 ;; 019 13 : lapras
rlm@160 47 ;; 020 14 : arcanine
rlm@160 48 ;; 021 15 : mew
rlm@160 49 ;; 022 16 : gyarados
rlm@160 50 ;; 023 17 : shelder
rlm@160 51 ;; 024 18 : tentacool
rlm@160 52 ;; 025 19 : gastly
rlm@160 53 ;; 026 1A : scyther
rlm@160 54 ;; 027 1B : staryu
rlm@160 55 ;; 028 1C : blastoise
rlm@160 56 ;; 029 1D : pinsir
rlm@160 57 ;; 030 1E : tangela
rlm@160 58 ;; 031 1F : glitch
rlm@160 59 ;; 032 20 : glitch
rlm@160 60 ;; 033 21 : growlithe
rlm@160 61 ;; 034 22 : onix
rlm@160 62 ;; 035 23 : fearow
rlm@160 63 ;; 036 24 : pidgey
rlm@160 64 ;; 037 25 : slowpoke
rlm@160 65 ;; 038 26 : kadabra
rlm@160 66 ;; 039 27 : graveller
rlm@160 67 ;; 040 28 : chansey
rlm@160 68 ;; 041 29 : machoke
rlm@160 69 ;; 042 2A : mr-mime
rlm@160 70 ;; 043 2B : hitmonlee
rlm@160 71 ;; 044 2C : hitmonchan
rlm@160 72 ;; 045 2D : arbok
rlm@160 73 ;; 046 2E : parasect
rlm@160 74 ;; 047 2F : psyduck
rlm@160 75 ;; 048 30 : drowzee
rlm@160 76 ;; 049 31 : golem
rlm@160 77 ;; 050 32 : glitch
rlm@160 78 ;; 051 33 : magmar
rlm@160 79 ;; 052 34 : glitch
rlm@160 80 ;; 053 35 : electabuzz
rlm@160 81 ;; 054 36 : magneton
rlm@160 82 ;; 055 37 : koffing
rlm@160 83 ;; 056 38 : glitch
rlm@160 84 ;; 057 39 : mankey
rlm@160 85 ;; 058 3A : seel
rlm@160 86 ;; 059 3B : diglett
rlm@160 87 ;; 060 3C : tauros
rlm@160 88 ;; 061 3D : glitch
rlm@160 89 ;; 062 3E : glitch
rlm@160 90 ;; 063 3F : glitch
rlm@160 91 ;; 064 40 : farfedtch
rlm@160 92 ;; 065 41 : venonat
rlm@160 93 ;; 066 42 : dragonite
rlm@160 94 ;; 067 43 : glitch
rlm@160 95 ;; 068 44 : glitch
rlm@160 96 ;; 069 45 : glitch
rlm@160 97 ;; 070 46 : doduo
rlm@160 98 ;; 071 47 : poliwag
rlm@160 99 ;; 072 48 : jynx
rlm@160 100 ;; 073 49 : moltres
rlm@160 101 ;; 074 4A : articuno
rlm@160 102 ;; 075 4B : zapdos
rlm@160 103 ;; 076 4C : ditto
rlm@160 104 ;; 077 4D : meowth
rlm@160 105 ;; 078 4E : krabby
rlm@160 106 ;; 079 4F : glitch
rlm@160 107 ;; 080 50 : glitch
rlm@160 108 ;; 081 51 : glitch
rlm@160 109 ;; 082 52 : vulpix
rlm@160 110 ;; 083 53 : ninetails
rlm@160 111 ;; 084 54 : pikachu
rlm@160 112 ;; 085 55 : riachu
rlm@160 113 ;; 086 56 : glitch
rlm@160 114 ;; 087 57 : glitch
rlm@160 115 ;; 088 58 : dratini
rlm@160 116 ;; 089 59 : dragonair
rlm@160 117 ;; 090 5A : kabuto
rlm@160 118 ;; 091 5B : kabutops
rlm@160 119 ;; 092 5C : horsea
rlm@160 120 ;; 093 5D : sedra
rlm@160 121 ;; 094 5E : glitch
rlm@160 122 ;; 095 5F : glitch
rlm@160 123 ;; 096 60 : sandshrew
rlm@160 124 ;; 097 61 : sandslash
rlm@160 125 ;; 098 62 : omanyte
rlm@160 126 ;; 099 63 : omastar
rlm@160 127 ;; 100 64 : jugglypuff
rlm@160 128 ;; 101 65 : wigglytuff
rlm@160 129 ;; 102 66 : eevee
rlm@160 130 ;; 103 67 : flareon
rlm@160 131 ;; 104 68 : jolteon
rlm@160 132 ;; 105 69 : vapeoreon
rlm@160 133 ;; 106 6A : machop
rlm@160 134 ;; 107 6B : zubat
rlm@160 135 ;; 108 6C : ekans
rlm@160 136 ;; 109 6D : paras
rlm@160 137 ;; 110 6E : poliwhirl
rlm@160 138 ;; 111 6F : poliwrath
rlm@160 139 ;; 112 70 : weedle
rlm@160 140 ;; 113 71 : kakuna
rlm@160 141 ;; 114 72 : beedrill
rlm@160 142 ;; 115 73 : glitch
rlm@160 143 ;; 116 74 : dodrio
rlm@160 144 ;; 117 75 : primeape
rlm@160 145 ;; 118 76 : dugtrio
rlm@160 146 ;; 119 77 : venomoth
rlm@160 147 ;; 120 78 : dewgong
rlm@160 148 ;; 121 79 : glitch
rlm@160 149 ;; 122 7A : glitch
rlm@160 150 ;; 123 7B : caterpie
rlm@160 151 ;; 124 7C : metapod
rlm@160 152 ;; 125 7D : butterfree
rlm@160 153 ;; 126 7E : machamp
rlm@160 154 ;; 127 7F : glitch
rlm@160 155 ;; 128 80 : golduck
rlm@160 156 ;; 129 81 : hypno
rlm@160 157 ;; 130 82 : golbat
rlm@160 158 ;; 131 83 : mewtwo
rlm@160 159 ;; 132 84 : snorlax
rlm@160 160 ;; 133 85 : magikarp
rlm@160 161 ;; 134 86 : glitch
rlm@160 162 ;; 135 87 : glitch
rlm@160 163 ;; 136 88 : muk
rlm@160 164 ;; 137 89 : glitch
rlm@160 165 ;; 138 8A : kingler
rlm@160 166 ;; 139 8B : cloyster
rlm@160 167 ;; 140 8C : glitch
rlm@160 168 ;; 141 8D : electrode
rlm@160 169 ;; 142 8E : clefable
rlm@160 170 ;; 143 8F : wheezing
rlm@160 171 ;; 144 90 : persian
rlm@160 172 ;; 145 91 : marowak
rlm@160 173 ;; 146 92 : glitch
rlm@160 174 ;; 147 93 : haunter
rlm@160 175 ;; 148 94 : abra
rlm@160 176 ;; 149 95 : alakazam
rlm@160 177 ;; 150 96 : pidgeotto
rlm@160 178 ;; 151 97 : pidgeot
rlm@160 179 ;; 152 98 : starmie
rlm@160 180 ;; 153 99 : bulbasaur
rlm@160 181 ;; 154 9A : venusaur
rlm@160 182 ;; 155 9B : tentacruel
rlm@160 183 ;; 156 9C : glitch
rlm@160 184 ;; 157 9D : goldeen
rlm@160 185 ;; 158 9E : seaking
rlm@160 186 ;; 159 9F : glitch
rlm@160 187 ;; 160 A0 : glitch
rlm@160 188 ;; 161 A1 : glitch
rlm@160 189 ;; 162 A2 : glitch
rlm@160 190 ;; 163 A3 : ponyta
rlm@160 191 ;; 164 A4 : rapidash
rlm@160 192 ;; 165 A5 : rattatta
rlm@160 193 ;; 166 A6 : raticate
rlm@160 194 ;; 167 A7 : nidorino
rlm@160 195 ;; 168 A8 : nidorina
rlm@160 196 ;; 169 A9 : geodude
rlm@160 197 ;; 170 AA : porygon
rlm@160 198 ;; 171 AB : aerodactyl
rlm@160 199 ;; 172 AC : glitch
rlm@160 200 ;; 173 AD : magnemite
rlm@160 201 ;; 174 AE : glitch
rlm@160 202 ;; 175 AF : glitch
rlm@160 203 ;; 176 B0 : charmander
rlm@160 204 ;; 177 B1 : squirtle
rlm@160 205 ;; 178 B2 : charmelon
rlm@160 206 ;; 179 B3 : wartortle
rlm@160 207 ;; 180 B4 : charizard
rlm@160 208 ;; 181 B5 : glitch
rlm@160 209 ;; 182 B6 : glitch
rlm@160 210 ;; 183 B7 : glitch
rlm@160 211 ;; 184 B8 : glitch
rlm@160 212 ;; 185 B9 : oddish
rlm@160 213 ;; 186 BA : gloom
rlm@160 214 ;; 187 BB : vileplume
rlm@160 215 ;; 188 BC : bellsprout
rlm@160 216 ;; 189 BD : weepenbell
rlm@160 217 ;; 190 BE : victriebell
rlm@160 218 ;; 191 BF : glitch
rlm@160 219 ;; 192 C0 : glitch
rlm@160 220 ;; 193 C1 : glitch
rlm@160 221 ;; 194 C2 : glitch
rlm@160 222 ;; 195 C3 : glitch
rlm@160 223 ;; 196 C4 : glitch
rlm@160 224 ;; 197 C5 : glitch
rlm@160 225 ;; 198 C6 : glitch
rlm@160 226 ;; 199 C7 : charizard-glitch
rlm@160 227 ;; 200 C8 : glitch
rlm@160 228 ;; 201 C9 : nidorino-glitch
rlm@160 229 ;; 202 CA : glitch
rlm@160 230 ;; 203 CB : magnemite-clitch
rlm@160 231 ;; 204 CC : glitch
rlm@160 232 ;; 205 CD : glitch
rlm@160 233 ;; 206 CE : glitch
rlm@160 234 ;; 207 CF : glitch
rlm@160 235 ;; 208 D0 : glitch
rlm@160 236 ;; 209 D1 : glitch
rlm@160 237 ;; 210 D2 : nidorino-glitch
rlm@160 238 ;; 211 D3 : glitch
rlm@160 239 ;; 212 D4 : glitch
rlm@160 240 ;; 213 D5 : bulbasaur-glitch
rlm@160 241 ;; 214 D6 : charmander-glitch
rlm@160 242 ;; 215 D7 : glitch
rlm@160 243 ;; 216 D8 : glitch
rlm@160 244 ;; 217 D9 : glitch
rlm@160 245 ;; 218 DA : glitch
rlm@160 246 ;; 219 DB : glitch
rlm@160 247 ;; 220 DC : glitch
rlm@160 248 ;; 221 DD : glitch
rlm@160 249 ;; 222 DE : glitch
rlm@160 250 ;; 223 DF : glitch
rlm@160 251 ;; 224 E0 : glitch
rlm@160 252 ;; 225 E1 : glitch
rlm@160 253 ;; 226 E2 : glitch
rlm@160 254 ;; 227 E3 : glitch
rlm@160 255 ;; 228 E4 : glitch
rlm@160 256 ;; 229 E5 : glitch
rlm@160 257 ;; 230 E6 : glitch
rlm@160 258 ;; 231 E7 : glitch
rlm@160 259 ;; 232 E8 : seaking-glitch
rlm@160 260 ;; 233 E9 : nidorino-glicth
rlm@160 261 ;; 234 EA : glitch
rlm@160 262 ;; 235 EB : glitch
rlm@160 263 ;; 236 EC : glitch
rlm@160 264 ;; 237 ED : glitch
rlm@160 265 ;; 238 EE : glitch
rlm@160 266 ;; 239 EF : glitch
rlm@160 267 ;; 240 F0 : charizard-glitch
rlm@160 268 ;; 241 F1 : nidorino-glitch
rlm@160 269 ;; 242 F2 : glitch
rlm@160 270 ;; 243 F3 : glitch
rlm@160 271 ;; 244 F4 : glitch
rlm@160 272 ;; 245 F5 : glitch
rlm@160 273 ;; 246 F6 : glitch
rlm@160 274 ;; 247 F7 : bulbasaur-glitch
rlm@160 275 ;; 248 F8 : bulbasaur-glitch*
rlm@160 276 ;; 249 F9 : glitch
rlm@160 277 ;; 250 FA : glitch
rlm@160 278 ;; 251 FB : glitch
rlm@160 279 ;; 252 FC : oddish-glitch
rlm@160 280 ;; 253 FD : glitch
rlm@160 281 ;; 254 FE : glitch
rlm@160 282 ;; 255 FF : glitch