1.1 --- a/clojure/com/aurellem/gb/pokemon.clj	Thu Mar 22 23:42:31 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokemon.clj	Fri Mar 23 00:14:37 2012 -0500
     1.3 @@ -85,7 +85,7 @@
     1.4    ([n new-name]
     1.5       (set-original-trainer @current-state n new-name)))
     1.6  
     1.7 -(def OT-ID-addresses [0xD176 0xD1A2 0xD1CE 0xD1FA 0xD228 0xD252])
     1.8 +(def OT-ID-addresses [0xD176 0xD1A2 0xD1CE 0xD1FA 0xD226 0xD252])
     1.9  
    1.10  (defn read-OT-id
    1.11    ([^SaveState state poke-num]
    1.12 @@ -301,7 +301,12 @@
    1.13         (println "|       Move       | PP | Max PP | PP UPs |")
    1.14         (println "+------------------+----+--------+--------+")
    1.15  
    1.16 -       
    1.17 +       (dorun
    1.18 +        (for [[name {:keys [pp-ups current-pp]}] (:moves info)]
    1.19 +          (printf
    1.20 +           "| %-17s| %2d |   %02d   |   %02d   |\n"
    1.21 +           (.substring (str name) 1)
    1.22 +           current-pp (max-pp name pp-ups) pp-ups)))
    1.23  
    1.24         (println "+------------------+----+--------+--------+")
    1.25