Mercurial > vba-clojure

diff clojure/com/aurellem/exp/item_bridge.clj @ 179:d63886d63b2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cleaned up code; added gb.saves
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 23:02:45 -0500
parents 95b2758dd517
children 426fce7e609d
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 22:17:06 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 23:02:45 2012 -0500
     1.3 @@ -1,7 +1,7 @@
     1.4  (ns com.aurellem.exp.item-bridge
     1.5 -  (:use (com.aurellem.gb util constants gb-driver vbm items assembly))
     1.6 +  (:use (com.aurellem.gb saves util constants gb-driver vbm items assembly))
     1.7    (:use (com.aurellem.run title save-corruption))
     1.8 -  (:use (com.aurellem.exp pokemon))
     1.9 +  ;;(:use (com.aurellem.exp pokemon))
    1.10    (:import [com.aurellem.gb.gb_driver SaveState]))
    1.11  
    1.12  (defn corrupt-item-state []
    1.13 @@ -56,7 +56,7 @@
    1.14    (loop [i 0
    1.15           pcs []]
    1.16      (if (= i ticks)
    1.17 -      (set pcs)
    1.18 +      (filter (partial < 0x2000)(sort (set pcs)))
    1.19        (do 
    1.20          (com.aurellem.gb.Gb/tick)
    1.21          (recur (inc i)