diff clojure/com/aurellem/run/bootstrap_1.clj @ 355:639db56f2670

script: bought status healing items; floor two complete.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 06:30:13 -0500
parents 4141489d1406
children b3ea7e8c10bf
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 06:09:49 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 06:30:13 2012 -0500
     1.3 @@ -433,9 +433,21 @@
     1.4    (->> script
     1.5         (first-difference [] direction AF)))
     1.6  
     1.7 -(defn floor-two-items
     1.8 -  [])
     1.9 -  
    1.10 +(defn-memo floor-two-items
    1.11 +  ([] (floor-two-items (floor-two-more-money)))
    1.12 +  ([script]
    1.13 +     (->> script
    1.14 +          (walk [←])
    1.15 +          (turn ↑)
    1.16 +          talk
    1.17 +          select-menu-entry
    1.18 +          (buy-item 5 12)  ;; burn heal
    1.19 +          (buy-item 6 55)  ;; ice heal
    1.20 +          (buy-item 7 4)   ;; awakening
    1.21 +          (buy-item 8 99)  ;; parlyz heal
    1.22 +          (buy-item 8 55)  ;; parlyz heal
    1.23 +          close-menu
    1.24 +          end-shop-conversation)))
    1.25  
    1.26  (defn go-to-floor-three
    1.27    [])