Mercurial > vba-clojure

diff clojure/com/aurellem/gb/stats.clj @ 209:912496041f98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)))