# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346521106 18000
# Node ID daa3497bbe125b233bc978c51df263f17506c355
# Parent  db61317863a7e1b0cbafb491f9b4663a7c86b9da
increased speed to travel to floor two of celadon dept. store.

diff -r db61317863a7 -r daa3497bbe12 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Sat Sep 01 11:59:05 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Sat Sep 01 12:38:26 2012 -0500
@@ -471,7 +471,7 @@
   [script]
   (play-moves [[:restart] [] []] script))
     
-(defn-memo do-save-corruption
+(defn do-save-corruption
   ([] (do-save-corruption
        (walk-to-counter)))
   ([script] (do-save-corruption 4 script))
@@ -480,7 +480,13 @@
           activate-start-menu
           (set-cursor n)
           select-menu-entry
-          select-menu-entry
+
+          ;; say yes to save game
+          ;; first-difference is faster than select-menu-entry
+          ;; for this special case
+          ;;select-menu-entry 
+          (first-difference [:b] [:a] AF)
+
           (play-moves
            ;; this section is copied from speedrun-2942 and corrupts
            ;; the save so that the total number of pokemon is set to
diff -r db61317863a7 -r daa3497bbe12 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 11:59:05 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:38:26 2012 -0500
@@ -150,7 +150,7 @@
   (map second (filter (comp (partial = 0) first)
                       (partition 2 (pc-item-writer-program)))))
 
-(defn-memo bootstrap-corrupt-save
+(defn bootstrap-corrupt-save
   ([] (bootstrap-corrupt-save (to-room-pc)))
   ([script]
    (->> script
@@ -275,8 +275,10 @@
   ([] (go-to-floor-two (to-celadon)))
   ([script]
      (->> script
-          (walk [↑ → → → → → → → → → → →
-                 ↑ ↑ ↑ ↑ ↑ ↑
+          (walk [→ → ↑
+                 ↑ ↑ ↑ ↑
+                 ← ← ← ←
+                 ↑ ↑ 
                  ← ← ← ← 
                  ↓ ↓ ↓
                  ← ←])
diff -r db61317863a7 -r daa3497bbe12 todo.org
--- a/todo.org	Sat Sep 01 11:59:05 2012 -0500
+++ b/todo.org	Sat Sep 01 12:38:26 2012 -0500
@@ -7,6 +7,7 @@
   - [X] fix A/V sync issues
 
 * fix unnecessary pauses before take-over [0/6]
+  - [ ] faster save-game confirmation
   - [ ] log out of PC faster
   - [ ] sell two of the 0x00 items at once.
   - [ ] walk out of elevator efficiently