Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 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
comparison
equal deleted inserted replaced
269:d68a191997ca 270:49096b8b99d5
363 [↓ ↓ ↓ ↓ ↓ ↓ ↓]) 363 [↓ ↓ ↓ ↓ ↓ ↓ ↓])
364 364
365 (walk [↓ ↓ ← ↓ ↓ ↓ ← 365 (walk [↓ ↓ ← ↓ ↓ ↓ ←
366 ↓ ↓ ↓ ↓ ↓ 366 ↓ ↓ ↓ ↓ ↓
367 → → → ↑])))) 367 → → → ↑]))))
368 368
369 (defn-memo deliver-oaks-parcel
370 ([] (deliver-oaks-parcel
371 (viridian-store->oaks-lab-like-a-boss)))
372 ([script]
373 (->> script
374 (walk [↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
375 (play-moves [[:a]])
376 (scroll-text 11)
377 (end-text)
378 (end-text)
379 (do-nothing 200)
380 (end-text)
381 (scroll-text 3)
382 (end-text)
383 (scroll-text 2)
384 (end-text)
385 (scroll-text 5)
386 (end-text)
387 (scroll-text 2)
388 (end-text)
389 (scroll-text 9)
390 (end-text)
391 (scroll-text 7)
392 (end-text)
393
394 (walk [← ← ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
395
396 )))