1.1 --- a/clojure/com/aurellem/gb/pokemon.clj	Thu Mar 22 15:58:39 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokemon.clj	Thu Mar 22 16:34:10 2012 -0500
     1.3 @@ -1,5 +1,8 @@
     1.4  (ns com.aurellem.gb.pokemon
     1.5 -  (:use (com.aurellem.gb gb-driver util constants characters))
     1.6 +  (:use (com.aurellem.gb gb-driver util constants characters
     1.7 +                         moves types items status dv species
     1.8 +
     1.9 +                         ))
    1.10    (:import [com.aurellem.gb.gb_driver SaveState]))
    1.11  
    1.12  (def pokemon-names-start 0xD2B4)
    1.13 @@ -179,3 +182,18 @@
    1.14           poke-data))))
    1.15    ([pokemon-num]
    1.16       (print-pokemon-record @current-state pokemon-num)))
    1.17 +
    1.18 +(def mint-berry-item-code-gsc 0x54)
    1.19 +
    1.20 +(defn pokemon-info [^SaveState state poke-num]
    1.21 +  (assert (<= 0 poke-num 5))
    1.22 +  (let [dv-values (read-DV state poke-num)
    1.23 +        type (read-type state poke-num)
    1.24 +        species (read-species state poke-num)
    1.25 +        
    1.26 +        ]
    1.27 +
    1.28 +       
    1.29 +
    1.30 +
    1.31 +    ))