# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346521966 18000
# Node ID ea448eecb6159780005acc466779711d938ea451
# Parent  daa3497bbe125b233bc978c51df263f17506c355
improved route from celadon dept. store to celadon pokemon center.

diff -r daa3497bbe12 -r ea448eecb615 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:38:26 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:52:46 2012 -0500
@@ -299,8 +299,13 @@
           talk
           (set-cursor 1)
           (select-menu-entry)
+
+          ;; These glitch items have to be sold one at a time
+          ;; because the game will only award up to 500000 at
+          ;; a time for selling them.
           (sell-held-item 0 1)
           (sell-held-item 0 1)
+
           (close-menu))))
 
 (defn-memo floor-two-TMs
@@ -446,6 +451,7 @@
   ([] (get-TM13 (roof-drinks)))
   ([script]
      (->> script
+          ;; alternate route depending on girl's motions
           ;;(walk [← ← ← ← ← ← ↓])
           (walk [↓ ↓ ↓ ← ← ← ← ← ←])
           (play-moves [[][][][][:a][:a][]])
@@ -459,6 +465,7 @@
   ([] (to-celadon-poke-center (get-TM13)))
   ([script]
      (->> script
+          ;; alternate route depending on girl's motions
           ;;(walk [↑ → → → → → → → → → ↑])       ; leave roof
           (walk [→ → → → → → → → → ↑ ↑ ↑ ↑])
           (walk [↓ ← ← ← ← ↓ ↓ ↓ ← ← ← ← ← 
@@ -467,9 +474,9 @@
           (walk [→ → ↑ ↑])                     ; to controls
           talk
           select-menu-entry                    ; to floor 1
-          (walk [↓ ↓ ← ←])
+          (walk [↓ ↓ ←])
           (walk [↓ → ↓ ↓ ↓ ↓ ↓ ↓])             ; leave store
-          (walk [↓ → → → → → → → → → → ↑ ↑])
+          (walk [→ → → → → → → → → → ↑])
           (walk (repeat 23 →))
           (walk [↑ ↑ ↑ ↑])                     ; enter poke center
           (walk [↑ ↑ ↑ → → → → → → → → → →])   ; to computer