# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332764430 18000
# Node ID 8d1a354f7471e997ae5177f65bd9319118696ba1
# Parent  c7b002525041b527783e6e08e45217560cfe13ee
continued work on unoptimized script

diff -r c7b002525041 -r 8d1a354f7471 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 06:11:49 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 07:20:30 2012 -0500
@@ -70,5 +70,56 @@
           start-walking
           (walk [→ → → → →
                  ↑ ↑ ↑ ↑ ↑ ↑]))))
-     
 
+(defn end-text [script]
+  (->> script
+       (scroll-text)
+       (play-moves [[] [:a]])))
+
+(defn-memo start-pikachu-battle
+  ([] (start-pikachu-battle
+       (to-pallet-town-edge)))
+  ([script]
+     (->> script
+          (advance [:b] [:b :a] DE)
+          (scroll-text)
+          (play-moves [[:b]])
+          (scroll-text)
+          (end-text) ;; battle begins
+          (scroll-text))))
+
+(defn-memo capture-pikachu
+  ([] (capture-pikachu (start-pikachu-battle)))
+  ([script]
+     (->> script
+          (scroll-text 2)
+          (end-text))))
+
+(defn-memo go-to-lab
+  ([] (go-to-lab (capture-pikachu)))
+  ([script]
+     (->> script
+          (scroll-text 5)
+          (end-text)
+          (scroll-text)
+          (end-text)
+          (scroll-text 8)
+          (end-text)
+          (scroll-text)
+          (end-text))))
+
+(defn-memo obtain-pikachu
+  ([] (obtain-pikachu (go-to-lab)))
+  ([script]
+     (->> script
+          (scroll-text)
+          (play-moves
+           (concat 
+            (repeat 51 [])
+            [[:a] []]))
+          (walk [↓ ↓ → → ↑])
+          (play-moves [[:a]]))))
+      
+
+
+
diff -r c7b002525041 -r 8d1a354f7471 clojure/com/aurellem/run/save_corruption.clj
--- a/clojure/com/aurellem/run/save_corruption.clj	Mon Mar 26 06:11:49 2012 -0500
+++ b/clojure/com/aurellem/run/save_corruption.clj	Mon Mar 26 07:20:30 2012 -0500
@@ -10,7 +10,6 @@
           (advance [:b] [:b :r])))
   ([] (start-walking (finish-title))))
 
-
 (def move
   (partial advance []))