Mercurial > vba-clojure
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 [])