diff clojure/com/aurellem/run/bootstrap_1.clj @ 365:dc39dfcad61f

almost halfway there!
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 11:31:09 -0500
parents 958a333f16e2
children 985e91060567
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:03:33 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 11:31:09 2012 -0500
     1.3 @@ -677,11 +677,21 @@
     1.4            begin-withdraw
     1.5            (widthdraw-pc-item 4 0xFE)
     1.6            (widthdraw-pc-item 5 0xFE)
     1.7 -          (widthdraw-pc-item 6 0xFE))))
     1.8 +          (widthdraw-pc-item 6 0xFE)
     1.9 +          close-menu)))
    1.10  
    1.11 -;; (defn-memo hacking-7
    1.12 -;;   ([] (hacking-7 (hacking-6)))
    1.13 -;;   ([script]
    1.14 -;;      (->> script
    1.15 -          
    1.16 -    
    1.17 +(defn-memo hacking-7
    1.18 +  ([] (hacking-7 (hacking-6)))
    1.19 +  ([script]
    1.20 +     (->> script
    1.21 +          begin-deposit
    1.22 +          (deposit-held-item 19 240)
    1.23 +          (deposit-held-item 18 230)
    1.24 +          (deposit-held-item-named :parlyz-heal 55)
    1.25 +          (deposit-held-item 17 184)
    1.26 +          (deposit-held-item 17 40)
    1.27 +          (deposit-held-item-named :TM37 71)
    1.28 +          (deposit-held-item-named :ice-heal 55)
    1.29 +          (deposit-held-item-named :fire-stone 23)
    1.30 +          (deposit-held-item-named :burn-heal 12))))
    1.31 +