Mercurial > vba-clojure

changeset 266:c85549460218

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: got oak's parcel
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 23:04:12 -0500
parents 7de2c855392c
children 498af3c3cf15
files clojure/com/aurellem/run/bootstrap_0.clj
diffstat 1 files changed, 15 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 22:46:11 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 23:04:12 2012 -0500
     1.3 @@ -275,7 +275,6 @@
     1.4             [↑ ↑ ↑ ↑ ↑])
     1.5            
     1.6            (walk [↑ ↑ ↑ ↑])
     1.7 -
     1.8            
     1.9            (walk-thru-grass
    1.10             [← ← ↑])
    1.11 @@ -289,6 +288,8 @@
    1.12              ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
    1.13              → → → → ])
    1.14  
    1.15 +          ;; this part it dependent on that
    1.16 +          ;; stupid NPC in the grass patch
    1.17            (walk-thru-grass
    1.18             [→ →
    1.19              ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ])
    1.20 @@ -300,5 +301,17 @@
    1.21              ← ←
    1.22              ↑ ↑ ↑ ↑
    1.23              → → → → → → → → → →
    1.24 -            ↑ ↑ ↑ ↑ ↑ ↑])))) 
    1.25 +            ↑ ↑ ↑ ↑ ↑ ↑ ↑])))) 
    1.26              
    1.27 +(defn-memo get-oaks-parcel
    1.28 +  ([] (get-oaks-parcel
    1.29 +       (pallet-edge->viridian-mart)))
    1.30 +  ([script]
    1.31 +     (->> script
    1.32 +          (end-text)
    1.33 +          (scroll-text 3)
    1.34 +          (do-nothing 197)
    1.35 +          (play-moves [[:a] []])
    1.36 +          (walk [↓ ↓ → ↓]))))
    1.37 +
    1.38 +