Mercurial > vba-clojure

comparison 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
comparison
equal deleted inserted replaced
208:45f1376b578c 209:912496041f98
26 ([poke-num] 26 ([poke-num]
27 (read-current-hp @current-state poke-num))) 27 (read-current-hp @current-state poke-num)))
28 28
29 (defn set-current-hp 29 (defn set-current-hp
30 ([^SaveState state poke-num new-hp] 30 ([^SaveState state poke-num new-hp]
31 (set-memory state (current-hp-address poke-num) 31 (set-memory-range state (current-hp-address poke-num)
32 (disect-bytes-2 new-hp))) 32 (disect-bytes-2 new-hp)))
33 ([poke-num new-hp] 33 ([poke-num new-hp]
34 (set-current-hp @current-state poke-num new-hp))) 34 (set-current-hp @current-state poke-num new-hp)))
35 35
36 (defn read-stats 36 (defn read-stats
69 (disect-bytes-2 (:hp new-stats*)) 69 (disect-bytes-2 (:hp new-stats*))
70 (disect-bytes-2 (:attack new-stats*)) 70 (disect-bytes-2 (:attack new-stats*))
71 (disect-bytes-2 (:defense new-stats*)) 71 (disect-bytes-2 (:defense new-stats*))
72 (disect-bytes-2 (:speed new-stats*)) 72 (disect-bytes-2 (:speed new-stats*))
73 (disect-bytes-2 (:special new-stats*))])] 73 (disect-bytes-2 (:special new-stats*))])]
74 (set-current-hp 74 (set-current-hp
75 (set-memory-range state (pokemon-stats-address poke-num) 75 (set-memory-range state (pokemon-stats-address poke-num)
76 raw-stats) 76 raw-stats)
77 poke-num
77 (:current-hp new-stats*)))) 78 (:current-hp new-stats*))))
78 ([poke-num new-stats] 79 ([poke-num new-stats]
79 (give-stats @current-state poke-num new-stats))) 80 (give-stats @current-state poke-num new-stats)))
80 81
81 82