Mercurial > vba-clojure
diff clojure/com/aurellem/gb/status.clj @ 191:893c753f8088
added function to set ROM
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 22 Mar 2012 20:10:09 -0500 |
parents | d63886d63b2f |
children | fd549c8f42ae |
line wrap: on
line diff
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))