view clojure/com/aurellem/save_corruption.clj @ 120:d6f2a06cb128

finished Mode 1 of bootstrapping program
author Robert McIntyre <rlm@mit.edu>
date Fri, 16 Mar 2012 20:31:53 -0500
parents 613353b7e012
children 7f7cc8858d2e
line wrap: on
line source
1 (ns com.aurellem.save-corruption
2 (:use (com.aurellem gb-driver vbm title)))
4 (use 'clojure.repl)
6 (defn-memo start-walking []
7 (->> (finish-title)
8 (advance [:b] [:b :r])))
10 (def walk (partial advance []))
12 (defn-memo walk-to-stairs []
13 (->> (start-walking)
14 (walk [:u])
15 (walk [:u])
16 (walk [:u])
17 (walk [:u])
18 (walk [:u])
19 (walk [:r])
20 (walk [:r])
21 (walk [:r])))
23 (defn-memo walk-to-door []
24 (->> (walk-to-stairs)
25 (walk [:d])
26 (walk [:d])
27 (walk [:d])
28 (walk [:d])
29 (walk [:d])
30 (walk [:d])
31 (walk [:l])
32 (walk [:l])
33 (walk [:l])
34 (walk [:l])))
37 (defn-memo activate-menu []
38 (->> (walk-to-door)
39 (advance [:b] [:a :b :start])))
41 (defn-memo save-game []
42 (->> (activate-menu)
43 (advance [] [:d])
44 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
45 scroll-text))
47 (defn-memo corrupt-save []
48 (->> (save-game)
49 (play-moves
50 ;; this section is copied from speedrun-2942
51 ;; and corrupts the save so that the end-of-list marker
52 ;; for the pokemon roster is destroyed, but the save is still
53 ;; playable.
54 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
55 [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))
57 (defn-memo skip-title-again []
58 (->> (corrupt-save)
59 (play-moves
60 (first (title)))))
62 (defn-memo start-game []
63 (->> (skip-title-again)
64 (advance [] [:start])
65 (advance [] [:a])))
67 (defn warp-to-elite-four
68 "This is copied from speedrun-2942 to ensure that everything is good
69 up to this point."
70 []
71 (->> (corrupt-save)
72 (play-moves
73 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
74 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
75 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
76 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
77 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
78 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
79 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
80 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
81 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
82 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
83 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
84 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
85 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
86 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
87 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
88 [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
89 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
90 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
91 [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] []
92 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
93 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
94 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
95 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
96 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
97 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
98 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
99 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
100 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
101 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
102 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
103 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
104 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
105 [] [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] []
106 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
107 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]
108 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
109 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
110 [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] []
111 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
112 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
113 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []
114 [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
115 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []
116 [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
117 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
118 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]
119 [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []
120 [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
121 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
122 [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] []
123 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
124 [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
125 [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
126 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
127 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
128 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] []
129 [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []
130 [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] []
131 [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []
132 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []
133 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
134 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
135 [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] []
136 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []
137 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
138 [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] []
139 [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []
140 [] [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
141 [] [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] [] [] []
142 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
143 [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] []
144 [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []
145 [] [] [] [] [] [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] []
146 [] [] [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] [] []
147 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []
148 [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []
149 [:d] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []
150 [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []
151 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
152 [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] [] [:a] [:u] []
153 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
154 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
155 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
156 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
157 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
158 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
159 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
160 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
161 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [:a] [] [] [] []
162 [] [:a] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] []
163 [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
164 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] []
165 [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
166 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
167 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
168 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] []
169 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
170 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
171 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
172 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
173 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
174 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
175 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
176 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
177 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
178 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
179 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
180 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
181 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
182 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
183 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
184 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
185 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
186 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
187 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []
188 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
189 [] [] [] [:b]])))