Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 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 0297d315b574
children d68a191997ca
comparison
equal deleted inserted replaced
265:7de2c855392c 266:c85549460218
273 ;; leave straight grass 273 ;; leave straight grass
274 (walk-thru-grass 274 (walk-thru-grass
275 [↑ ↑ ↑ ↑ ↑]) 275 [↑ ↑ ↑ ↑ ↑])
276 276
277 (walk [↑ ↑ ↑ ↑]) 277 (walk [↑ ↑ ↑ ↑])
278
279 278
280 (walk-thru-grass 279 (walk-thru-grass
281 [← ← ↑]) 280 [← ← ↑])
282 (walk [↑ ↑ ↑ ↑ → → → ]) 281 (walk [↑ ↑ ↑ ↑ → → → ])
283 282
287 (walk 286 (walk
288 [← ← 287 [← ←
289 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ 288 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
290 → → → → ]) 289 → → → → ])
291 290
291 ;; this part it dependent on that
292 ;; stupid NPC in the grass patch
292 (walk-thru-grass 293 (walk-thru-grass
293 [→ → 294 [→ →
294 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ]) 295 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ])
295 296
296 (walk 297 (walk
298 ← ← ← ← 299 ← ← ← ←
299 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ 300 ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑
300 ← ← 301 ← ←
301 ↑ ↑ ↑ ↑ 302 ↑ ↑ ↑ ↑
302 → → → → → → → → → → 303 → → → → → → → → → →
303 ↑ ↑ ↑ ↑ ↑ ↑])))) 304 ↑ ↑ ↑ ↑ ↑ ↑ ↑]))))
304 305
306 (defn-memo get-oaks-parcel
307 ([] (get-oaks-parcel
308 (pallet-edge->viridian-mart)))
309 ([script]
310 (->> script
311 (end-text)
312 (scroll-text 3)
313 (do-nothing 197)
314 (play-moves [[:a] []])
315 (walk [↓ ↓ → ↓]))))
316
317