view clojure/com/aurellem/run/save_corruption.clj @ 317:3c5bf2221ea0

remove crufty functions.
author Robert McIntyre <rlm@mit.edu>
date Mon, 02 Apr 2012 21:25:24 -0500
parents 8e63b0bb8ea3
children 9a4d3f801c89
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 (defn-memo start-walking
6 ([script]
7 (->> script
8 (advance [:b] [:b :r])))
9 ([] (start-walking (finish-title))))
11 (defn-memo walk-to-stairs
12 ([] (walk-to-stairs (start-walking)))
13 ([script]
14 (->> script
15 (move [:u])
16 (move [:u])
17 (move [:u])
18 (move [:u])
19 (move [:u])
20 (move [:r])
21 (move [:r])
22 (move [:r]))))
24 (defn-memo walk-to-door
25 ([] (walk-to-door (walk-to-stairs)))
26 ([script]
27 (->> script
28 (move [:d])
29 (move [:d])
30 (move [:d])
31 (move [:d])
32 (move [:d])
33 (move [:d])
34 (move [:l])
35 (move [:l])
36 (move [:l])
37 (move [:l]))))
39 (defn-memo activate-menu
40 ([] (activate-menu (walk-to-door)))
41 ([script]
42 (->> script
43 (advance [:b] [:a :b :start]))))
45 (defn-memo save-game
46 ([] (save-game (activate-menu)))
47 ([script]
48 (->> script
49 (advance [] [:d])
50 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
51 scroll-text)))
53 (defn-memo corrupt-save
54 ([] (corrupt-save (save-game)))
55 ([script]
56 (->>
57 script
58 (play-moves
59 ;; this section is copied from speedrun-2942 and corrupts
60 ;; the save so that the end-of-list marker for the pokemon
61 ;; roster is destroyed, but the save is still playable.
62 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
63 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]))))
65 (defn-memo start-game
66 ([] (start-game (corrupt-save)))
67 ([script]
68 (->> script
69 (title)
70 (advance [] [:start])
71 (advance [] [:a])
72 (advance [:a] [:a :start]))))
74 (defn-memo destroy-item-end-of-list-marker
75 ([] (destroy-item-end-of-list-marker (start-game)))
76 ([script]
77 (->>
78 script
79 (play-moves
80 [[:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
81 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
82 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
83 [] [] [:d] [] [] [] [:a] [] [] [:d] [] [] [:a] [] []
84 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] []
85 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
86 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
87 [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
88 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
89 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
90 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] []
91 [] [] [] [] [] [] [] [] [:u] [] [] [] [] [:u] [] []
92 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
93 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
94 [] [] [] [] [] [] [] [] [] [] [] []]))))
96 (defn warp-to-elite-four
97 "This is copied from speedrun-2942 to ensure that
98 everything is good up to this point."
99 []
100 (->> (corrupt-save)
101 (play-moves
102 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
103 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
104 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
105 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
106 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
107 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
108 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
109 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
110 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
111 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
112 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
113 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
114 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
115 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
116 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
117 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
118 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
119 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
120 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
121 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
122 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
123 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
124 [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] []
125 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
126 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
127 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
128 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
129 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
130 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
131 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
132 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
133 [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
134 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
135 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
136 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
137 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
138 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
139 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
140 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
141 [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
142 [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
143 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
144 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
145 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
146 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
147 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
148 [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
149 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
150 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
151 [] [] [:d] [] [] [] [:a] [] [] [:d] [] [] [:a] [] []
152 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] []
153 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
154 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
155 [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
156 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
157 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
158 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] []
159 [] [] [] [] [] [] [] [] [:u] [] [] [] [] [:u] [] []
160 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
161 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
162 [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []
163 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
164 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
165 [] [] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] []
166 [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] [] []
167 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
168 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
169 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []
170 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []
171 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
172 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
173 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []
174 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []
175 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
176 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
177 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []
178 [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] []
179 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select]
180 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
181 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b]
182 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
183 [] [] [] [] [:d] [] [] [] [] [] [] [] [] [:b] [] []
184 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
185 [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] []
186 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
187 [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] [] []
188 [] [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] []
189 [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
190 [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []
191 [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] []
192 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b]
193 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
194 [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [] [:d]
195 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
196 [] [] [] [] [] [] [] [] [] [:select] [] [] [] [] []
197 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
198 [] [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] []
199 [:a] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
200 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
201 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
202 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
203 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
204 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
205 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
206 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
207 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
208 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
209 [] [:u] [] [:u] [:a] [] [] [] [] [] [:a] [] [] []
210 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
211 [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
212 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] []
213 [] [] [] [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d]
214 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
215 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
216 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
217 [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] [] [] []
218 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
219 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
220 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
221 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
222 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
223 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
224 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
225 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
226 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
227 [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
228 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] []
229 [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []
230 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
231 [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
232 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
233 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
234 [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []
235 [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] []
236 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]
237 [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []
238 [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []
239 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
240 [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
241 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] []
242 [:b]])))