1.1 --- a/clojure/com/aurellem/gb/status.clj	Thu Mar 22 20:10:09 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/status.clj	Thu Mar 22 22:35:57 2012 -0500
     1.3 @@ -1,5 +1,5 @@
     1.4  (ns com.aurellem.gb.status
     1.5 -  (:use (com.aurellem.gb gb-driver util constants pokemon))
     1.6 +  (:use (com.aurellem.gb gb-driver util constants))
     1.7    (:import [com.aurellem.gb.gb_driver SaveState]))
     1.8  
     1.9  (def status-name->status-code
    1.10 @@ -44,15 +44,7 @@
    1.11                     (pokemon-status-address poke-num)
    1.12                     status-code)))
    1.13    ([poke-num status]
    1.14 -     (give-stat @current-state poke-num status))
    1.15 +     (give-status @current-state poke-num status))
    1.16    ([status]
    1.17 -     (give-stat @current-state 0 status)))
    1.18 +     (give-status @current-state 0 status)))
    1.19  
    1.20 -(defn give-status-all
    1.21 -  ([^SaveState state status]
    1.22 -     (reduce (fn [state num]
    1.23 -               (give-stat state num status))
    1.24 -             state
    1.25 -             (range (party-number state))))
    1.26 -  ([status]
    1.27 -     (give-stat-all @current-state status)))