Mercurial > vba-clojure
diff clojure/com/aurellem/gb/moves.clj @ 214:62969eb07e04
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))]