view clojure/com/aurellem/run/save_corruption.clj @ 190:9a7a46c4aa1b

extending functionality of support namespaces in prepreation of give-pokemon
author Robert McIntyre <rlm@mit.edu>
date Thu, 22 Mar 2012 16:34:10 -0500
parents 09caf6a5bbf4
children b7f682bb3090
line wrap: on
line source
1 (ns com.aurellem.run.save-corruption
2 (:use (com.aurellem.gb gb-driver vbm))
3 (:use (com.aurellem.run title)))
5 (use 'clojure.repl)
7 (defn-memo start-walking []
8 (->> (finish-title)
9 (advance [:b] [:b :r])))
11 (def walk (partial advance []))
13 (defn-memo walk-to-stairs []
14 (->> (start-walking)
15 (walk [:u])
16 (walk [:u])
17 (walk [:u])
18 (walk [:u])
19 (walk [:u])
20 (walk [:r])
21 (walk [:r])
22 (walk [:r])))
24 (defn-memo walk-to-door []
25 (->> (walk-to-stairs)
26 (walk [:d])
27 (walk [:d])
28 (walk [:d])
29 (walk [:d])
30 (walk [:d])
31 (walk [:d])
32 (walk [:l])
33 (walk [:l])
34 (walk [:l])
35 (walk [:l])))
38 (defn-memo activate-menu []
39 (->> (walk-to-door)
40 (advance [:b] [:a :b :start])))
42 (defn-memo save-game []
43 (->> (activate-menu)
44 (advance [] [:d])
45 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
46 scroll-text))
48 (defn-memo corrupt-save []
49 (->> (save-game)
50 (play-moves
51 ;; this section is copied from speedrun-2942
52 ;; and corrupts the save so that the end-of-list marker
53 ;; for the pokemon roster is destroyed, but the save is still
54 ;; playable.
55 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
56 [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))
58 (defn-memo skip-title-again []
59 (->> (corrupt-save)
60 (play-moves
61 (first (title)))))
63 (defn-memo start-game []
64 (->> (skip-title-again)
65 (advance [] [:start])
66 (advance [] [:a])
67 (advance [:a] [:a :start])))
69 (defn-memo destroy-item-end-of-list-marker []
70 (->> (start-game)
71 (play-moves
72 [
73 [:start] [] [] [] [] [] [] [] [] [] [] []
74 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
75 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
76 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []
77 [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
78 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []
79 [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
80 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
81 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]
82 [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []
83 [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
84 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
85 [] [] [] [] [] [] [] [] [] [] []
87 ;; [:b] [] [] [] [] [] [] [] []
88 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [][][][][] [] []
89 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
90 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
91 ])))
95 (defn warp-to-elite-four
96 "This is copied from speedrun-2942 to ensure that everything is good
97 up to this point."
98 []
99 (->> (corrupt-save)
100 (play-moves
101 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
102 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
103 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
104 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
105 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
106 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
107 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
108 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
109 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
110 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
111 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
112 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
113 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
114 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
115 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
116 [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
117 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
118 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
119 [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] []
120 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
121 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
122 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
123 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
124 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
125 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
126 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
127 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
128 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
129 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
130 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
131 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
132 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
133 [] [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] []
134 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
135 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]
136 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
137 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
138 [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] []
139 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
140 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
141 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []
142 [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
143 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []
144 [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
145 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
146 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]
147 [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []
148 [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
149 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
150 [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] []
151 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
152 [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
153 [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
154 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
155 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
156 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] []
157 [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []
158 [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] []
159 [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []
160 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []
161 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
162 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
163 [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] []
164 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []
165 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
166 [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] []
167 [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []
168 [] [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
169 [] [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] [] [] []
170 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
171 [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] []
172 [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []
173 [] [] [] [] [] [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] []
174 [] [] [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] [] []
175 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []
176 [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []
177 [:d] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []
178 [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []
179 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
180 [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] [] [:a] [:u] []
181 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
182 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
183 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
184 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
185 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
186 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
187 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
188 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
189 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [:a] [] [] [] []
190 [] [:a] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] []
191 [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
192 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] []
193 [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
194 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
195 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
196 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] []
197 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
198 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
199 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
200 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
201 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
202 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
203 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
204 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
205 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
206 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
207 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
208 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
209 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
210 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
211 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
212 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
213 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
214 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
215 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []
216 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
217 [] [] [] [:b]])))