Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 355:639db56f2670

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: bought status healing items; floor two complete.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 06:30:13 -0500
parents 4141489d1406
children b3ea7e8c10bf
comparison
equal deleted inserted replaced
354:4141489d1406 355:639db56f2670
431 431
432 (defn turn [direction script] 432 (defn turn [direction script]
433 (->> script 433 (->> script
434 (first-difference [] direction AF))) 434 (first-difference [] direction AF)))
435 435
436 (defn floor-two-items 436 (defn-memo floor-two-items
437 []) 437 ([] (floor-two-items (floor-two-more-money)))
438 438 ([script]
439 (->> script
440 (walk [←])
441 (turn ↑)
442 talk
443 select-menu-entry
444 (buy-item 5 12) ;; burn heal
445 (buy-item 6 55) ;; ice heal
446 (buy-item 7 4) ;; awakening
447 (buy-item 8 99) ;; parlyz heal
448 (buy-item 8 55) ;; parlyz heal
449 close-menu
450 end-shop-conversation)))
439 451
440 (defn go-to-floor-three 452 (defn go-to-floor-three
441 []) 453 [])
442 454
443 (defn get-TM18 455 (defn get-TM18