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