# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333989069 18000
# Node ID dc39dfcad61f9cd9e19fa8dc8d37df43f85a6f7e
# Parent  958a333f16e2552f2367e9e18d43ead2fba5b4bd
almost halfway there!

diff -r 958a333f16e2 -r dc39dfcad61f clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:03:33 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:31:09 2012 -0500
@@ -677,11 +677,21 @@
           begin-withdraw
           (widthdraw-pc-item 4 0xFE)
           (widthdraw-pc-item 5 0xFE)
-          (widthdraw-pc-item 6 0xFE))))
+          (widthdraw-pc-item 6 0xFE)
+          close-menu)))
 
-;; (defn-memo hacking-7
-;;   ([] (hacking-7 (hacking-6)))
-;;   ([script]
-;;      (->> script
-          
-    
+(defn-memo hacking-7
+  ([] (hacking-7 (hacking-6)))
+  ([script]
+     (->> script
+          begin-deposit
+          (deposit-held-item 19 240)
+          (deposit-held-item 18 230)
+          (deposit-held-item-named :parlyz-heal 55)
+          (deposit-held-item 17 184)
+          (deposit-held-item 17 40)
+          (deposit-held-item-named :TM37 71)
+          (deposit-held-item-named :ice-heal 55)
+          (deposit-held-item-named :fire-stone 23)
+          (deposit-held-item-named :burn-heal 12))))
+