Mercurial > vba-clojure

changeset 262:868783405ac2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: left oak's lab.
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 21:00:23 -0500
parents 1b5c33614b0d
children a44a2c459aeb 0297d315b574
files clojure/com/aurellem/run/bootstrap_0.clj
diffstat 1 files changed, 29 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 19:57:25 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 21:00:23 2012 -0500
     1.3 @@ -208,11 +208,35 @@
     1.4            (scroll-text 9)
     1.5            (end-text))))
     1.6  
     1.7 +(defn do-nothing [n script]
     1.8 +  (->> script
     1.9 +       (play-moves
    1.10 +        (repeat n []))))
    1.11  
    1.12 -          
    1.13 +(defn-memo pikachu-comes-out
    1.14 +  ([] (pikachu-comes-out
    1.15 +       (finish-rival-text)))
    1.16 +  ([script]
    1.17 +     (->> script
    1.18 +          (do-nothing 177)
    1.19 +          (end-text)
    1.20 +          (scroll-text 7)
    1.21 +          (end-text))))
    1.22  
    1.23 -          
    1.24 -      
    1.25 +(defn-memo leave-oaks-lab
    1.26 +  ([] (leave-oaks-lab
    1.27 +       (pikachu-comes-out)))
    1.28 +  ([script]
    1.29 +     (->> script 
    1.30 +          (walk [← ← ↓ ↓ ↓ ↓ ↓ ↓]))))
    1.31  
    1.32 -
    1.33 -
    1.34 +(defn-memo  oaks-lab->pallet-town-edge
    1.35 +  ([] (oaks-lab->pallet-town-edge
    1.36 +       (leave-oaks-lab)))
    1.37 +  ([script]
    1.38 +     (->> script
    1.39 +          (walk [← ← ← ←
    1.40 +                 ↑ ↑ ↑ ↑
    1.41 +                 ↑ ↑ ↑ ↑ ↑ ↑
    1.42 +                 → ↑]))))
    1.43 +