1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 03:18:20 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 03:20:03 2012 -0500
     1.3 @@ -113,30 +113,7 @@
     1.4    (run-moves
     1.5     state
     1.6     (corrupt-moves)))
     1.7 -    
     1.8 -
     1.9 -
    1.10 -   
    1.11 -  (step 
    1.12 -  (second 
    1.13 -   (->>
    1.14 -    [[] state]
    1.15 -    (advance [:b] [:a :b :start])
    1.16 -    (advance [] [:d])
    1.17 -    (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
    1.18 -    scroll-text
    1.19 -    (play-moves
    1.20 -     ;; this section is copied from speedrun-2942
    1.21 -     ;; and corrupts the save so that the end-of-list marker
    1.22 -     ;; for the pokemon roster is destroyed, but the save is still
    1.23 -     ;; playable.
    1.24 -     [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.25 -      [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
    1.26 -    (play-moves
    1.27 -     (first (title)))
    1.28 -    (advance [] [:start])
    1.29 -    (advance [] [:a])
    1.30 -    (advance [:a] [:a :start]))) []))
    1.31 +  ([] (corrupt @current-state)))
    1.32    
    1.33     
    1.34