Mercurial > vba-clojure
view clojure/com/aurellem/run/save_corruption.clj @ 304:fefe5ce49b21
improve testing program
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 31 Mar 2012 00:41:14 -0500 |
parents | 8d1a354f7471 |
children | 8e63b0bb8ea3 |
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 (use 'clojure.repl)7 (defn-memo start-walking8 ([script]9 (->> script10 (advance [:b] [:b :r])))11 ([] (start-walking (finish-title))))13 (def move14 (partial advance []))16 (defn-memo walk-to-stairs17 ([] (walk-to-stairs (start-walking)))18 ([script]19 (->> script20 (move [:u])21 (move [:u])22 (move [:u])23 (move [:u])24 (move [:u])25 (move [:r])26 (move [:r])27 (move [:r]))))29 (defn-memo walk-to-door30 ([] (walk-to-door (walk-to-stairs)))31 ([script]32 (->> script33 (move [:d])34 (move [:d])35 (move [:d])36 (move [:d])37 (move [:d])38 (move [:d])39 (move [:l])40 (move [:l])41 (move [:l])42 (move [:l]))))44 (defn-memo activate-menu45 ([] (activate-menu (walk-to-door)))46 ([script]47 (->> script48 (advance [:b] [:a :b :start]))))50 (defn-memo save-game51 ([] (save-game (activate-menu)))52 ([script]53 (->> script54 (advance [] [:d])55 (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])56 scroll-text)))58 (defn-memo corrupt-save59 ([] (corrupt-save (save-game)))60 ([script]61 (->>62 script63 (play-moves64 ;; this section is copied from speedrun-2942 and corrupts65 ;; the save so that the end-of-list marker for the pokemon66 ;; roster is destroyed, but the save is still playable.67 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []68 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]))))70 (defn-memo start-game71 ([] (start-game (corrupt-save)))72 ([script]73 (->> script74 (title)75 (advance [] [:start])76 (advance [] [:a])77 (advance [:a] [:a :start]))))79 (defn-memo destroy-item-end-of-list-marker80 ([] (destroy-item-end-of-list-marker (start-game)))81 ([script]82 (->>83 script84 (play-moves85 [[:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []86 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []87 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []88 [] [] [:d] [] [] [] [:a] [] [] [:d] [] [] [:a] [] []89 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] []90 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []91 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []92 [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []93 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []94 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]95 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] []96 [] [] [] [] [] [] [] [] [:u] [] [] [] [] [:u] [] []97 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []98 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []99 [] [] [] [] [] [] [] [] [] [] [] []]))))101 (defn warp-to-elite-four102 "This is copied from speedrun-2942 to ensure that103 everything is good up to this point."104 []105 (->> (corrupt-save)106 (play-moves107 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []108 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []109 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []110 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []111 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []112 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []113 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []114 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []115 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []116 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []117 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []118 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []119 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []120 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []121 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []122 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []123 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []124 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []125 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []126 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []127 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []128 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []129 [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] []130 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []131 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []132 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []133 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []134 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []135 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []136 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []137 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []138 [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []139 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []140 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []141 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []142 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []143 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []144 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []145 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []146 [] [] [] [] [] [] [] [] [] [] [] [] [] [] []147 [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []148 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []149 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []150 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []151 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []152 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []153 [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []154 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []155 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []156 [] [] [:d] [] [] [] [:a] [] [] [:d] [] [] [:a] [] []157 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] []158 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []159 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []160 [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []161 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []162 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]163 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] []164 [] [] [] [] [] [] [] [] [:u] [] [] [] [] [:u] [] []165 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []166 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []167 [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []168 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []169 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []170 [] [] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] []171 [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] [] []172 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]173 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []174 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []175 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []176 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]177 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []178 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []179 [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []180 [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]181 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []182 [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []183 [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] []184 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select]185 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []186 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b]187 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []188 [] [] [] [] [:d] [] [] [] [] [] [] [] [] [:b] [] []189 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []190 [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] []191 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []192 [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] [] []193 [] [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] []194 [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []195 [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []196 [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] []197 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b]198 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]199 [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [] [:d]200 [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []201 [] [] [] [] [] [] [] [] [] [:select] [] [] [] [] []202 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []203 [] [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] []204 [:a] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []205 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]206 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []207 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]208 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []209 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]210 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []211 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]212 [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []213 [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]214 [] [:u] [] [:u] [:a] [] [] [] [] [] [:a] [] [] []215 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []216 [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []217 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] []218 [] [] [] [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d]219 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]220 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]221 [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]222 [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] [] [] []223 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []224 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []225 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []226 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []227 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []228 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []229 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []230 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []231 [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []232 [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []233 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] []234 [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []235 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []236 [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []237 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []238 [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []239 [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []240 [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] []241 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]242 [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []243 [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []244 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []245 [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []246 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] []247 [:b]])))