1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:20:41 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:30:44 2012 -0500
     1.3 @@ -485,11 +485,29 @@
     1.4            close-menu
     1.5            end-shop-conversation)))
     1.6  
     1.7 -(defn go-to-floor-five
     1.8 -  [])
     1.9 -
    1.10 -(defn floor-five-items
    1.11 -  [])
    1.12 +(defn-memo go-to-floor-five
    1.13 +  ([] (go-to-floor-five (floor-four-items)))
    1.14 +  ([script]
    1.15 +     (->> script
    1.16 +          (walk [→ → → → → →
    1.17 +                 ↑ ↑ ↑
    1.18 +                 → → → → → ↑ ;; leave floor four
    1.19 +                 ↓ ← ← ← ← ← ← ← ←
    1.20 +                 ↓ ↓ ↓ ← ← ← ;; go to five's clerk
    1.21 +                 ])
    1.22 +          (turn ↑))))
    1.23 +                
    1.24 +(defn-memo floor-five-items
    1.25 +  ([] (floor-five-items (go-to-floor-five)))
    1.26 +  ([script]
    1.27 +     (->> script
    1.28 +          talk
    1.29 +          select-menu-entry
    1.30 +          (buy-item 0 58)   ;; X-Accuracy
    1.31 +          (buy-item 1 99)   ;; Guard Spec.
    1.32 +          (buy-item 1 24)   ;; Guard Spec.
    1.33 +          close-menu
    1.34 +          end-shop-conversation)))
    1.35  
    1.36  (defn go-to-roof
    1.37    [])