1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clojure/com/aurellem/exp/warp.clj	Mon Apr 09 01:44:19 2012 -0500
     1.3 @@ -0,0 +1,289 @@
     1.4 +(ns com.aurellem.exp.warp
     1.5 +  (:use (com.aurellem.gb gb-driver vbm items util saves))
     1.6 +  (:use (com.aurellem.run util))
     1.7 +  (:import [com.aurellem.gb.gb_driver SaveState]))
     1.8 +
     1.9 +
    1.10 +;; special thanks to http://tasvideos.org/2913S.html for revealing
    1.11 +;; 0xD364 as the floor-map warp location
    1.12 +
    1.13 +
    1.14 +(def mat-warp-address 0xD364)
    1.15 +
    1.16 +(defn view-warp-id [warp-id]
    1.17 +  (->> 
    1.18 +   [[] (set-memory (at-mat) mat-warp-address warp-id)]
    1.19 +   (do-nothing 20)
    1.20 +   (play-moves [↓])
    1.21 +   (do-nothing 100)))
    1.22 +
    1.23 +(defn iterate-locations [start]
    1.24 +  (dorun
    1.25 +   (map 
    1.26 +    #(do
    1.27 +       (printf "0x%02X\n" %)
    1.28 +       (view-warp-id %)
    1.29 +       (Thread/sleep 10000))
    1.30 +    (range start (inc 0xFF)))))
    1.31 +        
    1.32 +
    1.33 +(comment
    1.34 +0x00    pallet-town-home
    1.35 +0x01    viridian-poke-center
    1.36 +0x02    pewter-science-meuseum
    1.37 +0x03    cereluan-dig-house
    1.38 +0x04    lavender-town-poke-center
    1.39 +0x05    vermillion-poke-center
    1.40 +0x06    celedon-department-store            !!!!!!!!!!!
    1.41 +0x07    fuchia-mart
    1.42 +0x08    cinnibar-mansion
    1.43 +0x09    elite-four-HQ
    1.44 +0x0A    saffron-mimic-house
    1.45 +0x0B    CRASHING GLITCH
    1.46 +0x0C    route-1-inside-junk
    1.47 +0x0D    diglett-cave-vermillion-side
    1.48 +0x0E    GLITCH
    1.49 +0x0F    poke-center-outside-mt-moon
    1.50 +0x10    cereullean->saffron
    1.51 +0x11    GLITCH
    1.52 +0x12    saffron->celadon
    1.53 +0x13    saffron->lavendar
    1.54 +0x14    GLITCH 
    1.55 +0x15    poke-center-by-rock-tunnel
    1.56 +0x16    vermillion->lavender
    1.57 +0x17    lavender->fuchia
    1.58 +0x18    GLITCH
    1.59 +0x19    GLITCH
    1.60 +0x1A    unknown
    1.61 +0x1B    cycling-road->celadon
    1.62 +0x1C    GLITCH
    1.63 +0x1D    cycling-road->fuschia
    1.64 +0x1E    surfing-house
    1.65 +0x1F    seafom-island-cinnabar-side
    1.66 +0x20    GLITCH
    1.67 +0x21    indigo-plateu-gate
    1.68 +0x22    plateau-path-start
    1.69 +0x23    GLITCH
    1.70 +0x24    bills-house
    1.71 +0x25    house-again
    1.72 +0x26    stairs-to-house
    1.73 +0x27    gary's-house
    1.74 +0x28    oak's-lab
    1.75 +0x29    poke-center-unknown
    1.76 +0x2A    inside-viridian-mart
    1.77 +0x2B    viridian-school-house
    1.78 +0x2C    unknown
    1.79 +0x2D    viridian-gym
    1.80 +0x2E    diglett's-cave-unknown-side
    1.81 +0x2F    glitched-viridian-forest-entrance
    1.82 +0x30    unknown
    1.83 +0x31    unknown
    1.84 +0x32    unknown
    1.85 +0x33    viridian-forest-pewter-side
    1.86 +0x34    pewter-meuseum-first-floor
    1.87 +0x35    pweter-meuseum-second-floor
    1.88 +0x36    pewter-gym
    1.89 +0x37    unknown-house
    1.90 +0x38    unknown-mart
    1.91 +0x39    unknown-house
    1.92 +0x3A    inside-pewter-poke-center
    1.93 +0x3B    inside-mt-moon-entrance
    1.94 +0x3C    mt-moon-unknown
    1.95 +0x3D    mt-moon-unknown
    1.96 +0x3E    inside-dig-house-cereulan?
    1.97 +0x3F    inside-bulbasaur-house-cerulean
    1.98 +0x40    unknown-poke-center
    1.99 +0x41    cereulan-gym
   1.100 +0x42    inside-bike-shop
   1.101 +0x43    unknown-mart
   1.102 +0x44    unknown-poke-center
   1.103 +0x45    inside-dig-house-cereulan?
   1.104 +0x46    unknown-guard-path
   1.105 +0x47    unknown-undeground-path-entrance
   1.106 +0x48    unknown-house
   1.107 +0x49    unknown-undeground-path-entrance
   1.108 +0x4A    unknown-undeground-path-entrance
   1.109 +0x4B    unknown-undeground-path-entrance
   1.110 +0x4C    unknown-guard-path
   1.111 +0x4D    unknown-undeground-path-entrance
   1.112 +0x4E    unknown-undeground-path-entrance
   1.113 +0x4F    unknown-guard-path
   1.114 +0x50    unknown-undeground-path-entrance
   1.115 +0x51    unknown-poke-center
   1.116 +0x52    mt-moon-unknown
   1.117 +0x53    inside-power-plant-start
   1.118 +0x54    unknown-guard-path
   1.119 +0x55    diglet's-cave-vermillion-entrange
   1.120 +0x56    unknown-2nd-floor-guard-path
   1.121 +0x57    unknown-guard-path
   1.122 +0x58    inside-bill's-house
   1.123 +0x59    unknown-poke-center
   1.124 +0x5A    inside-pokemon-fan-club
   1.125 +0x5B    unknown-mart
   1.126 +0x5C    unknown-gym?
   1.127 +0x5D    unknown-house
   1.128 +0x5E    s.s.anne-catwalk
   1.129 +0x5F    s.s.anne-entrance
   1.130 +0x60    unknown-ss-anne-door
   1.131 +0x61    unknown-ss-anne
   1.132 +0x62    unknown-ss-anne
   1.133 +0x63    ss-anne-bow
   1.134 +0x64    ss-anne-cafeteria
   1.135 +0x65    ss-anne-inside-captian's-room
   1.136 +0x66    ss-anne-inside-room
   1.137 +0x67    ss-anne-inside-room
   1.138 +0x68    ss-anne-inside-room
   1.139 +0x69    CRASHING GLITCH
   1.140 +0x6A    CRASHING GLITCH
   1.141 +0x6B    CRASHING GLITCH
   1.142 +0x6C    moltres-cave-entrance
   1.143 +0x6D    CRASHING GLITCH
   1.144 +0x6E    CRASHING GLITCH
   1.145 +0x6F    CRASHING GLITCH
   1.146 +0x70    CRASHING GLITCH
   1.147 +0x71    unknown-ss-anne
   1.148 +0x72    CRASHING GLITCH
   1.149 +0x73    CRASHING GLITCH
   1.150 +0x74    CRASHING GLITCH
   1.151 +0x75    CRASHING GLITCH
   1.152 +0x76    elite-four-hall-of-fame
   1.153 +0x77    unknown-inside-underground-tunnel
   1.154 +0x78    unknown
   1.155 +0x79    unknown-inside-underground-tunnel
   1.156 +0x7A    unknown
   1.157 +0x7B    unknown-celadon-dept-store-floor                    !
   1.158 +0x7C    unknown-celadon-dept-store-floor                    !
   1.159 +0x7D    unknown-celadon-dept-store-floor                    !
   1.160 +0x7E    celedon-dept-roof                                   !
   1.161 +0x7F    celadon-dept-elevator
   1.162 +0x80    celadon-pokemon-mansion-first-floor
   1.163 +0x81    celadon-pokemon-mansion-second-floor
   1.164 +0x82    celadon-pokemon-mansion-third-floor(computers)
   1.165 +0x83    celadon-pokemon-mansion-boring-roof
   1.166 +0x84    celadon-pokemon-mansion-eevee-room
   1.167 +0x85    unknown-poke-center
   1.168 +0x86    inside-celadon-gym
   1.169 +0x87    inside-celadon-game-corner
   1.170 +0x88    unknown-celadon-dept-store-floor                    !
   1.171 +0x89    celadon-game-corner-prize-claim
   1.172 +0x8A    celadon-cafeteria
   1.173 +0x8B    celadon-rocket-house
   1.174 +0x8C    unknown-poke-center (maybe celadon?)
   1.175 +0x8D    unknown-poke-venter (maybe celadon hotel?)
   1.176 +0x8E    unknown-pokemon-tower
   1.177 +0x8F    unknown-pokemon-tower
   1.178 +0x90    unknown-pokemon-tower
   1.179 +0x91    unknown-pokemon-tower
   1.180 +0x92    unknown-pokemon-tower
   1.181 +0x93    unknown-pokemon-tower
   1.182 +0x94    unknown-pokemon-tower
   1.183 +0x95    inside-fiji's-house
   1.184 +0x96    unknown-mart
   1.185 +0x97    unknown-house
   1.186 +0x98    unknown-mart
   1.187 +0x99    unknown-house
   1.188 +0x9A    unknown-poke-center
   1.189 +0x9B    inside-game-warden's-house
   1.190 +0x9C    inside-safari-zone-gate
   1.191 +0x9D    vermillion-gym
   1.192 +0x9E    unknown-fuscia
   1.193 +0x9F    unknown-cave
   1.194 +0xA0    unknown-cave
   1.195 +0xA1    unknown-moltres-cave
   1.196 +0xA2    unknown-seafoam-cave
   1.197 +0xA3    unknown-fishing-guru-house
   1.198 +0xA4    cereulan-house
   1.199 +0xA5    cinibar-mansion-first-floor
   1.200 +0xA6    saffron-gym
   1.201 +0xA7    cinibar-fossil-regen-lab-entrance
   1.202 +0xA8    unknown-house
   1.203 +0xA9    cinibar-fossil-regen-room
   1.204 +0xAA    cinibar-fossil-regen-regen-room
   1.205 +0xAB    unknown-poke-center
   1.206 +0xAC    unknown-mart
   1.207 +0xAD    unknown-mart
   1.208 +0xAE    eilte-four-poke-center
   1.209 +0xAF    glitched-house
   1.210 +0xB0    mimic's-room
   1.211 +0xB1    inside-fighting-dojo
   1.212 +0xB2    saffron-gym
   1.213 +0xB3    unknown-house (lavender?)
   1.214 +0xB4    unknown-mart
   1.215 +0xB5    sliph-co-first-floor
   1.216 +0xB6    unknown-poke-center
   1.217 +0xB7    unknown-house
   1.218 +0xB8    unknown-guard-path
   1.219 +0xB9    unknown-guard-path-2nd-floor
   1.220 +0xBA    unknown-guard-path
   1.221 +0xBB    unknown-guard-path-2nd-floor
   1.222 +0xBC    unknown-house
   1.223 +0xBD    unknown-house (fishing guru?)
   1.224 +0xBE    unknown-guard-path
   1.225 +0xBF    unknown-guard-path-2nd-floor
   1.226 +0xC0    unknown-cave
   1.227 +0xC1    elite-four-gate-entrance
   1.228 +0xC2    unknown-moltres-cave
   1.229 +0xC3    unknown-guard-path-2nd-floor
   1.230 +0xC4    unknown-house
   1.231 +0xC5    unknown-cave
   1.232 +0xC6    unknown-moltres-cave
   1.233 +0xC7    unknown-game-corner
   1.234 +0xC8    unknown-game-corner
   1.235 +0xC9    unknown-game-corner
   1.236 +0xCA    unknown-game-corner
   1.237 +0xCB    game-corner-elevator
   1.238 +0xCC    GLITCH
   1.239 +0xCD    GLITCH
   1.240 +0xCE    GLITCH
   1.241 +0xCF    unknown-silph-co
   1.242 +0xD0    unknown-silph-co
   1.243 +0xD1    unknown-silph-co
   1.244 +0xD2    unknown-silph-co
   1.245 +0xD3    unknown-silph-co
   1.246 +0xD4    unknown-silph-co
   1.247 +0xD5    unknown-silph-co
   1.248 +0xD6    unknown-cinnibar-mansion
   1.249 +0xD7    unknown-cinnibar-mansion
   1.250 +0xD8    unknown-cinnibar-mansion
   1.251 +0xD9    unknown-safari-zone
   1.252 +0xDA    unknown-safari-zone
   1.253 +0xDB    unknown-safari-zone
   1.254 +0xDC    unknown-safari-zone
   1.255 +0xDD    unknown-safari-zone-rest-room
   1.256 +0xDE    safari-zone-surf-room
   1.257 +0xDF    unknown-safari-zone-rest-room
   1.258 +0xE0    unknown-safari-zone-rest-room
   1.259 +0xE1    unknown-safari-zone-rest-room
   1.260 +0xE2    unknown-mewtwo-cave
   1.261 +0xE3    unknown-mewtwo-cave
   1.262 +0xE4    mewtwo-cave-entrance
   1.263 +0xE5    unknown-house
   1.264 +0xE6    cereulan-badge-description-room
   1.265 +0xE7    CRASHING GLITCH
   1.266 +0xE8    unknown-cave
   1.267 +0xE9    unknown-silph-co
   1.268 +0xEA    unknown-silph-co
   1.269 +0xEB    silph-co-boring-top-floor
   1.270 +0xEC    silph-co-elevator
   1.271 +0xED    GLITCH
   1.272 +0xEE    GLITCH
   1.273 +0xEF    GLITCH
   1.274 +0xF0    GLITCH
   1.275 +0xF1    GLITCH
   1.276 +0xF2    GLITCH
   1.277 +0xF3    GLITCH
   1.278 +0xF4    GLITCH
   1.279 +0xF5    loreli-room
   1.280 +0xF6    bruno-room
   1.281 +0xF7    agatha-room
   1.282 +0xF8    inside-surfing-room
   1.283 +0xF9    GLITCH (dark)
   1.284 +0xFA    GLITCH (dark)
   1.285 +0xFB    CRASHING GLITCH
   1.286 +0xFC    GLITCH (dark)
   1.287 +0xFD    CRASHING GLITCH 
   1.288 +0xFE    CRASHING GLITCH
   1.289 +0xFF    CRASHING GLITCH    
   1.290 +   
   1.291 +
   1.292 +)
   1.293 \ No newline at end of file