# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332824092 18000
# Node ID 49096b8b99d544630ea3b638298d676e16d60293
# Parent  d68a191997ca313e243e126799aee2c816ff1d2b
script: delivered oak's parcel; got pokedex.

diff -r d68a191997ca -r 49096b8b99d5 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:34:53 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:54:52 2012 -0500
@@ -365,4 +365,32 @@
           (walk [â†“ â†“ â† â†“ â†“ â†“ â†
                  â†“ â†“ â†“ â†“ â†“
                  â†’ â†’ â†’ â†‘]))))
-          
\ No newline at end of file
+
+(defn-memo deliver-oaks-parcel
+  ([] (deliver-oaks-parcel
+       (viridian-store->oaks-lab-like-a-boss)))
+  ([script]
+     (->> script
+          (walk [â†‘ â†‘ â†‘ â†‘ â†‘ â†‘ â†‘ â†‘])
+          (play-moves [[:a]])
+          (scroll-text 11)
+          (end-text)
+          (end-text)
+          (do-nothing 200)
+          (end-text)
+          (scroll-text 3)
+          (end-text)
+          (scroll-text 2)
+          (end-text)
+          (scroll-text 5)
+          (end-text)
+          (scroll-text 2)
+          (end-text)
+          (scroll-text 9)
+          (end-text)
+          (scroll-text 7)
+          (end-text)
+
+          (walk [â† â† â†“ â†“ â†“ â†“ â†“ â†“ â†“ â†“ â†“])
+          
+          )))
\ No newline at end of file