# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333063400 18000
# Node ID c8b0db518de3dd92ea1239119557f82425259981
# Parent  dc9a0060e7cbe65a31146567d5ba2d73e90e99f1
script: creating header for initial bootstrap program.

diff -r dc9a0060e7cb -r c8b0db518de3 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Thu Mar 29 17:38:36 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Thu Mar 29 18:23:20 2012 -0500
@@ -697,7 +697,7 @@
                  ↓ ↓ ↓ ↓ ↓ ↓
                  ← ← ← ↑]))))
 
-(defn to-poke-center-computer
+(defn-memo to-poke-center-computer
   ([] (to-poke-center-computer
        (viridian-store->viridian-poke-center)))
   ([script]
@@ -706,4 +706,50 @@
                  ↑ ↑ ↑
                  → → → → → → → → → ↑])
           (do-nothing 1))))
-                     
+
+(defn-memo begin-deposits
+  ([] (begin-deposits
+       (to-poke-center-computer)))
+  ([script]
+     (->> script
+          ;; access PC
+          (scroll-text 2)
+
+          ;; access item storage
+          (menu [[:a] [:d] [:a]])
+          (scroll-text 2)
+
+          ;; begin deposit
+          (menu [[:d] [:a]])
+          (do-nothing 40))))
+
+(defn deposit-one-item
+  [script]
+  (->> script
+       (do-nothing 100)
+       (play-moves [[:a]])
+       (do-nothing 80)
+       (play-moves [[:a]])
+       (scroll-text)
+       ))
+
+(defn multiple-times
+  ([n command args script]
+     (reduce (fn [script _]
+               (apply command (concat args [script])))
+             script
+             (range n)))
+  ([n command script]
+     (multiple-times n command [] script)))
+
+(defn create-header
+  ([] (create-header (begin-deposits)))
+  ([script]
+     (->> script
+          (multiple-times 34 deposit-one-item)
+          ;;(deposit-one-item)
+          ;;(deposit-one-item)
+          (do-nothing 1))))
+  
+                           
+       
\ No newline at end of file