# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332500284 18000
# Node ID 565f5d17f90a1e64ac8725575105e054218ee9c2
# Parent  912496041f988b995bd6d4e6327b8f59efe306d1
fixed minor bug in give-pokemon

diff -r 912496041f98 -r 565f5d17f90a clojure/com/aurellem/gb/pokemon.clj
--- a/clojure/com/aurellem/gb/pokemon.clj	Fri Mar 23 05:45:56 2012 -0500
+++ b/clojure/com/aurellem/gb/pokemon.clj	Fri Mar 23 05:58:04 2012 -0500
@@ -415,7 +415,7 @@
                   (for [move moves]
                     (cond
                       (keyword? move)
-                      [move {:current-pp (max-pp move) :pp-ups 0}]
+                      [move {:current-pp (max-pp move 0) :pp-ups 0}]
                       (vector? move)
                       [(first move)
                        (merge {:current-pp (max-pp (first move) 0)