# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333992869 18000
# Node ID 985e910605674352e3b4c232cd32fd02b13dd83d
# Parent  dc39dfcad61f9cd9e19fa8dc8d37df43f85a6f7e
saving progress...

diff -r dc39dfcad61f -r 985e91060567 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:31:09 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 12:34:29 2012 -0500
@@ -693,5 +693,78 @@
           (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))))
+          (deposit-held-item-named :burn-heal 12)
+          close-menu)))
 
+(defn combine-items [idx-1 script]
+  (->> script
+       (wait-until select-menu-entry)
+       (set-cursor idx-1)
+       (wait-until select-menu-entry)
+       (play-moves [[][:select][]])
+       (set-cursor-relative 1)
+       (delayed-difference [] [:select] 100
+                           #(nth-pc-item % (list-offset %)))))
+
+(defn-memo hacking-8
+  "Clear cruft away from held item list."
+  ([] (hacking-8 (hacking-7)))
+  ([script]
+     (->> script
+          to-held-items
+          (toss-held-item 15 1)
+          (toss-held-item 14 1)
+          (toss-held-item 13 1)
+          close-menu
+          close-menu)))
+
+(defn-memo hacking-9
+  ([] (hacking-9 (hacking-8)))
+  ([script]
+     (->> script
+          activate-rlm-pc
+          begin-withdraw
+          (widthdraw-pc-item 7 0xFE)
+          (widthdraw-pc-item 8 0xFC)
+          (widthdraw-pc-item 8 1)
+          (widthdraw-pc-item 8 1)
+          (widthdraw-pc-item 9 0xFE)
+          (multiple-times
+           7
+           (partial combine-items 2))
+          close-menu)))
+          
+(defn-memo hacking-10
+  ([] (hacking-10 (hacking-9)))
+  ([script]
+     (->> script
+          begin-deposit
+          (deposit-held-item 17 230)
+          (deposit-held-item-named :parlyz-heal 55)
+          (deposit-held-item 14 178)
+          (deposit-held-item-named :water-stone 29)
+          (deposit-held-item 14 32)
+          (deposit-held-item-named :TM18 1)
+          (deposit-held-item 13 1)
+          (deposit-held-item 13 191)
+          (deposit-held-item-named :TM02 98)
+          (deposit-held-item-named :TM09 1)
+          close-menu)))
+
+(defn-memo hacking-11
+  ([] (hacking-11 (hacking-10)))
+  ([script]
+     (->> script
+          to-held-items
+          (toss-held-item 17 1)
+          (toss-held-item 17 1)
+          (toss-held-item 17 1)
+          (toss-held-item 17 1)
+          (toss-held-item 17 1)
+          close-menu
+          close-menu)))
+     
+
+
+          
+          
\ No newline at end of file