Mercurial > vba-clojure

diff clojure/com/aurellem/gb/moves.clj @ 214:62969eb07e04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed give-pokemon to give a properly formatted pokemon for pokemon with less than 4 moves.
author Robert McIntyre <rlm@mit.edu>
date Fri, 23 Mar 2012 19:25:21 -0500
parents 912496041f98
children 0587f266a735
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/moves.clj	Fri Mar 23 18:06:37 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/moves.clj	Fri Mar 23 19:25:21 2012 -0500
     1.3 @@ -268,6 +268,11 @@
     1.4    ([^SaveState state poke-num moves-pps]
     1.5       (let [new-moves
     1.6             (-> state
     1.7 +               ;; zero out the pp of the pokemon's moves
     1.8 +               (give-pp poke-num 0 0 0)
     1.9 +               (give-pp poke-num 1 0 0)
    1.10 +               (give-pp poke-num 2 0 0)
    1.11 +               (give-pp poke-num 3 0 0)
    1.12                 (give-moves poke-num (map first moves-pps)))]
    1.13         (reduce (fn [state move-num]
    1.14                   (let [pp (second (nth moves-pps move-num))]