# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333981533 18000
# Node ID 8d8023057b3c07509d67d867931fe2fd646a4980
# Parent  64d09d021025956a88dba12612d490a498430dda
script: made it to celadon poke-center.

diff -r 64d09d021025 -r 8d8023057b3c clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 09:10:45 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 09:25:33 2012 -0500
@@ -538,7 +538,7 @@
           ;; LEMONADE is the best item <3  :)
           (multiple-times 16 (partial buy-drink 2)))))
 
-(defn get-TM13
+(defn-memo get-TM13
   ([] (get-TM13 (roof-drinks)))
   ([script]
      (->> script
@@ -549,4 +549,22 @@
           select-menu-entry
           (scroll-text 6)
           close-menu)))
-          
+
+(defn to-celadon-poke-center
+  ([] (to-celadon-poke-center (get-TM13)))
+  ([script]
+     (->> script
+          (walk [↑ → → → → → → → → → ↑])       ; leave roof
+          (walk [↓ ← ← ← ← ↓ ↓ ↓ ← ← ← ← ← 
+                 ↑ ↑ ↑ ← ← ↑])                 ; to elevator
+                 
+          (walk [→ → ↑ ↑])                     ; to controls
+          talk
+          select-menu-entry                    ; to floor 1
+          (walk [↓ ↓ ← ←])
+          (walk [↓ → ↓ ↓ ↓ ↓ ↓ ↓])             ; leave store
+          (walk [↓ → → → → → → → → → → ↑ ↑])
+          (walk (repeat 23 →))
+          (walk [↑ ↑ ↑ ↑])                     ; enter poke center
+          (walk [↑ ↑ ↑ → → → → → → → → → →])   ; to computer
+          (turn ↑))))