Mercurial > vba-clojure
view clojure/com/aurellem/save_corruption.clj @ 113:0831da75d2c5
completed frame-counting machine language program with dylan's help
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 16 Mar 2012 00:43:28 -0500 |
parents | 613353b7e012 |
children | 7f7cc8858d2e |
line wrap: on
line source
1 (ns com.aurellem.save-corruption2 (: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-moves50 ;; this section is copied from speedrun-294251 ;; and corrupts the save so that the end-of-list marker52 ;; for the pokemon roster is destroyed, but the save is still53 ;; playable.54 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []55 [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))57 (defn-memo skip-title-again []58 (->> (corrupt-save)59 (play-moves60 (first (title)))))62 (defn-memo start-game []63 (->> (skip-title-again)64 (advance [] [:start])65 (advance [] [:a])))67 (defn warp-to-elite-four68 "This is copied from speedrun-2942 to ensure that everything is good69 up to this point."70 []71 (->> (corrupt-save)72 (play-moves73 [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []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]])))