1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:31:09 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 12:34:29 2012 -0500
     1.3 @@ -693,5 +693,78 @@
     1.4            (deposit-held-item-named :TM37 71)
     1.5            (deposit-held-item-named :ice-heal 55)
     1.6            (deposit-held-item-named :fire-stone 23)
     1.7 -          (deposit-held-item-named :burn-heal 12))))
     1.8 +          (deposit-held-item-named :burn-heal 12)
     1.9 +          close-menu)))
    1.10  
    1.11 +(defn combine-items [idx-1 script]
    1.12 +  (->> script
    1.13 +       (wait-until select-menu-entry)
    1.14 +       (set-cursor idx-1)
    1.15 +       (wait-until select-menu-entry)
    1.16 +       (play-moves [[][:select][]])
    1.17 +       (set-cursor-relative 1)
    1.18 +       (delayed-difference [] [:select] 100
    1.19 +                           #(nth-pc-item % (list-offset %)))))
    1.20 +
    1.21 +(defn-memo hacking-8
    1.22 +  "Clear cruft away from held item list."
    1.23 +  ([] (hacking-8 (hacking-7)))
    1.24 +  ([script]
    1.25 +     (->> script
    1.26 +          to-held-items
    1.27 +          (toss-held-item 15 1)
    1.28 +          (toss-held-item 14 1)
    1.29 +          (toss-held-item 13 1)
    1.30 +          close-menu
    1.31 +          close-menu)))
    1.32 +
    1.33 +(defn-memo hacking-9
    1.34 +  ([] (hacking-9 (hacking-8)))
    1.35 +  ([script]
    1.36 +     (->> script
    1.37 +          activate-rlm-pc
    1.38 +          begin-withdraw
    1.39 +          (widthdraw-pc-item 7 0xFE)
    1.40 +          (widthdraw-pc-item 8 0xFC)
    1.41 +          (widthdraw-pc-item 8 1)
    1.42 +          (widthdraw-pc-item 8 1)
    1.43 +          (widthdraw-pc-item 9 0xFE)
    1.44 +          (multiple-times
    1.45 +           7
    1.46 +           (partial combine-items 2))
    1.47 +          close-menu)))
    1.48 +          
    1.49 +(defn-memo hacking-10
    1.50 +  ([] (hacking-10 (hacking-9)))
    1.51 +  ([script]
    1.52 +     (->> script
    1.53 +          begin-deposit
    1.54 +          (deposit-held-item 17 230)
    1.55 +          (deposit-held-item-named :parlyz-heal 55)
    1.56 +          (deposit-held-item 14 178)
    1.57 +          (deposit-held-item-named :water-stone 29)
    1.58 +          (deposit-held-item 14 32)
    1.59 +          (deposit-held-item-named :TM18 1)
    1.60 +          (deposit-held-item 13 1)
    1.61 +          (deposit-held-item 13 191)
    1.62 +          (deposit-held-item-named :TM02 98)
    1.63 +          (deposit-held-item-named :TM09 1)
    1.64 +          close-menu)))
    1.65 +
    1.66 +(defn-memo hacking-11
    1.67 +  ([] (hacking-11 (hacking-10)))
    1.68 +  ([script]
    1.69 +     (->> script
    1.70 +          to-held-items
    1.71 +          (toss-held-item 17 1)
    1.72 +          (toss-held-item 17 1)
    1.73 +          (toss-held-item 17 1)
    1.74 +          (toss-held-item 17 1)
    1.75 +          (toss-held-item 17 1)
    1.76 +          close-menu
    1.77 +          close-menu)))
    1.78 +     
    1.79 +
    1.80 +
    1.81 +          
    1.82 +          
    1.83 \ No newline at end of file