vba-clojure: clojure/com/aurellem/run/bootstrap

got guard spec & x-accuracy; floor five complete.

comparison

equal deleted inserted replaced

-:f8b374397426
+:016c2bcca08f
 (buy-item 2 98)  ;; Thunder Stone
 (buy-item 3 29)  ;; Water Stone
 close-menu
 end-shop-conversation)))
-(defn go-to-floor-five
+(defn-memo go-to-floor-five
-[])
+([] (go-to-floor-five (floor-four-items)))
+([script]
-(defn floor-five-items
+(->> 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
 [])
 (defn roof-drinks

Mercurial > vba-clojure