# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333980645 18000
# Node ID 64d09d021025956a88dba12612d490a498430dda
# Parent  51aa6486c2ab7692a6f20943710460685ec17157
route repaired.

diff -r 51aa6486c2ab -r 64d09d021025 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 08:51:47 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 09:10:45 2012 -0500
@@ -453,8 +453,8 @@
   ([] (go-to-floor-three (floor-two-items)))
   ([script]
      (->> script
-          (walk [→ → → → ↑ ↑ ↑
-                 → → → → → → → ↑]))))
+          (walk [→ → → → → → → → → → ↑ ↑ ↑
+                   → ↑]))))
 (defn-memo get-TM18
   ([] (get-TM18 (go-to-floor-three)))
   ([script]
@@ -516,19 +516,14 @@
                  ↓ ← ← ←]) ;; walk to vending machine
           (turn ↑))))
 
-(defn dp
-  [str script]
-  (println str) script)
-
 (defn buy-drink
   "Assumes you're in front of the vending machine. Buys the indicated
    drink."
   [n script]
   (->> script
-       (dp "talk")
-       talk
-       (dp "scroll-text")
-       (scroll-text)
+       (do-nothing 20)
+       (play-moves [[:a][:a]])
+       scroll-text
        (wait-for-cursor)
        (set-cursor n)
        select-menu-entry
@@ -538,27 +533,20 @@
   ([] (roof-drinks (go-to-roof)))
   ([script]
      (->> script
-          (buy-drink 0)           ;; fresh water (for TM13)
-
+          (buy-drink 0) ;; fresh water (for TM13)
           ;; buy 16 lemonades
           ;; LEMONADE is the best item <3  :)
-          (multiple-times 5 (partial buy-drink 2))
-          (do-nothing 1) ;; unknown hiccup here :(
-          (multiple-times 11 (partial buy-drink 2)))))
-     
+          (multiple-times 16 (partial buy-drink 2)))))
+
 (defn get-TM13
   ([] (get-TM13 (roof-drinks)))
   ([script]
      (->> script
-          (walk [↓ ↓ ↓
-                 ← ← ← ← ← ←
-                 ])
-          (do-nothing 1) ;; wtf is wrong with talk?
-          talk
-          (scroll-text 2)
+          (walk [← ← ← ← ← ← ↓])
+          (play-moves [[][:a][:a][]])
+          (scroll-text 3)
           select-menu-entry
           select-menu-entry
-          
           (scroll-text 6)
           close-menu)))