Mercurial > vba-clojure
diff clojure/com/aurellem/exp/item_bridge.clj @ 235:5becef6312b9
working on item-injection; fixed off-by-one error in print-pokedex.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 24 Mar 2012 20:05:47 -0500 |
parents | 49a709c555f2 |
children | e23ab90fcc86 |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj Sat Mar 24 16:19:43 2012 -0500 1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj Sat Mar 24 20:05:47 2012 -0500 1.3 @@ -79,9 +79,6 @@ 1.4 map-function-address-start 1.5 [0xD3 0x1D])))) 1.6 1.7 - 1.8 - 1.9 - 1.10 (defn-memo corrupt-moves [] 1.11 (concat 1.12 (first 1.13 @@ -104,8 +101,6 @@ 1.14 (advance [] [:a]) 1.15 (advance [:a] [:a :start]))) 1.16 [[]])) 1.17 - 1.18 - 1.19 1.20 (defn corrupt 1.21 "enter the codes to destroy the 1.22 @@ -119,10 +114,13 @@ 1.23 (defn mid-game-corrupt [] 1.24 (read-state "corrupt-mid-game")) 1.25 1.26 +(defn gen-start-game-corrupt [] 1.27 + (->> (finish-title) 1.28 + (advance [:b] [:a :b :start]) 1.29 + (play-moves (corrupt-moves)))) 1.30 1.31 - 1.32 - 1.33 - 1.34 +(defn start-game-corrupt [] 1.35 + (read-state "corrupt-start-game")) 1.36 1.37 (defn test-memory-fun [n] 1.38 (capture-program-counter 1.39 @@ -197,4 +195,22 @@ 1.40 (trampoline-assembly (menu-open-state))) 1.41 (set-memory-range 1.42 memory-function-address-start 1.43 - insertion-address-bits)))) 1.44 \ No newline at end of file 1.45 + insertion-address-bits)))) 1.46 + 1.47 + 1.48 + 1.49 +;;map-functions 1.50 + 1.51 +;; Room, Upstairs 0xBO 0x40 1.52 +;; Room, Downstairs 0x02 0x41 1.53 +;; Pallet Town 0xFA 0x4D 1.54 +;; Rival's House 0x3B 0x5C 1.55 +;; Oak's Lab 0x92 0x43 1.56 +;; Route 1 0x58 0x43 1.57 +;; Viridian City 0x2A 0x50 1.58 +;; Viridian PkmnCenter 0x5D 0x42 1.59 +;; Viridian Mart 0x7A 0x4C 1.60 +;; Viridian House #1 0x79 0x4D 1.61 +;; Viridian House #2 0xD3 0x4D 1.62 +;; Route 22 0xB3 0x4E 1.63 +;; League Front Gate 0x8D 0x5F 1.64 \ No newline at end of file