Mercurial > vba-clojure
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-corruption2 (:use (com.aurellem.gb gb-driver vbm))3 (:use (com.aurellem.run title)))5 (defn-memo start-walking6 ([script]7 (->> script8 (advance [:b] [:b :r])))9 ([] (start-walking (finish-title))))11 (defn-memo walk-to-stairs12 ([] (walk-to-stairs (start-walking)))13 ([script]14 (->> script15 (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-door25 ([] (walk-to-door (walk-to-stairs)))26 ([script]27 (->> script28 (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-menu40 ([] (activate-menu (walk-to-door)))41 ([script]42 (->> script43 (advance [:b] [:a :b :start]))))45 (defn-memo save-game46 ([] (save-game (activate-menu)))47 ([script]48 (->> script49 (advance [] [:d])50 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])51 scroll-text)))53 (defn-memo corrupt-save54 ([] (corrupt-save (save-game)))55 ([script]56 (->>57 script58 (play-moves59 ;; this section is copied from speedrun-2942 and corrupts60 ;; the save so that the end-of-list marker for the pokemon61 ;; roster is destroyed, but the save is still playable.62 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []63 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]))))65 (defn-memo start-game66 ([] (start-game (corrupt-save)))67 ([script]68 (->> script69 (title)70 (advance [] [:start])71 (advance [] [:a])72 (advance [:a] [:a :start]))))74 (defn-memo destroy-item-end-of-list-marker75 ([] (destroy-item-end-of-list-marker (start-game)))76 ([script]77 (->>78 script79 (play-moves80 [[: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-four97 "This is copied from speedrun-2942 to ensure that98 everything is good up to this point."99 []100 (->> (corrupt-save)101 (play-moves102 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []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]])))