diff clojure/com/aurellem/run/bootstrap_1.clj @ 361:64d09d021025

route repaired.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 09:10:45 -0500
parents 51aa6486c2ab
children 8d8023057b3c
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 08:51:47 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 09:10:45 2012 -0500
     1.3 @@ -453,8 +453,8 @@
     1.4    ([] (go-to-floor-three (floor-two-items)))
     1.5    ([script]
     1.6       (->> script
     1.7 -          (walk [→ → → → ↑ ↑ ↑
     1.8 -                 → → → → → → → ↑]))))
     1.9 +          (walk [→ → → → → → → → → → ↑ ↑ ↑
    1.10 +                   → ↑]))))
    1.11  (defn-memo get-TM18
    1.12    ([] (get-TM18 (go-to-floor-three)))
    1.13    ([script]
    1.14 @@ -516,19 +516,14 @@
    1.15                   ↓ ← ← ←]) ;; walk to vending machine
    1.16            (turn ↑))))
    1.17  
    1.18 -(defn dp
    1.19 -  [str script]
    1.20 -  (println str) script)
    1.21 -
    1.22  (defn buy-drink
    1.23    "Assumes you're in front of the vending machine. Buys the indicated
    1.24     drink."
    1.25    [n script]
    1.26    (->> script
    1.27 -       (dp "talk")
    1.28 -       talk
    1.29 -       (dp "scroll-text")
    1.30 -       (scroll-text)
    1.31 +       (do-nothing 20)
    1.32 +       (play-moves [[:a][:a]])
    1.33 +       scroll-text
    1.34         (wait-for-cursor)
    1.35         (set-cursor n)
    1.36         select-menu-entry
    1.37 @@ -538,27 +533,20 @@
    1.38    ([] (roof-drinks (go-to-roof)))
    1.39    ([script]
    1.40       (->> script
    1.41 -          (buy-drink 0)           ;; fresh water (for TM13)
    1.42 -
    1.43 +          (buy-drink 0) ;; fresh water (for TM13)
    1.44            ;; buy 16 lemonades
    1.45            ;; LEMONADE is the best item <3  :)
    1.46 -          (multiple-times 5 (partial buy-drink 2))
    1.47 -          (do-nothing 1) ;; unknown hiccup here :(
    1.48 -          (multiple-times 11 (partial buy-drink 2)))))
    1.49 -     
    1.50 +          (multiple-times 16 (partial buy-drink 2)))))
    1.51 +
    1.52  (defn get-TM13
    1.53    ([] (get-TM13 (roof-drinks)))
    1.54    ([script]
    1.55       (->> script
    1.56 -          (walk [↓ ↓ ↓
    1.57 -                 ← ← ← ← ← ←
    1.58 -                 ])
    1.59 -          (do-nothing 1) ;; wtf is wrong with talk?
    1.60 -          talk
    1.61 -          (scroll-text 2)
    1.62 +          (walk [← ← ← ← ← ← ↓])
    1.63 +          (play-moves [[][:a][:a][]])
    1.64 +          (scroll-text 3)
    1.65            select-menu-entry
    1.66            select-menu-entry
    1.67 -          
    1.68            (scroll-text 6)
    1.69            close-menu)))
    1.70