# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331492007 18000
# Node ID 613353b7e012ab548aa5c0ca65851c3c2f341cb7
# Parent  778cb84a224447ac0f26468c6ef9064c26378e89
got original speedrun to work with modified beginning

diff -r 778cb84a2244 -r 613353b7e012 clojure/com/aurellem/save_corruption.clj
--- a/clojure/com/aurellem/save_corruption.clj	Sat Mar 10 19:44:32 2012 -0600
+++ b/clojure/com/aurellem/save_corruption.clj	Sun Mar 11 13:53:27 2012 -0500
@@ -3,8 +3,39 @@
 
 (use 'clojure.repl)
 
+(defn-memo start-walking [] 
+  (->> (finish-title)
+       (advance [:b] [:b :r])))
+
+(def walk (partial advance []))
+
+(defn-memo walk-to-stairs []
+  (->> (start-walking)
+       (walk [:u])
+       (walk [:u])
+       (walk [:u])
+       (walk [:u])
+       (walk [:u])
+       (walk [:r])
+       (walk [:r])
+       (walk [:r])))
+
+(defn-memo walk-to-door []
+  (->> (walk-to-stairs)
+       (walk [:d])
+       (walk [:d])
+       (walk [:d])
+       (walk [:d])
+       (walk [:d])
+       (walk [:d])
+       (walk [:l])
+       (walk [:l])
+       (walk [:l])
+       (walk [:l])))
+  
+
 (defn-memo activate-menu []
-  (->> (intro)
+  (->> (walk-to-door)
        (advance [:b] [:a :b :start])))
 
 (defn-memo save-game []
@@ -13,8 +44,151 @@
        (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
        scroll-text))
 
+(defn-memo corrupt-save []
+  (->> (save-game)
+       (play-moves
+        ;; this section is copied from speedrun-2942
+        ;; and corrupts the save so that the end-of-list marker
+        ;; for the pokemon roster is destroyed, but the save is still
+        ;; playable.
+         [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+         [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])))
 
+(defn-memo skip-title-again []
+  (->> (corrupt-save)
+       (play-moves
+        (first (title)))))
 
+(defn-memo start-game []
+  (->> (skip-title-again)
+       (advance [] [:start])
+       (advance [] [:a])))       
+
+(defn warp-to-elite-four
+  "This is copied from speedrun-2942 to ensure that everything is good
+   up to this point."
+  []
+  (->> (corrupt-save)
+       (play-moves
+        [ [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a]
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
+        [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
+        [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []
+        [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]
+        [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []
+        [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
+        [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
+        [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
+        [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] []
+        [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []
+        [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] []
+        [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] []
+        [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] []
+        [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] []
+        [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d]
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []
+        [] [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [:select] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [:b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] []
+        [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [:d] [] [] [] [] [:b] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [:select] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] []
+        [:d] [] [] [] [] [] [] [] [:d] [] [] [] [] [] [] [:d] [] [] []
+        [] [] [] [:d] [] [] [] [] [] [] [] [] [] [] [] [:select] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [:a] [] [] [:d] [] [] [:a] [:u] []
+        [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
+        [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
+        [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
+        [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
+        [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
+        [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
+        [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u]
+        [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] []
+        [:u] [] [:u] [] [:u] [] [:u] [] [:u] [] [:u] [:a] [] [] [] []
+        [] [:a] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:b] [] [] [] [] []
+        [] [] [] [:b] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
+        [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
+        [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d] [:d]
+        [:d] [:d] [:d] [:d] [:d] [:d] [:d] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
+        [:a] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
+        [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] []
+        [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] []
+        [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] []
+        [] [] [] [:b]])))
+
+        
        
 
 
diff -r 778cb84a2244 -r 613353b7e012 clojure/com/aurellem/title.clj
--- a/clojure/com/aurellem/title.clj	Sat Mar 10 19:44:32 2012 -0600
+++ b/clojure/com/aurellem/title.clj	Sun Mar 11 13:53:27 2012 -0500
@@ -47,10 +47,11 @@
        scroll-text
        scroll-text
        scroll-text
-       (advance [] [:a])))
+       ))
 
-(defn-memo name-entry []
+(defn-memo name-entry-rlm []
   (->> (oak)
+       (advance [] [:a])
        (advance [] [:r] DE)
        (play-moves
         [[]
@@ -61,9 +62,15 @@
          [:r] [] [:r] [] [:r] [] [:r] []
          [:r] [] [:d] [] [:d] [] [:d] [:a]
          ])))
-          
-(defn-memo rival-name-entry []
-  (->> (name-entry)
+
+(defn-memo name-entry-ash []
+  (->> (oak)
+       (advance [] [:d])
+       (advance [] [:d])
+       (advance [] [:a])))
+       
+(defn-memo rival-name-entry-gary []
+  (->> (name-entry-ash)
        scroll-text
        scroll-text
        scroll-text
@@ -73,8 +80,18 @@
        (advance [] [:d])
        (advance [] [:a])))
 
+(defn-memo rival-name-entry-blue []
+  (->> (name-entry-ash)
+       scroll-text
+       scroll-text
+       scroll-text
+       scroll-text
+       scroll-text
+       (advance [] [:d])
+       (advance [] [:a])))
+
 (defn-memo finish-title []
-  (->> (rival-name-entry)
+  (->> (rival-name-entry-blue)
        scroll-text
        scroll-text
        scroll-text