# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332822893 18000
# Node ID d68a191997ca313e243e126799aee2c816ff1d2b
# Parent  82ee2704c9739b0d272c4e865f0b331ccb71e9f3
script: made it to oak's lab from viridian mart.

diff -r 82ee2704c973 -r d68a191997ca clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:25:18 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:34:53 2012 -0500
@@ -314,4 +314,55 @@
           (play-moves [[:a] []])
           (walk [↓ ↓ → ↓]))))
 
+(defn-memo viridian-store->oaks-lab
+  ([] (viridian-store->oaks-lab
+       (get-oaks-parcel)))
+  ([script]
+     (->> script
+          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+                 ← ← ← ← ← ← ← ← ← ← 
+                 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+                 ← ←
+                 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+                 ↓ ↓ ↓ ↓ ↓ ↓ ↓
+                 → → → → → → → →
+                 ↓ ↓ ↓ ↓
+                 ← ← ← ← ←
+                 ↓ ↓ ↓ ↓])
 
+          (walk-thru-grass
+           [↓ ↓ ↓ ↓ ↓ ↓ ↓])
+
+          (walk [↓ ↓ ← ↓ ↓ ↓ ←
+                 ↓ ↓ ↓ ↓ ↓
+                 → → → ↑]))))
+                 
+(defn-memo viridian-store->oaks-lab-like-a-boss
+  ([] (viridian-store->oaks-lab-like-a-boss
+       (get-oaks-parcel)))
+  ([script]
+     (->> script
+          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+                 ← ← ← ← ← ← ← ← ← ← 
+                 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
+
+          (walk-thru-grass
+           [↓ ↓ ↓ ↓ ↓])
+
+          (walk
+           [↓ ↓ ← ↓
+            ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
+            → →])
+
+          (walk-thru-grass
+           [→ ↓ ↓ ↓])
+
+          (walk [↓ ← ← ↓ ↓ ↓ ↓ ↓ ↓])
+          
+          (walk-thru-grass
+           [↓ ↓ ↓ ↓ ↓ ↓ ↓])
+          
+          (walk [↓ ↓ ← ↓ ↓ ↓ ←
+                 ↓ ↓ ↓ ↓ ↓
+                 → → → ↑]))))
+          
\ No newline at end of file