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

extending functionality of support namespaces in prepreation of give-pokemon

comparison

equal deleted inserted replaced

-:d954835b24a4
+:9a7a46c4aa1b
 (:use (com.aurellem.gb gb-driver util constants))
 (:import [com.aurellem.gb.gb_driver SaveState]))
 (def move-code->move-name
 {
+0x00   :end-of-moves
 0x01   :pound
 0x02   :karate-chop
 0x03   :doubleslap
 0x04   :comet-punch
 0x05   :mega-punch
 0xA2   :super-fang
 0xA3   :slash
 0xA4   :substitute
 0xA5   :struggle})
+(def move-name->move-code
+(zipmap (vals move-code->move-name)
+(keys move-code->move-name)))
 (def moves-codes-pokemon-1 0xD172)
 (defn moves-codes-start [pokemon-num]
 (assert (<= 0 pokemon-num 5))
 (+ moves-codes-pokemon-1
 (* pokemon-num pokemon-record-width)))
-(def move-name->move-code
+(defn read-moves
-(zipmap (vals move-code->move-name)
+([^SaveState state poke-num]
-(keys move-code->move-name)))
+(let [start (moves-codes-start poke-num)]
+(vec
+(take-while
+(partial not= (move-name->move-code :end-of-moves))
+(map
+move-code->move-name
+(subvec (vec (memory state))
+start (+ start (num-moves state poke-num))))))))
+([poke-num]
+(read-moves @current-state poke-num)))
 (defn give-moves
 ([^SaveState state pokemon-num moves]
 (set-memory-range
 state
 "00111111" 2)
 current-pp))))
 ([pokemon-num move-num pp-ups current-pp]
 (give-pp @current-state
 pokemon-num move-num pp-ups current-pp)))

Mercurial > vba-clojure