1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Tue Mar 27 13:33:44 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Tue Mar 27 21:08:44 2012 -0500
     1.3 @@ -555,71 +555,34 @@
     1.4            (play-moves [[:b] []]))))
     1.5  
     1.6  
     1.7 -(defn do-save-corruption
     1.8 +(defn-memo do-save-corruption
     1.9    ([] (do-save-corruption
    1.10         (buy-initial-items)))
    1.11    ([script]
    1.12       (->> script
    1.13 -          (do-nothing 100)
    1.14 +          (advance [:b] [:b :start])
    1.15 +          (advance [] [:d])
    1.16 +          (play-moves [[] [] [] [:d]
    1.17 +                       [] [] [] [:d]
    1.18 +                       [] [] [] [:d]
    1.19 +                       [] [] [:a]])
    1.20 +          scroll-text
    1.21 +          (play-moves
    1.22 +           ;; this section is copied from speedrun-2942 and corrupts
    1.23 +           ;; the save so that the end-of-list marker for the pokemon
    1.24 +           ;; roster is destroyed, but the save is still playable.
    1.25 +           [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.26 +            [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
    1.27 +          (title)
    1.28 +          (advance [] [:start])
    1.29 +          (advance [] [:a])
    1.30 +          (advance [:a] [:a :start]))))
    1.31 +
    1.32 +
    1.33 +(defn viridian-store->viridian-poke-center
    1.34 +  []
    1.35 +  ;; leave store
    1.36 +  ;;(walk [↓ ↓ 
    1.37 +  ;;       →  ↓ ↓])
    1.38 +    )      
    1.39            
    1.40 -          (play-moves
    1.41 -           [[:start]])
    1.42 -          (do-nothing 500)
    1.43 -          (play-moves [[:d]])
    1.44 -          (do-nothing 100)
    1.45 -
    1.46 -          (play-moves
    1.47 -           [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.48 -           [][] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.49 -           [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] [] [] [:d]
    1.50 -           [] [] [:a] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.51 -           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.52 -           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.53 -           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.54 -           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.55 -           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.56 -           [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b]
    1.57 -           [:a :b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.58 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]
    1.59 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.60 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.61 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.62 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.63 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.64 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.65 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.66 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.67 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.68 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.69 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.70 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.71 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.72 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.73 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.74 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.75 -           [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.76 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.77 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.78 -           [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.79 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.80 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.81 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.82 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.83 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.84 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.85 -           [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []
    1.86 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.87 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.88 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.89 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.90 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.91 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.92 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.93 -           [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.94 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.95 -           [] [] [] [] [] [] [] [] [] [] [] [] [] [:start] [:a] [:a]
    1.96 -           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
    1.97 -           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
    1.98 -           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
    1.99 -           [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
   1.100 -           [:a] [:a :start] []]))))