1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:38:26 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:52:46 2012 -0500
     1.3 @@ -299,8 +299,13 @@
     1.4            talk
     1.5            (set-cursor 1)
     1.6            (select-menu-entry)
     1.7 +
     1.8 +          ;; These glitch items have to be sold one at a time
     1.9 +          ;; because the game will only award up to 500000 at
    1.10 +          ;; a time for selling them.
    1.11            (sell-held-item 0 1)
    1.12            (sell-held-item 0 1)
    1.13 +
    1.14            (close-menu))))
    1.15  
    1.16  (defn-memo floor-two-TMs
    1.17 @@ -446,6 +451,7 @@
    1.18    ([] (get-TM13 (roof-drinks)))
    1.19    ([script]
    1.20       (->> script
    1.21 +          ;; alternate route depending on girl's motions
    1.22            ;;(walk [← ← ← ← ← ← ↓])
    1.23            (walk [↓ ↓ ↓ ← ← ← ← ← ←])
    1.24            (play-moves [[][][][][:a][:a][]])
    1.25 @@ -459,6 +465,7 @@
    1.26    ([] (to-celadon-poke-center (get-TM13)))
    1.27    ([script]
    1.28       (->> script
    1.29 +          ;; alternate route depending on girl's motions
    1.30            ;;(walk [↑ → → → → → → → → → ↑])       ; leave roof
    1.31            (walk [→ → → → → → → → → ↑ ↑ ↑ ↑])
    1.32            (walk [↓ ← ← ← ← ↓ ↓ ↓ ← ← ← ← ← 
    1.33 @@ -467,9 +474,9 @@
    1.34            (walk [→ → ↑ ↑])                     ; to controls
    1.35            talk
    1.36            select-menu-entry                    ; to floor 1
    1.37 -          (walk [↓ ↓ ← ←])
    1.38 +          (walk [↓ ↓ ←])
    1.39            (walk [↓ → ↓ ↓ ↓ ↓ ↓ ↓])             ; leave store
    1.40 -          (walk [↓ → → → → → → → → → → ↑ ↑])
    1.41 +          (walk [→ → → → → → → → → → ↑])
    1.42            (walk (repeat 23 →))
    1.43            (walk [↑ ↑ ↑ ↑])                     ; enter poke center
    1.44            (walk [↑ ↑ ↑ → → → → → → → → → →])   ; to computer