Mercurial > vba-clojure
view clojure/com/aurellem/gb/moves.clj @ 458:abcf1c8bb74c
going to work on another song.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 04 May 2012 02:26:28 -0500 |
parents | df9cad9909d2 |
children |
line wrap: on
line source
1 (ns com.aurellem.gb.moves2 (:use (com.aurellem.gb gb-driver util constants hxc))3 (:import [com.aurellem.gb.gb_driver SaveState]))6 ;;; grab the move data directly from the rom7 (def move-code->move-name ;; alternate name: moves8 ((comp vec cons)9 :end-of-moves10 (map format-name (hxc-move-names))))12 (def move-name->move-code ;; alternate name: move-id13 (zipmap14 move-code->move-name15 (range)))17 (def move-name->move-pp18 (comp :pp (hxc-move-data)))20 (defn max-pp [name pp-ups]21 (if (= 40 (move-name->move-pp name))22 (+ 40 (* 7 pp-ups))23 (int (* (+ 1 (* (/ 1 5) pp-ups))24 (move-name->move-pp name)))))26 (def moves-codes-pokemon-1 0xD172)28 (defn moves-codes-start [pokemon-num]29 (assert (<= 0 pokemon-num 5))30 (+ moves-codes-pokemon-131 (* pokemon-num pokemon-record-width)))33 (defn read-moves34 ([^SaveState state poke-num]35 (let [start (moves-codes-start poke-num)]36 (vec37 (take-while38 (partial not= :end-of-moves)39 (map40 move-code->move-name41 (subvec (vec (memory state))42 start (+ start 4)))))))43 ([poke-num]44 (read-moves @current-state poke-num)))46 (defn give-moves47 ([^SaveState state pokemon-num moves]48 (assert (<= (count moves) 4))49 (set-memory-range50 state51 (moves-codes-start pokemon-num)52 (map #(move-name->move-code % %)53 (concat moves54 (repeat (- 4 (count moves)) :end-of-moves)))))55 ([pokemon-num moves]56 (give-moves @current-state pokemon-num moves))57 ([moves]58 (give-moves 0 moves)))60 ;; Note regarding PP of moves -- both the current PP and the61 ;; total PP are stored in the same value.62 ;; they are bit-packed, with the first 2 bits containing the63 ;; number of pp-ups that have been applied, and the next64 ;; six bits containing the current pp of the move.65 ;; thus, a move can have up to 63 current pp and up to66 ;; three pp-ups applied.68 (def pokemon-1-pp-start 0xD187)70 (defn moves-pp-start [pokemon-num]71 (assert (<= 0 pokemon-num 5))72 (+ pokemon-1-pp-start (* pokemon-num pokemon-record-width)))74 (defn read-pp75 ([^SaveState state pokemon-num move-num]76 (assert (<= 0 move-num 3))77 (assert (<= 0 pokemon-num 5))78 (let [pp-raw79 (aget (memory state)80 (+ (moves-pp-start pokemon-num)81 move-num))82 pp-up83 (bit-shift-right84 (bit-and85 pp-raw86 (Integer/parseInt "11000000" 2)) 6)87 current-pp88 (bit-and89 pp-raw90 (Integer/parseInt "00111111" 2))]91 {:pp-ups pp-up :current-pp current-pp}))92 ([pokemon-num move-num]93 (read-pp @current-state pokemon-num move-num)))95 (defn give-pp96 ([^SaveState state pokemon-num move-num pp-ups current-pp]97 (assert (<= 0 move-num 3))98 (assert (<= 0 pokemon-num 5))99 (assert (<= 0 pp-ups 3))100 (assert (<= 0 current-pp 63))102 (set-memory103 state104 (+ (moves-pp-start pokemon-num)105 move-num)106 (+107 (bit-shift-left pp-ups 6)108 (bit-and (Integer/parseInt109 "00111111" 2)110 current-pp))))111 ([pokemon-num move-num pp-ups current-pp]112 (give-pp @current-state113 pokemon-num move-num pp-ups current-pp)))115 (defn give-moves-pps116 ([^SaveState state poke-num moves-pps]117 (let [new-moves118 (-> state119 ;; zero out the pp of the pokemon's moves120 (give-pp poke-num 0 0 0)121 (give-pp poke-num 1 0 0)122 (give-pp poke-num 2 0 0)123 (give-pp poke-num 3 0 0)124 (give-moves poke-num (map first moves-pps)))]125 (reduce (fn [state move-num]126 (let [pp (second (nth moves-pps move-num))]127 (give-pp state poke-num move-num128 (:pp-ups pp)129 (:current-pp pp))))130 new-moves (range (count moves-pps)))))131 ([poke-num moves-pps]132 (give-moves-pps @current-state poke-num moves-pps)))