# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333974644 18000
# Node ID 016c2bcca08f19ca9f001fe103b47717f3fe2def
# Parent  f8b3743974268436c707aa24de0059da225af018
got guard spec & x-accuracy; floor five complete.

diff -r f8b374397426 -r 016c2bcca08f clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:20:41 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:30:44 2012 -0500
@@ -485,11 +485,29 @@
           close-menu
           end-shop-conversation)))
 
-(defn go-to-floor-five
-  [])
-
-(defn floor-five-items
-  [])
+(defn-memo go-to-floor-five
+  ([] (go-to-floor-five (floor-four-items)))
+  ([script]
+     (->> script
+          (walk [→ → → → → →
+                 ↑ ↑ ↑
+                 → → → → → ↑ ;; leave floor four
+                 ↓ ← ← ← ← ← ← ← ←
+                 ↓ ↓ ↓ ← ← ← ;; go to five's clerk
+                 ])
+          (turn ↑))))
+                
+(defn-memo floor-five-items
+  ([] (floor-five-items (go-to-floor-five)))
+  ([script]
+     (->> script
+          talk
+          select-menu-entry
+          (buy-item 0 58)   ;; X-Accuracy
+          (buy-item 1 99)   ;; Guard Spec.
+          (buy-item 1 24)   ;; Guard Spec.
+          close-menu
+          end-shop-conversation)))
 
 (defn go-to-roof
   [])