rlm@170: (ns com.aurellem.run.save-corruption rlm@170: (:use (com.aurellem.gb gb-driver vbm)) rlm@170: (:use (com.aurellem.run title))) rlm@90: rlm@90: (use 'clojure.repl) rlm@90: rlm@91: (defn-memo start-walking [] rlm@91: (->> (finish-title) rlm@91: (advance [:b] [:b :r]))) rlm@91: rlm@91: (def walk (partial advance [])) rlm@91: rlm@91: (defn-memo walk-to-stairs [] rlm@91: (->> (start-walking) rlm@91: (walk [:u]) rlm@91: (walk [:u]) rlm@91: (walk [:u]) rlm@91: (walk [:u]) rlm@91: (walk [:u]) rlm@91: (walk [:r]) rlm@91: (walk [:r]) rlm@91: (walk [:r]))) rlm@91: rlm@91: (defn-memo walk-to-door [] rlm@91: (->> (walk-to-stairs) rlm@91: (walk [:d]) rlm@91: (walk [:d]) rlm@91: (walk [:d]) rlm@91: (walk [:d]) rlm@91: (walk [:d]) rlm@91: (walk [:d]) rlm@91: (walk [:l]) rlm@91: (walk [:l]) rlm@91: (walk [:l]) rlm@91: (walk [:l]))) rlm@91: rlm@91: rlm@90: (defn-memo activate-menu [] rlm@91: (->> (walk-to-door) rlm@90: (advance [:b] [:a :b :start]))) rlm@90: rlm@90: (defn-memo save-game [] rlm@90: (->> (activate-menu) rlm@90: (advance [] [:d]) rlm@90: (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]]) rlm@90: scroll-text)) rlm@90: rlm@91: (defn-memo corrupt-save [] rlm@91: (->> (save-game) rlm@91: (play-moves rlm@91: ;; this section is copied from speedrun-2942 rlm@91: ;; and corrupts the save so that the end-of-list marker rlm@91: ;; for the pokemon roster is destroyed, but the save is still rlm@91: ;; playable. rlm@91: [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]))) rlm@90: rlm@91: (defn-memo skip-title-again [] rlm@91: (->> (corrupt-save) rlm@91: (play-moves rlm@91: (first (title))))) rlm@90: rlm@91: (defn-memo start-game [] rlm@91: (->> (skip-title-again) rlm@91: (advance [] [:start]) rlm@131: (advance [] [:a]) rlm@131: (advance [:a] [:a :start]))) rlm@131: rlm@131: (defn-memo destroy-item-end-of-list-marker [] rlm@131: (->> (start-game) rlm@131: (play-moves rlm@131: [ rlm@131: [:start] [] [] [] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] rlm@131: [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] rlm@131: [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] rlm@131: [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d] rlm@131: [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] [] rlm@131: [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@131: [] [] [] [] [] [] [] [] [] [] [] rlm@131: rlm@131: ;; [:b] [] [] [] [] [] [] [] [] rlm@170: ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [][][][][] [] [] rlm@131: ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] [] rlm@131: ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] rlm@131: ]))) rlm@131: rlm@131: rlm@91: rlm@91: (defn warp-to-elite-four rlm@91: "This is copied from speedrun-2942 to ensure that everything is good rlm@91: up to this point." rlm@91: [] rlm@91: (->> (corrupt-save) rlm@91: (play-moves rlm@91: [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] rlm@91: [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] rlm@91: [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] rlm@91: [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d] rlm@91: [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] [] rlm@91: [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] rlm@91: [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] rlm@91: [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] rlm@91: [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] rlm@91: [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] rlm@91: [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] rlm@91: [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] rlm@91: [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] rlm@91: [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] rlm@91: [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [] rlm@91: [] [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [] rlm@91: [:d] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] rlm@91: [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] [] [:select] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] [] [:a] [:u] [] rlm@91: [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] rlm@91: [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] rlm@91: [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] rlm@91: [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] rlm@91: [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] rlm@91: [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] rlm@91: [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] rlm@91: [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] rlm@91: [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [:a] [] [] [] [] rlm@91: [] [:a] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] rlm@91: [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] rlm@91: [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] rlm@91: [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] rlm@91: [:d] [:d] [:d] [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] rlm@91: [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] rlm@91: [] [] [] [:b]]))) rlm@91: rlm@91: rlm@90: rlm@90: rlm@90: