Mercurial > vba-clojure

changeset 270:49096b8b99d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: delivered oak's parcel; got pokedex.
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 23:54:52 -0500
parents d68a191997ca
children 3266bd0a6300
files clojure/com/aurellem/run/bootstrap_0.clj
diffstat 1 files changed, 29 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:34:53 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:54:52 2012 -0500
     1.3 @@ -365,4 +365,32 @@
     1.4            (walk [↓ ↓ ← ↓ ↓ ↓ ←
     1.5                   ↓ ↓ ↓ ↓ ↓
     1.6                   → → → ↑]))))
     1.7 -          
     1.8 \ No newline at end of file
     1.9 +
    1.10 +(defn-memo deliver-oaks-parcel
    1.11 +  ([] (deliver-oaks-parcel
    1.12 +       (viridian-store->oaks-lab-like-a-boss)))
    1.13 +  ([script]
    1.14 +     (->> script
    1.15 +          (walk [↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
    1.16 +          (play-moves [[:a]])
    1.17 +          (scroll-text 11)
    1.18 +          (end-text)
    1.19 +          (end-text)
    1.20 +          (do-nothing 200)
    1.21 +          (end-text)
    1.22 +          (scroll-text 3)
    1.23 +          (end-text)
    1.24 +          (scroll-text 2)
    1.25 +          (end-text)
    1.26 +          (scroll-text 5)
    1.27 +          (end-text)
    1.28 +          (scroll-text 2)
    1.29 +          (end-text)
    1.30 +          (scroll-text 9)
    1.31 +          (end-text)
    1.32 +          (scroll-text 7)
    1.33 +          (end-text)
    1.34 +
    1.35 +          (walk [← ← ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
    1.36 +          
    1.37 +          )))
    1.38 \ No newline at end of file