Mercurial > vba-clojure

diff clojure/com/aurellem/run/bootstrap_0.clj @ 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 abcc522a3242
children
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