Mercurial > vba-clojure

changeset 362:8d8023057b3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: made it to celadon poke-center.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 09:25:33 -0500
parents 64d09d021025
children 79252378fd22 998702f021e3
files clojure/com/aurellem/run/bootstrap_1.clj
diffstat 1 files changed, 20 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 09:10:45 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 09:25:33 2012 -0500
     1.3 @@ -538,7 +538,7 @@
     1.4            ;; LEMONADE is the best item <3  :)
     1.5            (multiple-times 16 (partial buy-drink 2)))))
     1.6  
     1.7 -(defn get-TM13
     1.8 +(defn-memo get-TM13
     1.9    ([] (get-TM13 (roof-drinks)))
    1.10    ([script]
    1.11       (->> script
    1.12 @@ -549,4 +549,22 @@
    1.13            select-menu-entry
    1.14            (scroll-text 6)
    1.15            close-menu)))
    1.16 -          
    1.17 +
    1.18 +(defn to-celadon-poke-center
    1.19 +  ([] (to-celadon-poke-center (get-TM13)))
    1.20 +  ([script]
    1.21 +     (->> script
    1.22 +          (walk [↑ → → → → → → → → → ↑])       ; leave roof
    1.23 +          (walk [↓ ← ← ← ← ↓ ↓ ↓ ← ← ← ← ← 
    1.24 +                 ↑ ↑ ↑ ← ← ↑])                 ; to elevator
    1.25 +                 
    1.26 +          (walk [→ → ↑ ↑])                     ; to controls
    1.27 +          talk
    1.28 +          select-menu-entry                    ; to floor 1
    1.29 +          (walk [↓ ↓ ← ←])
    1.30 +          (walk [↓ → ↓ ↓ ↓ ↓ ↓ ↓])             ; leave store
    1.31 +          (walk [↓ → → → → → → → → → → ↑ ↑])
    1.32 +          (walk (repeat 23 →))
    1.33 +          (walk [↑ ↑ ↑ ↑])                     ; enter poke center
    1.34 +          (walk [↑ ↑ ↑ → → → → → → → → → →])   ; to computer
    1.35 +          (turn ↑))))