1.1 --- a/clojure/com/aurellem/gb/status.clj	Thu Mar 22 16:34:10 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/status.clj	Thu Mar 22 20:10:09 2012 -0500
     1.3 @@ -25,7 +25,16 @@
     1.4    (+ pokemon-1-status-address
     1.5       (* poke-num pokemon-record-width)))
     1.6  
     1.7 -(defn give-stat
     1.8 +(defn read-status
     1.9 +  ([^SaveState state poke-num]
    1.10 +     (assert (<= 0 poke-num 5))
    1.11 +     (status-code->status-name
    1.12 +      (aget (memory state)
    1.13 +            (pokemon-status-address poke-num))))
    1.14 +  ([poke-num]
    1.15 +     (read-status @current-state poke-num)))
    1.16 + 
    1.17 +(defn give-status
    1.18    ([^SaveState state poke-num status]
    1.19       (assert (<= 0 poke-num 5))
    1.20       (let [status-code
    1.21 @@ -39,7 +48,7 @@
    1.22    ([status]
    1.23       (give-stat @current-state 0 status)))
    1.24  
    1.25 -(defn give-stat-all
    1.26 +(defn give-status-all
    1.27    ([^SaveState state status]
    1.28       (reduce (fn [state num]
    1.29                 (give-stat state num status))