# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332813623 18000
# Node ID 868783405ac297285c65d9c6e7ea39568f7324da
# Parent  1b5c33614b0d5551070dabcd912d7ea427956481
script: left oak's lab.

diff -r 1b5c33614b0d -r 868783405ac2 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 19:57:25 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 21:00:23 2012 -0500
@@ -208,11 +208,35 @@
           (scroll-text 9)
           (end-text))))
 
+(defn do-nothing [n script]
+  (->> script
+       (play-moves
+        (repeat n []))))
 
-          
+(defn-memo pikachu-comes-out
+  ([] (pikachu-comes-out
+       (finish-rival-text)))
+  ([script]
+     (->> script
+          (do-nothing 177)
+          (end-text)
+          (scroll-text 7)
+          (end-text))))
 
-          
-      
+(defn-memo leave-oaks-lab
+  ([] (leave-oaks-lab
+       (pikachu-comes-out)))
+  ([script]
+     (->> script 
+          (walk [← ← ↓ ↓ ↓ ↓ ↓ ↓]))))
 
-
-
+(defn-memo  oaks-lab->pallet-town-edge
+  ([] (oaks-lab->pallet-town-edge
+       (leave-oaks-lab)))
+  ([script]
+     (->> script
+          (walk [← ← ← ←
+                 ↑ ↑ ↑ ↑
+                 ↑ ↑ ↑ ↑ ↑ ↑
+                 → ↑]))))
+