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

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 359:8c474d1d6956

script: got leomnades and TM13, shopping is complete.

author	Robert McIntyre <rlm@mit.edu>
date	Mon, 09 Apr 2012 08:27:45 -0500
parents	016c2bcca08f
children	51aa6486c2ab

comparison

equal deleted inserted replaced

-:016c2bcca08f
+:8c474d1d6956
 (->> script
 (walk [→ → → → → →
 ↑ ↑ ↑
 → → → → → ↑ ;; leave floor four
 ↓ ← ← ← ← ← ← ← ←
-↓ ↓ ↓ ← ← ← ;; go to five's clerk
+↓ ↓ ↓ ← ← ← ]);; go to five's clerk
-])
 (turn ↑))))
 (defn-memo floor-five-items
 ([] (floor-five-items (go-to-floor-five)))
 ([script]
 (buy-item 1 99)   ;; Guard Spec.
 (buy-item 1 24)   ;; Guard Spec.
 close-menu
 end-shop-conversation)))
-(defn go-to-roof
+(defn-memo go-to-roof
-[])
+([] (go-to-roof (floor-five-items)))
+([script]
-(defn roof-drinks
+(->> script
-[])
+(walk [→ → → → ↑ ↑ ↑ → → → ↑ ;; leave floor five
+↓ ← ← ←]) ;; walk to vending machine
+(turn ↑))))
+(defn dp
+[str script]
+(println str) script)
+(defn buy-drink
+"Assumes you're in front of the vending machine. Buys the indicated
+drink."
+[n script]
+(->> script
+(dp "talk")
+talk
+(dp "scroll-text")
+(scroll-text)
+(wait-for-cursor)
+(set-cursor n)
+select-menu-entry
+close-menu))
+(defn-memo roof-drinks
+([] (roof-drinks (go-to-roof)))
+([script]
+(->> script
+(buy-drink 0)           ;; fresh water (for TM13)
+;; buy 16 lemonades
+;; LEMONADE is the best item <3  :)
+(multiple-times 5 (partial buy-drink 2))
+(do-nothing 1) ;; unknown hiccup here :(
+(multiple-times 11 (partial buy-drink 2)))))
 (defn get-TM13
-[])
+([] (get-TM13 (roof-drinks)))
+([script]
+(->> script
+(walk [↓ ↓ ↓
+← ← ← ← ← ←
+])
+(do-nothing 1) ;; wtf is wrong with talk?
+talk
+(scroll-text 2)
+select-menu-entry
+select-menu-entry
+(scroll-text 6)
+close-menu)))

Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 359:8c474d1d6956