# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333973620 18000
# Node ID b3ea7e8c10bfc9619244301bf21d0eb1e67ef4f1
# Parent  639db56f26703af699abbf57685ad0eb92f3d216
script: got TM18; floor three complete.

diff -r 639db56f2670 -r b3ea7e8c10bf clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 06:30:13 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:13:40 2012 -0500
@@ -449,11 +449,20 @@
           close-menu
           end-shop-conversation)))
 
-(defn go-to-floor-three
-  [])
-
+(defn-memo go-to-floor-three
+  ([] (go-to-floor-three (floor-two-items)))
+  ([script]
+     (->> script
+          (walk [→ → → → ↑ ↑ ↑
+                 → → → → → → → ↑]))))
 (defn get-TM18
-  [])
+  ([] (get-TM18 (go-to-floor-three)))
+  ([script]
+     (->> script
+          (walk [↓ ↓])
+          talk
+          (scroll-text 3)
+          end-text)))
 
 (defn go-to-floor-four
   [])