diff clojure/com/aurellem/exp/item_bridge.clj @ 319:92c47a9cdaea

adapting bootstrap to new util functions.
author Robert McIntyre <rlm@mit.edu>
date Tue, 03 Apr 2012 04:16:20 -0500
parents 8e63b0bb8ea3
children 3b3cd62b6106
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj	Mon Apr 02 23:13:49 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj	Tue Apr 03 04:16:20 2012 -0500
     1.3 @@ -1,6 +1,6 @@
     1.4  (ns com.aurellem.exp.item-bridge
     1.5    (:use (com.aurellem.gb saves util constants gb-driver vbm items assembly))
     1.6 -  (:use (com.aurellem.run title save-corruption))
     1.7 +  (:use (com.aurellem.run util title save-corruption))
     1.8    ;;(:use (com.aurellem.exp pokemon))
     1.9    (:import [com.aurellem.gb.gb_driver SaveState]))
    1.10  
    1.11 @@ -88,10 +88,11 @@
    1.12     (first
    1.13      (->>
    1.14       [[] (mid-game)]
    1.15 -     (advance [:b] [:b :start])
    1.16 -     (advance [] [:d])
    1.17 +     (first-difference [:b] [:b :start] AF)
    1.18 +     (first-difference [] [:d] AF)
    1.19       (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
    1.20 -     scroll-text
    1.21 +     (do-nothing 200)
    1.22 +     (play-moves [[:a]])
    1.23       (play-moves
    1.24        ;; this section is copied from speedrun-2942
    1.25        ;; and corrupts the save so that the end-of-list marker
    1.26 @@ -100,9 +101,9 @@
    1.27        [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.28         [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
    1.29       (title)
    1.30 -     (advance [] [:start])
    1.31 -     (advance [] [:a])
    1.32 -     (advance [:a] [:a :start])))
    1.33 +     (first-difference [] [:start] AF)
    1.34 +     (first-difference [] [:a] AF)
    1.35 +     (first-difference [:a] [:a :start] AF)))
    1.36     [[]]))
    1.37  
    1.38  (defn corrupt
    1.39 @@ -119,7 +120,7 @@
    1.40  
    1.41  (defn gen-start-game-corrupt []
    1.42    (->> (second (intro))
    1.43 -       (advance [:b] [:a :b :start])
    1.44 +       (first-difference [:b] [:a :b :start] AF)
    1.45         (play-moves (corrupt-moves))))
    1.46  
    1.47  (defn start-game-corrupt []