Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/pokemon.clj @ 190:9a7a46c4aa1b
extending functionality of support namespaces in prepreation of give-pokemon
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Thu, 22 Mar 2012 16:34:10 -0500 |
| parents | d954835b24a4 |
| children | 893c753f8088 |
comparison
equal
deleted
inserted
replaced
| 189:d954835b24a4 | 190:9a7a46c4aa1b |
|---|---|
| 1 (ns com.aurellem.gb.pokemon | 1 (ns com.aurellem.gb.pokemon |
| 2 (:use (com.aurellem.gb gb-driver util constants characters)) | 2 (:use (com.aurellem.gb gb-driver util constants characters |
| 3 moves types items status dv species | |
| 4 | |
| 5 )) | |
| 3 (:import [com.aurellem.gb.gb_driver SaveState])) | 6 (:import [com.aurellem.gb.gb_driver SaveState])) |
| 4 | 7 |
| 5 (def pokemon-names-start 0xD2B4) | 8 (def pokemon-names-start 0xD2B4) |
| 6 | 9 |
| 7 (defn set-party-number | 10 (defn set-party-number |
| 177 s)))))) | 180 s)))))) |
| 178 (map pokemon-1-record backbone) | 181 (map pokemon-1-record backbone) |
| 179 poke-data)))) | 182 poke-data)))) |
| 180 ([pokemon-num] | 183 ([pokemon-num] |
| 181 (print-pokemon-record @current-state pokemon-num))) | 184 (print-pokemon-record @current-state pokemon-num))) |
| 185 | |
| 186 (def mint-berry-item-code-gsc 0x54) | |
| 187 | |
| 188 (defn pokemon-info [^SaveState state poke-num] | |
| 189 (assert (<= 0 poke-num 5)) | |
| 190 (let [dv-values (read-DV state poke-num) | |
| 191 type (read-type state poke-num) | |
| 192 species (read-species state poke-num) | |
| 193 | |
| 194 ] | |
| 195 | |
| 196 | |
| 197 | |
| 198 | |
| 199 )) |