Mercurial > vba-clojure
diff clojure/com/aurellem/gb/stats.clj @ 209:912496041f98
give pokemon appears to work.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 23 Mar 2012 05:45:56 -0500 |
parents | 1ce54929bc0c |
children |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/gb/stats.clj Fri Mar 23 04:39:24 2012 -0500 1.2 +++ b/clojure/com/aurellem/gb/stats.clj Fri Mar 23 05:45:56 2012 -0500 1.3 @@ -28,7 +28,7 @@ 1.4 1.5 (defn set-current-hp 1.6 ([^SaveState state poke-num new-hp] 1.7 - (set-memory state (current-hp-address poke-num) 1.8 + (set-memory-range state (current-hp-address poke-num) 1.9 (disect-bytes-2 new-hp))) 1.10 ([poke-num new-hp] 1.11 (set-current-hp @current-state poke-num new-hp))) 1.12 @@ -71,9 +71,10 @@ 1.13 (disect-bytes-2 (:defense new-stats*)) 1.14 (disect-bytes-2 (:speed new-stats*)) 1.15 (disect-bytes-2 (:special new-stats*))])] 1.16 - (set-current-hp 1.17 + (set-current-hp 1.18 (set-memory-range state (pokemon-stats-address poke-num) 1.19 raw-stats) 1.20 + poke-num 1.21 (:current-hp new-stats*)))) 1.22 ([poke-num new-stats] 1.23 (give-stats @current-state poke-num new-stats)))