# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333974041 18000
# Node ID f8b3743974268436c707aa24de0059da225af018
# Parent  b3ea7e8c10bfc9619244301bf21d0eb1e67ef4f1
got elemental stones; floor four complete.

diff -r b3ea7e8c10bf -r f8b374397426 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:13:40 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:20:41 2012 -0500
@@ -455,7 +455,7 @@
      (->> script
           (walk [→ → → → ↑ ↑ ↑
                  → → → → → → → ↑]))))
-(defn get-TM18
+(defn-memo get-TM18
   ([] (get-TM18 (go-to-floor-three)))
   ([script]
      (->> script
@@ -464,11 +464,26 @@
           (scroll-text 3)
           end-text)))
 
-(defn go-to-floor-four
-  [])
+(defn-memo go-to-floor-four
+  ([] (go-to-floor-four (get-TM18)))
+  ([script]
+     (->> script
+          (walk [← ← ← ← ↑ ↑
+                 ↓ ← ← ↓ ↓ ↓
+                 ← ← ← ← ←])
+          (turn ↓))))
 
-(defn floor-four-items
-  [])
+(defn-memo floor-four-items
+  ([] (floor-four-items (go-to-floor-four)))
+  ([script]
+     (->> script
+          talk
+          select-menu-entry
+          (buy-item 1 23)  ;; Fire Stone
+          (buy-item 2 98)  ;; Thunder Stone
+          (buy-item 3 29)  ;; Water Stone
+          close-menu
+          end-shop-conversation)))
 
 (defn go-to-floor-five
   [])