Mercurial > vba-clojure

changeset 360:51aa6486c2ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
repairing route
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 08:51:47 -0500
parents 8c474d1d6956
children 64d09d021025
files clojure/com/aurellem/run/bootstrap_1.clj
diffstat 1 files changed, 9 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 08:27:45 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 08:51:47 2012 -0500
     1.3 @@ -108,7 +108,7 @@
     1.4         0x01  ;; (item-hack) will never reach this instruction
     1.5  
     1.6         ]
     1.7 -      (repeat 8 [0xFF 0x01])
     1.8 +      (repeat 8 [0x00 0x01])
     1.9  
    1.10        [;; jump to actual program
    1.11         0x00
    1.12 @@ -280,7 +280,7 @@
    1.13               (reduce 
    1.14                (fn [script item] (deposit-held-item item 0xFF script))
    1.15                script
    1.16 -              (range 3 (+ 12 3)))))
    1.17 +              (range 3 (+ 13 3)))))
    1.18            close-all-menus)))
    1.19  
    1.20  
    1.21 @@ -310,7 +310,7 @@
    1.22            (widthdraw-pc-item 0 1)
    1.23            ;;(widthdraw-pc-item 0 99)
    1.24            ;;(widthdraw-pc-item 1 1)
    1.25 -          (widthdraw-pc-item 2 5)
    1.26 +          (widthdraw-pc-item 13 255)
    1.27            (close-all-menus))))
    1.28  
    1.29  (defn-memo to-celadon
    1.30 @@ -379,12 +379,12 @@
    1.31            (first-difference [] ↑ AF))))
    1.32  
    1.33  (defn talk
    1.34 -  "Assumes that you are facing a person and engages in conversation"
    1.35 -  [[moves state :as script]]
    1.36 -  (delayed-difference [] [:a] 100
    1.37 -                      #(aget (memory %) text-address)
    1.38 -                      script))
    1.39 -  
    1.40 +  "Assumes that you are facing something that initiates text and
    1.41 +   causes it to do so."
    1.42 +  [script]
    1.43 +  (->> script
    1.44 +       (delayed-difference [] [:a] 100
    1.45 +                           #(aget (memory %) text-address))))
    1.46  
    1.47  (defn-memo get-money-floor-two
    1.48    ([] (get-money-floor-two (go-to-floor-two)))
    1.49 @@ -562,4 +562,3 @@
    1.50            (scroll-text 6)
    1.51            close-menu)))
    1.52            
    1.53 -