Mercurial > vba-clojure
view clojure/com/aurellem/exp/species.clj @ 560:3194a4f438ca
restored previous functionality of glyph-display program.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 31 Aug 2012 05:00:33 -0500 (2012-08-31) |
parents | 6f80c07eb32a |
children |
line wrap: on
line source
1 (ns com.aurellem.exp.species2 (:use (com.aurellem.gb gb-driver items util))3 (:import [com.aurellem.gb.gb_driver SaveState]))5 (def species-ID-1 0xD163)7 (defn species-state []8 (read-state "pika-no-1"))10 (defn view-species [n]11 (run-moves12 (set-memory (species-state) species-ID-1 n)13 (concat [[:a]]14 (repeat 200 [])15 [[:a]]16 (repeat 200 []))))18 (defn iterate-species []19 (dorun20 (map (fn [n] (println n)21 (view-species n)22 (Thread/sleep 4800))23 (range (inc 0xFF)))))25 ;;; Results:27 ;; 000 00 : glitch28 ;; 001 01 : Rhydon29 ;; 002 02 : Kangashgan30 ;; 003 03 : nidoran-male31 ;; 004 04 : clefairy32 ;; 005 05 : spearow33 ;; 006 06 : voltorb34 ;; 007 07 : nidoking35 ;; 008 08 : slowbrow36 ;; 009 09 : ivysaur37 ;; 010 0A : eggxecutor38 ;; 011 0B : likitoungue39 ;; 012 0C : eggxegutte40 ;; 013 0D : grimer41 ;; 014 0E : gengar42 ;; 015 0F : nidoran-female43 ;; 016 10 : nodoqueen44 ;; 017 11 : cubone45 ;; 018 12 : rhyhorn46 ;; 019 13 : lapras47 ;; 020 14 : arcanine48 ;; 021 15 : mew49 ;; 022 16 : gyarados50 ;; 023 17 : shelder51 ;; 024 18 : tentacool52 ;; 025 19 : gastly53 ;; 026 1A : scyther54 ;; 027 1B : staryu55 ;; 028 1C : blastoise56 ;; 029 1D : pinsir57 ;; 030 1E : tangela58 ;; 031 1F : glitch59 ;; 032 20 : glitch60 ;; 033 21 : growlithe61 ;; 034 22 : onix62 ;; 035 23 : fearow63 ;; 036 24 : pidgey64 ;; 037 25 : slowpoke65 ;; 038 26 : kadabra66 ;; 039 27 : graveller67 ;; 040 28 : chansey68 ;; 041 29 : machoke69 ;; 042 2A : mr-mime70 ;; 043 2B : hitmonlee71 ;; 044 2C : hitmonchan72 ;; 045 2D : arbok73 ;; 046 2E : parasect74 ;; 047 2F : psyduck75 ;; 048 30 : drowzee76 ;; 049 31 : golem77 ;; 050 32 : glitch78 ;; 051 33 : magmar79 ;; 052 34 : glitch80 ;; 053 35 : electabuzz81 ;; 054 36 : magneton82 ;; 055 37 : koffing83 ;; 056 38 : glitch84 ;; 057 39 : mankey85 ;; 058 3A : seel86 ;; 059 3B : diglett87 ;; 060 3C : tauros88 ;; 061 3D : glitch89 ;; 062 3E : glitch90 ;; 063 3F : glitch91 ;; 064 40 : farfedtch92 ;; 065 41 : venonat93 ;; 066 42 : dragonite94 ;; 067 43 : glitch95 ;; 068 44 : glitch96 ;; 069 45 : glitch97 ;; 070 46 : doduo98 ;; 071 47 : poliwag99 ;; 072 48 : jynx100 ;; 073 49 : moltres101 ;; 074 4A : articuno102 ;; 075 4B : zapdos103 ;; 076 4C : ditto104 ;; 077 4D : meowth105 ;; 078 4E : krabby106 ;; 079 4F : glitch107 ;; 080 50 : glitch108 ;; 081 51 : glitch109 ;; 082 52 : vulpix110 ;; 083 53 : ninetails111 ;; 084 54 : pikachu112 ;; 085 55 : riachu113 ;; 086 56 : glitch114 ;; 087 57 : glitch115 ;; 088 58 : dratini116 ;; 089 59 : dragonair117 ;; 090 5A : kabuto118 ;; 091 5B : kabutops119 ;; 092 5C : horsea120 ;; 093 5D : sedra121 ;; 094 5E : glitch122 ;; 095 5F : glitch123 ;; 096 60 : sandshrew124 ;; 097 61 : sandslash125 ;; 098 62 : omanyte126 ;; 099 63 : omastar127 ;; 100 64 : jugglypuff128 ;; 101 65 : wigglytuff129 ;; 102 66 : eevee130 ;; 103 67 : flareon131 ;; 104 68 : jolteon132 ;; 105 69 : vapeoreon133 ;; 106 6A : machop134 ;; 107 6B : zubat135 ;; 108 6C : ekans136 ;; 109 6D : paras137 ;; 110 6E : poliwhirl138 ;; 111 6F : poliwrath139 ;; 112 70 : weedle140 ;; 113 71 : kakuna141 ;; 114 72 : beedrill142 ;; 115 73 : glitch143 ;; 116 74 : dodrio144 ;; 117 75 : primeape145 ;; 118 76 : dugtrio146 ;; 119 77 : venomoth147 ;; 120 78 : dewgong148 ;; 121 79 : glitch149 ;; 122 7A : glitch150 ;; 123 7B : caterpie151 ;; 124 7C : metapod152 ;; 125 7D : butterfree153 ;; 126 7E : machamp154 ;; 127 7F : glitch155 ;; 128 80 : golduck156 ;; 129 81 : hypno157 ;; 130 82 : golbat158 ;; 131 83 : mewtwo159 ;; 132 84 : snorlax160 ;; 133 85 : magikarp161 ;; 134 86 : glitch162 ;; 135 87 : glitch163 ;; 136 88 : muk164 ;; 137 89 : glitch165 ;; 138 8A : kingler166 ;; 139 8B : cloyster167 ;; 140 8C : glitch168 ;; 141 8D : electrode169 ;; 142 8E : clefable170 ;; 143 8F : wheezing171 ;; 144 90 : persian172 ;; 145 91 : marowak173 ;; 146 92 : glitch174 ;; 147 93 : haunter175 ;; 148 94 : abra176 ;; 149 95 : alakazam177 ;; 150 96 : pidgeotto178 ;; 151 97 : pidgeot179 ;; 152 98 : starmie180 ;; 153 99 : bulbasaur181 ;; 154 9A : venusaur182 ;; 155 9B : tentacruel183 ;; 156 9C : glitch184 ;; 157 9D : goldeen185 ;; 158 9E : seaking186 ;; 159 9F : glitch187 ;; 160 A0 : glitch188 ;; 161 A1 : glitch189 ;; 162 A2 : glitch190 ;; 163 A3 : ponyta191 ;; 164 A4 : rapidash192 ;; 165 A5 : rattatta193 ;; 166 A6 : raticate194 ;; 167 A7 : nidorino195 ;; 168 A8 : nidorina196 ;; 169 A9 : geodude197 ;; 170 AA : porygon198 ;; 171 AB : aerodactyl199 ;; 172 AC : glitch200 ;; 173 AD : magnemite201 ;; 174 AE : glitch202 ;; 175 AF : glitch203 ;; 176 B0 : charmander204 ;; 177 B1 : squirtle205 ;; 178 B2 : charmelon206 ;; 179 B3 : wartortle207 ;; 180 B4 : charizard208 ;; 181 B5 : glitch209 ;; 182 B6 : glitch210 ;; 183 B7 : glitch211 ;; 184 B8 : glitch212 ;; 185 B9 : oddish213 ;; 186 BA : gloom214 ;; 187 BB : vileplume215 ;; 188 BC : bellsprout216 ;; 189 BD : weepenbell217 ;; 190 BE : victriebell218 ;; 191 BF : glitch219 ;; 192 C0 : glitch220 ;; 193 C1 : glitch221 ;; 194 C2 : glitch222 ;; 195 C3 : glitch223 ;; 196 C4 : glitch224 ;; 197 C5 : glitch225 ;; 198 C6 : glitch226 ;; 199 C7 : charizard-glitch227 ;; 200 C8 : glitch228 ;; 201 C9 : nidorino-glitch229 ;; 202 CA : glitch230 ;; 203 CB : magnemite-clitch231 ;; 204 CC : glitch232 ;; 205 CD : glitch233 ;; 206 CE : glitch234 ;; 207 CF : glitch235 ;; 208 D0 : glitch236 ;; 209 D1 : glitch237 ;; 210 D2 : nidorino-glitch238 ;; 211 D3 : glitch239 ;; 212 D4 : glitch240 ;; 213 D5 : bulbasaur-glitch241 ;; 214 D6 : charmander-glitch242 ;; 215 D7 : glitch243 ;; 216 D8 : glitch244 ;; 217 D9 : glitch245 ;; 218 DA : glitch246 ;; 219 DB : glitch247 ;; 220 DC : glitch248 ;; 221 DD : glitch249 ;; 222 DE : glitch250 ;; 223 DF : glitch251 ;; 224 E0 : glitch252 ;; 225 E1 : glitch253 ;; 226 E2 : glitch254 ;; 227 E3 : glitch255 ;; 228 E4 : glitch256 ;; 229 E5 : glitch257 ;; 230 E6 : glitch258 ;; 231 E7 : glitch259 ;; 232 E8 : seaking-glitch260 ;; 233 E9 : nidorino-glicth261 ;; 234 EA : glitch262 ;; 235 EB : glitch263 ;; 236 EC : glitch264 ;; 237 ED : glitch265 ;; 238 EE : glitch266 ;; 239 EF : glitch267 ;; 240 F0 : charizard-glitch268 ;; 241 F1 : nidorino-glitch269 ;; 242 F2 : glitch270 ;; 243 F3 : glitch271 ;; 244 F4 : glitch272 ;; 245 F5 : glitch273 ;; 246 F6 : glitch274 ;; 247 F7 : bulbasaur-glitch275 ;; 248 F8 : bulbasaur-glitch*276 ;; 249 F9 : glitch277 ;; 250 FA : glitch278 ;; 251 FB : glitch279 ;; 252 FC : oddish-glitch280 ;; 253 FD : glitch281 ;; 254 FE : glitch282 ;; 255 FF : glitch