diff clojure/com/aurellem/run/bootstrap_1.clj @ 357:f8b374397426

got elemental stones; floor four complete.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 07:20:41 -0500
parents b3ea7e8c10bf
children 016c2bcca08f
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:13:40 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:20:41 2012 -0500
     1.3 @@ -455,7 +455,7 @@
     1.4       (->> script
     1.5            (walk [→ → → → ↑ ↑ ↑
     1.6                   → → → → → → → ↑]))))
     1.7 -(defn get-TM18
     1.8 +(defn-memo get-TM18
     1.9    ([] (get-TM18 (go-to-floor-three)))
    1.10    ([script]
    1.11       (->> script
    1.12 @@ -464,11 +464,26 @@
    1.13            (scroll-text 3)
    1.14            end-text)))
    1.15  
    1.16 -(defn go-to-floor-four
    1.17 -  [])
    1.18 +(defn-memo go-to-floor-four
    1.19 +  ([] (go-to-floor-four (get-TM18)))
    1.20 +  ([script]
    1.21 +     (->> script
    1.22 +          (walk [← ← ← ← ↑ ↑
    1.23 +                 ↓ ← ← ↓ ↓ ↓
    1.24 +                 ← ← ← ← ←])
    1.25 +          (turn ↓))))
    1.26  
    1.27 -(defn floor-four-items
    1.28 -  [])
    1.29 +(defn-memo floor-four-items
    1.30 +  ([] (floor-four-items (go-to-floor-four)))
    1.31 +  ([script]
    1.32 +     (->> script
    1.33 +          talk
    1.34 +          select-menu-entry
    1.35 +          (buy-item 1 23)  ;; Fire Stone
    1.36 +          (buy-item 2 98)  ;; Thunder Stone
    1.37 +          (buy-item 3 29)  ;; Water Stone
    1.38 +          close-menu
    1.39 +          end-shop-conversation)))
    1.40  
    1.41  (defn go-to-floor-five
    1.42    [])