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