Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 296:659a9c84c785

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
restored deposit-one-item, working on getting rival's name into item computer.
author Robert McIntyre <rlm@mit.edu>
date Fri, 30 Mar 2012 18:41:39 -0500
parents 4a0dbaed7078
children 528dc923d4c5
comparison
equal deleted inserted replaced
295:d35683bfc15f 296:659a9c84c785
745 (->> script 745 (->> script
746 (play-moves [[:u]]) 746 (play-moves [[:u]])
747 (do-nothing 1)))) 747 (do-nothing 1))))
748 (play-moves [[:a]]) 748 (play-moves [[:a]])
749 (scroll-text))) 749 (scroll-text)))
750 750
751 (defn deposit-one-item
752 [script]
753 (->> script
754 (do-nothing 100)
755 (play-moves [[:a]])
756 (do-nothing 80)
757 (play-moves [[:a]])
758 (scroll-text)))
751 759
752 (defn-memo create-header 760 (defn-memo create-header
753 ([] (create-header (begin-deposits))) 761 ([] (create-header (begin-deposits)))
754 ([script] 762 ([script]
755 (->> script 763 (->> script
756 (multiple-times 33 deposit-one-item) 764 (multiple-times 33 deposit-one-item)
757 (do-nothing 1)))) 765 (do-nothing 1))))
758 766
759 767
768 (defn create-bootstrap-program
769 ([] (create-bootstrap-program
770 (create-header)))
771 ([script]
772 (->> script
773 (do-nothing 120)
774 (menu [↓ ↓ ↓ ↓ ↓ ↓ ↓])
775 ;;(deposit-n-items 33)
776
777 (menu (repeat 17 ↓))
778
779
780
781 (do-nothing 1))))
782
760 783