1.1 --- a/clojure/com/aurellem/gb/moves.clj	Tue Mar 20 17:18:22 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/moves.clj	Tue Mar 20 17:20:41 2012 -0500
     1.3 @@ -170,6 +170,13 @@
     1.4     0xA4   :substitute
     1.5     0xA5   :struggle})
     1.6  
     1.7 +(def moves-codes-pokemon-1 0xD172)
     1.8 +
     1.9 +(defn moves-codes-start [pokemon-num]
    1.10 +  (assert (<= 0 pokemon-num 5))
    1.11 +  (+ moves-codes-pokemon-1
    1.12 +     (* pokemon-num pokemon-record-width)))
    1.13 +
    1.14  (def move-name->move-code
    1.15    (zipmap (vals move-code->move-name)
    1.16            (keys move-code->move-name)))
    1.17 @@ -238,5 +245,5 @@
    1.18                   "00111111" 2)
    1.19                  current-pp))))
    1.20    ([pokemon-num move-num pp-ups current-pp]
    1.21 -     (set-pp @current-state
    1.22 +     (give-pp @current-state
    1.23               pokemon-num move-num pp-ups current-pp)))