Mercurial > vba-clojure
comparison clojure/com/aurellem/exp/warp.clj @ 372:998702f021e3
merged changes
| author | Dylan Holmes <ocsenave@gmail.com> |
|---|---|
| date | Mon, 09 Apr 2012 01:44:19 -0500 |
| parents | 3b3cd62b6106 |
| children |
comparison
equal
deleted
inserted
replaced
| 371:b477970d0b7a | 372:998702f021e3 |
|---|---|
| 1 (ns com.aurellem.exp.warp | |
| 2 (:use (com.aurellem.gb gb-driver vbm items util saves)) | |
| 3 (:use (com.aurellem.run util)) | |
| 4 (:import [com.aurellem.gb.gb_driver SaveState])) | |
| 5 | |
| 6 | |
| 7 ;; special thanks to http://tasvideos.org/2913S.html for revealing | |
| 8 ;; 0xD364 as the floor-map warp location | |
| 9 | |
| 10 | |
| 11 (def mat-warp-address 0xD364) | |
| 12 | |
| 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))) | |
| 19 | |
| 20 (defn iterate-locations [start] | |
| 21 (dorun | |
| 22 (map | |
| 23 #(do | |
| 24 (printf "0x%02X\n" %) | |
| 25 (view-warp-id %) | |
| 26 (Thread/sleep 10000)) | |
| 27 (range start (inc 0xFF))))) | |
| 28 | |
| 29 | |
| 30 (comment | |
| 31 0x00 pallet-town-home | |
| 32 0x01 viridian-poke-center | |
| 33 0x02 pewter-science-meuseum | |
| 34 0x03 cereluan-dig-house | |
| 35 0x04 lavender-town-poke-center | |
| 36 0x05 vermillion-poke-center | |
| 37 0x06 celedon-department-store !!!!!!!!!!! | |
| 38 0x07 fuchia-mart | |
| 39 0x08 cinnibar-mansion | |
| 40 0x09 elite-four-HQ | |
| 41 0x0A saffron-mimic-house | |
| 42 0x0B CRASHING GLITCH | |
| 43 0x0C route-1-inside-junk | |
| 44 0x0D diglett-cave-vermillion-side | |
| 45 0x0E GLITCH | |
| 46 0x0F poke-center-outside-mt-moon | |
| 47 0x10 cereullean->saffron | |
| 48 0x11 GLITCH | |
| 49 0x12 saffron->celadon | |
| 50 0x13 saffron->lavendar | |
| 51 0x14 GLITCH | |
| 52 0x15 poke-center-by-rock-tunnel | |
| 53 0x16 vermillion->lavender | |
| 54 0x17 lavender->fuchia | |
| 55 0x18 GLITCH | |
| 56 0x19 GLITCH | |
| 57 0x1A unknown | |
| 58 0x1B cycling-road->celadon | |
| 59 0x1C GLITCH | |
| 60 0x1D cycling-road->fuschia | |
| 61 0x1E surfing-house | |
| 62 0x1F seafom-island-cinnabar-side | |
| 63 0x20 GLITCH | |
| 64 0x21 indigo-plateu-gate | |
| 65 0x22 plateau-path-start | |
| 66 0x23 GLITCH | |
| 67 0x24 bills-house | |
| 68 0x25 house-again | |
| 69 0x26 stairs-to-house | |
| 70 0x27 gary's-house | |
| 71 0x28 oak's-lab | |
| 72 0x29 poke-center-unknown | |
| 73 0x2A inside-viridian-mart | |
| 74 0x2B viridian-school-house | |
| 75 0x2C unknown | |
| 76 0x2D viridian-gym | |
| 77 0x2E diglett's-cave-unknown-side | |
| 78 0x2F glitched-viridian-forest-entrance | |
| 79 0x30 unknown | |
| 80 0x31 unknown | |
| 81 0x32 unknown | |
| 82 0x33 viridian-forest-pewter-side | |
| 83 0x34 pewter-meuseum-first-floor | |
| 84 0x35 pweter-meuseum-second-floor | |
| 85 0x36 pewter-gym | |
| 86 0x37 unknown-house | |
| 87 0x38 unknown-mart | |
| 88 0x39 unknown-house | |
| 89 0x3A inside-pewter-poke-center | |
| 90 0x3B inside-mt-moon-entrance | |
| 91 0x3C mt-moon-unknown | |
| 92 0x3D mt-moon-unknown | |
| 93 0x3E inside-dig-house-cereulan? | |
| 94 0x3F inside-bulbasaur-house-cerulean | |
| 95 0x40 unknown-poke-center | |
| 96 0x41 cereulan-gym | |
| 97 0x42 inside-bike-shop | |
| 98 0x43 unknown-mart | |
| 99 0x44 unknown-poke-center | |
| 100 0x45 inside-dig-house-cereulan? | |
| 101 0x46 unknown-guard-path | |
| 102 0x47 unknown-undeground-path-entrance | |
| 103 0x48 unknown-house | |
| 104 0x49 unknown-undeground-path-entrance | |
| 105 0x4A unknown-undeground-path-entrance | |
| 106 0x4B unknown-undeground-path-entrance | |
| 107 0x4C unknown-guard-path | |
| 108 0x4D unknown-undeground-path-entrance | |
| 109 0x4E unknown-undeground-path-entrance | |
| 110 0x4F unknown-guard-path | |
| 111 0x50 unknown-undeground-path-entrance | |
| 112 0x51 unknown-poke-center | |
| 113 0x52 mt-moon-unknown | |
| 114 0x53 inside-power-plant-start | |
| 115 0x54 unknown-guard-path | |
| 116 0x55 diglet's-cave-vermillion-entrange | |
| 117 0x56 unknown-2nd-floor-guard-path | |
| 118 0x57 unknown-guard-path | |
| 119 0x58 inside-bill's-house | |
| 120 0x59 unknown-poke-center | |
| 121 0x5A inside-pokemon-fan-club | |
| 122 0x5B unknown-mart | |
| 123 0x5C unknown-gym? | |
| 124 0x5D unknown-house | |
| 125 0x5E s.s.anne-catwalk | |
| 126 0x5F s.s.anne-entrance | |
| 127 0x60 unknown-ss-anne-door | |
| 128 0x61 unknown-ss-anne | |
| 129 0x62 unknown-ss-anne | |
| 130 0x63 ss-anne-bow | |
| 131 0x64 ss-anne-cafeteria | |
| 132 0x65 ss-anne-inside-captian's-room | |
| 133 0x66 ss-anne-inside-room | |
| 134 0x67 ss-anne-inside-room | |
| 135 0x68 ss-anne-inside-room | |
| 136 0x69 CRASHING GLITCH | |
| 137 0x6A CRASHING GLITCH | |
| 138 0x6B CRASHING GLITCH | |
| 139 0x6C moltres-cave-entrance | |
| 140 0x6D CRASHING GLITCH | |
| 141 0x6E CRASHING GLITCH | |
| 142 0x6F CRASHING GLITCH | |
| 143 0x70 CRASHING GLITCH | |
| 144 0x71 unknown-ss-anne | |
| 145 0x72 CRASHING GLITCH | |
| 146 0x73 CRASHING GLITCH | |
| 147 0x74 CRASHING GLITCH | |
| 148 0x75 CRASHING GLITCH | |
| 149 0x76 elite-four-hall-of-fame | |
| 150 0x77 unknown-inside-underground-tunnel | |
| 151 0x78 unknown | |
| 152 0x79 unknown-inside-underground-tunnel | |
| 153 0x7A unknown | |
| 154 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-elevator | |
| 159 0x80 celadon-pokemon-mansion-first-floor | |
| 160 0x81 celadon-pokemon-mansion-second-floor | |
| 161 0x82 celadon-pokemon-mansion-third-floor(computers) | |
| 162 0x83 celadon-pokemon-mansion-boring-roof | |
| 163 0x84 celadon-pokemon-mansion-eevee-room | |
| 164 0x85 unknown-poke-center | |
| 165 0x86 inside-celadon-gym | |
| 166 0x87 inside-celadon-game-corner | |
| 167 0x88 unknown-celadon-dept-store-floor ! | |
| 168 0x89 celadon-game-corner-prize-claim | |
| 169 0x8A celadon-cafeteria | |
| 170 0x8B celadon-rocket-house | |
| 171 0x8C unknown-poke-center (maybe celadon?) | |
| 172 0x8D unknown-poke-venter (maybe celadon hotel?) | |
| 173 0x8E unknown-pokemon-tower | |
| 174 0x8F unknown-pokemon-tower | |
| 175 0x90 unknown-pokemon-tower | |
| 176 0x91 unknown-pokemon-tower | |
| 177 0x92 unknown-pokemon-tower | |
| 178 0x93 unknown-pokemon-tower | |
| 179 0x94 unknown-pokemon-tower | |
| 180 0x95 inside-fiji's-house | |
| 181 0x96 unknown-mart | |
| 182 0x97 unknown-house | |
| 183 0x98 unknown-mart | |
| 184 0x99 unknown-house | |
| 185 0x9A unknown-poke-center | |
| 186 0x9B inside-game-warden's-house | |
| 187 0x9C inside-safari-zone-gate | |
| 188 0x9D vermillion-gym | |
| 189 0x9E unknown-fuscia | |
| 190 0x9F unknown-cave | |
| 191 0xA0 unknown-cave | |
| 192 0xA1 unknown-moltres-cave | |
| 193 0xA2 unknown-seafoam-cave | |
| 194 0xA3 unknown-fishing-guru-house | |
| 195 0xA4 cereulan-house | |
| 196 0xA5 cinibar-mansion-first-floor | |
| 197 0xA6 saffron-gym | |
| 198 0xA7 cinibar-fossil-regen-lab-entrance | |
| 199 0xA8 unknown-house | |
| 200 0xA9 cinibar-fossil-regen-room | |
| 201 0xAA cinibar-fossil-regen-regen-room | |
| 202 0xAB unknown-poke-center | |
| 203 0xAC unknown-mart | |
| 204 0xAD unknown-mart | |
| 205 0xAE eilte-four-poke-center | |
| 206 0xAF glitched-house | |
| 207 0xB0 mimic's-room | |
| 208 0xB1 inside-fighting-dojo | |
| 209 0xB2 saffron-gym | |
| 210 0xB3 unknown-house (lavender?) | |
| 211 0xB4 unknown-mart | |
| 212 0xB5 sliph-co-first-floor | |
| 213 0xB6 unknown-poke-center | |
| 214 0xB7 unknown-house | |
| 215 0xB8 unknown-guard-path | |
| 216 0xB9 unknown-guard-path-2nd-floor | |
| 217 0xBA unknown-guard-path | |
| 218 0xBB unknown-guard-path-2nd-floor | |
| 219 0xBC unknown-house | |
| 220 0xBD unknown-house (fishing guru?) | |
| 221 0xBE unknown-guard-path | |
| 222 0xBF unknown-guard-path-2nd-floor | |
| 223 0xC0 unknown-cave | |
| 224 0xC1 elite-four-gate-entrance | |
| 225 0xC2 unknown-moltres-cave | |
| 226 0xC3 unknown-guard-path-2nd-floor | |
| 227 0xC4 unknown-house | |
| 228 0xC5 unknown-cave | |
| 229 0xC6 unknown-moltres-cave | |
| 230 0xC7 unknown-game-corner | |
| 231 0xC8 unknown-game-corner | |
| 232 0xC9 unknown-game-corner | |
| 233 0xCA unknown-game-corner | |
| 234 0xCB game-corner-elevator | |
| 235 0xCC GLITCH | |
| 236 0xCD GLITCH | |
| 237 0xCE GLITCH | |
| 238 0xCF unknown-silph-co | |
| 239 0xD0 unknown-silph-co | |
| 240 0xD1 unknown-silph-co | |
| 241 0xD2 unknown-silph-co | |
| 242 0xD3 unknown-silph-co | |
| 243 0xD4 unknown-silph-co | |
| 244 0xD5 unknown-silph-co | |
| 245 0xD6 unknown-cinnibar-mansion | |
| 246 0xD7 unknown-cinnibar-mansion | |
| 247 0xD8 unknown-cinnibar-mansion | |
| 248 0xD9 unknown-safari-zone | |
| 249 0xDA unknown-safari-zone | |
| 250 0xDB unknown-safari-zone | |
| 251 0xDC unknown-safari-zone | |
| 252 0xDD unknown-safari-zone-rest-room | |
| 253 0xDE safari-zone-surf-room | |
| 254 0xDF unknown-safari-zone-rest-room | |
| 255 0xE0 unknown-safari-zone-rest-room | |
| 256 0xE1 unknown-safari-zone-rest-room | |
| 257 0xE2 unknown-mewtwo-cave | |
| 258 0xE3 unknown-mewtwo-cave | |
| 259 0xE4 mewtwo-cave-entrance | |
| 260 0xE5 unknown-house | |
| 261 0xE6 cereulan-badge-description-room | |
| 262 0xE7 CRASHING GLITCH | |
| 263 0xE8 unknown-cave | |
| 264 0xE9 unknown-silph-co | |
| 265 0xEA unknown-silph-co | |
| 266 0xEB silph-co-boring-top-floor | |
| 267 0xEC silph-co-elevator | |
| 268 0xED GLITCH | |
| 269 0xEE GLITCH | |
| 270 0xEF GLITCH | |
| 271 0xF0 GLITCH | |
| 272 0xF1 GLITCH | |
| 273 0xF2 GLITCH | |
| 274 0xF3 GLITCH | |
| 275 0xF4 GLITCH | |
| 276 0xF5 loreli-room | |
| 277 0xF6 bruno-room | |
| 278 0xF7 agatha-room | |
| 279 0xF8 inside-surfing-room | |
| 280 0xF9 GLITCH (dark) | |
| 281 0xFA GLITCH (dark) | |
| 282 0xFB CRASHING GLITCH | |
| 283 0xFC GLITCH (dark) | |
| 284 0xFD CRASHING GLITCH | |
| 285 0xFE CRASHING GLITCH | |
| 286 0xFF CRASHING GLITCH | |
| 287 | |
| 288 | |
| 289 ) |