Mercurial > vba-clojure
changeset 594:ea448eecb615
improved route from celadon dept. store to celadon pokemon center.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 01 Sep 2012 12:52:46 -0500 |
| parents | daa3497bbe12 |
| children | 96ee9d72aeb9 |
| files | clojure/com/aurellem/run/bootstrap_1.clj |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
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