diff clojure/com/aurellem/run/bootstrap_1.clj @ 364:958a333f16e2

more progress.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 11:03:33 -0500
parents 79252378fd22
children dc39dfcad61f
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 10:35:22 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:03:33 2012 -0500
     1.3 @@ -618,16 +618,21 @@
     1.4    (->> script
     1.5         select-menu-entry))
     1.6  
     1.7 +(defn to-held-items
     1.8 +  [script]
     1.9 +  (->> script
    1.10 +       close-menu
    1.11 +       close-menu
    1.12 +       end-text;;; grr
    1.13 +       
    1.14 +       activate-start-menu
    1.15 +       open-held-items))
    1.16 +
    1.17  (defn-memo hacking-2
    1.18    ([] (hacking-2 (begin-hacking)))
    1.19    ([script]
    1.20       (->> script
    1.21 -          close-menu
    1.22 -          close-menu
    1.23 -          end-text;;; grr
    1.24 -
    1.25 -          activate-start-menu
    1.26 -          open-held-items
    1.27 +          (to-held-items)
    1.28            (toss-held-item 0 166) ;; discard cruft
    1.29            close-menu
    1.30            close-menu)))
    1.31 @@ -643,5 +648,40 @@
    1.32            (widthdraw-pc-item 2 0xFE)
    1.33            (widthdraw-pc-item 3 0xFE))))
    1.34            
    1.35 +(defn-memo hacking-4
    1.36 +  ([] (hacking-4 (hacking-3)))
    1.37 +  ([script]
    1.38 +     (->> script
    1.39 +          close-menu
    1.40 +          begin-deposit
    1.41 +          (deposit-held-item 19 243)
    1.42 +          (deposit-held-item-named :lemonade 16)
    1.43 +          (deposit-held-item 18 224))))
    1.44 +          
    1.45 +(defn-memo hacking-5
    1.46 +  "clean out the held-item list again"
    1.47 +  ([] (hacking-5 (hacking-4)))
    1.48 +  ([script]
    1.49 +     (->> script
    1.50 +          (to-held-items)
    1.51 +          (toss-held-item 18 30)
    1.52 +          (toss-held-item 17 1)
    1.53 +          close-menu
    1.54 +          close-menu)))
    1.55  
    1.56 -         
    1.57 \ No newline at end of file
    1.58 +(defn-memo hacking-6
    1.59 +  ([] (hacking-6 (hacking-5)))
    1.60 +  ([script]
    1.61 +     (->> script
    1.62 +          activate-rlm-pc
    1.63 +          begin-withdraw
    1.64 +          (widthdraw-pc-item 4 0xFE)
    1.65 +          (widthdraw-pc-item 5 0xFE)
    1.66 +          (widthdraw-pc-item 6 0xFE))))
    1.67 +
    1.68 +;; (defn-memo hacking-7
    1.69 +;;   ([] (hacking-7 (hacking-6)))
    1.70 +;;   ([script]
    1.71 +;;      (->> script
    1.72 +          
    1.73 +