Mercurial > vba-clojure

changeset 356:b3ea7e8c10bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: got TM18; floor three complete.
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 07:13:40 -0500
parents 639db56f2670
children f8b374397426
files clojure/com/aurellem/run/bootstrap_1.clj
diffstat 1 files changed, 13 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 06:30:13 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 07:13:40 2012 -0500
     1.3 @@ -449,11 +449,20 @@
     1.4            close-menu
     1.5            end-shop-conversation)))
     1.6  
     1.7 -(defn go-to-floor-three
     1.8 -  [])
     1.9 -
    1.10 +(defn-memo go-to-floor-three
    1.11 +  ([] (go-to-floor-three (floor-two-items)))
    1.12 +  ([script]
    1.13 +     (->> script
    1.14 +          (walk [→ → → → ↑ ↑ ↑
    1.15 +                 → → → → → → → ↑]))))
    1.16  (defn get-TM18
    1.17 -  [])
    1.18 +  ([] (get-TM18 (go-to-floor-three)))
    1.19 +  ([script]
    1.20 +     (->> script
    1.21 +          (walk [↓ ↓])
    1.22 +          talk
    1.23 +          (scroll-text 3)
    1.24 +          end-text)))
    1.25  
    1.26  (defn go-to-floor-four
    1.27    [])