Mercurial > vba-clojure
comparison 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 |
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 |