1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Thu Mar 29 13:49:40 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Thu Mar 29 17:38:36 2012 -0500
     1.3 @@ -573,8 +573,9 @@
     1.4            scroll-text
     1.5            (play-moves
     1.6             ;; this section is copied from speedrun-2942 and corrupts
     1.7 -           ;; the save so that the end-of-list marker for the pokemon
     1.8 -           ;; roster is destroyed, but the save is still playable.
     1.9 +           ;; the save so that the total number of pokemon is set to
    1.10 +           ;; 0xFF, allowing manipulation of non-pokemon data in RAM
    1.11 +           ;; via the pokemon interface.
    1.12             [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.13              [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
    1.14            (title)
    1.15 @@ -659,8 +660,6 @@
    1.16     (play-moves [[] [] [:a]])
    1.17     (scroll-text)
    1.18     (do-nothing 300)))
    1.19 -  
    1.20 -       
    1.21  
    1.22  (defn-memo corrupt-item-list-again
    1.23    ([] (corrupt-item-list-again (get-burn-heals)))
    1.24 @@ -681,10 +680,30 @@
    1.25            
    1.26            
    1.27  
    1.28 -(defn viridian-store->viridian-poke-center
    1.29 -  []
    1.30 -  ;; leave store
    1.31 -  ;;(walk [↓ ↓ 
    1.32 -  ;;       →  ↓ ↓])
    1.33 -    )      
    1.34 -          
    1.35 +(defn-memo viridian-store->viridian-poke-center
    1.36 +  ([] (viridian-store->viridian-poke-center
    1.37 +       (corrupt-item-list-again)))
    1.38 +  ([script]
    1.39 +     (->> script
    1.40 +          (do-nothing 100)
    1.41 +          (play-moves [[:b]])
    1.42 +          (do-nothing 100)
    1.43 +          (play-moves [[:b]])
    1.44 +          (do-nothing 40)
    1.45 +          ;; leave store
    1.46 +          (walk [↓ ↓ 
    1.47 +                 → ↓ ↓])
    1.48 +          (walk [← ← ← ←
    1.49 +                 ↓ ↓ ↓ ↓ ↓ ↓
    1.50 +                 ← ← ← ↑]))))
    1.51 +
    1.52 +(defn to-poke-center-computer
    1.53 +  ([] (to-poke-center-computer
    1.54 +       (viridian-store->viridian-poke-center)))
    1.55 +  ([script]
    1.56 +     (->> script
    1.57 +          (walk [→ →
    1.58 +                 ↑ ↑ ↑
    1.59 +                 → → → → → → → → → ↑])
    1.60 +          (do-nothing 1))))
    1.61 +