Mercurial > vba-clojure
view clojure/com/aurellem/exp/warp.clj @ 438:067ea3f0d951
can now play midi files with two tracks.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Wed, 25 Apr 2012 13:46:31 -0500 |
| parents | 3b3cd62b6106 |
| children |
line wrap: on
line source
1 (ns com.aurellem.exp.warp2 (:use (com.aurellem.gb gb-driver vbm items util saves))3 (:use (com.aurellem.run util))4 (:import [com.aurellem.gb.gb_driver SaveState]))7 ;; special thanks to http://tasvideos.org/2913S.html for revealing8 ;; 0xD364 as the floor-map warp location11 (def mat-warp-address 0xD364)13 (defn view-warp-id [warp-id]14 (->>15 [[] (set-memory (at-mat) mat-warp-address warp-id)]16 (do-nothing 20)17 (play-moves [↓])18 (do-nothing 100)))20 (defn iterate-locations [start]21 (dorun22 (map23 #(do24 (printf "0x%02X\n" %)25 (view-warp-id %)26 (Thread/sleep 10000))27 (range start (inc 0xFF)))))30 (comment31 0x00 pallet-town-home32 0x01 viridian-poke-center33 0x02 pewter-science-meuseum34 0x03 cereluan-dig-house35 0x04 lavender-town-poke-center36 0x05 vermillion-poke-center37 0x06 celedon-department-store !!!!!!!!!!!38 0x07 fuchia-mart39 0x08 cinnibar-mansion40 0x09 elite-four-HQ41 0x0A saffron-mimic-house42 0x0B CRASHING GLITCH43 0x0C route-1-inside-junk44 0x0D diglett-cave-vermillion-side45 0x0E GLITCH46 0x0F poke-center-outside-mt-moon47 0x10 cereullean->saffron48 0x11 GLITCH49 0x12 saffron->celadon50 0x13 saffron->lavendar51 0x14 GLITCH52 0x15 poke-center-by-rock-tunnel53 0x16 vermillion->lavender54 0x17 lavender->fuchia55 0x18 GLITCH56 0x19 GLITCH57 0x1A unknown58 0x1B cycling-road->celadon59 0x1C GLITCH60 0x1D cycling-road->fuschia61 0x1E surfing-house62 0x1F seafom-island-cinnabar-side63 0x20 GLITCH64 0x21 indigo-plateu-gate65 0x22 plateau-path-start66 0x23 GLITCH67 0x24 bills-house68 0x25 house-again69 0x26 stairs-to-house70 0x27 gary's-house71 0x28 oak's-lab72 0x29 poke-center-unknown73 0x2A inside-viridian-mart74 0x2B viridian-school-house75 0x2C unknown76 0x2D viridian-gym77 0x2E diglett's-cave-unknown-side78 0x2F glitched-viridian-forest-entrance79 0x30 unknown80 0x31 unknown81 0x32 unknown82 0x33 viridian-forest-pewter-side83 0x34 pewter-meuseum-first-floor84 0x35 pweter-meuseum-second-floor85 0x36 pewter-gym86 0x37 unknown-house87 0x38 unknown-mart88 0x39 unknown-house89 0x3A inside-pewter-poke-center90 0x3B inside-mt-moon-entrance91 0x3C mt-moon-unknown92 0x3D mt-moon-unknown93 0x3E inside-dig-house-cereulan?94 0x3F inside-bulbasaur-house-cerulean95 0x40 unknown-poke-center96 0x41 cereulan-gym97 0x42 inside-bike-shop98 0x43 unknown-mart99 0x44 unknown-poke-center100 0x45 inside-dig-house-cereulan?101 0x46 unknown-guard-path102 0x47 unknown-undeground-path-entrance103 0x48 unknown-house104 0x49 unknown-undeground-path-entrance105 0x4A unknown-undeground-path-entrance106 0x4B unknown-undeground-path-entrance107 0x4C unknown-guard-path108 0x4D unknown-undeground-path-entrance109 0x4E unknown-undeground-path-entrance110 0x4F unknown-guard-path111 0x50 unknown-undeground-path-entrance112 0x51 unknown-poke-center113 0x52 mt-moon-unknown114 0x53 inside-power-plant-start115 0x54 unknown-guard-path116 0x55 diglet's-cave-vermillion-entrange117 0x56 unknown-2nd-floor-guard-path118 0x57 unknown-guard-path119 0x58 inside-bill's-house120 0x59 unknown-poke-center121 0x5A inside-pokemon-fan-club122 0x5B unknown-mart123 0x5C unknown-gym?124 0x5D unknown-house125 0x5E s.s.anne-catwalk126 0x5F s.s.anne-entrance127 0x60 unknown-ss-anne-door128 0x61 unknown-ss-anne129 0x62 unknown-ss-anne130 0x63 ss-anne-bow131 0x64 ss-anne-cafeteria132 0x65 ss-anne-inside-captian's-room133 0x66 ss-anne-inside-room134 0x67 ss-anne-inside-room135 0x68 ss-anne-inside-room136 0x69 CRASHING GLITCH137 0x6A CRASHING GLITCH138 0x6B CRASHING GLITCH139 0x6C moltres-cave-entrance140 0x6D CRASHING GLITCH141 0x6E CRASHING GLITCH142 0x6F CRASHING GLITCH143 0x70 CRASHING GLITCH144 0x71 unknown-ss-anne145 0x72 CRASHING GLITCH146 0x73 CRASHING GLITCH147 0x74 CRASHING GLITCH148 0x75 CRASHING GLITCH149 0x76 elite-four-hall-of-fame150 0x77 unknown-inside-underground-tunnel151 0x78 unknown152 0x79 unknown-inside-underground-tunnel153 0x7A unknown154 0x7B unknown-celadon-dept-store-floor !155 0x7C unknown-celadon-dept-store-floor !156 0x7D unknown-celadon-dept-store-floor !157 0x7E celedon-dept-roof !158 0x7F celadon-dept-elevator159 0x80 celadon-pokemon-mansion-first-floor160 0x81 celadon-pokemon-mansion-second-floor161 0x82 celadon-pokemon-mansion-third-floor(computers)162 0x83 celadon-pokemon-mansion-boring-roof163 0x84 celadon-pokemon-mansion-eevee-room164 0x85 unknown-poke-center165 0x86 inside-celadon-gym166 0x87 inside-celadon-game-corner167 0x88 unknown-celadon-dept-store-floor !168 0x89 celadon-game-corner-prize-claim169 0x8A celadon-cafeteria170 0x8B celadon-rocket-house171 0x8C unknown-poke-center (maybe celadon?)172 0x8D unknown-poke-venter (maybe celadon hotel?)173 0x8E unknown-pokemon-tower174 0x8F unknown-pokemon-tower175 0x90 unknown-pokemon-tower176 0x91 unknown-pokemon-tower177 0x92 unknown-pokemon-tower178 0x93 unknown-pokemon-tower179 0x94 unknown-pokemon-tower180 0x95 inside-fiji's-house181 0x96 unknown-mart182 0x97 unknown-house183 0x98 unknown-mart184 0x99 unknown-house185 0x9A unknown-poke-center186 0x9B inside-game-warden's-house187 0x9C inside-safari-zone-gate188 0x9D vermillion-gym189 0x9E unknown-fuscia190 0x9F unknown-cave191 0xA0 unknown-cave192 0xA1 unknown-moltres-cave193 0xA2 unknown-seafoam-cave194 0xA3 unknown-fishing-guru-house195 0xA4 cereulan-house196 0xA5 cinibar-mansion-first-floor197 0xA6 saffron-gym198 0xA7 cinibar-fossil-regen-lab-entrance199 0xA8 unknown-house200 0xA9 cinibar-fossil-regen-room201 0xAA cinibar-fossil-regen-regen-room202 0xAB unknown-poke-center203 0xAC unknown-mart204 0xAD unknown-mart205 0xAE eilte-four-poke-center206 0xAF glitched-house207 0xB0 mimic's-room208 0xB1 inside-fighting-dojo209 0xB2 saffron-gym210 0xB3 unknown-house (lavender?)211 0xB4 unknown-mart212 0xB5 sliph-co-first-floor213 0xB6 unknown-poke-center214 0xB7 unknown-house215 0xB8 unknown-guard-path216 0xB9 unknown-guard-path-2nd-floor217 0xBA unknown-guard-path218 0xBB unknown-guard-path-2nd-floor219 0xBC unknown-house220 0xBD unknown-house (fishing guru?)221 0xBE unknown-guard-path222 0xBF unknown-guard-path-2nd-floor223 0xC0 unknown-cave224 0xC1 elite-four-gate-entrance225 0xC2 unknown-moltres-cave226 0xC3 unknown-guard-path-2nd-floor227 0xC4 unknown-house228 0xC5 unknown-cave229 0xC6 unknown-moltres-cave230 0xC7 unknown-game-corner231 0xC8 unknown-game-corner232 0xC9 unknown-game-corner233 0xCA unknown-game-corner234 0xCB game-corner-elevator235 0xCC GLITCH236 0xCD GLITCH237 0xCE GLITCH238 0xCF unknown-silph-co239 0xD0 unknown-silph-co240 0xD1 unknown-silph-co241 0xD2 unknown-silph-co242 0xD3 unknown-silph-co243 0xD4 unknown-silph-co244 0xD5 unknown-silph-co245 0xD6 unknown-cinnibar-mansion246 0xD7 unknown-cinnibar-mansion247 0xD8 unknown-cinnibar-mansion248 0xD9 unknown-safari-zone249 0xDA unknown-safari-zone250 0xDB unknown-safari-zone251 0xDC unknown-safari-zone252 0xDD unknown-safari-zone-rest-room253 0xDE safari-zone-surf-room254 0xDF unknown-safari-zone-rest-room255 0xE0 unknown-safari-zone-rest-room256 0xE1 unknown-safari-zone-rest-room257 0xE2 unknown-mewtwo-cave258 0xE3 unknown-mewtwo-cave259 0xE4 mewtwo-cave-entrance260 0xE5 unknown-house261 0xE6 cereulan-badge-description-room262 0xE7 CRASHING GLITCH263 0xE8 unknown-cave264 0xE9 unknown-silph-co265 0xEA unknown-silph-co266 0xEB silph-co-boring-top-floor267 0xEC silph-co-elevator268 0xED GLITCH269 0xEE GLITCH270 0xEF GLITCH271 0xF0 GLITCH272 0xF1 GLITCH273 0xF2 GLITCH274 0xF3 GLITCH275 0xF4 GLITCH276 0xF5 loreli-room277 0xF6 bruno-room278 0xF7 agatha-room279 0xF8 inside-surfing-room280 0xF9 GLITCH (dark)281 0xFA GLITCH (dark)282 0xFB CRASHING GLITCH283 0xFC GLITCH (dark)284 0xFD CRASHING GLITCH285 0xFE CRASHING GLITCH286 0xFF CRASHING GLITCH289 )