Mercurial > vba-clojure

annotate clojure/com/aurellem/gb/moves.clj @ 168:04dfda91db9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
discovered locations of Stat experience and lost location of DV values
author Robert McIntyre <rlm@mit.edu>
date Tue, 20 Mar 2012 20:26:00 -0500
parents 9c3769060201
children 9a7a46c4aa1b
rev   line source
rlm@162 1 (ns com.aurellem.gb.moves
rlm@162 2 (:use (com.aurellem.gb gb-driver util constants))
rlm@162 3 (:import [com.aurellem.gb.gb_driver SaveState]))
rlm@162 4
rlm@162 5 (def move-code->move-name
rlm@162 6 {
rlm@162 7 0x01 :pound
rlm@162 8 0x02 :karate-chop
rlm@162 9 0x03 :doubleslap
rlm@162 10 0x04 :comet-punch
rlm@162 11 0x05 :mega-punch
rlm@162 12 0x06 :pay-day
rlm@162 13 0x07 :fire-punch
rlm@162 14 0x08 :ice-punch
rlm@162 15 0x09 :thunderpunch
rlm@162 16 0x0A :scratch
rlm@162 17 0x0B :vicegrip
rlm@162 18 0x0C :guillotine
rlm@162 19 0x0D :razor-wind
rlm@162 20 0x0E :swords-dance
rlm@162 21 0x0F :cut
rlm@162 22 0x10 :gust
rlm@162 23 0x11 :wing-attack
rlm@162 24 0x12 :whirlwind
rlm@162 25 0x13 :fly
rlm@162 26 0x14 :bind
rlm@162 27 0x15 :slam
rlm@162 28 0x16 :vine-whip
rlm@162 29 0x17 :stomp
rlm@162 30 0x18 :double-kick
rlm@162 31 0x19 :mega-kick
rlm@162 32 0x1A :jump-kick
rlm@162 33 0x1B :rolling-kick
rlm@162 34 0x1C :sand-attack
rlm@162 35 0x1D :headbutt
rlm@162 36 0x1E :horn-attack
rlm@162 37 0x1F :fury-attack
rlm@162 38 0x20 :horn-drill
rlm@162 39 0x21 :tackle
rlm@162 40 0x22 :body-slam
rlm@162 41 0x23 :wrap
rlm@162 42 0x24 :take-down
rlm@162 43 0x25 :thrash
rlm@162 44 0x26 :double-edge
rlm@162 45 0x27 :tail-whip
rlm@162 46 0x28 :poison-sting
rlm@162 47 0x29 :twinneedle
rlm@162 48 0x2A :pin-missle
rlm@162 49 0x2B :leer
rlm@162 50 0x2C :bite
rlm@162 51 0x2D :growl
rlm@162 52 0x2E :roar
rlm@162 53 0x2F :sing
rlm@162 54 0x30 :supersonic
rlm@162 55 0x31 :sonicboom
rlm@162 56 0x32 :disable
rlm@162 57 0x33 :acid
rlm@162 58 0x34 :ember
rlm@162 59 0x35 :flamethrower
rlm@162 60 0x36 :mist
rlm@162 61 0x37 :water-gun
rlm@162 62 0x38 :hydro-pump
rlm@162 63 0x39 :surf
rlm@162 64 0x3A :ice-beam
rlm@162 65 0x3B :blizzard
rlm@162 66 0x3C :psybeam
rlm@162 67 0x3D :bubblebeam
rlm@162 68 0x3E :aurora-beam
rlm@162 69 0x3F :hyper-beam
rlm@162 70 0x40 :peck
rlm@162 71 0x41 :drill-peck
rlm@162 72 0x42 :submission
rlm@162 73 0x43 :low-kick
rlm@162 74 0x44 :counter
rlm@162 75 0x45 :seismic-toss
rlm@162 76 0x46 :strength
rlm@162 77 0x47 :absorb
rlm@162 78 0x48 :mega-drain
rlm@162 79 0x49 :leech-seed
rlm@162 80 0x4A :growth
rlm@162 81 0x4B :razor-leaf
rlm@162 82 0x4C :solarbeam
rlm@162 83 0x4D :poisonpowder
rlm@162 84 0x4E :stun-spore
rlm@162 85 0x4F :sleep-powder
rlm@162 86 0x50 :petal-dance
rlm@162 87 0x51 :string-shot
rlm@162 88 0x52 :dragon-rage
rlm@162 89 0x53 :fire-spin
rlm@162 90 0x54 :thundershock
rlm@162 91 0x55 :thunderbolt
rlm@162 92 0x56 :thunder-wave
rlm@162 93 0x57 :thunder
rlm@162 94 0x58 :rock-throw
rlm@162 95 0x59 :earthquake
rlm@162 96 0x5A :fissure
rlm@162 97 0x5B :dig
rlm@162 98 0x5C :toxic
rlm@162 99 0x5D :confusion
rlm@162 100 0x5E :psychic
rlm@162 101 0x5F :hypnosis
rlm@162 102 0x60 :meditate
rlm@162 103 0x61 :agility
rlm@162 104 0x62 :quick-attack
rlm@162 105 0x63 :rage
rlm@162 106 0x64 :teleport
rlm@162 107 0x65 :night-shade
rlm@162 108 0x66 :mimic
rlm@162 109 0x67 :screech
rlm@162 110 0x68 :double-team
rlm@162 111 0x69 :recover
rlm@162 112 0x6A :harden
rlm@162 113 0x6B :minimize
rlm@162 114 0x6C :smokescreen
rlm@162 115 0x6D :confuse-ray
rlm@162 116 0x6E :withdraw
rlm@162 117 0x6F :defense-curl
rlm@162 118 0x70 :barrier
rlm@162 119 0x71 :light-screen
rlm@162 120 0x72 :haze
rlm@162 121 0x73 :reflect
rlm@162 122 0x74 :focus-energy
rlm@162 123 0x75 :bide
rlm@162 124 0x76 :metronome
rlm@162 125 0x77 :mirror-move
rlm@162 126 0x78 :selfdestruct
rlm@162 127 0x79 :egg-bomb
rlm@162 128 0x7A :lick
rlm@162 129 0x7B :smog
rlm@162 130 0x7C :sludge
rlm@162 131 0x7D :bone-club
rlm@162 132 0x7E :fire-blast
rlm@162 133 0x7F :waterfall
rlm@162 134 0x80 :clamp
rlm@162 135 0x81 :swift
rlm@162 136 0x82 :skull-bash
rlm@162 137 0x83 :spike-cannon
rlm@162 138 0x84 :constrict
rlm@162 139 0x85 :amnesia
rlm@162 140 0x86 :kinesis
rlm@162 141 0x87 :softboiled
rlm@162 142 0x88 :hi-jump-kick
rlm@162 143 0x89 :glare
rlm@162 144 0x8A :dream-eater
rlm@162 145 0x8B :poison-gas
rlm@162 146 0x8C :barrage
rlm@162 147 0x8D :leech-life
rlm@162 148 0x8E :lovely-kiss
rlm@162 149 0x8F :sky-attack
rlm@162 150 0x90 :transform
rlm@162 151 0x91 :bubble
rlm@162 152 0x92 :dizzy-punch
rlm@162 153 0x93 :spore
rlm@162 154 0x94 :flash
rlm@162 155 0x95 :psywave
rlm@162 156 0x96 :splash
rlm@162 157 0x97 :acid-armor
rlm@162 158 0x98 :crabhammer
rlm@162 159 0x99 :explosion
rlm@162 160 0x9A :fury-swipes
rlm@162 161 0x9B :bonemerang
rlm@162 162 0x9C :rest
rlm@162 163 0x9D :rock-slide
rlm@162 164 0x9E :hyper-fang
rlm@162 165 0x9F :sharpen
rlm@162 166 0xA0 :conversion
rlm@162 167 0xA1 :tri-attack
rlm@162 168 0xA2 :super-fang
rlm@162 169 0xA3 :slash
rlm@162 170 0xA4 :substitute
rlm@162 171 0xA5 :struggle})
rlm@162 172
rlm@163 173 (def moves-codes-pokemon-1 0xD172)
rlm@163 174
rlm@163 175 (defn moves-codes-start [pokemon-num]
rlm@163 176 (assert (<= 0 pokemon-num 5))
rlm@163 177 (+ moves-codes-pokemon-1
rlm@163 178 (* pokemon-num pokemon-record-width)))
rlm@163 179
rlm@162 180 (def move-name->move-code
rlm@162 181 (zipmap (vals move-code->move-name)
rlm@162 182 (keys move-code->move-name)))
rlm@162 183
rlm@162 184 (defn give-moves
rlm@162 185 ([^SaveState state pokemon-num moves]
rlm@162 186 (set-memory-range
rlm@162 187 state
rlm@162 188 (moves-codes-start pokemon-num)
rlm@162 189 (map #(move-name->move-code % %) moves)))
rlm@162 190 ([pokemon-num moves]
rlm@162 191 (give-moves @current-state pokemon-num moves))
rlm@162 192 ([moves]
rlm@162 193 (give-moves 0 moves)))
rlm@162 194
rlm@162 195 ;; Note regarding PP of moves -- both the current PP and the
rlm@162 196 ;; total PP are stored in the same value.
rlm@162 197 ;; they are bit-packed, with the first 2 bits containing the
rlm@162 198 ;; number of pp-ups that have been applied, and the next
rlm@162 199 ;; six bits containing the current pp of the move.
rlm@162 200 ;; thus, a move can have up to 63 current pp and up to
rlm@162 201 ;; three pp-ups applied.
rlm@162 202
rlm@162 203
rlm@162 204 (def pokemon-1-pp-start 0xD187)
rlm@162 205
rlm@162 206 (defn moves-pp-start [pokemon-num]
rlm@162 207 (assert (<= 0 pokemon-num 5))
rlm@162 208 (+ pokemon-1-pp-start (* pokemon-num pokemon-record-width)))
rlm@162 209
rlm@162 210 (defn read-pp
rlm@162 211 ([^SaveState state pokemon-num move-num]
rlm@162 212 (assert (<= 0 move-num 3))
rlm@162 213 (assert (<= 0 pokemon-num 5))
rlm@162 214 (let [pp-raw
rlm@162 215 (aget (memory state)
rlm@162 216 (+ (moves-pp-start pokemon-num)
rlm@162 217 move-num))
rlm@162 218 pp-up
rlm@162 219 (bit-shift-right
rlm@162 220 (bit-and
rlm@162 221 pp-raw
rlm@162 222 (Integer/parseInt "11000000" 2)) 6)
rlm@162 223 current-pp
rlm@162 224 (bit-and
rlm@162 225 pp-raw
rlm@162 226 (Integer/parseInt "00111111" 2))]
rlm@162 227 [pp-up current-pp]))
rlm@162 228 ([pokemon-num move-num]
rlm@162 229 (read-pp @current-state pokemon-num move-num)))
rlm@162 230
rlm@162 231 (defn give-pp
rlm@162 232 ([^SaveState state pokemon-num move-num pp-ups current-pp]
rlm@162 233 (assert (<= 0 move-num 3))
rlm@162 234 (assert (<= 0 pokemon-num 5))
rlm@162 235 (assert (<= 0 pp-ups 3))
rlm@162 236 (assert (<= 0 current-pp 63))
rlm@162 237
rlm@162 238 (set-memory
rlm@162 239 state
rlm@162 240 (+ (moves-pp-start pokemon-num)
rlm@162 241 move-num)
rlm@162 242 (+
rlm@162 243 (bit-shift-left pp-ups 6)
rlm@162 244 (bit-and (Integer/parseInt
rlm@162 245 "00111111" 2)
rlm@162 246 current-pp))))
rlm@162 247 ([pokemon-num move-num pp-ups current-pp]
rlm@163 248 (give-pp @current-state
rlm@162 249 pokemon-num move-num pp-ups current-pp)))