# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333150899 18000
# Node ID 659a9c84c785bc3140dab975e52b1ef95808109e
# Parent  d35683bfc15f0a830e58cb2a37d11d3f947aa2a9
restored deposit-one-item, working on getting rival's name into item computer.

diff -r d35683bfc15f -r 659a9c84c785 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 18:25:02 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Fri Mar 30 18:41:39 2012 -0500
@@ -747,7 +747,15 @@
                (do-nothing 1))))
        (play-moves [[:a]])
        (scroll-text)))
-      
+
+(defn deposit-one-item
+  [script]
+  (->> script
+       (do-nothing 100)
+       (play-moves [[:a]])
+       (do-nothing 80)
+       (play-moves [[:a]])
+       (scroll-text)))
 
 (defn-memo create-header
   ([] (create-header (begin-deposits)))
@@ -756,5 +764,20 @@
           (multiple-times 33 deposit-one-item)
           (do-nothing 1))))
   
-                           
+
+(defn create-bootstrap-program
+  ([] (create-bootstrap-program
+       (create-header)))
+  ([script]
+     (->> script
+          (do-nothing 120)
+          (menu [↓ ↓ ↓ ↓ ↓ ↓ ↓])
+          ;;(deposit-n-items 33)
+
+          (menu (repeat 17 ↓))
+          
+
+
+          (do-nothing 1))))
+    
        
\ No newline at end of file