Mercurial > vba-clojure
view clojure/com/aurellem/run/save_corruption.clj @ 170:09caf6a5bbf4
added facilities to corrupt any state.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 21 Mar 2012 03:18:20 -0500 |
parents | 412ca096a9ba |
children | b7f682bb3090 |
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-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-moves51 ;; this section is copied from speedrun-294252 ;; and corrupts the save so that the end-of-list marker53 ;; for the pokemon roster is destroyed, but the save is still54 ;; playable.55 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []56 [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))58 (defn-memo skip-title-again []59 (->> (corrupt-save)60 (play-moves61 (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-moves72 [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-four96 "This is copied from speedrun-2942 to ensure that everything is good97 up to this point."98 []99 (->> (corrupt-save)100 (play-moves101 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []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]])))