# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333987413 18000
# Node ID 958a333f16e2552f2367e9e18d43ead2fba5b4bd
# Parent  79252378fd2286e87f72c6ea036b5d613652ec62
more progress.

diff -r 79252378fd22 -r 958a333f16e2 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 10:35:22 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:03:33 2012 -0500
@@ -618,16 +618,21 @@
   (->> script
        select-menu-entry))
 
+(defn to-held-items
+  [script]
+  (->> script
+       close-menu
+       close-menu
+       end-text;;; grr
+       
+       activate-start-menu
+       open-held-items))
+
 (defn-memo hacking-2
   ([] (hacking-2 (begin-hacking)))
   ([script]
      (->> script
-          close-menu
-          close-menu
-          end-text;;; grr
-
-          activate-start-menu
-          open-held-items
+          (to-held-items)
           (toss-held-item 0 166) ;; discard cruft
           close-menu
           close-menu)))
@@ -643,5 +648,40 @@
           (widthdraw-pc-item 2 0xFE)
           (widthdraw-pc-item 3 0xFE))))
           
+(defn-memo hacking-4
+  ([] (hacking-4 (hacking-3)))
+  ([script]
+     (->> script
+          close-menu
+          begin-deposit
+          (deposit-held-item 19 243)
+          (deposit-held-item-named :lemonade 16)
+          (deposit-held-item 18 224))))
+          
+(defn-memo hacking-5
+  "clean out the held-item list again"
+  ([] (hacking-5 (hacking-4)))
+  ([script]
+     (->> script
+          (to-held-items)
+          (toss-held-item 18 30)
+          (toss-held-item 17 1)
+          close-menu
+          close-menu)))
 
-         
\ No newline at end of file
+(defn-memo hacking-6
+  ([] (hacking-6 (hacking-5)))
+  ([script]
+     (->> script
+          activate-rlm-pc
+          begin-withdraw
+          (widthdraw-pc-item 4 0xFE)
+          (widthdraw-pc-item 5 0xFE)
+          (widthdraw-pc-item 6 0xFE))))
+
+;; (defn-memo hacking-7
+;;   ([] (hacking-7 (hacking-6)))
+;;   ([script]
+;;      (->> script
+          
+