Mercurial > vba-clojure

changeset 593:daa3497bbe12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
increased speed to travel to floor two of celadon dept. store.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 12:38:26 -0500
parents db61317863a7
children ea448eecb615
files clojure/com/aurellem/run/bootstrap_0.clj clojure/com/aurellem/run/bootstrap_1.clj todo.org
diffstat 3 files changed, 14 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Sat Sep 01 11:59:05 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Sat Sep 01 12:38:26 2012 -0500
     1.3 @@ -471,7 +471,7 @@
     1.4    [script]
     1.5    (play-moves [[:restart] [] []] script))
     1.6      
     1.7 -(defn-memo do-save-corruption
     1.8 +(defn do-save-corruption
     1.9    ([] (do-save-corruption
    1.10         (walk-to-counter)))
    1.11    ([script] (do-save-corruption 4 script))
    1.12 @@ -480,7 +480,13 @@
    1.13            activate-start-menu
    1.14            (set-cursor n)
    1.15            select-menu-entry
    1.16 -          select-menu-entry
    1.17 +
    1.18 +          ;; say yes to save game
    1.19 +          ;; first-difference is faster than select-menu-entry
    1.20 +          ;; for this special case
    1.21 +          ;;select-menu-entry 
    1.22 +          (first-difference [:b] [:a] AF)
    1.23 +
    1.24            (play-moves
    1.25             ;; this section is copied from speedrun-2942 and corrupts
    1.26             ;; the save so that the total number of pokemon is set to

     2.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 11:59:05 2012 -0500
     2.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:38:26 2012 -0500
     2.3 @@ -150,7 +150,7 @@
     2.4    (map second (filter (comp (partial = 0) first)
     2.5                        (partition 2 (pc-item-writer-program)))))
     2.6  
     2.7 -(defn-memo bootstrap-corrupt-save
     2.8 +(defn bootstrap-corrupt-save
     2.9    ([] (bootstrap-corrupt-save (to-room-pc)))
    2.10    ([script]
    2.11     (->> script
    2.12 @@ -275,8 +275,10 @@
    2.13    ([] (go-to-floor-two (to-celadon)))
    2.14    ([script]
    2.15       (->> script
    2.16 -          (walk [↑ → → → → → → → → → → →
    2.17 -                 ↑ ↑ ↑ ↑ ↑ ↑
    2.18 +          (walk [→ → ↑
    2.19 +                 ↑ ↑ ↑ ↑
    2.20 +                 ← ← ← ←
    2.21 +                 ↑ ↑ 
    2.22                   ← ← ← ← 
    2.23                   ↓ ↓ ↓
    2.24                   ← ←])

     3.1 --- a/todo.org	Sat Sep 01 11:59:05 2012 -0500
     3.2 +++ b/todo.org	Sat Sep 01 12:38:26 2012 -0500
     3.3 @@ -7,6 +7,7 @@
     3.4    - [X] fix A/V sync issues
     3.5  
     3.6  * fix unnecessary pauses before take-over [0/6]
     3.7 +  - [ ] faster save-game confirmation
     3.8    - [ ] log out of PC faster
     3.9    - [ ] sell two of the 0x00 items at once.
    3.10    - [ ] walk out of elevator efficiently