Mercurial > vba-clojure
annotate clojure/com/aurellem/run/bootstrap_0.clj @ 255:d9e0752da684
unicode walking :)
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Mon, 26 Mar 2012 06:00:30 -0500 |
| parents | b7f682bb3090 |
| children | 8d1a354f7471 |
| rev | line source |
|---|---|
| rlm@247 | 1 (ns com.aurellem.run.bootstrap-0 |
| rlm@247 | 2 (:use (com.aurellem.gb gb-driver vbm)) |
| rlm@250 | 3 (:use (com.aurellem.run title save-corruption)) |
| rlm@250 | 4 (:use (com.aurellem.exp item-bridge))) |
| rlm@247 | 5 |
| rlm@247 | 6 |
| rlm@250 | 7 (defn-memo boot-root [] |
| rlm@255 | 8 [ [] (root)]) |
| rlm@247 | 9 |
| rlm@255 | 10 (defn-memo to-rival-name |
| rlm@255 | 11 ([] (to-rival-name (boot-root))) |
| rlm@255 | 12 ([script] |
| rlm@255 | 13 (-> script |
| rlm@255 | 14 title |
| rlm@255 | 15 oak |
| rlm@255 | 16 name-entry-rlm |
| rlm@255 | 17 scroll-text |
| rlm@255 | 18 scroll-text |
| rlm@255 | 19 scroll-text |
| rlm@255 | 20 scroll-text |
| rlm@255 | 21 scroll-text |
| rlm@255 | 22 ))) |
| rlm@247 | 23 |
| rlm@255 | 24 (defn-memo name-rival-bootstrap |
| rlm@255 | 25 ([] (name-rival-bootstrap (to-rival-name))) |
| rlm@255 | 26 ([script] |
| rlm@255 | 27 (->> script |
| rlm@255 | 28 (advance [] [:a]) |
| rlm@255 | 29 (advance [] [:r] DE) |
| rlm@255 | 30 (play-moves |
| rlm@255 | 31 [[] |
| rlm@255 | 32 [:r] [] [:r] [] [:r] [] [:r] [] |
| rlm@255 | 33 [:r] [] [:r] [] [:r] [] [:d] [] |
| rlm@255 | 34 [:d] [:a] ;; space |
| rlm@255 | 35 [:l] [] [:d] [:a] ;; [PK] |
| rlm@255 | 36 [:u] [] [:u] [] [:u] [] [:l] [:a] ;; G |
| rlm@255 | 37 [:d] [] [:d] [] [:d] [] [:r] [:a] ;; [PK] |
| rlm@255 | 38 [:u] [] [:u] [] [:u] [] [:l] [:a] ;; G |
| rlm@255 | 39 [:d] [] [:d] [] [:d] [] [:r] [:a] ;; [PK] |
| rlm@247 | 40 |
| rlm@255 | 41 [:d] [] [:r] [:a] ;; finish |
| rlm@255 | 42 ])))) |
| rlm@255 | 43 |
| rlm@255 | 44 (defn walk |
| rlm@255 | 45 "Move the character along the given directions." |
| rlm@255 | 46 [directions script] |
| rlm@255 | 47 (reduce (fn [script direction] |
| rlm@255 | 48 (move direction script)) |
| rlm@255 | 49 script directions)) |
| rlm@255 | 50 |
| rlm@255 | 51 (def ↑ [:u]) |
| rlm@255 | 52 (def ↓ [:d]) |
| rlm@255 | 53 (def ← [:l]) |
| rlm@255 | 54 (def → [:r]) |
| rlm@255 | 55 |
| rlm@255 | 56 (defn-memo leave-house |
| rlm@255 | 57 ([] (leave-house (name-rival-bootstrap))) |
| rlm@255 | 58 ([script] |
| rlm@255 | 59 (->> script |
| rlm@255 | 60 finish-title |
| rlm@255 | 61 start-walking |
| rlm@255 | 62 walk-to-stairs |
| rlm@255 | 63 walk-to-door |
| rlm@255 | 64 (walk [↓ ↓])))) |
| rlm@255 | 65 |
| rlm@255 | 66 (defn-memo to-pallet-town-edge |
| rlm@255 | 67 ([] (to-pallet-town-edge (leave-house))) |
| rlm@255 | 68 ([script] |
| rlm@255 | 69 (->> script |
| rlm@255 | 70 start-walking |
| rlm@255 | 71 (walk [→ → → → → |
| rlm@255 | 72 ↑ ↑ ↑ ↑ ↑ ↑])))) |
| rlm@255 | 73 |
| rlm@255 | 74 |