Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 345:3b3cd62b6106

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: made it to cereulean with TM55s worth 2 million.
author Robert McIntyre <rlm@mit.edu>
date Sun, 08 Apr 2012 20:58:14 -0500
parents
children a6a123af22f6
comparison
equal deleted inserted replaced
344:9366539d29b6 345:3b3cd62b6106
1 (ns com.aurellem.run.bootstrap-1
2 (:use (com.aurellem.gb saves gb-driver util
3 items vbm characters money))
4 (:use (com.aurellem.run util title save-corruption bootstrap-0))
5 (:use (com.aurellem.exp item-bridge))
6 (:import [com.aurellem.gb.gb_driver SaveState]))
7
8 (defn pc-item-writer-program
9 []
10 (let [limit 201
11 [target-high target-low] (disect-bytes-2 0xD162)]
12 (flatten
13 [[0x00 ;; (item-hack) set increment stack pointer no-op
14 0x1E ;; load limit into E
15 limit
16 0x3F ;; (item-hack) set carry flag no-op
17
18 ;; load 2 into C.
19 0x0E ;; C == 1 means input-first nybble
20 0x04 ;; C == 0 means input-second nybble
21
22 0x21 ;; load target into HL
23 target-low
24 target-high
25 0x37 ;; (item-hack) set carry flag no-op
26
27 0x00 ;; (item-hack) no-op
28 0x37 ;; (item-hack) set carry flag no-op
29
30 0x00 ;; (item-hack) no-op
31 0xF3 ;; disable interrupts
32 ;; Input Section
33
34 0x3E ;; load 0x20 into A, to measure buttons
35 0x10
36
37 0x00 ;; (item-hack) no-op
38 0xE0 ;; load A into [FF00]
39 0x00
40
41 0xF0 ;; load 0xFF00 into A to get
42 0x00 ;; button presses
43
44 0xE6
45 0x0F ;; select bottom four bits of A
46 0x37 ;; (item-hack) set carry flag no-op
47
48 0x00 ;; (item-hack) no-op
49 0xB8 ;; see if input is different (CP A B)
50
51 0x00 ;; (item-hack) (INC SP)
52 0x28 ;; repeat above steps if input is not different
53 ;; (jump relative backwards if B != A)
54 0xED ;; (literal -19) (item-hack) -19 == egg bomb (TM37)
55
56 0x47 ;; load A into B
57
58 0x0D ;; dec C
59 0x37 ;; (item-hack) set-carry flag
60 ;; branch based on C:
61 0x20 ;; JR NZ
62 23 ;; skip "input second nybble" and "jump to target" below
63
64 ;; input second nybble
65
66 0x0C ;; inc C
67 0x0C ;; inc C
68
69 0x00 ;; (item-hack) no-op
70 0xE6 ;; select bottom bits
71 0x0F
72 0x37 ;; (item-hack) set-carry flag no-op
73
74 0x00 ;; (item-hack) no-op
75 0xB2 ;; (OR A D) -> A
76
77 0x22 ;; (do (A -> (HL)) (INC HL))
78
79 0x1D ;; (DEC E)
80
81 0x00 ;; (item-hack)
82 0x20 ;; jump back to input section if not done
83 0xDA ;; literal -36 == TM 18 (counter)
84 0x01 ;; (item-hack) set BC to literal (no-op)
85
86 ;; jump to target
87 0x00 ;; (item-hack) these two bytes can be anything.
88 0x01
89
90 0x00 ;; (item-hack) no-op
91 0xBF ;; (CP A A) ensures Z
92
93 0xCA ;; (item-hack) jump if Z
94 target-low
95 target-high
96 0x01 ;; (item-hack) will never be reached.
97
98 ;; input first nybble
99 0x00
100 0xCB
101 0x37 ;; swap nybbles on A
102
103 0x57 ;; A -> D
104
105 0x37 ;; (item-hack) set carry flag no-op
106 0x18 ;; relative jump backwards
107 0xCD ;; literal -51 == TM05; go back to input section
108 0x01 ;; (item-hack) will never reach this instruction
109
110 ]
111 (repeat 8 [0xFF 0x01])
112
113 [;; jump to actual program
114 0x00
115 0x37 ;; (item-hack) set carry flag no-op
116
117 0x2E ;; 0x3A -> L
118 0x3A
119
120
121 0x00 ;; (item-hack) no-op
122 0x26 ;; 0xD5 -> L
123 0xD5
124 0x01 ;; (item-hack) set-carry BC
125
126 0x00 ;; (item-hack) these can be anything
127 0x01
128
129 0x00
130 0xE9 ;; jump to (HL)
131 ]])))
132
133 (defn view-desired-item-layout []
134 (clojure.pprint/pprint
135 (raw-inventory->inventory (pc-item-writer-program))))
136
137 (defn pc-item-writer-state []
138 (-> (read-state "bootstrap-init")
139 (set-memory pc-item-list-start 50)
140 (set-memory-range
141 map-function-address-start
142 [0x8B 0xD5])
143 (set-memory-range
144 (inc pc-item-list-start)
145 (pc-item-writer-program))))
146
147 (defn test-pc-item-writer []
148 (let [orig (read-state "pc-item-writer")]
149 (-> orig
150 (print-listing 0xD162 (+ 0xD162 20))
151 (run-moves (reduce concat
152 (repeat 10 [[:a :b :start :select] []])))
153 ((fn [_] (println "===========") _))
154 (print-listing 0xD162 (+ 0xD162 20)))))
155
156 (defn close-all-menus [[moves state :as script]]
157 (loop [s script]
158 (let [depth (current-depth (second (do-nothing 50 s)))]
159 (println "depth" depth)
160 (if (= depth 1)
161 s
162 (recur (close-menu s))))))
163
164 (defn-memo name-rival
165 ([] (name-rival (to-rival-name)))
166 ([script]
167 (->> script
168 (first-difference [] [:a] AF)
169 (first-difference [] [:r] DE)
170 (play-moves
171 [[]
172 [] [] [:r] [] [:d] [:a] ;; L
173 [:r] [] [:r] [] [:r] [] [:r] []
174 [:r] [] [:d] [] [:d] [:a] ;; [PK]
175 [:d] [] [:r] [:a]
176 ]))))
177
178 (defn-memo to-room-pc
179 ([] (to-room-pc (name-rival)))
180 ([script]
181 (->> script
182 finish-title
183 (walk [← ← ↑ ← ↑ ↑ ↑]))))
184
185 (defn-memo bootstrap-corrupt-save
186 ([] (bootstrap-corrupt-save (to-room-pc)))
187 ([script]
188 (->> script
189 (do-save-corruption 2)
190 (corrupt-item-list 0)
191 close-all-menus)))
192
193 (defn-memo begin-initial-deposits
194 ([] (begin-initial-deposits
195 (bootstrap-corrupt-save)))
196 ([script]
197 (->> script
198 (first-difference [] [:a] AF)
199 (scroll-text)
200 (set-cursor 1)
201 select-menu-entry)))
202
203 (defn deposit-held-item [n quantity [moves state :as script]]
204 (let [total-quantity (second (nth-item state n))]
205 (println "total-quantity" total-quantity)
206 (->> script
207 (set-cursor n)
208 (select-menu-entry 1)
209 ((fn [[moves state :as script]]
210 (if (not= (item-quantity-selected state) 1)
211 (repeat-until-different [] item-quantity-selected script)
212 script)))
213 (set-quantity total-quantity quantity)
214 (delayed-difference [] [:a] 100 #(search-string % "stored"))
215 (scroll-text))))
216
217 (defn widthdraw-pc-item [n quantity [moves state :as script]]
218 (let [total-quantity (second (nth-pc-item state n))]
219 (->> script
220 (set-cursor n)
221 (select-menu-entry 1)
222 ((fn [[moves state :as script]]
223 (if (not= (item-quantity-selected state) 1)
224 (repeat-until-different [] item-quantity-selected
225 script)
226 script)))
227 (set-quantity total-quantity quantity)
228 (delayed-difference [] [:a] 100 #(search-string % "Withdrew"))
229 (scroll-text))))
230
231 (defn toss-held-item [n quantity [moves state :as script]]
232 (let [total-quantity (second (nth-item state n))]
233 (->> script
234 (set-cursor n)
235 (select-menu-entry 1)
236 (set-cursor-relative 1)
237 (select-menu-entry -1)
238 ((fn [[moves state :as script]]
239 (if (not= (item-quantity-selected state) 1)
240 (repeat-until-different [] item-quantity-selected
241 script)
242 script)))
243 (set-quantity total-quantity quantity)
244 (play-moves [[:a]])
245 (scroll-text)
246 (delayed-difference [] [:a] 100 #(search-string % "Threw"))
247 (scroll-text)
248 )))
249
250
251 (def desired-zero-quantities
252 (map second (filter (comp (partial = 0) first)
253 (partition 2 (pc-item-writer-program)))))
254
255 (defn-memo initial-deposits
256 ([] (initial-deposits (begin-initial-deposits)))
257 ([script]
258 (->> script
259 (deposit-held-item 0 0xFE)
260 (deposit-held-item 1 0xFE)
261 ((fn [script]
262 (reduce
263 (fn [script item] (deposit-held-item item 0xFF script))
264 script
265 (range 2 (+ 12 2)))))
266 close-all-menus)))
267
268
269 (defn-memo prepare-celadon-warp
270 ([] (prepare-celadon-warp (initial-deposits)))
271 ([script]
272 (->> script
273 (activate-start-menu)
274 (set-cursor-relative 1)
275 (select-menu-entry)
276 (toss-held-item 35 0xFA)
277 (close-all-menus))))
278
279
280 ;;0 -- 256
281 ;;1 -- 254
282 ;;2 -- 254
283 ;;3 -- 255
284
285 (defn-memo restore-items
286 ([] (restore-items (prepare-celadon-warp)))
287 ([script]
288 (->> script
289 (first-difference [] [:a] AF)
290 (scroll-text)
291 (select-menu-entry)
292 (widthdraw-pc-item 0 1)
293 (widthdraw-pc-item 3 99)
294 (widthdraw-pc-item 3 99)
295 (widthdraw-pc-item 3 57)
296 (widthdraw-pc-item 2 99)
297 (widthdraw-pc-item 2 99)
298 (widthdraw-pc-item 2 56)
299 (widthdraw-pc-item 1 99)
300 (widthdraw-pc-item 1 99)
301 (widthdraw-pc-item 1 56)
302 (widthdraw-pc-item 0 99)
303 (widthdraw-pc-item 0 99)
304 (widthdraw-pc-item 0 57)
305 (close-all-menus))))
306
307 (defn-memo to-celadon
308 ([] (to-celadon (restore-items)))
309 ([script]
310 (->> script
311 (walk [→ → → → → → → ↑
312 ↓ ↓ ↓ ↓ ↓ ← ← ← ←
313 ↓ ↓]))))
314
315
316
317
318
319
320
321