Mercurial > vba-clojure

view clojure/com/aurellem/gb/experience.clj @ 263:a44a2c459aeb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Corrected hxc-evolution so that pokemon with branched evolutions (i.e. eevee) will be fully included. As a result, altered hxc-evolution to return a list of hashes, one per evolution.
author Dylan Holmes <ocsenave@gmail.com>
date Mon, 26 Mar 2012 21:25:10 -0500
parents fd549c8f42ae
children
line wrap: on
line source
     1 (ns com.aurellem.gb.experience



     2   (:use (com.aurellem.gb gb-driver util constants))



     3   (:import [com.aurellem.gb.gb_driver SaveState]))



     4 



     5 (def experience-pokemon-1 0xD178)



     6 



     7 (defn experience-start-address [poke-num]



     8   (+ experience-pokemon-1



     9      (* pokemon-record-width poke-num)))



    10 



    11 (def experience-record-width 13)



    12 



    13 (defn read-experience



    14   ([^SaveState state poke-num]



    15      (let [start (experience-start-address poke-num)



    16            [exp-h



    17             exp-m



    18             exp-l



    19             hp-exp-h



    20             hp-exp-l



    21             attack-exp-h



    22             attack-exp-l



    23             defense-exp-h



    24             defense-exp-l



    25             speed-exp-h



    26             speed-exp-l



    27             special-exp-h



    28             special-exp-l]



    29            (subvec (vec (memory state))



    30                    start (+ experience-record-width start))]



    31            {:main-exp (glue-bytes exp-h exp-m exp-l)



    32             :hp-exp (glue-bytes hp-exp-h hp-exp-l)



    33             :attack-exp (glue-bytes attack-exp-h attack-exp-l)



    34             :defense-exp (glue-bytes defense-exp-h defense-exp-l)



    35             :speed-exp (glue-bytes speed-exp-h speed-exp-l)



    36             :special-exp (glue-bytes special-exp-h special-exp-l)}))



    37      ([poke-num]



    38      (read-experience @current-state poke-num)))



    39 



    40 (defn give-experience



    41   ([^SaveState state poke-num exp]



    42      (let [exp* (merge (read-experience state poke-num) exp)



    43            raw-exp-data



    44            (flatten



    45             [(disect-bytes-3 (:main-exp exp*))



    46              (disect-bytes-2 (:hp-exp exp*))



    47              (disect-bytes-2 (:attack-exp exp*))



    48              (disect-bytes-2 (:defense-exp exp*))



    49              (disect-bytes-2 (:speed-exp exp*))



    50              (disect-bytes-2 (:special-exp exp*))])]



    51        (set-memory-range state 



    52                          (experience-start-address poke-num)



    53                          raw-exp-data)))



    54   ([poke-num exp]



    55      (give-experience @current-state poke-num exp)))