Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 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 11cfe6dcb803
children 0297d315b574
comparison
equal deleted inserted replaced
261:1b5c33614b0d 262:868783405ac2
206 (scroll-text 2) 206 (scroll-text 2)
207 (end-text) 207 (end-text)
208 (scroll-text 9) 208 (scroll-text 9)
209 (end-text)))) 209 (end-text))))
210 210
211 211 (defn do-nothing [n script]
212 212 (->> script
213 213 (play-moves
214 214 (repeat n []))))
215 215
216 216 (defn-memo pikachu-comes-out
217 217 ([] (pikachu-comes-out
218 218 (finish-rival-text)))
219 ([script]
220 (->> script
221 (do-nothing 177)
222 (end-text)
223 (scroll-text 7)
224 (end-text))))
225
226 (defn-memo leave-oaks-lab
227 ([] (leave-oaks-lab
228 (pikachu-comes-out)))
229 ([script]
230 (->> script
231 (walk [← ← ↓ ↓ ↓ ↓ ↓ ↓]))))
232
233 (defn-memo oaks-lab->pallet-town-edge
234 ([] (oaks-lab->pallet-town-edge
235 (leave-oaks-lab)))
236 ([script]
237 (->> script
238 (walk [← ← ← ←
239 ↑ ↑ ↑ ↑
240 ↑ ↑ ↑ ↑ ↑ ↑
241 → ↑]))))
242