# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333979507 18000
# Node ID 51aa6486c2ab7692a6f20943710460685ec17157
# Parent  8c474d1d695672141aba3aaf85cca451c5c076a0
repairing route

diff -r 8c474d1d6956 -r 51aa6486c2ab clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 08:27:45 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Mon Apr 09 08:51:47 2012 -0500
@@ -108,7 +108,7 @@
        0x01  ;; (item-hack) will never reach this instruction
 
        ]
-      (repeat 8 [0xFF 0x01])
+      (repeat 8 [0x00 0x01])
 
       [;; jump to actual program
        0x00
@@ -280,7 +280,7 @@
              (reduce 
               (fn [script item] (deposit-held-item item 0xFF script))
               script
-              (range 3 (+ 12 3)))))
+              (range 3 (+ 13 3)))))
           close-all-menus)))
 
 
@@ -310,7 +310,7 @@
           (widthdraw-pc-item 0 1)
           ;;(widthdraw-pc-item 0 99)
           ;;(widthdraw-pc-item 1 1)
-          (widthdraw-pc-item 2 5)
+          (widthdraw-pc-item 13 255)
           (close-all-menus))))
 
 (defn-memo to-celadon
@@ -379,12 +379,12 @@
           (first-difference [] ↑ AF))))
 
 (defn talk
-  "Assumes that you are facing a person and engages in conversation"
-  [[moves state :as script]]
-  (delayed-difference [] [:a] 100
-                      #(aget (memory %) text-address)
-                      script))
-  
+  "Assumes that you are facing something that initiates text and
+   causes it to do so."
+  [script]
+  (->> script
+       (delayed-difference [] [:a] 100
+                           #(aget (memory %) text-address))))
 
 (defn-memo get-money-floor-two
   ([] (get-money-floor-two (go-to-floor-two)))
@@ -562,4 +562,3 @@
           (scroll-text 6)
           close-menu)))
           
-