Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 356:b3ea7e8c10bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: got TM18; floor three complete.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 07:13:40 -0500
parents 639db56f2670
children f8b374397426
comparison
equal deleted inserted replaced
355:639db56f2670 356:b3ea7e8c10bf
447 (buy-item 8 99) ;; parlyz heal 447 (buy-item 8 99) ;; parlyz heal
448 (buy-item 8 55) ;; parlyz heal 448 (buy-item 8 55) ;; parlyz heal
449 close-menu 449 close-menu
450 end-shop-conversation))) 450 end-shop-conversation)))
451 451
452 (defn go-to-floor-three 452 (defn-memo go-to-floor-three
453 []) 453 ([] (go-to-floor-three (floor-two-items)))
454 454 ([script]
455 (->> script
456 (walk [→ → → → ↑ ↑ ↑
457 → → → → → → → ↑]))))
455 (defn get-TM18 458 (defn get-TM18
456 []) 459 ([] (get-TM18 (go-to-floor-three)))
460 ([script]
461 (->> script
462 (walk [↓ ↓])
463 talk
464 (scroll-text 3)
465 end-text)))
457 466
458 (defn go-to-floor-four 467 (defn go-to-floor-four
459 []) 468 [])
460 469
461 (defn floor-four-items 470 (defn floor-four-items