Mercurial > vba-clojure

changeset 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 d35683bfc15f
children 528dc923d4c5
files clojure/com/aurellem/run/bootstrap_0.clj
diffstat 1 files changed, 25 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 18:25:02 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 18:41:39 2012 -0500
     1.3 @@ -747,7 +747,15 @@
     1.4                 (do-nothing 1))))
     1.5         (play-moves [[:a]])
     1.6         (scroll-text)))
     1.7 -      
     1.8 +
     1.9 +(defn deposit-one-item
    1.10 +  [script]
    1.11 +  (->> script
    1.12 +       (do-nothing 100)
    1.13 +       (play-moves [[:a]])
    1.14 +       (do-nothing 80)
    1.15 +       (play-moves [[:a]])
    1.16 +       (scroll-text)))
    1.17  
    1.18  (defn-memo create-header
    1.19    ([] (create-header (begin-deposits)))
    1.20 @@ -756,5 +764,20 @@
    1.21            (multiple-times 33 deposit-one-item)
    1.22            (do-nothing 1))))
    1.23    
    1.24 -                           
    1.25 +
    1.26 +(defn create-bootstrap-program
    1.27 +  ([] (create-bootstrap-program
    1.28 +       (create-header)))
    1.29 +  ([script]
    1.30 +     (->> script
    1.31 +          (do-nothing 120)
    1.32 +          (menu [↓ ↓ ↓ ↓ ↓ ↓ ↓])
    1.33 +          ;;(deposit-n-items 33)
    1.34 +
    1.35 +          (menu (repeat 17 ↓))
    1.36 +          
    1.37 +
    1.38 +
    1.39 +          (do-nothing 1))))
    1.40 +    
    1.41         
    1.42 \ No newline at end of file