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

got elemental stones; floor four complete.

comparison

equal deleted inserted replaced

-:b3ea7e8c10bf
+:f8b374397426
 ([] (go-to-floor-three (floor-two-items)))
 ([script]
 (->> script
 (walk [→ → → → ↑ ↑ ↑
 → → → → → → → ↑]))))
-(defn get-TM18
+(defn-memo get-TM18
 ([] (get-TM18 (go-to-floor-three)))
 ([script]
 (->> script
 (walk [↓ ↓])
 talk
 (scroll-text 3)
 end-text)))
-(defn go-to-floor-four
+(defn-memo go-to-floor-four
-[])
+([] (go-to-floor-four (get-TM18)))
+([script]
-(defn floor-four-items
+(->> script
-[])
+(walk [← ← ← ← ↑ ↑
+↓ ← ← ↓ ↓ ↓
+← ← ← ← ←])
+(turn ↓))))
+(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
 [])
 (defn floor-five-items

Mercurial > vba-clojure