Mercurial > vba-clojure

annotate org/rom.org @ 406:8eb674700f15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Found in-game pointers to type names; ready to remove manually-coded list.
author Dylan Holmes <ocsenave@gmail.com>
date Thu, 12 Apr 2012 22:18:46 -0500
parents a6f212ae29a3
children 03ade2a04458
rev   line source
ocsenave@311 1 #+title: Notes on Deconstructing Pokemon Yellow
ocsenave@311 2 #+author: Dylan Holmes
ocsenave@311 3 #+email: rlm@mit.edu
ocsenave@311 4 #+description:
ocsenave@312 5 #+keywords:
ocsenave@311 6 #+SETUPFILE: ../../aurellem/org/setup.org
ocsenave@311 7 #+INCLUDE: ../../aurellem/org/level-0.org
ocsenave@311 8 #+BABEL: :exports both :noweb yes :cache no :mkdirp yes
ocsenave@311 9
ocsenave@346 10 # about map headers http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes
ocsenave@346 11 # map headers Yellow http://www.pokecommunity.com/archive/index.php/t-235311.html
ocsenave@312 12 # pokedollar: U+20B1
ocsenave@347 13 * Introduction
ocsenave@347 14
ocsenave@348 15
ocsenave@348 16 ** COMMENT Getting linguistic data: names, words, etc.
ocsenave@348 17
ocsenave@348 18 Some of the simplest data
ocsenave@348 19
ocsenave@348 20
ocsenave@348 21 One of the simplest data structures in the Pok\eacute{} ROM is an
ocsenave@348 22 unbroken list of strings that either (a) all have a specific length,
ocsenave@348 23 or (b) are all separated by the same character.
ocsenave@348 24
ocsenave@348 25 Because lots of good data has this format, we'll start by writing a
ocsenave@348 26 template function to extract it:
ocsenave@348 27
ocsenave@348 28 #+name: hxc-thunks
ocsenave@348 29 #+begin_src clojure :results silent
ocsenave@348 30 (defn hxc-thunk
ocsenave@348 31 "Creates a thunk (nullary fn) that grabs data in a certain region of rom and
ocsenave@348 32 splits it into a collection by 0x50. If rom is not supplied, uses the
ocsenave@348 33 original rom data."
ocsenave@348 34 [start length]
ocsenave@348 35 (fn self
ocsenave@348 36 ([rom]
ocsenave@348 37 (take-nth 2
ocsenave@348 38 (partition-by #(= % 0x50)
ocsenave@348 39 (take length
ocsenave@348 40 (drop start rom)))))
ocsenave@348 41 ([]
ocsenave@348 42 (self com.aurellem.gb.gb-driver/original-rom))))
ocsenave@348 43
ocsenave@348 44 (def hxc-thunk-words
ocsenave@348 45 "Same as hxc-thunk, except it interprets the rom data as characters,
ocsenave@348 46 returning a collection of strings."
ocsenave@348 47 (comp
ocsenave@348 48 (partial comp (partial map character-codes->str))
ocsenave@348 49 hxc-thunk))
ocsenave@348 50
ocsenave@348 51 #+end_src
ocsenave@348 52
ocsenave@348 53
ocsenave@348 54 * Pok\eacute{}mon I
ocsenave@348 55 ** Names of each species
ocsenave@348 56 The names of the Pok\eacute{}mon species are stored in
ocsenave@348 57 ROM@E8000. This name list is interesting, for a number of reasons:
ocsenave@348 58 - The names are stored in [[ ][internal order]] rather than in the familiar
ocsenave@348 59 Pok\eacute{}dex order. This seemingly random order probably represents the order in which the authors created or
ocsenave@348 60 programmed in the Pok\eacute{}mon; it's used throughout the game.
ocsenave@348 61 - There is enough space allocated for 190 Pok\eacute{}mon. As I
ocsenave@348 62 understand it, there were originally going to be 190 Pok\eacute{}mon
ocsenave@348 63 in Generation I, but the creators decided to defer some to
ocsenave@348 64 Generation II. This explains why many Gen I and Gen II Pok\eacute{}mon
ocsenave@348 65 have the same aesthetic feel.
ocsenave@348 66 - The list is pockmarked with random gaps, due to the strange internal
ocsenave@348 67 ordering
ocsenave@348 68 and the 39 unused spaces [fn::190 allocated spaces minus 151 true Pok\eacute{}mon]. These missing spaces are filled with the
ocsenave@348 69 placeholder name =MISSINGNO.= (\ldquo{}Missing number\rdquo{}).
ocsenave@348 70
ocsenave@348 71 Each name is exactly ten letters long; whenever a name would be too short, the extra
ocsenave@348 72 space is padded with the character 0x50.
ocsenave@348 73
ocsenave@348 74 *** See the data
ocsenave@348 75
ocsenave@348 76 Here you can see the raw data in three stages: in the first stage, we
ocsenave@348 77 just grab the first few bytes starting from position 0xE8000. In the
ocsenave@371 78 second stage, we partition the bytes into ten-letter chunks to show you
ocsenave@348 79 where the names begin and end. In the final stage, we convert each
ocsenave@348 80 byte into the letter it represents using the =character-codes->str=
ocsenave@348 81 function. (0x50 is rendered as the symbol \ldquo{} =#= \rdquo{} for
ocsenave@348 82 ease of reading).
ocsenave@348 83
ocsenave@348 84 #+begin_src clojure :exports both :cache no :results output
ocsenave@348 85 (ns com.aurellem.gb.hxc
ocsenave@348 86 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@348 87 constants))
ocsenave@348 88 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348 89
ocsenave@371 90
ocsenave@348 91 (println (take 100 (drop 0xE8000 (rom))))
ocsenave@348 92
ocsenave@348 93 (println (partition 10 (take 100 (drop 0xE8000 (rom)))))
ocsenave@348 94
ocsenave@348 95 (println (character-codes->str (take 100 (drop 0xE8000 (rom)))))
ocsenave@348 96
ocsenave@348 97
ocsenave@348 98 #+end_src
ocsenave@348 99
ocsenave@348 100 #+results:
ocsenave@348 101 : (145 135 152 131 142 141 80 80 80 80 138 128 141 134 128 146 138 135 128 141 141 136 131 142 145 128 141 239 80 80 130 139 132 133 128 136 145 152 80 80 146 143 132 128 145 142 150 80 80 80 149 142 139 147 142 145 129 80 80 80 141 136 131 142 138 136 141 134 80 80 146 139 142 150 129 145 142 80 80 80 136 149 152 146 128 148 145 80 80 80 132 151 132 134 134 148 147 142 145 80)
ocsenave@348 102 : ((145 135 152 131 142 141 80 80 80 80) (138 128 141 134 128 146 138 135 128 141) (141 136 131 142 145 128 141 239 80 80) (130 139 132 133 128 136 145 152 80 80) (146 143 132 128 145 142 150 80 80 80) (149 142 139 147 142 145 129 80 80 80) (141 136 131 142 138 136 141 134 80 80) (146 139 142 150 129 145 142 80 80 80) (136 149 152 146 128 148 145 80 80 80) (132 151 132 134 134 148 147 142 145 80))
ocsenave@348 103 : RHYDON####KANGASKHANNIDORAN♂##CLEFAIRY##SPEAROW###VOLTORB###NIDOKING##SLOWBRO###IVYSAUR###EXEGGUTOR#
ocsenave@348 104
ocsenave@348 105
ocsenave@348 106 *** Automatically grab the data.
ocsenave@348 107
ocsenave@348 108 #+name: pokenames
ocsenave@348 109 #+begin_src clojure
ocsenave@348 110
ocsenave@348 111 (defn hxc-pokenames-raw
ocsenave@348 112 "The hardcoded names of the 190 species in memory. List begins at
ocsenave@348 113 ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters
ocsenave@348 114 long, these names are stripped of padding. See also, hxc-pokedex-names"
ocsenave@348 115 ([]
ocsenave@348 116 (hxc-pokenames-raw com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 117 ([rom]
ocsenave@348 118 (let [count-species 190
ocsenave@348 119 name-length 10]
ocsenave@348 120 (map character-codes->str
ocsenave@348 121 (partition name-length
ocsenave@348 122 (map #(if (= 0x50 %) 0x00 %)
ocsenave@348 123 (take (* count-species name-length)
ocsenave@348 124 (drop 0xE8000
ocsenave@348 125 rom))))))))
ocsenave@348 126 (def hxc-pokenames
ocsenave@348 127 (comp
ocsenave@348 128 (partial map format-name)
ocsenave@348 129 hxc-pokenames-raw))
ocsenave@348 130
ocsenave@348 131
ocsenave@348 132
ocsenave@348 133
ocsenave@348 134 (defn hxc-pokedex-names
ocsenave@348 135 "The names of the pokemon in hardcoded pokedex order. List begins at
ocsenave@348 136 ROM@410B1. See also, hxc-pokenames."
ocsenave@348 137 ([] (hxc-pokedex-names
ocsenave@348 138 com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 139 ([rom]
ocsenave@348 140 (let [names (hxc-pokenames rom)]
ocsenave@348 141 (#(mapv %
ocsenave@348 142 ((comp range count keys) %))
ocsenave@348 143 (zipmap
ocsenave@348 144 (take (count names)
ocsenave@348 145 (drop 0x410b1 rom))
ocsenave@348 146
ocsenave@348 147 names)))))
ocsenave@348 148
ocsenave@348 149 #+end_src
ocsenave@348 150
ocsenave@348 151
ocsenave@348 152
ocsenave@348 153 ** Generic species information
ocsenave@348 154
ocsenave@348 155 #+name: pokebase
ocsenave@348 156 #+begin_src clojure
ocsenave@348 157 (defn hxc-pokemon-base
ocsenave@348 158 ([] (hxc-pokemon-base com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 159 ([rom]
ocsenave@348 160 (let [entry-size 28
ocsenave@371 161
ocsenave@348 162 pokemon (rest (hxc-pokedex-names))
ocsenave@371 163 pkmn-count (inc(count pokemon))
ocsenave@348 164 types (apply assoc {}
ocsenave@348 165 (interleave
ocsenave@348 166 (range)
ocsenave@348 167 pkmn-types)) ;;!! softcoded
ocsenave@348 168 moves (apply assoc {}
ocsenave@348 169 (interleave
ocsenave@348 170 (range)
ocsenave@348 171 (map format-name
ocsenave@348 172 (hxc-move-names rom))))
ocsenave@348 173 machines (hxc-machines)
ocsenave@348 174 ]
ocsenave@348 175 (zipmap
ocsenave@348 176 pokemon
ocsenave@348 177 (map
ocsenave@348 178 (fn [[n
ocsenave@348 179 rating-hp
ocsenave@348 180 rating-atk
ocsenave@348 181 rating-def
ocsenave@348 182 rating-speed
ocsenave@348 183 rating-special
ocsenave@348 184 type-1
ocsenave@348 185 type-2
ocsenave@348 186 rarity
ocsenave@348 187 rating-xp
ocsenave@348 188 pic-dimensions ;; tile_width|tile_height (8px/tile)
ocsenave@348 189 ptr-pic-obverse-1
ocsenave@348 190 ptr-pic-obverse-2
ocsenave@348 191 ptr-pic-reverse-1
ocsenave@348 192 ptr-pic-reverse-2
ocsenave@348 193 move-1
ocsenave@348 194 move-2
ocsenave@348 195 move-3
ocsenave@348 196 move-4
ocsenave@348 197 growth-rate
ocsenave@348 198 &
ocsenave@348 199 TMs|HMs]]
ocsenave@348 200 (let
ocsenave@348 201 [base-moves
ocsenave@348 202 (mapv moves
ocsenave@348 203 ((comp
ocsenave@348 204 ;; since the game uses zero as a delimiter,
ocsenave@348 205 ;; it must also increment all move indices by 1.
ocsenave@348 206 ;; heren we decrement to correct this.
ocsenave@348 207 (partial map dec)
ocsenave@348 208 (partial take-while (comp not zero?)))
ocsenave@348 209 [move-1 move-2 move-3 move-4]))
ocsenave@348 210
ocsenave@348 211 types
ocsenave@348 212 (set (list (types type-1)
ocsenave@348 213 (types type-2)))
ocsenave@348 214 TMs|HMs
ocsenave@348 215 (map
ocsenave@348 216 (comp
ocsenave@348 217 (partial map first)
ocsenave@348 218 (partial remove (comp zero? second)))
ocsenave@348 219 (split-at
ocsenave@348 220 50
ocsenave@348 221 (map vector
ocsenave@348 222 (rest(range))
ocsenave@348 223 (reduce concat
ocsenave@348 224 (map
ocsenave@348 225 #(take 8
ocsenave@348 226 (concat (bit-list %)
ocsenave@348 227 (repeat 0)))
ocsenave@348 228
ocsenave@348 229 TMs|HMs)))))
ocsenave@348 230
ocsenave@348 231 TMs (vec (first TMs|HMs))
ocsenave@348 232 HMs (take 5 (map (partial + -50) (vec (second TMs|HMs))))
ocsenave@348 233
ocsenave@348 234
ocsenave@348 235 ]
ocsenave@348 236
ocsenave@348 237
ocsenave@348 238 {:dex# n
ocsenave@348 239 :base-moves base-moves
ocsenave@348 240 :types types
ocsenave@348 241 :TMs TMs
ocsenave@348 242 :HMs HMs
ocsenave@348 243 :base-hp rating-hp
ocsenave@348 244 :base-atk rating-atk
ocsenave@348 245 :base-def rating-def
ocsenave@348 246 :base-speed rating-speed
ocsenave@348 247 :base-special rating-special
ocsenave@348 248 :o0 pic-dimensions
ocsenave@348 249 :o1 ptr-pic-obverse-1
ocsenave@348 250 :o2 ptr-pic-obverse-2
ocsenave@348 251 }))
ocsenave@348 252
ocsenave@348 253 (partition entry-size
ocsenave@348 254 (take (* entry-size pkmn-count)
ocsenave@348 255 (drop 0x383DE
ocsenave@348 256 rom))))))))
ocsenave@348 257
ocsenave@348 258 #+end_src
ocsenave@348 259
ocsenave@348 260
ocsenave@348 261 ** Pok\eacute{}mon evolutions
ocsenave@348 262 #+name: evolution-header
ocsenave@348 263 #+begin_src clojure
ocsenave@348 264 (defn format-evo
ocsenave@348 265 "Parse a sequence of evolution data, returning a map. First is the
ocsenave@348 266 method: 0 = end-evolution-data. 1 = level-up, 2 = item, 3 = trade. Next is an item id, if the
ocsenave@348 267 method of evolution is by item (only stones will actually make pokemon
ocsenave@348 268 evolve, for some auxillary reason.) Finally, the minimum level for
ocsenave@348 269 evolution to occur (level 1 means no limit, which is used for trade
ocsenave@348 270 and item evolutions), followed by the internal id of the pokemon
ocsenave@348 271 into which to evolve. Hence, level up and trade evolutions are
ocsenave@348 272 described with 3
ocsenave@348 273 bytes; item evolutions with four."
ocsenave@348 274 [coll]
ocsenave@348 275 (let [method (first coll)]
ocsenave@348 276 (cond (empty? coll) []
ocsenave@348 277 (= 0 method) [] ;; just in case
ocsenave@348 278 (= 1 method) ;; level-up evolution
ocsenave@348 279 (conj (format-evo (drop 3 coll))
ocsenave@348 280 {:method :level-up
ocsenave@348 281 :min-level (nth coll 1)
ocsenave@348 282 :into (dec (nth coll 2))})
ocsenave@348 283
ocsenave@348 284 (= 2 method) ;; item evolution
ocsenave@348 285 (conj (format-evo (drop 4 coll))
ocsenave@348 286 {:method :item
ocsenave@348 287 :item (dec (nth coll 1))
ocsenave@348 288 :min-level (nth coll 2)
ocsenave@348 289 :into (dec (nth coll 3))})
ocsenave@348 290
ocsenave@348 291 (= 3 method) ;; trade evolution
ocsenave@348 292 (conj (format-evo (drop 3 coll))
ocsenave@348 293 {:method :trade
ocsenave@348 294 :min-level (nth coll 1) ;; always 1 for trade.
ocsenave@348 295 :into (dec (nth coll 2))}))))
ocsenave@348 296
ocsenave@348 297
ocsenave@348 298 (defn hxc-ptrs-evolve
ocsenave@348 299 "A hardcoded collection of 190 pointers to alternating evolution/learnset data,
ocsenave@348 300 in internal order."
ocsenave@348 301 ([]
ocsenave@348 302 (hxc-ptrs-evolve com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 303 ([rom]
ocsenave@348 304 (let [
ocsenave@348 305 pkmn-count (count (hxc-pokenames-raw)) ;; 190
ocsenave@348 306 ptrs
ocsenave@348 307 (map (fn [[a b]] (low-high a b))
ocsenave@348 308 (partition 2
ocsenave@348 309 (take (* 2 pkmn-count)
ocsenave@348 310 (drop 0x3b1e5 rom))))]
ocsenave@348 311 (map (partial + 0x34000) ptrs)
ocsenave@348 312
ocsenave@348 313 )))
ocsenave@348 314 #+end_src
ocsenave@348 315
ocsenave@348 316 #+name:evolution
ocsenave@348 317 #+begin_src clojure
ocsenave@348 318
ocsenave@348 319 (defn hxc-evolution
ocsenave@348 320 "Hardcoded evolution data in memory. The data exists at ROM@34000,
ocsenave@348 321 sorted by internal order. Pointers to the data exist at ROM@3B1E5; see also, hxc-ptrs-evolve."
ocsenave@348 322 ([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 323 ([rom]
ocsenave@348 324 (apply assoc {}
ocsenave@348 325 (interleave
ocsenave@348 326 (hxc-pokenames rom)
ocsenave@348 327 (map
ocsenave@348 328 (comp
ocsenave@348 329 format-evo
ocsenave@348 330 (partial take-while (comp not zero?))
ocsenave@348 331 #(drop % rom))
ocsenave@348 332 (hxc-ptrs-evolve rom)
ocsenave@348 333 )))))
ocsenave@348 334
ocsenave@348 335 (defn hxc-evolution-pretty
ocsenave@348 336 "Like hxc-evolution, except it uses the names of items and pokemon
ocsenave@348 337 --- grabbed from ROM --- rather than their numerical identifiers."
ocsenave@348 338 ([] (hxc-evolution-pretty com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 339 ([rom]
ocsenave@348 340 (let
ocsenave@348 341 [poke-names (vec (hxc-pokenames rom))
ocsenave@348 342 item-names (vec (hxc-items rom))
ocsenave@348 343 use-names
ocsenave@348 344 (fn [m]
ocsenave@348 345 (loop [ks (keys m) new-map m]
ocsenave@348 346 (let [k (first ks)]
ocsenave@348 347 (cond (nil? ks) new-map
ocsenave@348 348 (= k :into)
ocsenave@348 349 (recur
ocsenave@348 350 (next ks)
ocsenave@348 351 (assoc new-map
ocsenave@348 352 :into
ocsenave@348 353 (poke-names
ocsenave@348 354 (:into
ocsenave@348 355 new-map))))
ocsenave@348 356 (= k :item)
ocsenave@348 357 (recur
ocsenave@348 358 (next ks)
ocsenave@348 359 (assoc new-map
ocsenave@348 360 :item
ocsenave@348 361 (item-names
ocsenave@348 362 (:item new-map))))
ocsenave@348 363 :else
ocsenave@348 364 (recur
ocsenave@348 365 (next ks)
ocsenave@348 366 new-map)
ocsenave@348 367 ))))]
ocsenave@348 368
ocsenave@348 369 (into {}
ocsenave@348 370 (map (fn [[pkmn evo-coll]]
ocsenave@348 371 [pkmn (map use-names evo-coll)])
ocsenave@348 372 (hxc-evolution rom))))))
ocsenave@348 373
ocsenave@348 374
ocsenave@348 375 #+end_src
ocsenave@348 376
ocsenave@348 377
ocsenave@348 378 ** Level-up moves (learnsets)
ocsenave@348 379 #+name: learnsets
ocsenave@348 380 #+begin_src clojure
ocsenave@348 381
ocsenave@348 382
ocsenave@348 383 (defn hxc-learnsets
ocsenave@348 384 "Hardcoded map associating pokemon names to lists of pairs [lvl
ocsenave@348 385 move] of abilities they learn as they level up. The data
ocsenave@348 386 exists at ROM@34000, sorted by internal order. Pointers to the data
ocsenave@348 387 exist at ROM@3B1E5; see also, hxc-ptrs-evolve"
ocsenave@348 388 ([] (hxc-learnsets com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 389 ([rom]
ocsenave@348 390 (apply assoc
ocsenave@348 391 {}
ocsenave@348 392 (interleave
ocsenave@348 393 (hxc-pokenames rom)
ocsenave@348 394 (map (comp
ocsenave@348 395 (partial map
ocsenave@348 396 (fn [[lvl mv]] [lvl (dec mv)]))
ocsenave@348 397 (partial partition 2)
ocsenave@348 398 ;; keep the learnset data
ocsenave@348 399 (partial take-while (comp not zero?))
ocsenave@348 400 ;; skip the evolution data
ocsenave@348 401 rest
ocsenave@348 402 (partial drop-while (comp not zero?)))
ocsenave@348 403 (map #(drop % rom)
ocsenave@348 404 (hxc-ptrs-evolve rom)))))))
ocsenave@348 405
ocsenave@348 406 (defn hxc-learnsets-pretty
ocsenave@348 407 "Live hxc-learnsets except it reports the name of each move --- as
ocsenave@348 408 it appears in rom --- rather than the move index."
ocsenave@348 409 ([] (hxc-learnsets-pretty com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 410 ([rom]
ocsenave@348 411 (let [moves (vec(map format-name (hxc-move-names)))]
ocsenave@348 412 (into {}
ocsenave@348 413 (map (fn [[pkmn learnset]]
ocsenave@348 414 [pkmn (map (fn [[lvl mv]] [lvl (moves mv)])
ocsenave@348 415 learnset)])
ocsenave@348 416 (hxc-learnsets rom))))))
ocsenave@348 417
ocsenave@348 418
ocsenave@348 419
ocsenave@348 420 #+end_src
ocsenave@348 421
ocsenave@348 422
ocsenave@348 423
ocsenave@348 424 * Pok\eacute{}mon II : the Pok\eacute{}dex
ocsenave@348 425 ** Species vital stats
ocsenave@348 426 #+name: dex-stats
ocsenave@348 427 #+begin_src clojure
ocsenave@348 428 (defn hxc-pokedex-stats
ocsenave@348 429 "The hardcoded pokedex stats (species height weight) in memory. List
ocsenave@348 430 begins at ROM@40687"
ocsenave@348 431 ([] (hxc-pokedex-stats com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 432 ([rom]
ocsenave@348 433 (let [pokedex-names (zipmap (range) (hxc-pokedex-names rom))
ocsenave@348 434 pkmn-count (count pokedex-names)
ocsenave@348 435 ]
ocsenave@348 436 ((fn capture-stats
ocsenave@348 437 [n stats data]
ocsenave@348 438 (if (zero? n) stats
ocsenave@348 439 (let [[species
ocsenave@348 440 [_
ocsenave@348 441 height-ft
ocsenave@348 442 height-in
ocsenave@348 443 weight-1
ocsenave@348 444 weight-2
ocsenave@348 445 _
ocsenave@348 446 dex-ptr-1
ocsenave@348 447 dex-ptr-2
ocsenave@348 448 dex-bank
ocsenave@348 449 _
ocsenave@348 450 & data]]
ocsenave@348 451 (split-with (partial not= 0x50) data)]
ocsenave@348 452 (recur (dec n)
ocsenave@348 453 (assoc stats
ocsenave@348 454 (pokedex-names (- pkmn-count (dec n)))
ocsenave@348 455 {:species
ocsenave@348 456 (format-name (character-codes->str species))
ocsenave@348 457 :height-ft
ocsenave@348 458 height-ft
ocsenave@348 459 :height-in
ocsenave@348 460 height-in
ocsenave@348 461 :weight
ocsenave@348 462 (/ (low-high weight-1 weight-2) 10.)
ocsenave@348 463
ocsenave@348 464 ;; :text
ocsenave@348 465 ;; (character-codes->str
ocsenave@348 466 ;; (take-while
ocsenave@348 467 ;; (partial not= 0x50)
ocsenave@348 468 ;; (drop
ocsenave@348 469 ;; (+ 0xB8000
ocsenave@348 470 ;; -0x4000
ocsenave@348 471 ;; (low-high dex-ptr-1 dex-ptr-2))
ocsenave@348 472 ;; rom)))
ocsenave@348 473 })
ocsenave@348 474
ocsenave@348 475 data)
ocsenave@348 476
ocsenave@348 477
ocsenave@348 478 )))
ocsenave@348 479
ocsenave@348 480 pkmn-count
ocsenave@348 481 {}
ocsenave@348 482 (drop 0x40687 rom))) ))
ocsenave@348 483 #+end_src
ocsenave@348 484
ocsenave@348 485 ** Species synopses
ocsenave@348 486
ocsenave@348 487 #+name: dex-text
ocsenave@348 488 #+begin_src clojure
ocsenave@348 489 (def hxc-pokedex-text-raw
ocsenave@348 490 "The hardcoded pokedex entries in memory. List begins at
ocsenave@348 491 ROM@B8000, shortly before move names."
ocsenave@348 492 (hxc-thunk-words 0xB8000 14754))
ocsenave@348 493
ocsenave@348 494
ocsenave@348 495
ocsenave@348 496
ocsenave@348 497 (defn hxc-pokedex-text
ocsenave@348 498 "The hardcoded pokedex entries in memory, presented as an
ocsenave@348 499 associative hash map. List begins at ROM@B8000."
ocsenave@348 500 ([] (hxc-pokedex-text com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 501 ([rom]
ocsenave@348 502 (zipmap
ocsenave@348 503 (hxc-pokedex-names rom)
ocsenave@348 504 (cons nil ;; for missingno.
ocsenave@348 505 (hxc-pokedex-text-raw rom)))))
ocsenave@348 506 #+end_src
ocsenave@348 507
ocsenave@348 508
ocsenave@348 509 ** Pok\eacute{}mon cries
ocsenave@348 510 #+name: pokecry
ocsenave@348 511 #+begin_src clojure
ocsenave@348 512 (defn hxc-cry
ocsenave@348 513 "The pokemon cry data in internal order. List begins at ROM@39462"
ocsenave@348 514 ([](hxc-cry com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 515 ([rom]
ocsenave@348 516 (zipmap
ocsenave@348 517 (hxc-pokenames rom)
ocsenave@348 518 (map
ocsenave@348 519 (fn [[cry-id pitch length]]
ocsenave@348 520 {:cry-id cry-id
ocsenave@348 521 :pitch pitch
ocsenave@348 522 :length length}
ocsenave@348 523 )
ocsenave@348 524 (partition 3
ocsenave@348 525 (drop 0x39462 rom))))))
ocsenave@348 526
ocsenave@348 527 (defn hxc-cry-groups
ocsenave@348 528 ([] (hxc-cry-groups com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 529 ([rom]
ocsenave@348 530 (map #(mapv first
ocsenave@348 531 (filter
ocsenave@348 532 (fn [[k v]]
ocsenave@348 533 (= % (:cry-id v)))
ocsenave@348 534 (hxc-cry)))
ocsenave@348 535 ((comp
ocsenave@348 536 range
ocsenave@348 537 count
ocsenave@348 538 set
ocsenave@348 539 (partial map :cry-id)
ocsenave@348 540 vals
ocsenave@348 541 hxc-cry)
ocsenave@348 542 rom))))
ocsenave@348 543
ocsenave@348 544
ocsenave@348 545 (defn cry-conversion!
ocsenave@348 546 "Convert Porygon's cry in ROM to be the cry of the given pokemon."
ocsenave@348 547 [pkmn]
ocsenave@348 548 (write-rom!
ocsenave@348 549 (rewrite-memory
ocsenave@348 550 (vec(rom))
ocsenave@348 551 0x3965D
ocsenave@348 552 (map second
ocsenave@348 553 ((hxc-cry) pkmn)))))
ocsenave@348 554
ocsenave@348 555 #+end_src
ocsenave@348 556
ocsenave@348 557 ** COMMENT Names of permanent stats
ocsenave@348 558 0DD4D-DD72
ocsenave@348 559
ocsenave@348 560 * Items
ocsenave@348 561 ** Item names
ocsenave@371 562
ocsenave@371 563 *** See the data
ocsenave@371 564 #+begin_src clojure :exports both :results output
ocsenave@371 565 (ns com.aurellem.gb.hxc
ocsenave@371 566 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 567 constants))
ocsenave@371 568 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 569
ocsenave@371 570 (println (take 100 (drop 0x045B7 (rom))))
ocsenave@371 571
ocsenave@371 572 (println
ocsenave@371 573 (partition-by
ocsenave@371 574 (partial = 0x50)
ocsenave@371 575 (take 100 (drop 0x045B7 (rom)))))
ocsenave@371 576
ocsenave@371 577 (println
ocsenave@371 578 (map character-codes->str
ocsenave@371 579 (partition-by
ocsenave@371 580 (partial = 0x50)
ocsenave@371 581 (take 100 (drop 0x045B7 (rom))))))
ocsenave@371 582
ocsenave@371 583
ocsenave@371 584 #+end_src
ocsenave@371 585
ocsenave@371 586 #+results:
ocsenave@371 587 : (140 128 146 147 132 145 127 129 128 139 139 80 148 139 147 145 128 127 129 128 139 139 80 134 145 132 128 147 127 129 128 139 139 80 143 142 138 186 127 129 128 139 139 80 147 142 150 141 127 140 128 143 80 129 136 130 152 130 139 132 80 230 230 230 230 230 80 146 128 133 128 145 136 127 129 128 139 139 80 143 142 138 186 131 132 151 80 140 142 142 141 127 146 147 142 141 132 80 128 141)
ocsenave@371 588 : ((140 128 146 147 132 145 127 129 128 139 139) (80) (148 139 147 145 128 127 129 128 139 139) (80) (134 145 132 128 147 127 129 128 139 139) (80) (143 142 138 186 127 129 128 139 139) (80) (147 142 150 141 127 140 128 143) (80) (129 136 130 152 130 139 132) (80) (230 230 230 230 230) (80) (146 128 133 128 145 136 127 129 128 139 139) (80) (143 142 138 186 131 132 151) (80) (140 142 142 141 127 146 147 142 141 132) (80) (128 141))
ocsenave@371 589 : (MASTER BALL # ULTRA BALL # GREAT BALL # POKĂ© BALL # TOWN MAP # BICYCLE # ????? # SAFARI BALL # POKĂ©DEX # MOON STONE # AN)
ocsenave@371 590
ocsenave@371 591 *** Automatically grab the data
ocsenave@348 592 #+name: item-names
ocsenave@348 593 #+begin_src clojure
ocsenave@348 594
ocsenave@348 595 (def hxc-items-raw
ocsenave@348 596 "The hardcoded names of the items in memory. List begins at
ocsenave@348 597 ROM@045B7"
ocsenave@348 598 (hxc-thunk-words 0x45B7 870))
ocsenave@348 599
ocsenave@348 600 (def hxc-items
ocsenave@348 601 "The hardcoded names of the items in memory, presented as
ocsenave@348 602 keywords. List begins at ROM@045B7. See also, hxc-items-raw."
ocsenave@348 603 (comp (partial map format-name) hxc-items-raw))
ocsenave@348 604 #+end_src
ocsenave@348 605
ocsenave@348 606 ** Item prices
ocsenave@371 607
ocsenave@371 608 ***
ocsenave@371 609 #+begin_src clojure :exports both :results output
ocsenave@371 610 (ns com.aurellem.gb.hxc
ocsenave@371 611 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 612 constants))
ocsenave@371 613 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 614
ocsenave@371 615 (println (take 90 (drop 0x4495 (rom))))
ocsenave@371 616
ocsenave@371 617 (println
ocsenave@371 618 (partition 3
ocsenave@371 619 (take 90 (drop 0x4495 (rom)))))
ocsenave@371 620
ocsenave@371 621 (println
ocsenave@371 622 (partition 3
ocsenave@371 623 (map hex
ocsenave@371 624 (take 90 (drop 0x4495 (rom))))))
ocsenave@371 625
ocsenave@371 626 (println
ocsenave@371 627 (map decode-bcd
ocsenave@371 628 (map butlast
ocsenave@371 629 (partition 3
ocsenave@371 630 (take 90 (drop 0x4495 (rom)))))))
ocsenave@371 631
ocsenave@371 632 (println
ocsenave@371 633 (map
ocsenave@371 634 vector
ocsenave@371 635 (hxc-items (rom))
ocsenave@371 636 (map decode-bcd
ocsenave@371 637 (map butlast
ocsenave@371 638 (partition 3
ocsenave@371 639 (take 90 (drop 0x4495 (rom))))))))
ocsenave@371 640
ocsenave@371 641
ocsenave@371 642
ocsenave@371 643
ocsenave@371 644
ocsenave@371 645 #+end_src
ocsenave@371 646
ocsenave@371 647 #+results:
ocsenave@371 648 : (0 0 0 18 0 0 6 0 0 2 0 0 0 0 0 0 0 0 0 0 0 16 0 0 0 0 0 0 0 0 1 0 0 2 80 0 2 80 0 2 0 0 2 0 0 48 0 0 37 0 0 21 0 0 7 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 80 0 3 80 0)
ocsenave@371 649 : ((0 0 0) (18 0 0) (6 0 0) (2 0 0) (0 0 0) (0 0 0) (0 0 0) (16 0 0) (0 0 0) (0 0 0) (1 0 0) (2 80 0) (2 80 0) (2 0 0) (2 0 0) (48 0 0) (37 0 0) (21 0 0) (7 0 0) (3 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (0 0 0) (5 80 0) (3 80 0))
ocsenave@371 650 : ((0x0 0x0 0x0) (0x12 0x0 0x0) (0x6 0x0 0x0) (0x2 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x10 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x1 0x0 0x0) (0x2 0x50 0x0) (0x2 0x50 0x0) (0x2 0x0 0x0) (0x2 0x0 0x0) (0x30 0x0 0x0) (0x25 0x0 0x0) (0x15 0x0 0x0) (0x7 0x0 0x0) (0x3 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x0 0x0 0x0) (0x5 0x50 0x0) (0x3 0x50 0x0))
ocsenave@371 651 : (0 1200 600 200 0 0 0 1000 0 0 100 250 250 200 200 3000 2500 1500 700 300 0 0 0 0 0 0 0 0 550 350)
ocsenave@371 652 : ([:master-ball 0] [:ultra-ball 1200] [:great-ball 600] [:poké-ball 200] [:town-map 0] [:bicycle 0] [:????? 0] [:safari-ball 1000] [:pokédex 0] [:moon-stone 0] [:antidote 100] [:burn-heal 250] [:ice-heal 250] [:awakening 200] [:parlyz-heal 200] [:full-restore 3000] [:max-potion 2500] [:hyper-potion 1500] [:super-potion 700] [:potion 300] [:boulderbadge 0] [:cascadebadge 0] [:thunderbadge 0] [:rainbowbadge 0] [:soulbadge 0] [:marshbadge 0] [:volcanobadge 0] [:earthbadge 0] [:escape-rope 550] [:repel 350])
ocsenave@371 653
ocsenave@371 654
ocsenave@371 655 ***
ocsenave@348 656 #+name: item-prices
ocsenave@348 657 #+begin_src clojure
ocsenave@348 658 (defn hxc-item-prices
ocsenave@348 659 "The hardcoded list of item prices in memory. List begins at ROM@4495"
ocsenave@348 660 ([] (hxc-item-prices com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 661 ([rom]
ocsenave@348 662 (let [items (hxc-items rom)
ocsenave@348 663 price-size 3]
ocsenave@348 664 (zipmap items
ocsenave@348 665 (map (comp
ocsenave@348 666 ;; zero-cost items are "priceless"
ocsenave@348 667 #(if (zero? %) :priceless %)
ocsenave@348 668 decode-bcd butlast)
ocsenave@348 669 (partition price-size
ocsenave@348 670 (take (* price-size (count items))
ocsenave@348 671 (drop 0x4495 rom))))))))
ocsenave@348 672 #+end_src
ocsenave@348 673 ** Vendor inventories
ocsenave@348 674
ocsenave@348 675 #+name: item-vendors
ocsenave@348 676 #+begin_src clojure
ocsenave@348 677 (defn hxc-shops
ocsenave@348 678 ([] (hxc-shops com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 679 ([rom]
ocsenave@348 680 (let [items (zipmap (range) (hxc-items rom))
ocsenave@348 681
ocsenave@348 682 ;; temporarily softcode the TM items
ocsenave@348 683 items (into
ocsenave@348 684 items
ocsenave@348 685 (map (juxt identity
ocsenave@348 686 (comp keyword
ocsenave@348 687 (partial str "tm-")
ocsenave@348 688 (partial + 1 -200)
ocsenave@348 689 ))
ocsenave@348 690 (take 200 (drop 200 (range)))))
ocsenave@348 691
ocsenave@348 692 ]
ocsenave@348 693
ocsenave@348 694 ((fn parse-shop [coll [num-items & items-etc]]
ocsenave@348 695 (let [inventory (take-while
ocsenave@348 696 (partial not= 0xFF)
ocsenave@348 697 items-etc)
ocsenave@348 698 [separator & items-etc] (drop num-items (rest items-etc))]
ocsenave@348 699 (if (= separator 0x50)
ocsenave@348 700 (map (partial mapv (comp items dec)) (conj coll inventory))
ocsenave@348 701 (recur (conj coll inventory) items-etc)
ocsenave@348 702 )
ocsenave@348 703 ))
ocsenave@348 704
ocsenave@348 705 '()
ocsenave@348 706 (drop 0x233C rom))
ocsenave@348 707
ocsenave@348 708
ocsenave@348 709 )))
ocsenave@348 710 #+end_src
ocsenave@348 711
ocsenave@348 712 #+results: item-vendors
ocsenave@348 713 : #'com.aurellem.gb.hxc/hxc-shops
ocsenave@348 714
ocsenave@348 715
ocsenave@348 716
ocsenave@348 717 * Types
ocsenave@348 718 ** Names of types
ocsenave@406 719
ocsenave@406 720 *** COMMENT Pointers to type names
ocsenave@406 721 #+begin_src clojure :exports both :results output
ocsenave@406 722 (map (comp character-codes->str #(take-while (partial not= 80) (drop % (rom))) (partial + 0x20000) (partial apply low-high)) (partition 2 (take 54 (drop 0x27D63 (rom)))))
ocsenave@406 723 #+end_src
ocsenave@406 724
ocsenave@406 725
ocsenave@371 726 ***
ocsenave@371 727 #+begin_src clojure :exports both :results output
ocsenave@371 728 (ns com.aurellem.gb.hxc
ocsenave@371 729 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 730 constants))
ocsenave@371 731 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 732
ocsenave@371 733 (println (take 90 (drop 0x27D99 (rom))))
ocsenave@371 734
ocsenave@371 735 (println
ocsenave@371 736 (partition-by (partial = 0x50)
ocsenave@371 737 (take 90 (drop 0x27D99 (rom)))))
ocsenave@371 738
ocsenave@371 739 (println
ocsenave@371 740 (map character-codes->str
ocsenave@371 741 (partition-by (partial = 0x50)
ocsenave@371 742 (take 90 (drop 0x27D99 (rom))))))
ocsenave@371 743
ocsenave@371 744 #+end_src
ocsenave@371 745
ocsenave@371 746 #+results:
ocsenave@371 747 : (141 142 145 140 128 139 80 133 136 134 135 147 136 141 134 80 133 139 152 136 141 134 80 143 142 136 146 142 141 80 133 136 145 132 80 150 128 147 132 145 80 134 145 128 146 146 80 132 139 132 130 147 145 136 130 80 143 146 152 130 135 136 130 80 136 130 132 80 134 145 142 148 141 131 80 145 142 130 138 80 129 136 145 131 80 129 148 134 80 134)
ocsenave@371 748 : ((141 142 145 140 128 139) (80) (133 136 134 135 147 136 141 134) (80) (133 139 152 136 141 134) (80) (143 142 136 146 142 141) (80) (133 136 145 132) (80) (150 128 147 132 145) (80) (134 145 128 146 146) (80) (132 139 132 130 147 145 136 130) (80) (143 146 152 130 135 136 130) (80) (136 130 132) (80) (134 145 142 148 141 131) (80) (145 142 130 138) (80) (129 136 145 131) (80) (129 148 134) (80) (134))
ocsenave@371 749 : (NORMAL # FIGHTING # FLYING # POISON # FIRE # WATER # GRASS # ELECTRIC # PSYCHIC # ICE # GROUND # ROCK # BIRD # BUG # G)
ocsenave@371 750
ocsenave@371 751
ocsenave@371 752 ***
ocsenave@348 753 #+name: type-names
ocsenave@348 754 #+begin_src clojure
ocsenave@348 755 (def hxc-types
ocsenave@348 756 "The hardcoded type names in memory. List begins at ROM@27D99,
ocsenave@348 757 shortly before hxc-titles."
ocsenave@348 758 (hxc-thunk-words 0x27D99 102))
ocsenave@348 759
ocsenave@348 760 #+end_src
ocsenave@348 761
ocsenave@348 762 ** Type effectiveness
ocsenave@371 763 ***
ocsenave@371 764 #+begin_src clojure :exports both :results output
ocsenave@371 765 (ns com.aurellem.gb.hxc
ocsenave@371 766 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 767 constants))
ocsenave@371 768 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 769
ocsenave@371 770
ocsenave@371 771 ;; POKEMON TYPES
ocsenave@371 772
ocsenave@371 773 (println pkmn-types) ;; these are the pokemon types
ocsenave@371 774 (println (map vector (range) pkmn-types)) ;; each type has an id number.
ocsenave@371 775
ocsenave@371 776 (newline)
ocsenave@371 777
ocsenave@371 778
ocsenave@371 779
ocsenave@371 780
ocsenave@371 781 ;;; TYPE EFFECTIVENESS
ocsenave@371 782
ocsenave@371 783 (println (take 15 (drop 0x3E62D (rom))))
ocsenave@371 784 (println (partition 3 (take 15 (drop 0x3E62D (rom)))))
ocsenave@371 785
ocsenave@371 786 (println
ocsenave@371 787 (map
ocsenave@371 788 (fn [[atk-type def-type multiplier]]
ocsenave@371 789 (list atk-type def-type (/ multiplier 10.)))
ocsenave@371 790
ocsenave@371 791 (partition 3
ocsenave@371 792 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371 793
ocsenave@371 794
ocsenave@371 795 (println
ocsenave@371 796 (map
ocsenave@371 797 (fn [[atk-type def-type multiplier]]
ocsenave@371 798 [
ocsenave@371 799 (get pkmn-types atk-type)
ocsenave@371 800 (get pkmn-types def-type)
ocsenave@371 801 (/ multiplier 10.)
ocsenave@371 802 ])
ocsenave@371 803
ocsenave@371 804 (partition 3
ocsenave@371 805 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371 806
ocsenave@371 807 #+end_src
ocsenave@371 808
ocsenave@371 809 #+results:
ocsenave@371 810 : [:normal :fighting :flying :poison :ground :rock :bird :bug :ghost :A :B :C :D :E :F :G :H :I :J :K :fire :water :grass :electric :psychic :ice :dragon]
ocsenave@371 811 : ([0 :normal] [1 :fighting] [2 :flying] [3 :poison] [4 :ground] [5 :rock] [6 :bird] [7 :bug] [8 :ghost] [9 :A] [10 :B] [11 :C] [12 :D] [13 :E] [14 :F] [15 :G] [16 :H] [17 :I] [18 :J] [19 :K] [20 :fire] [21 :water] [22 :grass] [23 :electric] [24 :psychic] [25 :ice] [26 :dragon])
ocsenave@371 812 :
ocsenave@371 813 : (0 5 5 0 8 0 8 8 20 20 7 20 20 5 5)
ocsenave@371 814 : ((0 5 5) (0 8 0) (8 8 20) (20 7 20) (20 5 5))
ocsenave@371 815 : ((0 5 0.5) (0 8 0.0) (8 8 2.0) (20 7 2.0) (20 5 0.5))
ocsenave@371 816 : ([:normal :rock 0.5] [:normal :ghost 0.0] [:ghost :ghost 2.0] [:fire :bug 2.0] [:fire :rock 0.5])
ocsenave@371 817
ocsenave@371 818
ocsenave@371 819 ***
ocsenave@372 820
ocsenave@349 821 #+name: type-advantage
ocsenave@348 822 #+begin_src clojure
ocsenave@348 823 (defn hxc-advantage
ocsenave@348 824 ;; in-game multipliers are stored as 10x their effective value
ocsenave@348 825 ;; to allow for fractional multipliers like 1/2
ocsenave@348 826
ocsenave@348 827 "The hardcoded type advantages in memory, returned as tuples of
ocsenave@348 828 atk-type def-type multiplier. By default (i.e. if not listed here),
ocsenave@348 829 the multiplier is 1. List begins at 0x3E62D."
ocsenave@348 830 ([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 831 ([rom]
ocsenave@348 832 (map
ocsenave@348 833 (fn [[atk def mult]] [(get pkmn-types atk (hex atk))
ocsenave@348 834 (get pkmn-types def (hex def))
ocsenave@348 835 (/ mult 10)])
ocsenave@348 836 (partition 3
ocsenave@348 837 (take-while (partial not= 0xFF)
ocsenave@348 838 (drop 0x3E62D rom))))))
ocsenave@348 839 #+end_src
ocsenave@348 840
ocsenave@348 841
ocsenave@348 842
ocsenave@348 843 * Moves
ocsenave@348 844 ** Names of moves
ocsenave@371 845 *** See the data
ocsenave@371 846 #+begin_src clojure :exports both :results output
ocsenave@371 847 (ns com.aurellem.gb.hxc
ocsenave@371 848 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 849 constants))
ocsenave@371 850 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 851
ocsenave@371 852 (println (take 100 (drop 0xBC000 (rom))))
ocsenave@371 853
ocsenave@371 854 (println
ocsenave@371 855 (partition-by
ocsenave@371 856 (partial = 0x50)
ocsenave@371 857 (take 100 (drop 0xBC000 (rom)))))
ocsenave@371 858
ocsenave@371 859 (println
ocsenave@371 860 (map character-codes->str
ocsenave@371 861 (partition-by
ocsenave@371 862 (partial = 0x50)
ocsenave@371 863 (take 100 (drop 0xBC000 (rom))))))
ocsenave@371 864
ocsenave@371 865
ocsenave@371 866 #+end_src
ocsenave@371 867
ocsenave@371 868 #+results:
ocsenave@371 869 : (143 142 148 141 131 80 138 128 145 128 147 132 127 130 135 142 143 80 131 142 148 129 139 132 146 139 128 143 80 130 142 140 132 147 127 143 148 141 130 135 80 140 132 134 128 127 143 148 141 130 135 80 143 128 152 127 131 128 152 80 133 136 145 132 127 143 148 141 130 135 80 136 130 132 127 143 148 141 130 135 80 147 135 148 141 131 132 145 143 148 141 130 135 80 146 130 145 128 147 130)
ocsenave@371 870 : ((143 142 148 141 131) (80) (138 128 145 128 147 132 127 130 135 142 143) (80) (131 142 148 129 139 132 146 139 128 143) (80) (130 142 140 132 147 127 143 148 141 130 135) (80) (140 132 134 128 127 143 148 141 130 135) (80) (143 128 152 127 131 128 152) (80) (133 136 145 132 127 143 148 141 130 135) (80) (136 130 132 127 143 148 141 130 135) (80) (147 135 148 141 131 132 145 143 148 141 130 135) (80) (146 130 145 128 147 130))
ocsenave@371 871 : (POUND # KARATE CHOP # DOUBLESLAP # COMET PUNCH # MEGA PUNCH # PAY DAY # FIRE PUNCH # ICE PUNCH # THUNDERPUNCH # SCRATC)
ocsenave@371 872
ocsenave@371 873 *** Automatically grab the data
ocsenave@371 874
ocsenave@348 875 #+name: move-names
ocsenave@348 876 #+begin_src clojure
ocsenave@348 877 (def hxc-move-names
ocsenave@348 878 "The hardcoded move names in memory. List begins at ROM@BC000"
ocsenave@348 879 (hxc-thunk-words 0xBC000 1551))
ocsenave@348 880 #+end_src
ocsenave@348 881
ocsenave@348 882 ** Properties of moves
ocsenave@348 883
ocsenave@348 884 #+name: move-data
ocsenave@348 885 #+begin_src clojure
ocsenave@348 886 (defn hxc-move-data
ocsenave@348 887 "The hardcoded (basic (move effects)) in memory. List begins at
ocsenave@348 888 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id
ocsenave@348 889 :fx-txt}. The move descriptions are handwritten, not hardcoded."
ocsenave@348 890 ([]
ocsenave@348 891 (hxc-move-data com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 892 ([rom]
ocsenave@348 893 (let [names (vec (hxc-move-names rom))
ocsenave@348 894 move-count (count names)
ocsenave@348 895 move-size 6
ocsenave@348 896 types pkmn-types ;;; !! hardcoded types
ocsenave@348 897 ]
ocsenave@348 898 (zipmap (map format-name names)
ocsenave@348 899 (map
ocsenave@348 900 (fn [[idx effect power type-id accuracy pp]]
ocsenave@348 901 {:name (names (dec idx))
ocsenave@348 902 :power power
ocsenave@348 903 :accuracy accuracy
ocsenave@348 904 :pp pp
ocsenave@348 905 :type (types type-id)
ocsenave@348 906 :fx-id effect
ocsenave@348 907 :fx-txt (get move-effects effect)
ocsenave@348 908 }
ocsenave@348 909 )
ocsenave@348 910
ocsenave@348 911 (partition move-size
ocsenave@348 912 (take (* move-size move-count)
ocsenave@348 913 (drop 0x38000 rom))))))))
ocsenave@348 914
ocsenave@348 915
ocsenave@348 916
ocsenave@348 917 (defn hxc-move-data*
ocsenave@348 918 "Like hxc-move-data, but reports numbers as hexadecimal symbols instead."
ocsenave@348 919 ([]
ocsenave@348 920 (hxc-move-data* com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 921 ([rom]
ocsenave@348 922 (let [names (vec (hxc-move-names rom))
ocsenave@348 923 move-count (count names)
ocsenave@348 924 move-size 6
ocsenave@348 925 format-name (fn [s]
ocsenave@348 926 (keyword (.toLowerCase
ocsenave@348 927 (apply str
ocsenave@348 928 (map #(if (= % \space) "-" %) s)))))
ocsenave@348 929 ]
ocsenave@348 930 (zipmap (map format-name names)
ocsenave@348 931 (map
ocsenave@348 932 (fn [[idx effect power type accuracy pp]]
ocsenave@348 933 {:name (names (dec idx))
ocsenave@348 934 :power power
ocsenave@348 935 :accuracy (hex accuracy)
ocsenave@348 936 :pp pp
ocsenave@348 937 :fx-id (hex effect)
ocsenave@348 938 :fx-txt (get move-effects effect)
ocsenave@348 939 }
ocsenave@348 940 )
ocsenave@348 941
ocsenave@348 942 (partition move-size
ocsenave@348 943 (take (* move-size move-count)
ocsenave@348 944 (drop 0x38000 rom))))))))
ocsenave@348 945
ocsenave@348 946 #+end_src
ocsenave@348 947
ocsenave@348 948 ** TM and HM moves
ocsenave@371 949 ***
ocsenave@371 950 #+begin_src clojure :exports both :results output
ocsenave@371 951 (ns com.aurellem.gb.hxc
ocsenave@371 952 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 953 constants))
ocsenave@371 954 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348 955
ocsenave@371 956
ocsenave@371 957 (println (hxc-move-names))
ocsenave@371 958 (println (map vector (rest(range)) (hxc-move-names)))
ocsenave@371 959
ocsenave@371 960 (newline)
ocsenave@371 961
ocsenave@371 962 (println (take 55 (drop 0x1232D (rom))))
ocsenave@371 963
ocsenave@371 964 (println
ocsenave@371 965 (interpose "."
ocsenave@371 966 (map
ocsenave@371 967 (zipmap (rest (range)) (hxc-move-names))
ocsenave@371 968 (take 55 (drop 0x1232D (rom))))))
ocsenave@371 969
ocsenave@371 970 #+end_src
ocsenave@371 971
ocsenave@371 972 #+results:
ocsenave@371 973 : (POUND KARATE CHOP DOUBLESLAP COMET PUNCH MEGA PUNCH PAY DAY FIRE PUNCH ICE PUNCH THUNDERPUNCH SCRATCH VICEGRIP GUILLOTINE RAZOR WIND SWORDS DANCE CUT GUST WING ATTACK WHIRLWIND FLY BIND SLAM VINE WHIP STOMP DOUBLE KICK MEGA KICK JUMP KICK ROLLING KICK SAND-ATTACK HEADBUTT HORN ATTACK FURY ATTACK HORN DRILL TACKLE BODY SLAM WRAP TAKE DOWN THRASH DOUBLE-EDGE TAIL WHIP POISON STING TWINEEDLE PIN MISSILE LEER BITE GROWL ROAR SING SUPERSONIC SONICBOOM DISABLE ACID EMBER FLAMETHROWER MIST WATER GUN HYDRO PUMP SURF ICE BEAM BLIZZARD PSYBEAM BUBBLEBEAM AURORA BEAM HYPER BEAM PECK DRILL PECK SUBMISSION LOW KICK COUNTER SEISMIC TOSS STRENGTH ABSORB MEGA DRAIN LEECH SEED GROWTH RAZOR LEAF SOLARBEAM POISONPOWDER STUN SPORE SLEEP POWDER PETAL DANCE STRING SHOT DRAGON RAGE FIRE SPIN THUNDERSHOCK THUNDERBOLT THUNDER WAVE THUNDER ROCK THROW EARTHQUAKE FISSURE DIG TOXIC CONFUSION PSYCHIC HYPNOSIS MEDITATE AGILITY QUICK ATTACK RAGE TELEPORT NIGHT SHADE MIMIC SCREECH DOUBLE TEAM RECOVER HARDEN MINIMIZE SMOKESCREEN CONFUSE RAY WITHDRAW DEFENSE CURL BARRIER LIGHT SCREEN HAZE REFLECT FOCUS ENERGY BIDE METRONOME MIRROR MOVE SELFDESTRUCT EGG BOMB LICK SMOG SLUDGE BONE CLUB FIRE BLAST WATERFALL CLAMP SWIFT SKULL BASH SPIKE CANNON CONSTRICT AMNESIA KINESIS SOFTBOILED HI JUMP KICK GLARE DREAM EATER POISON GAS BARRAGE LEECH LIFE LOVELY KISS SKY ATTACK TRANSFORM BUBBLE DIZZY PUNCH SPORE FLASH PSYWAVE SPLASH ACID ARMOR CRABHAMMER EXPLOSION FURY SWIPES BONEMERANG REST ROCK SLIDE HYPER FANG SHARPEN CONVERSION TRI ATTACK SUPER FANG SLASH SUBSTITUTE STRUGGLE)
ocsenave@371 974 : ([1 POUND] [2 KARATE CHOP] [3 DOUBLESLAP] [4 COMET PUNCH] [5 MEGA PUNCH] [6 PAY DAY] [7 FIRE PUNCH] [8 ICE PUNCH] [9 THUNDERPUNCH] [10 SCRATCH] [11 VICEGRIP] [12 GUILLOTINE] [13 RAZOR WIND] [14 SWORDS DANCE] [15 CUT] [16 GUST] [17 WING ATTACK] [18 WHIRLWIND] [19 FLY] [20 BIND] [21 SLAM] [22 VINE WHIP] [23 STOMP] [24 DOUBLE KICK] [25 MEGA KICK] [26 JUMP KICK] [27 ROLLING KICK] [28 SAND-ATTACK] [29 HEADBUTT] [30 HORN ATTACK] [31 FURY ATTACK] [32 HORN DRILL] [33 TACKLE] [34 BODY SLAM] [35 WRAP] [36 TAKE DOWN] [37 THRASH] [38 DOUBLE-EDGE] [39 TAIL WHIP] [40 POISON STING] [41 TWINEEDLE] [42 PIN MISSILE] [43 LEER] [44 BITE] [45 GROWL] [46 ROAR] [47 SING] [48 SUPERSONIC] [49 SONICBOOM] [50 DISABLE] [51 ACID] [52 EMBER] [53 FLAMETHROWER] [54 MIST] [55 WATER GUN] [56 HYDRO PUMP] [57 SURF] [58 ICE BEAM] [59 BLIZZARD] [60 PSYBEAM] [61 BUBBLEBEAM] [62 AURORA BEAM] [63 HYPER BEAM] [64 PECK] [65 DRILL PECK] [66 SUBMISSION] [67 LOW KICK] [68 COUNTER] [69 SEISMIC TOSS] [70 STRENGTH] [71 ABSORB] [72 MEGA DRAIN] [73 LEECH SEED] [74 GROWTH] [75 RAZOR LEAF] [76 SOLARBEAM] [77 POISONPOWDER] [78 STUN SPORE] [79 SLEEP POWDER] [80 PETAL DANCE] [81 STRING SHOT] [82 DRAGON RAGE] [83 FIRE SPIN] [84 THUNDERSHOCK] [85 THUNDERBOLT] [86 THUNDER WAVE] [87 THUNDER] [88 ROCK THROW] [89 EARTHQUAKE] [90 FISSURE] [91 DIG] [92 TOXIC] [93 CONFUSION] [94 PSYCHIC] [95 HYPNOSIS] [96 MEDITATE] [97 AGILITY] [98 QUICK ATTACK] [99 RAGE] [100 TELEPORT] [101 NIGHT SHADE] [102 MIMIC] [103 SCREECH] [104 DOUBLE TEAM] [105 RECOVER] [106 HARDEN] [107 MINIMIZE] [108 SMOKESCREEN] [109 CONFUSE RAY] [110 WITHDRAW] [111 DEFENSE CURL] [112 BARRIER] [113 LIGHT SCREEN] [114 HAZE] [115 REFLECT] [116 FOCUS ENERGY] [117 BIDE] [118 METRONOME] [119 MIRROR MOVE] [120 SELFDESTRUCT] [121 EGG BOMB] [122 LICK] [123 SMOG] [124 SLUDGE] [125 BONE CLUB] [126 FIRE BLAST] [127 WATERFALL] [128 CLAMP] [129 SWIFT] [130 SKULL BASH] [131 SPIKE CANNON] [132 CONSTRICT] [133 AMNESIA] [134 KINESIS] [135 SOFTBOILED] [136 HI JUMP KICK] [137 GLARE] [138 DREAM EATER] [139 POISON GAS] [140 BARRAGE] [141 LEECH LIFE] [142 LOVELY KISS] [143 SKY ATTACK] [144 TRANSFORM] [145 BUBBLE] [146 DIZZY PUNCH] [147 SPORE] [148 FLASH] [149 PSYWAVE] [150 SPLASH] [151 ACID ARMOR] [152 CRABHAMMER] [153 EXPLOSION] [154 FURY SWIPES] [155 BONEMERANG] [156 REST] [157 ROCK SLIDE] [158 HYPER FANG] [159 SHARPEN] [160 CONVERSION] [161 TRI ATTACK] [162 SUPER FANG] [163 SLASH] [164 SUBSTITUTE] [165 STRUGGLE])
ocsenave@371 975 :
ocsenave@371 976 : (5 13 14 18 25 92 32 34 36 38 61 55 58 59 63 6 66 68 69 99 72 76 82 85 87 89 90 91 94 100 102 104 115 117 118 120 121 126 129 130 135 138 143 156 86 149 153 157 161 164 15 19 57 70 148)
ocsenave@371 977 : (MEGA PUNCH . RAZOR WIND . SWORDS DANCE . WHIRLWIND . MEGA KICK . TOXIC . HORN DRILL . BODY SLAM . TAKE DOWN . DOUBLE-EDGE . BUBBLEBEAM . WATER GUN . ICE BEAM . BLIZZARD . HYPER BEAM . PAY DAY . SUBMISSION . COUNTER . SEISMIC TOSS . RAGE . MEGA DRAIN . SOLARBEAM . DRAGON RAGE . THUNDERBOLT . THUNDER . EARTHQUAKE . FISSURE . DIG . PSYCHIC . TELEPORT . MIMIC . DOUBLE TEAM . REFLECT . BIDE . METRONOME . SELFDESTRUCT . EGG BOMB . FIRE BLAST . SWIFT . SKULL BASH . SOFTBOILED . DREAM EATER . SKY ATTACK . REST . THUNDER WAVE . PSYWAVE . EXPLOSION . ROCK SLIDE . TRI ATTACK . SUBSTITUTE . CUT . FLY . SURF . STRENGTH . FLASH)
ocsenave@371 978
ocsenave@371 979
ocsenave@371 980 ***
ocsenave@348 981 #+name: machines
ocsenave@348 982 #+begin_src clojure
ocsenave@348 983 (defn hxc-machines
ocsenave@348 984 "The hardcoded moves taught by TMs and HMs. List begins at ROM@1232D."
ocsenave@348 985 ([] (hxc-machines
ocsenave@348 986 com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 987 ([rom]
ocsenave@348 988 (let [moves (hxc-move-names rom)]
ocsenave@348 989 (zipmap
ocsenave@348 990 (range)
ocsenave@348 991 (take-while
ocsenave@348 992 (comp not nil?)
ocsenave@348 993 (map (comp
ocsenave@348 994 format-name
ocsenave@348 995 (zipmap
ocsenave@348 996 (range)
ocsenave@348 997 moves)
ocsenave@348 998 dec)
ocsenave@348 999 (take 100
ocsenave@348 1000 (drop 0x1232D rom))))))))
ocsenave@348 1001
ocsenave@348 1002 #+end_src
ocsenave@348 1003
ocsenave@348 1004
ocsenave@348 1005
ocsenave@348 1006
ocsenave@348 1007
ocsenave@348 1008 ** COMMENT Status ailments
ocsenave@348 1009
ocsenave@348 1010 * Places
ocsenave@348 1011 ** Names of places
ocsenave@348 1012
ocsenave@348 1013 #+name: places
ocsenave@348 1014 #+begin_src clojure
ocsenave@348 1015 (def hxc-places
ocsenave@348 1016 "The hardcoded place names in memory. List begins at
ocsenave@348 1017 ROM@71500. [Cinnabar] Mansion seems to be dynamically calculated."
ocsenave@348 1018 (hxc-thunk-words 0x71500 560))
ocsenave@348 1019
ocsenave@348 1020 #+end_src
ocsenave@348 1021
ocsenave@348 1022 ** Wild Pok\eacute{}mon demographics
ocsenave@348 1023 #+name: wilds
ocsenave@348 1024 #+begin_src clojure
ocsenave@348 1025
ocsenave@348 1026
ocsenave@348 1027
ocsenave@348 1028 (defn hxc-ptrs-wild
ocsenave@348 1029 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348 1030 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348 1031 ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1032 ([rom]
ocsenave@348 1033 (let [ptrs
ocsenave@348 1034 (map (fn [[a b]] (+ a (* 0x100 b)))
ocsenave@348 1035 (take-while (partial not= (list 0xFF 0xFF))
ocsenave@348 1036 (partition 2 (drop 0xCB95 rom))))]
ocsenave@348 1037 ptrs)))
ocsenave@348 1038
ocsenave@348 1039
ocsenave@348 1040
ocsenave@348 1041 (defn hxc-wilds
ocsenave@348 1042 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348 1043 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348 1044 ([] (hxc-wilds com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1045 ([rom]
ocsenave@348 1046 (let [pokenames (zipmap (range) (hxc-pokenames rom))]
ocsenave@348 1047 (map
ocsenave@348 1048 (partial map (fn [[a b]] {:species (pokenames (dec b)) :level
ocsenave@348 1049 a}))
ocsenave@348 1050 (partition 10
ocsenave@348 1051
ocsenave@348 1052 (take-while (comp (partial not= 1)
ocsenave@348 1053 first)
ocsenave@348 1054 (partition 2
ocsenave@348 1055 (drop 0xCD8C rom))
ocsenave@348 1056
ocsenave@348 1057 ))))))
ocsenave@348 1058
ocsenave@348 1059 #+end_src
ocsenave@348 1060
ocsenave@348 1061
ocsenave@348 1062
ocsenave@348 1063
ocsenave@348 1064
ocsenave@348 1065 * Appendices
ocsenave@348 1066
ocsenave@348 1067
ocsenave@348 1068
ocsenave@347 1069 ** Mapping the ROM
ocsenave@311 1070
ocsenave@311 1071 | ROM address (hex) | Description | Format | Example |
ocsenave@311 1072 |-------------------+-----------------+-----------------+-----------------|
ocsenave@311 1073 | | <15> | <15> | <15> |
ocsenave@312 1074 | 0233C- | Shop inventories. | | |
ocsenave@312 1075 | 04495- | Prices of items. | Each price is two bytes of binary-coded decimal. Prices are separated by zeroes. Priceless items[fn::Like the Pok\eacute{}dex and other unsellable items.] are given a price of zero. | The cost of lemonade is 0x03 0x50, which translates to a price of ₱350. |
ocsenave@311 1076 | 045B7-0491E | Names of the items in memory. | Variable-length item names (strings of character codes). Names are separated by a single 0x80 character. | MASTER BALL#ULTRA BALL#... |
ocsenave@346 1077 | 04D89- | Lists of wild Pok\eacute{}mon to encounter in each region. | Each list contains ten Pokemon (ids) and their levels; twenty bytes in total. First, the level of the first Pokemon. Then the internal id of the first Pokemon. Next, the level of the second Pokemon, and so on. Since Pokemon cannot have level 0, the lists are separated by a pair 0 /X/, where /X/ is an apparently random Pokemon id. | The first list is (3 36 4 36 2 165 3 165 2 36 3 36 5 36 4 165 6 36 7 36 0 25), i.e. level 3 pidgey, level 4 pidgey, level 2 rattata, level 3 rattata, level 2 pidgey, level 3 pidgey, level 5 pidgey, level 4 rattata, level 6 pidgey, level 7 pidgey, \ldquo{}level 0 gastly\rdquo{} (i.e., end-of-list). |
ocsenave@311 1078 | 05EDB. | Which Pok\eacute{}mon to show during Prof. Oak's introduction. | A single byte, the Pok\eacute{}mon's internal id. | In Pok\eacute{}mon Yellow, it shows Pikachu during the introduction; Pikachu's internal id is 0x54. |
ocsenave@312 1079 | 06698- | ? Background music. | | |
ocsenave@312 1080 | 0822E-082F? | Pointers to background music, part I. | | |
ocsenave@347 1081 | 0CB95- | Pointers to lists of wild pokemon to encounter in each region. These lists begin at 04D89, see above. | Each pointer is a low-byte, high-byte pair. | The first entry is 0x89 0x4D, corresponding to the address 0x4D89, the location of the first list of wild Pok\eacute{}mon (see 04D89, above). |
ocsenave@347 1082 |-------------------+-----------------+-----------------+-----------------|
ocsenave@347 1083 | 0DADB. | Amount of HP restored by Hyper Potion. | The HP consists of a single byte. TODO: Discover what the surrounding data does, and find the data for the amount of HP restored by other items: Fresh Water (50HP), Soda (60HP), Lemonade(80HP). | 200 |
ocsenave@347 1084 | 0DAE0. | Amount of HP restored by Super Potion. | " | 50 |
ocsenave@347 1085 | 0DAE3. | Amount of HP restored by Potion. | " | 20 |
ocsenave@347 1086 |-------------------+-----------------+-----------------+-----------------|
ocsenave@346 1087 | 0DD4D-DD72 | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# |
ocsenave@346 1088 | 1195C-1196A | The two terms for being able/unable to learn a TM/HM. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# |
ocsenave@346 1089 | 119C0-119CE | The two terms for being able/unable to evolve using the current stone. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# |
ocsenave@346 1090 | 1232D-12364 | Which moves are taught by the TMs and HMs | A list of 55 move ids (50 TMs, plus 5 HMs). First, the move that will be taught by TM01; second, the move that will be taught by TM02; and so on. The last five entries are the moves taught by HMs 1-5. (See also, BC000 below) | The first few entries are (5 13 14 18 ...) corresponding to Mega Punch (TM01), Razor Wind (TM02), Swords Dance (TM03), Whirlwind (TM04), ... |
ocsenave@406 1091 |-------------------+-----------------+-----------------+-----------------|
ocsenave@406 1092 | 27D56 & 27D57. | Pointer to the list of type pointers. | | |
ocsenave@406 1093 | 27D63-27D99 | Pointers to type names. | Each point is a low-byte, high-byte pair. The names of types follows immediately after this section; see below. | The first pointer is [0x99 0x7D], corresponding to the location 0x2.7D.99, the NORMAL type. |
ocsenave@311 1094 | 27D99-27DFF | Names of the Pok\eacute{}mon types. | Variable-length type names (strings of character codes). Names are separated by a single 0x80 character. | NORMAL#FIGHTING#... |
ocsenave@347 1095 | 27E77- | Trainer title names. | Variable-length names separated by 0x80. | YOUNGSTER#BUG CATCHER#LASS#... |
ocsenave@347 1096 | 34000- | | | |
ocsenave@347 1097 | 38000-383DE | The basic properties and effects of moves. (165 moves total) | Fixed-length (6 byte) continguous descriptions (no separating character): move-index, move-effect, power, move-type, accuracy, pp. | The entry for Pound, the first attack in the list, is (1 0 40 0 255 35). See below for more explanation. |
ocsenave@312 1098 | 383DE- | Species data for the Pokemon, listed in Pokedex order: Pokedex number; base moves; types; learnable TMs and HMs; base HP, attack, defense, speed, special; sprite data. | | |
ocsenave@311 1099 | 39462- | The Pok\eacute{}mon cry data. | Fixed-length (3 byte) descriptions of cries. | |
ocsenave@312 1100 | 3B1E5- | Pointers to evolution/learnset data. | | |
ocsenave@347 1101 | 3B361- | Evolution and learnset data. [fn::Evolution data consists of how to make Pok\eacute{}mon evolve, and what they evolve into. Learnset data consists of the moves that Pok\eacute{}mon learn as they level up.] | Variable-length evolution information (see below), followed by a list of level/move-id learnset pairs. | |
ocsenave@311 1102 | 40687- | Species data from the Pok\eacute{}dex: species name, height, weight, etc. | Fixed-length sequences of bytes. See below for specifics. | |
ocsenave@312 1103 | 410B1- | A conversion table between internal order and Pokedex order. | | |
ocsenave@346 1104 | 5DE10-5DE30 | Abbreviations for status ailments. | Fixed-length strings, probably[fn::Here's something strange: all of the status messages start with 0x7F and end with 0x4F \mdash{}except PAR, which ends with 0x50.]. The last entry is QUIT##. | [0x7F] *SLP* [0x4E][0x7F] *PSN* [0x4E][0x7F] *PAR* [0x50][0x7F]... |
ocsenave@312 1105 | 71500- | Names of places. | | |
ocsenave@312 1106 | 7C249-7C2?? | Pointers to background music, pt II. | | |
ocsenave@312 1107 | 98000- | Dialogue | | |
ocsenave@312 1108 | B8000- | The text of each Pokemon's Pok\eacute{}dex entry. | | |
ocsenave@347 1109 | BC000-BC60E | Move names. | Variable-length move names, separated by 0x80. The moves are in internal order. | POUND#KARATE CHOP#DOUBLESLAP#COMET PUNCH#... |
ocsenave@311 1110 | E8000-E876C | Names of the \ldquo{}190\rdquo{} species of Pok\eacute{}mon in memory. | Fixed length (10-letter) Pok\eacute{}mon names. Any extra space is padded with the character 0x80. The names are in \ldquo{}internal order\rdquo{}. | RHYDON####KANGASKHANNIDORAN♂#... |
ocsenave@311 1111 | | | | |
ocsenave@311 1112 | | | | |
ocsenave@312 1113
ocsenave@347 1114
ocsenave@347 1115
ocsenave@312 1116 ** Internal Pok\eacute{}mon IDs
ocsenave@312 1117 ** Type IDs
ocsenave@347 1118
ocsenave@347 1119 #+name: type-ids
ocsenave@347 1120 #+begin_src clojure
ocsenave@347 1121 (def pkmn-types
ocsenave@347 1122 [:normal ;;0
ocsenave@347 1123 :fighting ;;1
ocsenave@347 1124 :flying ;;2
ocsenave@347 1125 :poison ;;3
ocsenave@347 1126 :ground ;;4
ocsenave@347 1127 :rock ;;5
ocsenave@347 1128 :bird ;;6
ocsenave@347 1129 :bug ;;7
ocsenave@347 1130 :ghost ;;8
ocsenave@347 1131 :A
ocsenave@347 1132 :B
ocsenave@347 1133 :C
ocsenave@347 1134 :D
ocsenave@347 1135 :E
ocsenave@347 1136 :F
ocsenave@347 1137 :G
ocsenave@347 1138 :H
ocsenave@347 1139 :I
ocsenave@347 1140 :J
ocsenave@347 1141 :K
ocsenave@347 1142 :fire ;;20 (0x14)
ocsenave@347 1143 :water ;;21 (0x15)
ocsenave@347 1144 :grass ;;22 (0x16)
ocsenave@347 1145 :electric ;;23 (0x17)
ocsenave@347 1146 :psychic ;;24 (0x18)
ocsenave@347 1147 :ice ;;25 (0x19)
ocsenave@347 1148 :dragon ;;26 (0x1A)
ocsenave@347 1149 ])
ocsenave@347 1150 #+end_src
ocsenave@347 1151
ocsenave@312 1152 ** Basic effects of moves
ocsenave@347 1153
ocsenave@347 1154 *** Table of basic effects
ocsenave@347 1155
ocsenave@347 1156 The possible effects of moves in Pok\eacute{}mon \mdash{} for example, dealing
ocsenave@347 1157 damage, leeching health, or potentially poisoning the opponent
ocsenave@347 1158 \mdash{} are stored in a table. Each move has exactly one effect, and
ocsenave@347 1159 different moves might have the same effect.
ocsenave@347 1160
ocsenave@347 1161 For example, Leech Life, Mega Drain, and Absorb all have effect ID #3, which is \ldquo{}Leech half of the inflicted damage.\rdquo{}
ocsenave@347 1162
ocsenave@347 1163 All the legitimate move effects are listed in the table
ocsenave@347 1164 below. Here are some notes for reading it:
ocsenave@347 1165
ocsenave@347 1166 - Whenever an effect has a chance of doing something (like a chance of
ocsenave@371 1167 poisoning the opponent), I list the chance as a hexadecimal amount
ocsenave@371 1168 out of 256; this is to avoid rounding errors. To convert the hex amount into a percentage, divide by 256.
ocsenave@347 1169 - For some effects, the description is too cumbersome to
ocsenave@347 1170 write. Instead, I just write a move name
ocsenave@347 1171 in parentheses, like: (leech seed). That move gives a characteristic example
ocsenave@347 1172 of the effect.
ocsenave@347 1173 - I use the abbreviations =atk=, =def=, =spd=, =spc=, =acr=, =evd= for
ocsenave@371 1174 attack, defense, speed, special, accuracy, and evasiveness.
ocsenave@347 1175 .
ocsenave@347 1176
ocsenave@347 1177
ocsenave@347 1178
ocsenave@347 1179 | ID (hex) | Description | Notes |
ocsenave@347 1180 |----------+-------------------------------------------------------------------------------------------------+------------------------------------------------------------------|
ocsenave@347 1181 | 0 | normal damage | |
ocsenave@347 1182 | 1 | no damage, just sleep | TODO: find out how many turns |
ocsenave@347 1183 | 2 | 0x4C chance of poison | |
ocsenave@347 1184 | 3 | leech half of inflicted damage | |
ocsenave@347 1185 | 4 | 0x19 chance of burn | |
ocsenave@347 1186 | 5 | 0x19 chance of freeze | |
ocsenave@347 1187 | 6 | 0x19 chance of paralysis | |
ocsenave@347 1188 | 7 | user faints; opponent's defense is halved during attack. | |
ocsenave@347 1189 | 8 | leech half of inflicted damage ONLY if the opponent is asleep | |
ocsenave@347 1190 | 9 | imitate last attack | |
ocsenave@347 1191 | A | user atk +1 | |
ocsenave@347 1192 | B | user def +1 | |
ocsenave@347 1193 | C | user spd +1 | |
ocsenave@347 1194 | D | user spc +1 | |
ocsenave@347 1195 | E | user acr +1 | This effect is unused. |
ocsenave@347 1196 | F | user evd +1 | |
ocsenave@347 1197 | 10 | get post-battle money = 2 * level * uses | |
ocsenave@347 1198 | 11 | move has 0xFE acr, regardless of battle stat modifications. | |
ocsenave@347 1199 | 12 | opponent atk -1 | |
ocsenave@347 1200 | 13 | opponent def -1 | |
ocsenave@347 1201 | 14 | opponent spd -1 | |
ocsenave@347 1202 | 15 | opponent spc -1 | |
ocsenave@347 1203 | 16 | opponent acr -1 | |
ocsenave@347 1204 | 17 | opponent evd -1 | |
ocsenave@347 1205 | 18 | converts user's type to opponent's. | |
ocsenave@347 1206 | 19 | (haze) | |
ocsenave@347 1207 | 1A | (bide) | |
ocsenave@347 1208 | 1B | (thrash) | |
ocsenave@347 1209 | 1C | (teleport) | |
ocsenave@347 1210 | 1D | (fury swipes) | |
ocsenave@347 1211 | 1E | attacks 2-5 turns | Unused. TODO: find out what it does. |
ocsenave@347 1212 | 1F | 0x19 chance of flinching | |
ocsenave@347 1213 | 20 | opponent sleep for 1-7 turns | |
ocsenave@347 1214 | 21 | 0x66 chance of poison | |
ocsenave@347 1215 | 22 | 0x4D chance of burn | |
ocsenave@347 1216 | 23 | 0x4D chance of freeze | |
ocsenave@347 1217 | 24 | 0x4D chance of paralysis | |
ocsenave@347 1218 | 25 | 0x4D chance of flinching | |
ocsenave@347 1219 | 26 | one-hit KO | |
ocsenave@347 1220 | 27 | charge one turn, atk next. | |
ocsenave@347 1221 | 28 | fixed damage, leaves 1HP. | Is the fixed damage the power of the move? |
ocsenave@347 1222 | 29 | fixed damage. | Like seismic toss, dragon rage, psywave. |
ocsenave@347 1223 | 2A | atk 2-5 turns; opponent can't attack | The odds of attacking for /n/ turns are: (0 0x60 0x60 0x20 0x20) |
ocsenave@347 1224 | 2B | charge one turn, atk next. (can't be hit when charging) | |
ocsenave@347 1225 | 2C | atk hits twice. | |
ocsenave@347 1226 | 2D | user takes 1 damage if misses. | |
ocsenave@347 1227 | 2E | evade status-lowering effects | Caused by you or also your opponent? |
ocsenave@347 1228 | 2F | broken: if user is slower than opponent, makes critical hit impossible, otherwise has no effect | This is the effect of Focus Energy. It's (very) broken. |
ocsenave@347 1229 | 30 | atk causes recoil dmg = 1/4 dmg dealt | |
ocsenave@347 1230 | 31 | confuses opponent | |
ocsenave@347 1231 | 32 | user atk +2 | |
ocsenave@347 1232 | 33 | user def +2 | |
ocsenave@347 1233 | 34 | user spd +2 | |
ocsenave@347 1234 | 35 | user spc +2 | |
ocsenave@347 1235 | 36 | user acr +2 | This effect is unused. |
ocsenave@347 1236 | 37 | user evd +2 | This effect is unused. |
ocsenave@347 1237 | 38 | restores up to half of user's max hp. | |
ocsenave@347 1238 | 39 | (transform) | |
ocsenave@347 1239 | 3A | opponent atk -2 | |
ocsenave@347 1240 | 3B | opponent def -2 | |
ocsenave@347 1241 | 3C | opponent spd -2 | |
ocsenave@347 1242 | 3D | opponent spc -2 | |
ocsenave@347 1243 | 3E | opponent acr -2 | |
ocsenave@347 1244 | 3F | opponent evd -2 | |
ocsenave@347 1245 | 40 | doubles user spc when attacked | |
ocsenave@347 1246 | 41 | doubles user def when attacked | |
ocsenave@347 1247 | 42 | just poisons opponent | |
ocsenave@347 1248 | 43 | just paralyzes opponent | |
ocsenave@347 1249 | 44 | 0x19 chance opponent atk -1 | |
ocsenave@347 1250 | 45 | 0x19 chance opponent def -1 | |
ocsenave@347 1251 | 46 | 0x19 chance opponent spd -1 | |
ocsenave@347 1252 | 47 | 0x4C chance opponent spc -1 | |
ocsenave@347 1253 | 48 | 0x19 chance opponent acr -1 | |
ocsenave@347 1254 | 49 | 0x19 chance opponent evd -1 | |
ocsenave@347 1255 | 4A | ??? | ;; unused? no effect? |
ocsenave@347 1256 | 4B | ??? | ;; unused? no effect? |
ocsenave@347 1257 | 4C | 0x19 chance of confusing the opponent | |
ocsenave@347 1258 | 4D | atk hits twice. 0x33 chance opponent poisioned. | |
ocsenave@347 1259 | 4E | broken. crash the game after attack. | |
ocsenave@347 1260 | 4F | (substitute) | |
ocsenave@347 1261 | 50 | unless opponent faints, user must recharge after atk. some exceptions apply | |
ocsenave@347 1262 | 51 | (rage) | |
ocsenave@347 1263 | 52 | (mimic) | |
ocsenave@347 1264 | 53 | (metronome) | |
ocsenave@347 1265 | 54 | (leech seed) | |
ocsenave@347 1266 | 55 | does nothing (splash) | |
ocsenave@347 1267 | 56 | (disable) | |
ocsenave@347 1268 #+end_src
ocsenave@347 1269
ocsenave@347 1270 *** Source
ocsenave@347 1271 #+name: move-effects
ocsenave@347 1272 #+begin_src clojure
ocsenave@347 1273 (def move-effects
ocsenave@347 1274 ["normal damage"
ocsenave@347 1275 "no damage, just opponent sleep" ;; how many turns? is atk power ignored?
ocsenave@347 1276 "0x4C chance of poison"
ocsenave@347 1277 "leech half of inflicted damage"
ocsenave@347 1278 "0x19 chance of burn"
ocsenave@347 1279 "0x19 chance of freeze"
ocsenave@347 1280 "0x19 chance of paralyze"
ocsenave@347 1281 "user faints; opponent defense halved during attack."
ocsenave@347 1282 "leech half of inflicted damage ONLY if sleeping opponent."
ocsenave@347 1283 "imitate last attack"
ocsenave@347 1284 "user atk +1"
ocsenave@347 1285 "user def +1"
ocsenave@347 1286 "user spd +1"
ocsenave@347 1287 "user spc +1"
ocsenave@347 1288 "user acr +1" ;; unused?!
ocsenave@347 1289 "user evd +1"
ocsenave@347 1290 "get post-battle $ = 2*level*uses"
ocsenave@347 1291 "0xFE acr, no matter what."
ocsenave@347 1292 "opponent atk -1" ;; acr taken from move acr?
ocsenave@347 1293 "opponent def -1" ;;
ocsenave@347 1294 "opponent spd -1" ;;
ocsenave@347 1295 "opponent spc -1" ;;
ocsenave@347 1296 "opponent acr -1";;
ocsenave@347 1297 "opponent evd -1"
ocsenave@347 1298 "converts user's type to opponent's."
ocsenave@347 1299 "(haze)"
ocsenave@347 1300 "(bide)"
ocsenave@347 1301 "(thrash)"
ocsenave@347 1302 "(teleport)"
ocsenave@347 1303 "(fury swipes)"
ocsenave@347 1304 "attacks 2-5 turns" ;; unused? like rollout?
ocsenave@347 1305 "0x19 chance of flinch"
ocsenave@347 1306 "opponent sleep for 1-7 turns"
ocsenave@347 1307 "0x66 chance of poison"
ocsenave@347 1308 "0x4D chance of burn"
ocsenave@347 1309 "0x4D chance of freeze"
ocsenave@347 1310 "0x4D chance of paralyze"
ocsenave@347 1311 "0x4D chance of flinch"
ocsenave@347 1312 "one-hit KO"
ocsenave@347 1313 "charge one turn, atk next."
ocsenave@347 1314 "fixed damage, leaves 1HP." ;; how is dmg determined?
ocsenave@347 1315 "fixed damage." ;; cf seismic toss, dragon rage, psywave.
ocsenave@347 1316 "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20)
ocsenave@347 1317 "charge one turn, atk next. (can't be hit when charging)"
ocsenave@347 1318 "atk hits twice."
ocsenave@347 1319 "user takes 1 damage if misses."
ocsenave@347 1320 "evade status-lowering effects" ;;caused by you or also your opponent?
ocsenave@347 1321 "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect"
ocsenave@347 1322 "atk causes recoil dmg = 1/4 dmg dealt"
ocsenave@347 1323 "confuses opponent" ;; acr taken from move acr
ocsenave@347 1324 "user atk +2"
ocsenave@347 1325 "user def +2"
ocsenave@347 1326 "user spd +2"
ocsenave@347 1327 "user spc +2"
ocsenave@347 1328 "user acr +2" ;; unused!
ocsenave@347 1329 "user evd +2" ;; unused!
ocsenave@347 1330 "restores up to half of user's max hp." ;; broken: fails if the difference
ocsenave@347 1331 ;; b/w max and current hp is one less than a multiple of 256.
ocsenave@347 1332 "(transform)"
ocsenave@347 1333 "opponent atk -2"
ocsenave@347 1334 "opponent def -2"
ocsenave@347 1335 "opponent spd -2"
ocsenave@347 1336 "opponent spc -2"
ocsenave@347 1337 "opponent acr -2"
ocsenave@347 1338 "opponent evd -2"
ocsenave@347 1339 "doubles user spc when attacked"
ocsenave@347 1340 "doubles user def when attacked"
ocsenave@347 1341 "just poisons opponent" ;;acr taken from move acr
ocsenave@347 1342 "just paralyzes opponent" ;;
ocsenave@347 1343 "0x19 chance opponent atk -1"
ocsenave@347 1344 "0x19 chance opponent def -1"
ocsenave@347 1345 "0x19 chance opponent spd -1"
ocsenave@347 1346 "0x4C chance opponent spc -1" ;; context suggest chance is 0x19
ocsenave@347 1347 "0x19 chance opponent acr -1"
ocsenave@347 1348 "0x19 chance opponent evd -1"
ocsenave@347 1349 "???" ;; unused? no effect?
ocsenave@347 1350 "???" ;; unused? no effect?
ocsenave@347 1351 "0x19 chance opponent confused"
ocsenave@347 1352 "atk hits twice. 0x33 chance opponent poisioned."
ocsenave@347 1353 "broken. crash the game after attack."
ocsenave@347 1354 "(substitute)"
ocsenave@347 1355 "unless opponent faints, user must recharge after atk. some
ocsenave@347 1356 exceptions apply."
ocsenave@347 1357 "(rage)"
ocsenave@347 1358 "(mimic)"
ocsenave@347 1359 "(metronome)"
ocsenave@347 1360 "(leech seed)"
ocsenave@347 1361 "does nothing (splash)"
ocsenave@347 1362 "(disable)"
ocsenave@347 1363 ])
ocsenave@347 1364 #+end_src
ocsenave@347 1365
ocsenave@347 1366
ocsenave@312 1367 ** Alphabet code
ocsenave@347 1368
ocsenave@348 1369 * Source
ocsenave@348 1370
ocsenave@347 1371 #+begin_src clojure :tangle ../clojure/com/aurellem/gb/hxc.clj
ocsenave@347 1372
ocsenave@347 1373 (ns com.aurellem.gb.hxc
ocsenave@347 1374 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@347 1375 constants species))
ocsenave@347 1376 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@347 1377
ocsenave@347 1378 ; ************* HANDWRITTEN CONSTANTS
ocsenave@347 1379
ocsenave@347 1380 <<type-ids>>
ocsenave@347 1381
ocsenave@347 1382
ocsenave@347 1383 ;; question: when status effects claim to take
ocsenave@347 1384 ;; their accuracy from the move accuracy, does
ocsenave@347 1385 ;; this mean that the move always "hits" but the
ocsenave@347 1386 ;; status effect may not?
ocsenave@347 1387
ocsenave@347 1388 <<move-effects>>
ocsenave@347 1389
ocsenave@347 1390 ;; ************** HARDCODED DATA
ocsenave@347 1391
ocsenave@347 1392 <<hxc-thunks>>
ocsenave@347 1393 ;; --------------------------------------------------
ocsenave@347 1394
ocsenave@347 1395 <<pokenames>>
ocsenave@348 1396 <<type-names>>
ocsenave@347 1397
ocsenave@347 1398 ;; http://hax.iimarck.us/topic/581/
ocsenave@348 1399 <<pokecry>>
ocsenave@347 1400
ocsenave@347 1401
ocsenave@348 1402 <<item-names>>
ocsenave@347 1403
ocsenave@347 1404
ocsenave@347 1405
ocsenave@347 1406 (def hxc-titles
ocsenave@347 1407 "The hardcoded names of the trainer titles in memory. List begins at
ocsenave@347 1408 ROM@27E77"
ocsenave@347 1409 (hxc-thunk-words 0x27E77 196))
ocsenave@347 1410
ocsenave@347 1411
ocsenave@348 1412 <<dex-text>>
ocsenave@347 1413
ocsenave@347 1414 ;; In red/blue, pokedex stats are in internal order.
ocsenave@347 1415 ;; In yellow, pokedex stats are in pokedex order.
ocsenave@348 1416 <<dex-stats>>
ocsenave@347 1417
ocsenave@347 1418
ocsenave@347 1419
ocsenave@347 1420
ocsenave@348 1421 <<places>>
ocsenave@347 1422
ocsenave@347 1423 (defn hxc-dialog
ocsenave@347 1424 "The hardcoded dialogue in memory, including in-game alerts. Dialog
ocsenave@347 1425 seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000."
ocsenave@347 1426 ([rom]
ocsenave@347 1427 (map character-codes->str
ocsenave@347 1428 (take-nth 2
ocsenave@347 1429 (partition-by #(= % 0x57)
ocsenave@347 1430 (take 0x0F728
ocsenave@347 1431 (drop 0x98000 rom))))))
ocsenave@347 1432 ([]
ocsenave@347 1433 (hxc-dialog com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347 1434
ocsenave@347 1435
ocsenave@348 1436 <<move-names>>
ocsenave@348 1437 <<move-data>>
ocsenave@347 1438
ocsenave@348 1439 <<machines>>
ocsenave@347 1440
ocsenave@347 1441
ocsenave@347 1442
ocsenave@347 1443 (defn internal-id
ocsenave@347 1444 ([rom]
ocsenave@347 1445 (zipmap
ocsenave@347 1446 (hxc-pokenames rom)
ocsenave@347 1447 (range)))
ocsenave@347 1448 ([]
ocsenave@347 1449 (internal-id com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347 1450
ocsenave@347 1451
ocsenave@347 1452
ocsenave@347 1453
ocsenave@347 1454
ocsenave@347 1455 ;; nidoran gender change upon levelup
ocsenave@347 1456 ;; (->
ocsenave@347 1457 ;; @current-state
ocsenave@347 1458 ;; rom
ocsenave@347 1459 ;; vec
ocsenave@347 1460 ;; (rewrite-memory
ocsenave@347 1461 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂))
ocsenave@347 1462 ;; [1 1 15])
ocsenave@347 1463 ;; (rewrite-memory
ocsenave@347 1464 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀))
ocsenave@347 1465 ;; [1 1 3])
ocsenave@347 1466 ;; (write-rom!)
ocsenave@347 1467
ocsenave@347 1468 ;; )
ocsenave@347 1469
ocsenave@347 1470
ocsenave@347 1471
ocsenave@348 1472 <<type-advantage>>
ocsenave@347 1473
ocsenave@347 1474
ocsenave@347 1475
ocsenave@348 1476 <<evolution-header>>
ocsenave@349 1477 <<evolution>>
ocsenave@348 1478 <<learnsets>>
ocsenave@348 1479 <<pokebase>>
ocsenave@347 1480
ocsenave@347 1481
ocsenave@347 1482 (defn hxc-intro-pkmn
ocsenave@347 1483 "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's
ocsenave@347 1484 internal id is stored at ROM@5EDB."
ocsenave@347 1485 ([] (hxc-intro-pkmn
ocsenave@347 1486 com.aurellem.gb.gb-driver/original-rom))
ocsenave@347 1487 ([rom]
ocsenave@347 1488 (nth (hxc-pokenames rom) (nth rom 0x5EDB))))
ocsenave@347 1489
ocsenave@347 1490 (defn sxc-intro-pkmn!
ocsenave@347 1491 "Set the hardcoded pokemon to display in Prof. Oak's introduction."
ocsenave@347 1492 [pokemon]
ocsenave@347 1493 (write-rom!
ocsenave@347 1494 (rewrite-rom 0x5EDB
ocsenave@347 1495 [
ocsenave@347 1496 (inc
ocsenave@347 1497 ((zipmap
ocsenave@347 1498 (hxc-pokenames)
ocsenave@347 1499 (range))
ocsenave@347 1500 pokemon))])))
ocsenave@347 1501
ocsenave@347 1502
ocsenave@348 1503 <<item-prices>>
ocsenave@347 1504
ocsenave@348 1505 <<item-vendors>>
ocsenave@347 1506
ocsenave@348 1507 <<wilds>>
ocsenave@347 1508
ocsenave@347 1509
ocsenave@347 1510 ;; ********************** MANIPULATION FNS
ocsenave@347 1511
ocsenave@347 1512
ocsenave@347 1513 (defn same-type
ocsenave@347 1514 ([pkmn move]
ocsenave@347 1515 (same-type
ocsenave@347 1516 com.aurellem.gb.gb-driver/original-rom pkmn move))
ocsenave@347 1517 ([rom pkmn move]
ocsenave@347 1518 (((comp :types (hxc-pokemon-base rom)) pkmn)
ocsenave@347 1519 ((comp :type (hxc-move-data rom)) move))))
ocsenave@347 1520
ocsenave@347 1521
ocsenave@347 1522
ocsenave@347 1523
ocsenave@347 1524 (defn submap?
ocsenave@347 1525 "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false."
ocsenave@347 1526 [map-small map-big]
ocsenave@347 1527 (cond (empty? map-small) true
ocsenave@347 1528 (and
ocsenave@347 1529 (contains? map-big (ffirst map-small))
ocsenave@347 1530 (= (get map-big (ffirst map-small))
ocsenave@347 1531 (second (first map-small))))
ocsenave@347 1532 (recur (next map-small) map-big)
ocsenave@347 1533
ocsenave@347 1534 :else false))
ocsenave@347 1535
ocsenave@347 1536
ocsenave@347 1537 (defn search-map [proto-map maps]
ocsenave@347 1538 "Returns all the maps that make the same associations as proto-map."
ocsenave@347 1539 (some (partial submap? proto-map) maps))
ocsenave@347 1540
ocsenave@347 1541 (defn filter-vals
ocsenave@347 1542 "Returns a map consisting of all the pairs [key val] for
ocsenave@347 1543 which (pred key) returns true."
ocsenave@347 1544 [pred map]
ocsenave@347 1545 (reduce (partial apply assoc) {}
ocsenave@347 1546 (filter (fn [[k v]] (pred v)) map)))
ocsenave@347 1547
ocsenave@347 1548
ocsenave@347 1549 (defn search-moves
ocsenave@347 1550 "Returns a subcollection of all hardcoded moves with the
ocsenave@347 1551 given attributes. Attributes consist of :name :power
ocsenave@347 1552 :accuracy :pp :fx-id
ocsenave@347 1553 (and also :fx-txt, but it contains the same information
ocsenave@347 1554 as :fx-id)"
ocsenave@347 1555 ([attribute-map]
ocsenave@347 1556 (search-moves
ocsenave@347 1557 com.aurellem.gb.gb-driver/original-rom attribute-map))
ocsenave@347 1558 ([rom attribute-map]
ocsenave@347 1559 (filter-vals (partial submap? attribute-map)
ocsenave@347 1560 (hxc-move-data rom))))
ocsenave@347 1561
ocsenave@347 1562
ocsenave@347 1563
ocsenave@347 1564
ocsenave@347 1565
ocsenave@347 1566 ;; note: 0x2f31 contains the names "TM" "HM"?
ocsenave@347 1567
ocsenave@347 1568 ;; note for later: credits start at F1290
ocsenave@347 1569
ocsenave@347 1570 ;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ??
ocsenave@347 1571
ocsenave@347 1572 ;; note: DD4D spells out pokemon vital stat names ("speed", etc.)
ocsenave@347 1573
ocsenave@347 1574 ;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE.
ocsenave@347 1575 ;; The first instance is for Machines; the second, for stones.
ocsenave@347 1576
ocsenave@347 1577 ;; 0x251A (in indexable mem): image decompression routine seems to begin here.
ocsenave@347 1578
ocsenave@347 1579
ocsenave@373 1580 ;; Note: There are two tile tables, one from 8000-8FFF, the other from
ocsenave@373 1581 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end.
ocsenave@373 1582 (defn print-pixel-letters!
ocsenave@373 1583 "The pixel tiles representing letters. Neat!"
ocsenave@373 1584 ([] (print-pixel-letters! (read-state "oak-speaks")))
ocsenave@373 1585 ([state]
ocsenave@373 1586 (map
ocsenave@373 1587 (comp
ocsenave@373 1588 println
ocsenave@373 1589 (partial map #(if (zero? %) \space 0))
ocsenave@373 1590 #(if (< (count %) 8)
ocsenave@373 1591 (recur (cons 0 %))
ocsenave@373 1592 %)
ocsenave@373 1593 reverse bit-list)
ocsenave@373 1594
ocsenave@373 1595 (take 0xFFF (drop 0x8800 (memory state))))))
ocsenave@373 1596
ocsenave@373 1597
ocsenave@406 1598 (defn test-2 []
ocsenave@406 1599 (loop [n 0
ocsenave@406 1600 pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000)
ocsenave@406 1601 pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a])
ocsenave@406 1602 (step []) (nstep 100)) 100000)]
ocsenave@406 1603 (cond (empty? (drop n pc-1)) [pc-1 n]
ocsenave@406 1604 (not= (take 10 (drop n pc-1)) (take 10 pc-2))
ocsenave@406 1605 (recur pc-1 pc-2 (inc n))
ocsenave@406 1606 :else
ocsenave@406 1607 [(take 1000 pc-2) n])))
ocsenave@406 1608
ocsenave@406 1609
ocsenave@406 1610
ocsenave@406 1611
ocsenave@406 1612
ocsenave@406 1613
ocsenave@406 1614
ocsenave@347 1615 (comment
ocsenave@347 1616
ocsenave@347 1617 (def hxc-later
ocsenave@347 1618 "Running this code produces, e.g. hardcoded names NPCs give
ocsenave@347 1619 their pokemon. Will sort through it later."
ocsenave@347 1620 (print (character-codes->str(take 10000
ocsenave@347 1621 (drop 0x71597
ocsenave@347 1622 (rom (root)))))))
ocsenave@347 1623
ocsenave@347 1624 (let [dex
ocsenave@347 1625 (partition-by #(= 0x50 %)
ocsenave@347 1626 (take 2540
ocsenave@347 1627 (drop 0x40687
ocsenave@347 1628 (rom (root)))))]
ocsenave@347 1629 (def dex dex)
ocsenave@347 1630 (def hxc-species
ocsenave@347 1631 (map character-codes->str
ocsenave@347 1632 (take-nth 4 dex))))
ocsenave@347 1633 )
ocsenave@347 1634
ocsenave@347 1635
ocsenave@347 1636 #+end_src
ocsenave@347 1637
ocsenave@348 1638 #+results:
ocsenave@348 1639 : nil
ocsenave@348 1640