Mercurial > vba-clojure
diff clojure/com/aurellem/run/bootstrap_0.clj @ 270:49096b8b99d5
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 |
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