vba-clojure: clojure/com/aurellem/gb/moves.clj comparison

give pokemon appears to work.

comparison

equal deleted inserted replaced

-:45f1376b578c
+:912496041f98
 current-pp))))
 ([pokemon-num move-num pp-ups current-pp]
 (give-pp @current-state
 pokemon-num move-num pp-ups current-pp)))
+(defn give-moves-pps
+([^SaveState state poke-num moves-pps]
+(let [new-moves
+(-> state
+(give-moves poke-num (map first moves-pps)))]
+(reduce (fn [state move-num]
+(let [pp (second (nth moves-pps move-num))]
+(give-pp state poke-num move-num
+(:pp-ups pp)
+(:current-pp    pp))))
+new-moves (range (count moves-pps)))))
+([poke-num moves-pps]
+(give-moves-pps @current-state poke-num moves-pps)))
 (def move-name->move-pp
 {
 :absorb        20
 :acid          30
 :roar          20
 :rock-slide    10
 :rock-throw    15
 :rolling-kick  15
 :sand-attack   15
-:scratch       30
+:scratch       35
 :screech       40
 :seismic-toss  20
 :selfdestruct   5
 :sharpen       30
 :sing          15

Mercurial > vba-clojure