Mercurial > vba-clojure

annotate org/rom.org @ 420:acc3d1ad24e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Found HP restored by SODA POP, FRESH WATER, LEMONADE; also found number of steps for REPEL, SUPER REPEL, MAX REPEL.
author Dylan Holmes <ocsenave@gmail.com>
date Sat, 14 Apr 2012 09:27:49 -0500
parents 4901ba2d3860
children 13165fb5852b
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@419 4 #+description: A detailed explication of Pok\eacute{}mon Yellow, helped by Clojure.
ocsenave@419 5 #+keywords: pokemon, pokemon yellow, rom, gameboy, assembly, hex, pointers, clojure
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 ** COMMENT Getting linguistic data: names, words, etc.
ocsenave@348 16
ocsenave@348 17 Some of the simplest data
ocsenave@348 18
ocsenave@348 19
ocsenave@348 20 One of the simplest data structures in the Pok\eacute{} ROM is an
ocsenave@348 21 unbroken list of strings that either (a) all have a specific length,
ocsenave@348 22 or (b) are all separated by the same character.
ocsenave@348 23
ocsenave@348 24 Because lots of good data has this format, we'll start by writing a
ocsenave@348 25 template function to extract it:
ocsenave@348 26
ocsenave@348 27 #+name: hxc-thunks
ocsenave@348 28 #+begin_src clojure :results silent
ocsenave@348 29 (defn hxc-thunk
ocsenave@348 30 "Creates a thunk (nullary fn) that grabs data in a certain region of rom and
ocsenave@348 31 splits it into a collection by 0x50. If rom is not supplied, uses the
ocsenave@348 32 original rom data."
ocsenave@348 33 [start length]
ocsenave@348 34 (fn self
ocsenave@348 35 ([rom]
ocsenave@348 36 (take-nth 2
ocsenave@348 37 (partition-by #(= % 0x50)
ocsenave@348 38 (take length
ocsenave@348 39 (drop start rom)))))
ocsenave@348 40 ([]
ocsenave@348 41 (self com.aurellem.gb.gb-driver/original-rom))))
ocsenave@348 42
ocsenave@348 43 (def hxc-thunk-words
ocsenave@348 44 "Same as hxc-thunk, except it interprets the rom data as characters,
ocsenave@348 45 returning a collection of strings."
ocsenave@348 46 (comp
ocsenave@348 47 (partial comp (partial map character-codes->str))
ocsenave@348 48 hxc-thunk))
ocsenave@348 49
ocsenave@348 50 #+end_src
ocsenave@348 51
ocsenave@348 52
ocsenave@348 53 * Pok\eacute{}mon I
ocsenave@348 54 ** Names of each species
ocsenave@348 55 The names of the Pok\eacute{}mon species are stored in
ocsenave@348 56 ROM@E8000. This name list is interesting, for a number of reasons:
ocsenave@348 57 - The names are stored in [[ ][internal order]] rather than in the familiar
ocsenave@348 58 Pok\eacute{}dex order. This seemingly random order probably represents the order in which the authors created or
ocsenave@348 59 programmed in the Pok\eacute{}mon; it's used throughout the game.
ocsenave@348 60 - There is enough space allocated for 190 Pok\eacute{}mon. As I
ocsenave@348 61 understand it, there were originally going to be 190 Pok\eacute{}mon
ocsenave@348 62 in Generation I, but the creators decided to defer some to
ocsenave@348 63 Generation II. This explains why many Gen I and Gen II Pok\eacute{}mon
ocsenave@348 64 have the same aesthetic feel.
ocsenave@348 65 - The list is pockmarked with random gaps, due to the strange internal
ocsenave@348 66 ordering
ocsenave@348 67 and the 39 unused spaces [fn::190 allocated spaces minus 151 true Pok\eacute{}mon]. These missing spaces are filled with the
ocsenave@348 68 placeholder name =MISSINGNO.= (\ldquo{}Missing number\rdquo{}).
ocsenave@348 69
ocsenave@348 70 Each name is exactly ten letters long; whenever a name would be too short, the extra
ocsenave@348 71 space is padded with the character 0x50.
ocsenave@348 72
ocsenave@348 73 *** See the data
ocsenave@348 74
ocsenave@348 75 Here you can see the raw data in three stages: in the first stage, we
ocsenave@348 76 just grab the first few bytes starting from position 0xE8000. In the
ocsenave@371 77 second stage, we partition the bytes into ten-letter chunks to show you
ocsenave@348 78 where the names begin and end. In the final stage, we convert each
ocsenave@348 79 byte into the letter it represents using the =character-codes->str=
ocsenave@348 80 function. (0x50 is rendered as the symbol \ldquo{} =#= \rdquo{} for
ocsenave@348 81 ease of reading).
ocsenave@348 82
ocsenave@348 83 #+begin_src clojure :exports both :cache no :results output
ocsenave@348 84 (ns com.aurellem.gb.hxc
ocsenave@348 85 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@348 86 constants))
ocsenave@348 87 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348 88
ocsenave@371 89
ocsenave@348 90 (println (take 100 (drop 0xE8000 (rom))))
ocsenave@348 91
ocsenave@348 92 (println (partition 10 (take 100 (drop 0xE8000 (rom)))))
ocsenave@348 93
ocsenave@348 94 (println (character-codes->str (take 100 (drop 0xE8000 (rom)))))
ocsenave@348 95
ocsenave@348 96
ocsenave@348 97 #+end_src
ocsenave@348 98
ocsenave@348 99 #+results:
ocsenave@348 100 : (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 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 : RHYDON####KANGASKHANNIDORAN♂##CLEFAIRY##SPEAROW###VOLTORB###NIDOKING##SLOWBRO###IVYSAUR###EXEGGUTOR#
ocsenave@348 103
ocsenave@348 104
ocsenave@348 105 *** Automatically grab the data.
ocsenave@348 106
ocsenave@348 107 #+name: pokenames
ocsenave@348 108 #+begin_src clojure
ocsenave@348 109
ocsenave@348 110 (defn hxc-pokenames-raw
ocsenave@348 111 "The hardcoded names of the 190 species in memory. List begins at
ocsenave@348 112 ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters
ocsenave@348 113 long, these names are stripped of padding. See also, hxc-pokedex-names"
ocsenave@348 114 ([]
ocsenave@348 115 (hxc-pokenames-raw com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 116 ([rom]
ocsenave@348 117 (let [count-species 190
ocsenave@348 118 name-length 10]
ocsenave@348 119 (map character-codes->str
ocsenave@348 120 (partition name-length
ocsenave@348 121 (map #(if (= 0x50 %) 0x00 %)
ocsenave@348 122 (take (* count-species name-length)
ocsenave@348 123 (drop 0xE8000
ocsenave@348 124 rom))))))))
ocsenave@348 125 (def hxc-pokenames
ocsenave@348 126 (comp
ocsenave@348 127 (partial map format-name)
ocsenave@348 128 hxc-pokenames-raw))
ocsenave@348 129
ocsenave@348 130
ocsenave@348 131
ocsenave@348 132
ocsenave@348 133 (defn hxc-pokedex-names
ocsenave@411 134 "The names of the pokemon in hardcoded pokedex order. List of the
ocsenave@411 135 pokedex numbers of each pokemon (in internal order) 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@411 485 #+results: dex-stats
ocsenave@411 486 : #'com.aurellem.gb.hxc/hxc-pokedex-stats
ocsenave@411 487
ocsenave@348 488 ** Species synopses
ocsenave@348 489
ocsenave@348 490 #+name: dex-text
ocsenave@348 491 #+begin_src clojure
ocsenave@348 492 (def hxc-pokedex-text-raw
ocsenave@348 493 "The hardcoded pokedex entries in memory. List begins at
ocsenave@348 494 ROM@B8000, shortly before move names."
ocsenave@348 495 (hxc-thunk-words 0xB8000 14754))
ocsenave@348 496
ocsenave@348 497
ocsenave@348 498
ocsenave@348 499
ocsenave@348 500 (defn hxc-pokedex-text
ocsenave@348 501 "The hardcoded pokedex entries in memory, presented as an
ocsenave@348 502 associative hash map. List begins at ROM@B8000."
ocsenave@348 503 ([] (hxc-pokedex-text com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 504 ([rom]
ocsenave@348 505 (zipmap
ocsenave@348 506 (hxc-pokedex-names rom)
ocsenave@348 507 (cons nil ;; for missingno.
ocsenave@348 508 (hxc-pokedex-text-raw rom)))))
ocsenave@348 509 #+end_src
ocsenave@348 510
ocsenave@348 511
ocsenave@348 512 ** Pok\eacute{}mon cries
ocsenave@348 513 #+name: pokecry
ocsenave@348 514 #+begin_src clojure
ocsenave@348 515 (defn hxc-cry
ocsenave@348 516 "The pokemon cry data in internal order. List begins at ROM@39462"
ocsenave@348 517 ([](hxc-cry com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 518 ([rom]
ocsenave@348 519 (zipmap
ocsenave@348 520 (hxc-pokenames rom)
ocsenave@348 521 (map
ocsenave@348 522 (fn [[cry-id pitch length]]
ocsenave@348 523 {:cry-id cry-id
ocsenave@348 524 :pitch pitch
ocsenave@348 525 :length length}
ocsenave@348 526 )
ocsenave@348 527 (partition 3
ocsenave@348 528 (drop 0x39462 rom))))))
ocsenave@348 529
ocsenave@348 530 (defn hxc-cry-groups
ocsenave@348 531 ([] (hxc-cry-groups com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 532 ([rom]
ocsenave@348 533 (map #(mapv first
ocsenave@348 534 (filter
ocsenave@348 535 (fn [[k v]]
ocsenave@348 536 (= % (:cry-id v)))
ocsenave@348 537 (hxc-cry)))
ocsenave@348 538 ((comp
ocsenave@348 539 range
ocsenave@348 540 count
ocsenave@348 541 set
ocsenave@348 542 (partial map :cry-id)
ocsenave@348 543 vals
ocsenave@348 544 hxc-cry)
ocsenave@348 545 rom))))
ocsenave@348 546
ocsenave@348 547
ocsenave@348 548 (defn cry-conversion!
ocsenave@348 549 "Convert Porygon's cry in ROM to be the cry of the given pokemon."
ocsenave@348 550 [pkmn]
ocsenave@348 551 (write-rom!
ocsenave@348 552 (rewrite-memory
ocsenave@348 553 (vec(rom))
ocsenave@348 554 0x3965D
ocsenave@348 555 (map second
ocsenave@348 556 ((hxc-cry) pkmn)))))
ocsenave@348 557
ocsenave@348 558 #+end_src
ocsenave@348 559
ocsenave@348 560 ** COMMENT Names of permanent stats
ocsenave@348 561 0DD4D-DD72
ocsenave@348 562
ocsenave@348 563 * Items
ocsenave@348 564 ** Item names
ocsenave@371 565
ocsenave@371 566 *** See the data
ocsenave@371 567 #+begin_src clojure :exports both :results output
ocsenave@371 568 (ns com.aurellem.gb.hxc
ocsenave@371 569 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 570 constants))
ocsenave@371 571 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 572
ocsenave@371 573 (println (take 100 (drop 0x045B7 (rom))))
ocsenave@371 574
ocsenave@371 575 (println
ocsenave@371 576 (partition-by
ocsenave@371 577 (partial = 0x50)
ocsenave@371 578 (take 100 (drop 0x045B7 (rom)))))
ocsenave@371 579
ocsenave@371 580 (println
ocsenave@371 581 (map character-codes->str
ocsenave@371 582 (partition-by
ocsenave@371 583 (partial = 0x50)
ocsenave@371 584 (take 100 (drop 0x045B7 (rom))))))
ocsenave@371 585
ocsenave@371 586
ocsenave@371 587 #+end_src
ocsenave@371 588
ocsenave@371 589 #+results:
ocsenave@371 590 : (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 591 : ((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 592 : (MASTER BALL # ULTRA BALL # GREAT BALL # POKĂ© BALL # TOWN MAP # BICYCLE # ????? # SAFARI BALL # POKĂ©DEX # MOON STONE # AN)
ocsenave@371 593
ocsenave@371 594 *** Automatically grab the data
ocsenave@348 595 #+name: item-names
ocsenave@348 596 #+begin_src clojure
ocsenave@348 597
ocsenave@348 598 (def hxc-items-raw
ocsenave@348 599 "The hardcoded names of the items in memory. List begins at
ocsenave@348 600 ROM@045B7"
ocsenave@348 601 (hxc-thunk-words 0x45B7 870))
ocsenave@348 602
ocsenave@348 603 (def hxc-items
ocsenave@348 604 "The hardcoded names of the items in memory, presented as
ocsenave@348 605 keywords. List begins at ROM@045B7. See also, hxc-items-raw."
ocsenave@348 606 (comp (partial map format-name) hxc-items-raw))
ocsenave@348 607 #+end_src
ocsenave@348 608
ocsenave@348 609 ** Item prices
ocsenave@371 610
ocsenave@371 611 ***
ocsenave@371 612 #+begin_src clojure :exports both :results output
ocsenave@371 613 (ns com.aurellem.gb.hxc
ocsenave@371 614 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 615 constants))
ocsenave@371 616 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 617
ocsenave@371 618 (println (take 90 (drop 0x4495 (rom))))
ocsenave@371 619
ocsenave@371 620 (println
ocsenave@371 621 (partition 3
ocsenave@371 622 (take 90 (drop 0x4495 (rom)))))
ocsenave@371 623
ocsenave@371 624 (println
ocsenave@371 625 (partition 3
ocsenave@371 626 (map hex
ocsenave@371 627 (take 90 (drop 0x4495 (rom))))))
ocsenave@371 628
ocsenave@371 629 (println
ocsenave@371 630 (map decode-bcd
ocsenave@371 631 (map butlast
ocsenave@371 632 (partition 3
ocsenave@371 633 (take 90 (drop 0x4495 (rom)))))))
ocsenave@371 634
ocsenave@371 635 (println
ocsenave@371 636 (map
ocsenave@371 637 vector
ocsenave@371 638 (hxc-items (rom))
ocsenave@371 639 (map decode-bcd
ocsenave@371 640 (map butlast
ocsenave@371 641 (partition 3
ocsenave@371 642 (take 90 (drop 0x4495 (rom))))))))
ocsenave@371 643
ocsenave@371 644
ocsenave@371 645
ocsenave@371 646
ocsenave@371 647
ocsenave@371 648 #+end_src
ocsenave@371 649
ocsenave@371 650 #+results:
ocsenave@371 651 : (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 652 : ((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 653 : ((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 654 : (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 655 : ([: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 656
ocsenave@371 657
ocsenave@371 658 ***
ocsenave@348 659 #+name: item-prices
ocsenave@348 660 #+begin_src clojure
ocsenave@348 661 (defn hxc-item-prices
ocsenave@348 662 "The hardcoded list of item prices in memory. List begins at ROM@4495"
ocsenave@348 663 ([] (hxc-item-prices com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 664 ([rom]
ocsenave@348 665 (let [items (hxc-items rom)
ocsenave@348 666 price-size 3]
ocsenave@348 667 (zipmap items
ocsenave@348 668 (map (comp
ocsenave@348 669 ;; zero-cost items are "priceless"
ocsenave@348 670 #(if (zero? %) :priceless %)
ocsenave@348 671 decode-bcd butlast)
ocsenave@348 672 (partition price-size
ocsenave@348 673 (take (* price-size (count items))
ocsenave@348 674 (drop 0x4495 rom))))))))
ocsenave@348 675 #+end_src
ocsenave@348 676 ** Vendor inventories
ocsenave@348 677
ocsenave@348 678 #+name: item-vendors
ocsenave@348 679 #+begin_src clojure
ocsenave@348 680 (defn hxc-shops
ocsenave@348 681 ([] (hxc-shops com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 682 ([rom]
ocsenave@348 683 (let [items (zipmap (range) (hxc-items rom))
ocsenave@348 684
ocsenave@348 685 ;; temporarily softcode the TM items
ocsenave@348 686 items (into
ocsenave@348 687 items
ocsenave@348 688 (map (juxt identity
ocsenave@348 689 (comp keyword
ocsenave@348 690 (partial str "tm-")
ocsenave@348 691 (partial + 1 -200)
ocsenave@348 692 ))
ocsenave@348 693 (take 200 (drop 200 (range)))))
ocsenave@348 694
ocsenave@348 695 ]
ocsenave@348 696
ocsenave@348 697 ((fn parse-shop [coll [num-items & items-etc]]
ocsenave@348 698 (let [inventory (take-while
ocsenave@348 699 (partial not= 0xFF)
ocsenave@348 700 items-etc)
ocsenave@348 701 [separator & items-etc] (drop num-items (rest items-etc))]
ocsenave@348 702 (if (= separator 0x50)
ocsenave@348 703 (map (partial mapv (comp items dec)) (conj coll inventory))
ocsenave@348 704 (recur (conj coll inventory) items-etc)
ocsenave@348 705 )
ocsenave@348 706 ))
ocsenave@348 707
ocsenave@348 708 '()
ocsenave@348 709 (drop 0x233C rom))
ocsenave@348 710
ocsenave@348 711
ocsenave@348 712 )))
ocsenave@348 713 #+end_src
ocsenave@348 714
ocsenave@348 715 #+results: item-vendors
ocsenave@348 716 : #'com.aurellem.gb.hxc/hxc-shops
ocsenave@348 717
ocsenave@348 718
ocsenave@348 719
ocsenave@348 720 * Types
ocsenave@348 721 ** Names of types
ocsenave@406 722
ocsenave@406 723 *** COMMENT Pointers to type names
ocsenave@406 724 #+begin_src clojure :exports both :results output
ocsenave@406 725 (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 726 #+end_src
ocsenave@406 727
ocsenave@406 728
ocsenave@371 729 ***
ocsenave@371 730 #+begin_src clojure :exports both :results output
ocsenave@371 731 (ns com.aurellem.gb.hxc
ocsenave@371 732 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 733 constants))
ocsenave@371 734 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 735
ocsenave@371 736 (println (take 90 (drop 0x27D99 (rom))))
ocsenave@371 737
ocsenave@371 738 (println
ocsenave@371 739 (partition-by (partial = 0x50)
ocsenave@371 740 (take 90 (drop 0x27D99 (rom)))))
ocsenave@371 741
ocsenave@371 742 (println
ocsenave@371 743 (map character-codes->str
ocsenave@371 744 (partition-by (partial = 0x50)
ocsenave@371 745 (take 90 (drop 0x27D99 (rom))))))
ocsenave@371 746
ocsenave@371 747 #+end_src
ocsenave@371 748
ocsenave@371 749 #+results:
ocsenave@371 750 : (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 751 : ((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 752 : (NORMAL # FIGHTING # FLYING # POISON # FIRE # WATER # GRASS # ELECTRIC # PSYCHIC # ICE # GROUND # ROCK # BIRD # BUG # G)
ocsenave@371 753
ocsenave@371 754
ocsenave@371 755 ***
ocsenave@348 756 #+name: type-names
ocsenave@348 757 #+begin_src clojure
ocsenave@348 758 (def hxc-types
ocsenave@348 759 "The hardcoded type names in memory. List begins at ROM@27D99,
ocsenave@348 760 shortly before hxc-titles."
ocsenave@348 761 (hxc-thunk-words 0x27D99 102))
ocsenave@348 762
ocsenave@348 763 #+end_src
ocsenave@348 764
ocsenave@348 765 ** Type effectiveness
ocsenave@371 766 ***
ocsenave@371 767 #+begin_src clojure :exports both :results output
ocsenave@371 768 (ns com.aurellem.gb.hxc
ocsenave@371 769 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 770 constants))
ocsenave@371 771 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 772
ocsenave@371 773
ocsenave@371 774 ;; POKEMON TYPES
ocsenave@371 775
ocsenave@371 776 (println pkmn-types) ;; these are the pokemon types
ocsenave@371 777 (println (map vector (range) pkmn-types)) ;; each type has an id number.
ocsenave@371 778
ocsenave@371 779 (newline)
ocsenave@371 780
ocsenave@371 781
ocsenave@371 782
ocsenave@371 783
ocsenave@371 784 ;;; TYPE EFFECTIVENESS
ocsenave@371 785
ocsenave@371 786 (println (take 15 (drop 0x3E62D (rom))))
ocsenave@371 787 (println (partition 3 (take 15 (drop 0x3E62D (rom)))))
ocsenave@371 788
ocsenave@371 789 (println
ocsenave@371 790 (map
ocsenave@371 791 (fn [[atk-type def-type multiplier]]
ocsenave@371 792 (list atk-type def-type (/ multiplier 10.)))
ocsenave@371 793
ocsenave@371 794 (partition 3
ocsenave@371 795 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371 796
ocsenave@371 797
ocsenave@371 798 (println
ocsenave@371 799 (map
ocsenave@371 800 (fn [[atk-type def-type multiplier]]
ocsenave@371 801 [
ocsenave@371 802 (get pkmn-types atk-type)
ocsenave@371 803 (get pkmn-types def-type)
ocsenave@371 804 (/ multiplier 10.)
ocsenave@371 805 ])
ocsenave@371 806
ocsenave@371 807 (partition 3
ocsenave@371 808 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371 809
ocsenave@371 810 #+end_src
ocsenave@371 811
ocsenave@371 812 #+results:
ocsenave@371 813 : [: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 814 : ([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 815 :
ocsenave@371 816 : (0 5 5 0 8 0 8 8 20 20 7 20 20 5 5)
ocsenave@371 817 : ((0 5 5) (0 8 0) (8 8 20) (20 7 20) (20 5 5))
ocsenave@371 818 : ((0 5 0.5) (0 8 0.0) (8 8 2.0) (20 7 2.0) (20 5 0.5))
ocsenave@371 819 : ([:normal :rock 0.5] [:normal :ghost 0.0] [:ghost :ghost 2.0] [:fire :bug 2.0] [:fire :rock 0.5])
ocsenave@371 820
ocsenave@371 821
ocsenave@371 822 ***
ocsenave@372 823
ocsenave@349 824 #+name: type-advantage
ocsenave@348 825 #+begin_src clojure
ocsenave@348 826 (defn hxc-advantage
ocsenave@348 827 ;; in-game multipliers are stored as 10x their effective value
ocsenave@348 828 ;; to allow for fractional multipliers like 1/2
ocsenave@348 829
ocsenave@348 830 "The hardcoded type advantages in memory, returned as tuples of
ocsenave@348 831 atk-type def-type multiplier. By default (i.e. if not listed here),
ocsenave@348 832 the multiplier is 1. List begins at 0x3E62D."
ocsenave@348 833 ([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 834 ([rom]
ocsenave@348 835 (map
ocsenave@348 836 (fn [[atk def mult]] [(get pkmn-types atk (hex atk))
ocsenave@348 837 (get pkmn-types def (hex def))
ocsenave@348 838 (/ mult 10)])
ocsenave@348 839 (partition 3
ocsenave@348 840 (take-while (partial not= 0xFF)
ocsenave@348 841 (drop 0x3E62D rom))))))
ocsenave@348 842 #+end_src
ocsenave@348 843
ocsenave@348 844
ocsenave@348 845
ocsenave@348 846 * Moves
ocsenave@348 847 ** Names of moves
ocsenave@371 848 *** See the data
ocsenave@371 849 #+begin_src clojure :exports both :results output
ocsenave@371 850 (ns com.aurellem.gb.hxc
ocsenave@371 851 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 852 constants))
ocsenave@371 853 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 854
ocsenave@371 855 (println (take 100 (drop 0xBC000 (rom))))
ocsenave@371 856
ocsenave@371 857 (println
ocsenave@371 858 (partition-by
ocsenave@371 859 (partial = 0x50)
ocsenave@371 860 (take 100 (drop 0xBC000 (rom)))))
ocsenave@371 861
ocsenave@371 862 (println
ocsenave@371 863 (map character-codes->str
ocsenave@371 864 (partition-by
ocsenave@371 865 (partial = 0x50)
ocsenave@371 866 (take 100 (drop 0xBC000 (rom))))))
ocsenave@371 867
ocsenave@371 868
ocsenave@371 869 #+end_src
ocsenave@371 870
ocsenave@371 871 #+results:
ocsenave@371 872 : (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 873 : ((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 874 : (POUND # KARATE CHOP # DOUBLESLAP # COMET PUNCH # MEGA PUNCH # PAY DAY # FIRE PUNCH # ICE PUNCH # THUNDERPUNCH # SCRATC)
ocsenave@371 875
ocsenave@371 876 *** Automatically grab the data
ocsenave@371 877
ocsenave@348 878 #+name: move-names
ocsenave@348 879 #+begin_src clojure
ocsenave@348 880 (def hxc-move-names
ocsenave@348 881 "The hardcoded move names in memory. List begins at ROM@BC000"
ocsenave@348 882 (hxc-thunk-words 0xBC000 1551))
ocsenave@348 883 #+end_src
ocsenave@348 884
ocsenave@348 885 ** Properties of moves
ocsenave@348 886
ocsenave@348 887 #+name: move-data
ocsenave@348 888 #+begin_src clojure
ocsenave@348 889 (defn hxc-move-data
ocsenave@348 890 "The hardcoded (basic (move effects)) in memory. List begins at
ocsenave@348 891 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id
ocsenave@348 892 :fx-txt}. The move descriptions are handwritten, not hardcoded."
ocsenave@348 893 ([]
ocsenave@348 894 (hxc-move-data com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 895 ([rom]
ocsenave@348 896 (let [names (vec (hxc-move-names rom))
ocsenave@348 897 move-count (count names)
ocsenave@348 898 move-size 6
ocsenave@348 899 types pkmn-types ;;; !! hardcoded types
ocsenave@348 900 ]
ocsenave@348 901 (zipmap (map format-name names)
ocsenave@348 902 (map
ocsenave@348 903 (fn [[idx effect power type-id accuracy pp]]
ocsenave@348 904 {:name (names (dec idx))
ocsenave@348 905 :power power
ocsenave@348 906 :accuracy accuracy
ocsenave@348 907 :pp pp
ocsenave@348 908 :type (types type-id)
ocsenave@348 909 :fx-id effect
ocsenave@348 910 :fx-txt (get move-effects effect)
ocsenave@348 911 }
ocsenave@348 912 )
ocsenave@348 913
ocsenave@348 914 (partition move-size
ocsenave@348 915 (take (* move-size move-count)
ocsenave@348 916 (drop 0x38000 rom))))))))
ocsenave@348 917
ocsenave@348 918
ocsenave@348 919
ocsenave@348 920 (defn hxc-move-data*
ocsenave@348 921 "Like hxc-move-data, but reports numbers as hexadecimal symbols instead."
ocsenave@348 922 ([]
ocsenave@348 923 (hxc-move-data* com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 924 ([rom]
ocsenave@348 925 (let [names (vec (hxc-move-names rom))
ocsenave@348 926 move-count (count names)
ocsenave@348 927 move-size 6
ocsenave@348 928 format-name (fn [s]
ocsenave@348 929 (keyword (.toLowerCase
ocsenave@348 930 (apply str
ocsenave@348 931 (map #(if (= % \space) "-" %) s)))))
ocsenave@348 932 ]
ocsenave@348 933 (zipmap (map format-name names)
ocsenave@348 934 (map
ocsenave@348 935 (fn [[idx effect power type accuracy pp]]
ocsenave@348 936 {:name (names (dec idx))
ocsenave@348 937 :power power
ocsenave@348 938 :accuracy (hex accuracy)
ocsenave@348 939 :pp pp
ocsenave@348 940 :fx-id (hex effect)
ocsenave@348 941 :fx-txt (get move-effects effect)
ocsenave@348 942 }
ocsenave@348 943 )
ocsenave@348 944
ocsenave@348 945 (partition move-size
ocsenave@348 946 (take (* move-size move-count)
ocsenave@348 947 (drop 0x38000 rom))))))))
ocsenave@348 948
ocsenave@348 949 #+end_src
ocsenave@348 950
ocsenave@348 951 ** TM and HM moves
ocsenave@371 952 ***
ocsenave@371 953 #+begin_src clojure :exports both :results output
ocsenave@371 954 (ns com.aurellem.gb.hxc
ocsenave@371 955 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 956 constants))
ocsenave@371 957 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348 958
ocsenave@371 959
ocsenave@371 960 (println (hxc-move-names))
ocsenave@371 961 (println (map vector (rest(range)) (hxc-move-names)))
ocsenave@371 962
ocsenave@371 963 (newline)
ocsenave@371 964
ocsenave@371 965 (println (take 55 (drop 0x1232D (rom))))
ocsenave@371 966
ocsenave@371 967 (println
ocsenave@371 968 (interpose "."
ocsenave@371 969 (map
ocsenave@371 970 (zipmap (rest (range)) (hxc-move-names))
ocsenave@371 971 (take 55 (drop 0x1232D (rom))))))
ocsenave@371 972
ocsenave@371 973 #+end_src
ocsenave@371 974
ocsenave@371 975 #+results:
ocsenave@371 976 : (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 977 : ([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 978 :
ocsenave@371 979 : (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 980 : (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 981
ocsenave@371 982
ocsenave@371 983 ***
ocsenave@348 984 #+name: machines
ocsenave@348 985 #+begin_src clojure
ocsenave@348 986 (defn hxc-machines
ocsenave@348 987 "The hardcoded moves taught by TMs and HMs. List begins at ROM@1232D."
ocsenave@348 988 ([] (hxc-machines
ocsenave@348 989 com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 990 ([rom]
ocsenave@348 991 (let [moves (hxc-move-names rom)]
ocsenave@348 992 (zipmap
ocsenave@348 993 (range)
ocsenave@348 994 (take-while
ocsenave@348 995 (comp not nil?)
ocsenave@348 996 (map (comp
ocsenave@348 997 format-name
ocsenave@348 998 (zipmap
ocsenave@348 999 (range)
ocsenave@348 1000 moves)
ocsenave@348 1001 dec)
ocsenave@348 1002 (take 100
ocsenave@348 1003 (drop 0x1232D rom))))))))
ocsenave@348 1004
ocsenave@348 1005 #+end_src
ocsenave@348 1006
ocsenave@348 1007
ocsenave@348 1008
ocsenave@348 1009
ocsenave@348 1010
ocsenave@348 1011 ** COMMENT Status ailments
ocsenave@348 1012
ocsenave@419 1013
ocsenave@419 1014 * NPC Trainers
ocsenave@419 1015
ocsenave@419 1016 ** Trainer Pok\eacute{}mon
ocsenave@419 1017 # http://hax.iimarck.us/topic/103/
ocsenave@419 1018 There are two formats for specifying lists of NPC PPok\eacute{}mon:
ocsenave@419 1019 - If all the Pok\eacute{}mon will have the same level, the format is
ocsenave@419 1020 - Level (used for all the Pok\eacute{}mon)
ocsenave@419 1021 - Any number of Pok\eacute{}mon internal ids.
ocsenave@419 1022 - 0x00, to indicate end-of-list.
ocsenave@419 1023 - Otherwise, all the Pok\eacute{}mon will have their level
ocsenave@419 1024 specified. The format is
ocsenave@419 1025 - 0xFF, to indicate that we will be specifying the levels individually[fn::Because 0xFF is a
ocsenave@419 1026 forbidden level within the usual gameplay discipline, the game
ocsenave@419 1027 makers could safely use 0xFF as a mode indicator.].
ocsenave@419 1028 - Any number of alternating Level/Pokemon pairs
ocsenave@419 1029 - 0x00, to indicate end-of-list.
ocsenave@419 1030
ocsenave@419 1031 *** Get the pointers
ocsenave@419 1032 *** See the data
ocsenave@419 1033 #+begin_src clojure :exports both :results output
ocsenave@419 1034 (ns com.aurellem.gb.hxc
ocsenave@419 1035 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@419 1036 constants))
ocsenave@419 1037 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@419 1038
ocsenave@419 1039 (->>
ocsenave@419 1040 (rom)
ocsenave@419 1041 (drop 0x39E2F)
ocsenave@419 1042 (take 21)
ocsenave@419 1043 (println))
ocsenave@419 1044
ocsenave@419 1045
ocsenave@419 1046 (->>
ocsenave@419 1047 (rom)
ocsenave@419 1048 (drop 0x39E2F)
ocsenave@419 1049 (take 21)
ocsenave@419 1050 (partition-by zero?)
ocsenave@419 1051 (take-nth 2)
ocsenave@419 1052 (println))
ocsenave@419 1053
ocsenave@419 1054
ocsenave@419 1055
ocsenave@419 1056 (let
ocsenave@419 1057 [pokenames
ocsenave@419 1058 (zipmap
ocsenave@419 1059 (rest (range))
ocsenave@419 1060 (hxc-pokenames-raw))]
ocsenave@419 1061
ocsenave@419 1062 (->>
ocsenave@419 1063 (rom)
ocsenave@419 1064 (drop 0x39E2F)
ocsenave@419 1065 (take 21) ;; (1922 in all)
ocsenave@419 1066 (partition-by zero?)
ocsenave@419 1067 (take-nth 2)
ocsenave@419 1068 (map
ocsenave@419 1069 (fn parse-team [[mode & team]]
ocsenave@419 1070 (if (not= 0xFF mode)
ocsenave@419 1071 (mapv
ocsenave@419 1072 #(hash-map :level mode :species (pokenames %))
ocsenave@419 1073 team)
ocsenave@419 1074
ocsenave@419 1075 (mapv
ocsenave@419 1076 (fn [[lvl id]] (hash-map :level lvl :species (pokenames id)))
ocsenave@419 1077 (partition 2 team)))))
ocsenave@419 1078
ocsenave@419 1079 (println)))
ocsenave@419 1080
ocsenave@419 1081
ocsenave@419 1082
ocsenave@419 1083 #+end_src
ocsenave@419 1084
ocsenave@419 1085 #+results:
ocsenave@419 1086 : (11 165 108 0 14 5 0 10 165 165 107 0 14 165 108 107 0 15 165 5 0)
ocsenave@419 1087 : ((11 165 108) (14 5) (10 165 165 107) (14 165 108 107) (15 165 5))
ocsenave@419 1088 : ([{:species RATTATA, :level 11} {:species EKANS, :level 11}] [{:species SPEAROW, :level 14}] [{:species RATTATA, :level 10} {:species RATTATA, :level 10} {:species ZUBAT, :level 10}] [{:species RATTATA, :level 14} {:species EKANS, :level 14} {:species ZUBAT, :level 14}] [{:species RATTATA, :level 15} {:species SPEAROW, :level 15}])
ocsenave@419 1089
ocsenave@348 1090 * Places
ocsenave@348 1091 ** Names of places
ocsenave@348 1092
ocsenave@348 1093 #+name: places
ocsenave@348 1094 #+begin_src clojure
ocsenave@348 1095 (def hxc-places
ocsenave@348 1096 "The hardcoded place names in memory. List begins at
ocsenave@420 1097 ROM@71500. [Cinnabar/Celadon] Mansion seems to be dynamically calculated."
ocsenave@348 1098 (hxc-thunk-words 0x71500 560))
ocsenave@419 1099 #+end_src
ocsenave@348 1100
ocsenave@419 1101 *** See it work
ocsenave@419 1102 #+begin_src clojure :exports both :results output
ocsenave@419 1103 (println (hxc-places))
ocsenave@348 1104 #+end_src
ocsenave@348 1105
ocsenave@419 1106 #+results:
ocsenave@419 1107 : (PALLET TOWN VIRIDIAN CITY PEWTER CITY CERULEAN CITY LAVENDER TOWN VERMILION CITY CELADON CITY FUCHSIA CITY CINNABAR ISLAND INDIGO PLATEAU SAFFRON CITY ROUTE 1 ROUTE 2 ROUTE 3 ROUTE 4 ROUTE 5 ROUTE 6 ROUTE 7 ROUTE 8 ROUTE 9 ROUTE 10 ROUTE 11 ROUTE 12 ROUTE 13 ROUTE 14 ROUTE 15 ROUTE 16 ROUTE 17 ROUTE 18 SEA ROUTE 19 SEA ROUTE 20 SEA ROUTE 21 ROUTE 22 ROUTE 23 ROUTE 24 ROUTE 25 VIRIDIAN FOREST MT.MOON ROCK TUNNEL SEA COTTAGE S.S.ANNE [POKE]MON LEAGUE UNDERGROUND PATH [POKE]MON TOWER SEAFOAM ISLANDS VICTORY ROAD DIGLETT's CAVE ROCKET HQ SILPH CO. [0x4A] MANSION SAFARI ZONE)
ocsenave@419 1108
ocsenave@348 1109 ** Wild Pok\eacute{}mon demographics
ocsenave@348 1110 #+name: wilds
ocsenave@348 1111 #+begin_src clojure
ocsenave@348 1112
ocsenave@348 1113
ocsenave@348 1114
ocsenave@348 1115 (defn hxc-ptrs-wild
ocsenave@348 1116 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348 1117 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348 1118 ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1119 ([rom]
ocsenave@348 1120 (let [ptrs
ocsenave@348 1121 (map (fn [[a b]] (+ a (* 0x100 b)))
ocsenave@348 1122 (take-while (partial not= (list 0xFF 0xFF))
ocsenave@348 1123 (partition 2 (drop 0xCB95 rom))))]
ocsenave@348 1124 ptrs)))
ocsenave@348 1125
ocsenave@348 1126
ocsenave@348 1127
ocsenave@348 1128 (defn hxc-wilds
ocsenave@348 1129 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348 1130 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348 1131 ([] (hxc-wilds com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1132 ([rom]
ocsenave@348 1133 (let [pokenames (zipmap (range) (hxc-pokenames rom))]
ocsenave@348 1134 (map
ocsenave@348 1135 (partial map (fn [[a b]] {:species (pokenames (dec b)) :level
ocsenave@348 1136 a}))
ocsenave@348 1137 (partition 10
ocsenave@348 1138
ocsenave@348 1139 (take-while (comp (partial not= 1)
ocsenave@348 1140 first)
ocsenave@348 1141 (partition 2
ocsenave@348 1142 (drop 0xCD8C rom))
ocsenave@348 1143
ocsenave@348 1144 ))))))
ocsenave@348 1145
ocsenave@348 1146 #+end_src
ocsenave@348 1147
ocsenave@348 1148
ocsenave@348 1149
ocsenave@348 1150
ocsenave@420 1151 ** Map data
ocsenave@420 1152
ocsenave@420 1153 # http://www.pokecommunity.com/showthread.php?t=235311
ocsenave@420 1154 # http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes
ocsenave@420 1155
ocsenave@420 1156 #+name map
ocsenave@420 1157 #+begin_src clojure :exports both :results output
ocsenave@420 1158 (ns com.aurellem.gb.hxc
ocsenave@420 1159 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@420 1160 constants))
ocsenave@420 1161 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@420 1162
ocsenave@420 1163
ocsenave@420 1164 (defn parse-header-tileset
ocsenave@420 1165 [[bank# ;; memory bank for blocks & tileset
ocsenave@420 1166
ocsenave@420 1167 blocks-lo ;; structure
ocsenave@420 1168 blocks-hi
ocsenave@420 1169
ocsenave@420 1170 tileset-lo ;; style
ocsenave@420 1171 tileset-hi
ocsenave@420 1172
ocsenave@420 1173 collision-lo ;; collision info
ocsenave@420 1174 collision-hi
ocsenave@420 1175
ocsenave@420 1176 talk-here-1 ;; positions of up to three
ocsenave@420 1177 talk-here-2 ;; talk-over-countertop tiles
ocsenave@420 1178 talk-here-3 ;; --- 0xFF if unused.
ocsenave@420 1179
ocsenave@420 1180 grass ;; grass tile --- 0xFF if unused
ocsenave@420 1181
ocsenave@420 1182 animation-flags ;; settings for animation
ocsenave@420 1183 & _]]
ocsenave@420 1184
ocsenave@420 1185 [bank#
ocsenave@420 1186
ocsenave@420 1187 blocks-lo ;; structure
ocsenave@420 1188 blocks-hi
ocsenave@420 1189
ocsenave@420 1190 tileset-lo ;; style
ocsenave@420 1191 tileset-hi
ocsenave@420 1192
ocsenave@420 1193 collision-lo ;; collision info
ocsenave@420 1194 collision-hi
ocsenave@420 1195
ocsenave@420 1196 talk-here-1 ;; positions of up to three
ocsenave@420 1197 talk-here-2 ;; talk-over-countertop tiles
ocsenave@420 1198 talk-here-3 ;; --- 0xFF if unused.
ocsenave@420 1199
ocsenave@420 1200 grass ;; grass tile --- 0xFF if unused
ocsenave@420 1201
ocsenave@420 1202 animation-flags ;; settings for animation
ocsenave@420 1203 ])
ocsenave@420 1204
ocsenave@420 1205
ocsenave@420 1206
ocsenave@420 1207 (defn parse-header-map
ocsenave@420 1208 [start]
ocsenave@420 1209
ocsenave@420 1210 (let [connection-size 11
ocsenave@420 1211
ocsenave@420 1212 [tileset-index
ocsenave@420 1213 map-height
ocsenave@420 1214 map-width
ocsenave@420 1215 layout-lo
ocsenave@420 1216 layout-hi
ocsenave@420 1217 text-lo
ocsenave@420 1218 text-hi
ocsenave@420 1219 script-lo
ocsenave@420 1220 script-hi
ocsenave@420 1221 adjacency-flags ;; x x x x N S W E
ocsenave@420 1222 & etc]
ocsenave@420 1223 (drop start (rom))
ocsenave@420 1224
ocsenave@420 1225 [east? west? south? north?]
ocsenave@420 1226 (bit-list adjacency-flags)
ocsenave@420 1227
ocsenave@420 1228 [connections object-data]
ocsenave@420 1229 (split-at
ocsenave@420 1230 (* connection-size (+ east? west? south? north?))
ocsenave@420 1231 etc)
ocsenave@420 1232
ocsenave@420 1233 connections
ocsenave@420 1234 (partition connection-size connections)
ocsenave@420 1235
ocsenave@420 1236
ocsenave@420 1237
ocsenave@420 1238
ocsenave@420 1239 ]
ocsenave@420 1240 (ptr->offset
ocsenave@420 1241 3
ocsenave@420 1242 (low-high layout-lo layout-hi))
ocsenave@420 1243
ocsenave@420 1244
ocsenave@420 1245 ))
ocsenave@420 1246 #+end_src
ocsenave@420 1247
ocsenave@420 1248 #+results:
ocsenave@420 1249 :
ocsenave@420 1250
ocsenave@420 1251
ocsenave@348 1252
ocsenave@348 1253 * Appendices
ocsenave@347 1254 ** Mapping the ROM
ocsenave@420 1255 # D3AD: Script:Use Pokeball?
ocsenave@311 1256
ocsenave@411 1257 | ROM address (hex) | Description | Format | Example |
ocsenave@411 1258 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1259 | | <15> | <15> | <15> |
ocsenave@411 1260 | 01823-0184A | Important prefix strings. | Variable-length strings, separated by 0x50. | TM#TRAINER#PC#ROCKET#POK\eacute{}#... |
ocsenave@411 1261 | 0233C- | Shop inventories. | | |
ocsenave@412 1262 | 02F47- | (?) Move ids of some HM moves. | One byte per move id | 0x0F 0x13 0x39 0x46 0x94 0xFF, the move ids of CUT, FLY, SURF, STRENGTH, FLASH, then cancel. |
ocsenave@411 1263 | 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@412 1264 | 04524-04527 | (unconfirmed) possibly the bike price in Cerulean. | | |
ocsenave@411 1265 | 045B7-0491E | Names of the items in memory. | Variable-length item names (strings of character codes). Names are separated by a single 0x50 character. | MASTER BALL#ULTRA BALL#... |
ocsenave@411 1266 | 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@412 1267 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1268 | 05DD2-05DF2 | Menu text for player info. | | PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] |
ocsenave@411 1269 | 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@411 1270 | 06698- | ? Background music. | | |
ocsenave@412 1271 | 7550-7570 | Menu options for map directions[fn:unused:According to [[http://tcrf.net/Pok%C3%A9mon_Red_and_Blue#NORTH.2FWEST.2FSOUTH.2FEAST][The Cutting Room Floor]], this data is unused. ]. | Variable-length strings. | NORTH [newline] WEST [0x50] SOUTH [newline] EAST [0x50] NORTH [newline] EAST[0x50] |
ocsenave@412 1272 | 7570-757D | Menu options for trading Pok\eacute{}mon | | TRADE [newline] CANCEL [0x50] |
ocsenave@412 1273 | 757D-758A | Menu options for healing Pok\eacute{}mon | | HEAL [newline] CANCEL [0x50] |
ocsenave@412 1274 | 7635- | Menu options for selected Pok\eacute{}mon (Includes names of out-of-battle moves). | Variable-length strings separated by 0x50. | CUT [0x50] FLY [0x50] SURF [0x50] STRENGTH [0x50] FLASH [0x50] DIG [0x50] TELEPORT [0x50] SOFTBOILED [0x50] STATS [newline] SWITCH [newline] CANCEL [0x50] |
ocsenave@412 1275 | 7AF0-8000 | (empty space) | | 0 0 0 0 0 ... |
ocsenave@411 1276 | 0822E-082F? | Pointers to background music, part I. | | |
ocsenave@411 1277 | 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@411 1278 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@420 1279 | 0DACB. | Amount of HP restored by Soda Pop | The HP consists of a single numerical byte. | 60 |
ocsenave@420 1280 | 0DACF. | Amount of HP restored by Lemonade | " | 80 |
ocsenave@420 1281 | 0DAD5. | Amount of HP restored by Fresh Water | " | 50 |
ocsenave@420 1282 | 0DADB. | Amount of HP restored by Hyper Potion. | " | 200 |
ocsenave@411 1283 | 0DAE0. | Amount of HP restored by Super Potion. | " | 50 |
ocsenave@411 1284 | 0DAE3. | Amount of HP restored by Potion. | " | 20 |
ocsenave@411 1285 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1286 | 0DD4D-DD72 | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# |
ocsenave@420 1287 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@420 1288 | 0DE2F. | Duration of Repel. | A single byte, representing the number of steps you can take before Super Repel wears off. | 100 |
ocsenave@420 1289 | 0DF39. | Duration of Super Repel. | " | 200 |
ocsenave@420 1290 | 0DF3E. | Duration of Max Repel. | " | 250 |
ocsenave@420 1291 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1292 | 1164B- | Terminology for the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | TYPE1[newline]TYPE2[newline] *â„–*,[newline]OT,[newline][0x50]STATUS,[0x50]OK |
ocsenave@412 1293 | 116DE- | Terminology for permanent stats in the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | ATTACK[newline]DEFENSE[newline]SPEED[newline]SPECIAL[0x50] |
ocsenave@412 1294 | 11852- | Terminology for current stats in the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | EXP POINTS[newline]LEVEL UP[0x50] |
ocsenave@411 1295 | 1195C-1196A | The two terms for being able/unable to learn a TM/HM. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# |
ocsenave@411 1296 | 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@411 1297 | 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@411 1298 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1299 | 27D56 & 27D57. | Pointer to the pointers to type names. | A single low-byte, high-byte pair. | 0x63 0x7D, corresponding to location 27D63\mdash{} the start of the next entry. |
ocsenave@411 1300 | 27D63-27D99 | Pointers to type names. | Each point is a low-byte, high-byte pair. The type names follows immediately after this section; see below. | The first pointer is [0x99 0x7D], corresponding to the location 27D99 ("NORMAL"). |
ocsenave@411 1301 | 27D99-27DFF | Names of the Pok\eacute{}mon types. | Variable-length type names (strings of character codes). Names are separated by a single 0x50 character. | NORMAL#FIGHTING#... |
ocsenave@411 1302 | 27DFF-27E77 | ? | 120 bytes of unknown data. | |
ocsenave@411 1303 | 27E77- | Trainer title names. | Variable-length names separated by 0x50. | YOUNGSTER#BUG CATCHER#LASS#... |
ocsenave@411 1304 | 34000- | | | |
ocsenave@411 1305 | 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@411 1306 | 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@411 1307 | 39462- | The Pok\eacute{}mon cry data. | Fixed-length (3 byte) descriptions of cries. | |
ocsenave@411 1308 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1309 | 3997D-39B05 | Trainer titles (extended; see 27E77). This list includes strictly more trainers, seemingly at random inserted into the list from 27E77.[fn::The names added are in bold: YOUNGSTER, BUG CATCHER, LASS, *SAILOR*, JR TRAINER(m), JR TRAINER(f), POK\eacute{}MANIAC, SUPER NERD, *HIKER*, *BIKER*, BURGLAR, ENGINEER, JUGGLER, *FISHERMAN*, SWIMMER, *CUE BALL*, *GAMBLER*, BEAUTY, *PSYCHIC*, ROCKER, JUGGLER (again), *TAMER*, *BIRDKEEPER*, BLACKBELT, *RIVAL1*, PROF OAK, CHIEF, SCIENTIST, *GIOVANNI*, ROCKET, COOLTRAINER(m), COOLTRAINER(f), *BRUNO*, *BROCK*, *MISTY*, *LT. SURGE*, *ERIKA*, *KOGA*, *BLAINE*, *SABRINA*, *GENTLEMAN*, *RIVAL2*, *RIVAL3*, *LORELEI*, *CHANNELER*, *AGATHA*, *LANCE*.] | | |
ocsenave@412 1310 | 39B05-39DD0. | unknown | | |
ocsenave@419 1311 | 39DD1-39E2E | Pointers to trainer Pok\eacute{}mon | Pairs of low-high bits. | The first pair is 0x2F 0x5E, which corresponds to memory location 5E2F relative to this 38000-3C000 bank, i.e.[fn::For details about how relative bank pointers work, see the relevant Appendix.] position 39E2F overall. |
ocsenave@419 1312 | 39E2F-3A5B2 | Trainer Pok\eacute{}mon | Specially-formatted lists of various length, separated by 0x00. If the list starts with 0xFF, the rest of the list will alternate between levels and internal-ids. Otherwise, start of the list is the level of the whole team, and the rest of the list is internal-ids. | The first entry is (11 165 108 0), which means a level 11 team consisting of Rattata and Ekans. The entry for MISTY is (255 18 27 21 152 0), which means a team of various levels consisting of level 18 Staryu and level 21 Starmie. [fn::Incidentally, if you want to change your rival's starter Pok\eacute{}mon, it's enough just to change its species in all of your battles with him.].) |
ocsenave@411 1313 | 3B1E5-3B361 | Pointers to evolution/learnset data. | One high-low byte pair for each of the 190 Pok\eacute{}mon in internal order. | |
ocsenave@411 1314 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1315 | 3B361-3BBAA | 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@411 1316 | 3BBAA-3C000 | (empty) | | 0 0 0 0 ... |
ocsenave@411 1317 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1318 | 3D131-3D133 | The inventory of both OLD MAN and PROF. OAK when they battle for you. | Pairs of [item-id quantity], terminated by 0xFF. | (0x04 0x01 0xFF) They only have one Pok\eacute{}ball [fn::If you give them any ball, OAK will catch the enemy Pok\eacute{}mon and OLD MAN will miss. (OLD MAN misses even if he throws a MASTER BALL, which is a sight to see!) If you give them some other item first in the list, you'll be able to use that item normally but then you'll trigger the Safari Zone message: Pa will claim you're out of SAFARI BALLs and the battle will end. If you engage in either an OLD MAN or OAK battle with a Gym Leader, you will [1] get reprimanded if you try to throw a ball [2] incur the Safari Zone message [3] automatically win no matter which item you use [4] earn whichever reward they give you as usual [5] permanently retain the name OLD MAN / PROF. OAK.]. |
ocsenave@411 1319 | 3D6C7-3D6D6 | Two miscellaneous strings. | Variable length, separated by 0x50 | Disabled!#TYPE |
ocsenave@411 1320 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1321 | 40252-4027B | Pok\eacute{}dex menu text | Variable-length strings separated by 0x50. | SEEN#OWN#CONTENTS#... |
ocsenave@411 1322 | 40370-40386 | Important constants for Pok\eacute{}dex entries | | HT _ _ *?′??″* [newline] WT _ _ _ *???* lb [0x50] *POK\Eacute{}* [0x50] |
ocsenave@411 1323 | 40687-41072 | Species data from the Pok\eacute{}dex: species name, height, weight, etc. | Variable-length species names, followed by 0x50, followed by fixed-length height/weight/etc. data. | The first entry is (*146 132 132 131*, 80, *2 4*, *150 0*, 23, 0 64 46, 80), which are the the stats of Bulbasaur: the first entry spells "SEED", then 0x80, then the height (2' 4"), then the weight (formatted as a low-high byte pair), then various Pokédex pointer data (see elsewhere). |
ocsenave@411 1324 | 41072- | Pok\eacute{} placeholder species, "???" | | |
ocsenave@411 1325 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1326 | 410B1-4116F | A conversion table between internal order and Pokedex order. | 190 bytes, corresponding to the Pok\eacute{}dex numbers of the 190 Pok\eacute{}mon listed in internal order. All =MISSINGNO.= are assigned a Pok\eacute{}dex number of 0. | The first few entries are (112 115 32 35 21 100 34 80 2 ...), which are the Pok\eacute{}dex numbers of Rhydon, Kangaskhan, Nidoran(m), Clefairy, Spearow, Voltorb, Nidoking, Slobrow, and Ivysaur. |
ocsenave@420 1327 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@420 1328 | 509B4-509E0 | Saffron City's adjacency info. | Four adjacency lists, each 11 bytes long. (For more info on adjacency lists a.k.a. connection data, see [[http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes][here]]) | The first adjacency list is (0x10 0x70 0x46 0xF0 0xC6 0x0A 0x0A 0x23 0xF6 0x09 0xC8) |
ocsenave@420 1329 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1330 | 527BA-527DB | The costs and kinds of prizes from Celadon Game Corner. | The following pattern repeats three times, once per window[fn::For the first two prize lists, ids are interpreted as Pok\eacute{}mon ids. For the last prize list, ids are (somehow) interpreted as item ids.]: Internal ids / 0x50 / Prices (two bytes of BCD)/ 0x50. | (0x94 0x52 0x65 0x50) Abra Vulpix Wigglytuff (0x02 0x30 0x10 0x00 0x26 0x80) 230C, 1000C, 2680C |
ocsenave@411 1331 | 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@412 1332 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1333 | 70295- | Hall of fame | The text "HALL OF FAME" | |
ocsenave@412 1334 | 70442- | Play time/money | The text "PLAY TIME [0x50] MONEY" | |
ocsenave@411 1335 | 71500-7174B | Names of places. | Variable-length place names (strings), separated by 0x50. | PALLET TOWN#VIRIDIAN CITY#PEWTER CITY#CERULEAN CITY#... |
ocsenave@411 1336 | 71C1E-71CAA (approx.) | Tradeable NPC Pok\eacute{}mon. | Internal ID, followed by nickname (11 chars; extra space padded by 0x50). Some of the Pokemon have unknown extra data around the id. | The first entry is [0x76] "GURIO######", corresponding to a Dugtrio named "GURIO". |
ocsenave@411 1337 | 7C249-7C2?? | Pointers to background music, pt II. | | |
ocsenave@412 1338 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@419 1339 | 98000-B7190 | Dialogue and other messsages. | Variable-length strings. | |
ocsenave@419 1340 | B7190-B8000 | (empty space) | | 0 0 0 0 0 ... |
ocsenave@411 1341 | B8000-BC000 | The text of each Pok\eacute{}mon's Pok\eacute{}dex entry. | Variable-length descriptions (strings) in Pok\eacute{}dex order, separated by 0x50. These entries use the special characters *0x49* (new page), *0x4E* (new line), and *0x5F* (end entry). | The first entry (Bulbasaur's) is: "It can go for days [0x4E] without eating a [0x4E] single morsel. [0x49] In the bulb on [0x4E] its back, it [0x4E] stores energy [0x5F] [0x50]." |
ocsenave@419 1342 | BC000-BC60F | Move names. | Variable-length move names, separated by 0x50. The moves are in internal order. | POUND#KARATE CHOP#DOUBLESLAP#COMET PUNCH#... |
ocsenave@419 1343 | BC610-BD000 | (empty space) | | 0 0 0 0 0 ... |
ocsenave@411 1344 | 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 0x50. The names are in \ldquo{}internal order\rdquo{}. | RHYDON####KANGASKHANNIDORAN♂#... |
ocsenave@412 1345 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1346 | E9BD5- | The text PLAY TIME (see above, 70442) | | |
ocsenave@410 1347 #+TBLFM:
ocsenave@312 1348
ocsenave@347 1349
ocsenave@419 1350 ** Understanding memory banks and pointers
ocsenave@419 1351 #+begin_src clojure
ocsenave@419 1352
ocsenave@419 1353 (defn endian-flip
ocsenave@419 1354 "Flip the bytes of the two-byte number."
ocsenave@419 1355 [n]
ocsenave@419 1356 (assert (< n 0xFFFF))
ocsenave@419 1357 (+ (* 0x100 (rem n 0x100))
ocsenave@419 1358 (int (/ n 0x100))))
ocsenave@419 1359
ocsenave@419 1360
ocsenave@419 1361 (defn offset->ptr
ocsenave@419 1362 "Convert an offset into a little-endian pointer."
ocsenave@419 1363 [n]
ocsenave@419 1364 (->
ocsenave@419 1365 n
ocsenave@419 1366 (rem 0x10000) ;; take last four bytes
ocsenave@419 1367 (rem 0x4000) ;; get relative offset from the start of the bank
ocsenave@419 1368 (+ 0x4000)
ocsenave@419 1369 endian-flip))
ocsenave@419 1370
ocsenave@419 1371 (defn offset->bank
ocsenave@419 1372 "Get the bank of the offset."
ocsenave@419 1373 [n]
ocsenave@419 1374 (int (/ n 0x4000)))
ocsenave@419 1375
ocsenave@419 1376 (defn ptr->offset
ocsenave@419 1377 "Convert a two-byte little-endian pointer into an offset."
ocsenave@419 1378 [bank ptr]
ocsenave@419 1379 (->
ocsenave@419 1380 ptr
ocsenave@419 1381 endian-flip
ocsenave@419 1382 (- 0x4000)
ocsenave@419 1383 (+ (* 0x4000 bank))
ocsenave@419 1384 ))
ocsenave@419 1385
ocsenave@419 1386 (defn same-bank-offset
ocsenave@419 1387 "Convert a ptr into an absolute offset by using the bank of the reference."
ocsenave@419 1388 [reference ptr]
ocsenave@419 1389 (ptr->offset
ocsenave@419 1390 (offset->bank reference)
ocsenave@419 1391 ptr))
ocsenave@419 1392 #+end_src
ocsenave@419 1393
ocsenave@347 1394
ocsenave@312 1395 ** Internal Pok\eacute{}mon IDs
ocsenave@312 1396 ** Type IDs
ocsenave@347 1397
ocsenave@347 1398 #+name: type-ids
ocsenave@347 1399 #+begin_src clojure
ocsenave@347 1400 (def pkmn-types
ocsenave@347 1401 [:normal ;;0
ocsenave@347 1402 :fighting ;;1
ocsenave@347 1403 :flying ;;2
ocsenave@347 1404 :poison ;;3
ocsenave@347 1405 :ground ;;4
ocsenave@347 1406 :rock ;;5
ocsenave@347 1407 :bird ;;6
ocsenave@347 1408 :bug ;;7
ocsenave@347 1409 :ghost ;;8
ocsenave@347 1410 :A
ocsenave@347 1411 :B
ocsenave@347 1412 :C
ocsenave@347 1413 :D
ocsenave@347 1414 :E
ocsenave@347 1415 :F
ocsenave@347 1416 :G
ocsenave@347 1417 :H
ocsenave@347 1418 :I
ocsenave@347 1419 :J
ocsenave@347 1420 :K
ocsenave@347 1421 :fire ;;20 (0x14)
ocsenave@347 1422 :water ;;21 (0x15)
ocsenave@347 1423 :grass ;;22 (0x16)
ocsenave@347 1424 :electric ;;23 (0x17)
ocsenave@347 1425 :psychic ;;24 (0x18)
ocsenave@347 1426 :ice ;;25 (0x19)
ocsenave@347 1427 :dragon ;;26 (0x1A)
ocsenave@347 1428 ])
ocsenave@347 1429 #+end_src
ocsenave@347 1430
ocsenave@312 1431 ** Basic effects of moves
ocsenave@347 1432
ocsenave@347 1433 *** Table of basic effects
ocsenave@347 1434
ocsenave@347 1435 The possible effects of moves in Pok\eacute{}mon \mdash{} for example, dealing
ocsenave@347 1436 damage, leeching health, or potentially poisoning the opponent
ocsenave@347 1437 \mdash{} are stored in a table. Each move has exactly one effect, and
ocsenave@347 1438 different moves might have the same effect.
ocsenave@347 1439
ocsenave@347 1440 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 1441
ocsenave@347 1442 All the legitimate move effects are listed in the table
ocsenave@347 1443 below. Here are some notes for reading it:
ocsenave@347 1444
ocsenave@347 1445 - Whenever an effect has a chance of doing something (like a chance of
ocsenave@371 1446 poisoning the opponent), I list the chance as a hexadecimal amount
ocsenave@371 1447 out of 256; this is to avoid rounding errors. To convert the hex amount into a percentage, divide by 256.
ocsenave@347 1448 - For some effects, the description is too cumbersome to
ocsenave@347 1449 write. Instead, I just write a move name
ocsenave@347 1450 in parentheses, like: (leech seed). That move gives a characteristic example
ocsenave@347 1451 of the effect.
ocsenave@347 1452 - I use the abbreviations =atk=, =def=, =spd=, =spc=, =acr=, =evd= for
ocsenave@371 1453 attack, defense, speed, special, accuracy, and evasiveness.
ocsenave@347 1454 .
ocsenave@347 1455
ocsenave@347 1456
ocsenave@347 1457
ocsenave@347 1458 | ID (hex) | Description | Notes |
ocsenave@347 1459 |----------+-------------------------------------------------------------------------------------------------+------------------------------------------------------------------|
ocsenave@347 1460 | 0 | normal damage | |
ocsenave@347 1461 | 1 | no damage, just sleep | TODO: find out how many turns |
ocsenave@347 1462 | 2 | 0x4C chance of poison | |
ocsenave@347 1463 | 3 | leech half of inflicted damage | |
ocsenave@347 1464 | 4 | 0x19 chance of burn | |
ocsenave@347 1465 | 5 | 0x19 chance of freeze | |
ocsenave@347 1466 | 6 | 0x19 chance of paralysis | |
ocsenave@347 1467 | 7 | user faints; opponent's defense is halved during attack. | |
ocsenave@347 1468 | 8 | leech half of inflicted damage ONLY if the opponent is asleep | |
ocsenave@347 1469 | 9 | imitate last attack | |
ocsenave@347 1470 | A | user atk +1 | |
ocsenave@347 1471 | B | user def +1 | |
ocsenave@347 1472 | C | user spd +1 | |
ocsenave@347 1473 | D | user spc +1 | |
ocsenave@347 1474 | E | user acr +1 | This effect is unused. |
ocsenave@347 1475 | F | user evd +1 | |
ocsenave@347 1476 | 10 | get post-battle money = 2 * level * uses | |
ocsenave@347 1477 | 11 | move has 0xFE acr, regardless of battle stat modifications. | |
ocsenave@347 1478 | 12 | opponent atk -1 | |
ocsenave@347 1479 | 13 | opponent def -1 | |
ocsenave@347 1480 | 14 | opponent spd -1 | |
ocsenave@347 1481 | 15 | opponent spc -1 | |
ocsenave@347 1482 | 16 | opponent acr -1 | |
ocsenave@347 1483 | 17 | opponent evd -1 | |
ocsenave@347 1484 | 18 | converts user's type to opponent's. | |
ocsenave@347 1485 | 19 | (haze) | |
ocsenave@347 1486 | 1A | (bide) | |
ocsenave@347 1487 | 1B | (thrash) | |
ocsenave@347 1488 | 1C | (teleport) | |
ocsenave@347 1489 | 1D | (fury swipes) | |
ocsenave@347 1490 | 1E | attacks 2-5 turns | Unused. TODO: find out what it does. |
ocsenave@347 1491 | 1F | 0x19 chance of flinching | |
ocsenave@347 1492 | 20 | opponent sleep for 1-7 turns | |
ocsenave@347 1493 | 21 | 0x66 chance of poison | |
ocsenave@347 1494 | 22 | 0x4D chance of burn | |
ocsenave@347 1495 | 23 | 0x4D chance of freeze | |
ocsenave@347 1496 | 24 | 0x4D chance of paralysis | |
ocsenave@347 1497 | 25 | 0x4D chance of flinching | |
ocsenave@347 1498 | 26 | one-hit KO | |
ocsenave@347 1499 | 27 | charge one turn, atk next. | |
ocsenave@347 1500 | 28 | fixed damage, leaves 1HP. | Is the fixed damage the power of the move? |
ocsenave@347 1501 | 29 | fixed damage. | Like seismic toss, dragon rage, psywave. |
ocsenave@347 1502 | 2A | atk 2-5 turns; opponent can't attack | The odds of attacking for /n/ turns are: (0 0x60 0x60 0x20 0x20) |
ocsenave@347 1503 | 2B | charge one turn, atk next. (can't be hit when charging) | |
ocsenave@347 1504 | 2C | atk hits twice. | |
ocsenave@347 1505 | 2D | user takes 1 damage if misses. | |
ocsenave@347 1506 | 2E | evade status-lowering effects | Caused by you or also your opponent? |
ocsenave@347 1507 | 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 1508 | 30 | atk causes recoil dmg = 1/4 dmg dealt | |
ocsenave@347 1509 | 31 | confuses opponent | |
ocsenave@347 1510 | 32 | user atk +2 | |
ocsenave@347 1511 | 33 | user def +2 | |
ocsenave@347 1512 | 34 | user spd +2 | |
ocsenave@347 1513 | 35 | user spc +2 | |
ocsenave@347 1514 | 36 | user acr +2 | This effect is unused. |
ocsenave@347 1515 | 37 | user evd +2 | This effect is unused. |
ocsenave@347 1516 | 38 | restores up to half of user's max hp. | |
ocsenave@347 1517 | 39 | (transform) | |
ocsenave@347 1518 | 3A | opponent atk -2 | |
ocsenave@347 1519 | 3B | opponent def -2 | |
ocsenave@347 1520 | 3C | opponent spd -2 | |
ocsenave@347 1521 | 3D | opponent spc -2 | |
ocsenave@347 1522 | 3E | opponent acr -2 | |
ocsenave@347 1523 | 3F | opponent evd -2 | |
ocsenave@347 1524 | 40 | doubles user spc when attacked | |
ocsenave@347 1525 | 41 | doubles user def when attacked | |
ocsenave@347 1526 | 42 | just poisons opponent | |
ocsenave@347 1527 | 43 | just paralyzes opponent | |
ocsenave@347 1528 | 44 | 0x19 chance opponent atk -1 | |
ocsenave@347 1529 | 45 | 0x19 chance opponent def -1 | |
ocsenave@347 1530 | 46 | 0x19 chance opponent spd -1 | |
ocsenave@347 1531 | 47 | 0x4C chance opponent spc -1 | |
ocsenave@347 1532 | 48 | 0x19 chance opponent acr -1 | |
ocsenave@347 1533 | 49 | 0x19 chance opponent evd -1 | |
ocsenave@347 1534 | 4A | ??? | ;; unused? no effect? |
ocsenave@347 1535 | 4B | ??? | ;; unused? no effect? |
ocsenave@347 1536 | 4C | 0x19 chance of confusing the opponent | |
ocsenave@347 1537 | 4D | atk hits twice. 0x33 chance opponent poisioned. | |
ocsenave@347 1538 | 4E | broken. crash the game after attack. | |
ocsenave@347 1539 | 4F | (substitute) | |
ocsenave@347 1540 | 50 | unless opponent faints, user must recharge after atk. some exceptions apply | |
ocsenave@347 1541 | 51 | (rage) | |
ocsenave@347 1542 | 52 | (mimic) | |
ocsenave@347 1543 | 53 | (metronome) | |
ocsenave@347 1544 | 54 | (leech seed) | |
ocsenave@347 1545 | 55 | does nothing (splash) | |
ocsenave@347 1546 | 56 | (disable) | |
ocsenave@347 1547 #+end_src
ocsenave@347 1548
ocsenave@347 1549 *** Source
ocsenave@347 1550 #+name: move-effects
ocsenave@347 1551 #+begin_src clojure
ocsenave@347 1552 (def move-effects
ocsenave@347 1553 ["normal damage"
ocsenave@347 1554 "no damage, just opponent sleep" ;; how many turns? is atk power ignored?
ocsenave@347 1555 "0x4C chance of poison"
ocsenave@347 1556 "leech half of inflicted damage"
ocsenave@347 1557 "0x19 chance of burn"
ocsenave@347 1558 "0x19 chance of freeze"
ocsenave@347 1559 "0x19 chance of paralyze"
ocsenave@347 1560 "user faints; opponent defense halved during attack."
ocsenave@347 1561 "leech half of inflicted damage ONLY if sleeping opponent."
ocsenave@347 1562 "imitate last attack"
ocsenave@347 1563 "user atk +1"
ocsenave@347 1564 "user def +1"
ocsenave@347 1565 "user spd +1"
ocsenave@347 1566 "user spc +1"
ocsenave@347 1567 "user acr +1" ;; unused?!
ocsenave@347 1568 "user evd +1"
ocsenave@347 1569 "get post-battle $ = 2*level*uses"
ocsenave@347 1570 "0xFE acr, no matter what."
ocsenave@347 1571 "opponent atk -1" ;; acr taken from move acr?
ocsenave@347 1572 "opponent def -1" ;;
ocsenave@347 1573 "opponent spd -1" ;;
ocsenave@347 1574 "opponent spc -1" ;;
ocsenave@347 1575 "opponent acr -1";;
ocsenave@347 1576 "opponent evd -1"
ocsenave@347 1577 "converts user's type to opponent's."
ocsenave@347 1578 "(haze)"
ocsenave@347 1579 "(bide)"
ocsenave@347 1580 "(thrash)"
ocsenave@347 1581 "(teleport)"
ocsenave@347 1582 "(fury swipes)"
ocsenave@347 1583 "attacks 2-5 turns" ;; unused? like rollout?
ocsenave@347 1584 "0x19 chance of flinch"
ocsenave@347 1585 "opponent sleep for 1-7 turns"
ocsenave@347 1586 "0x66 chance of poison"
ocsenave@347 1587 "0x4D chance of burn"
ocsenave@347 1588 "0x4D chance of freeze"
ocsenave@347 1589 "0x4D chance of paralyze"
ocsenave@347 1590 "0x4D chance of flinch"
ocsenave@347 1591 "one-hit KO"
ocsenave@347 1592 "charge one turn, atk next."
ocsenave@347 1593 "fixed damage, leaves 1HP." ;; how is dmg determined?
ocsenave@347 1594 "fixed damage." ;; cf seismic toss, dragon rage, psywave.
ocsenave@347 1595 "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20)
ocsenave@347 1596 "charge one turn, atk next. (can't be hit when charging)"
ocsenave@347 1597 "atk hits twice."
ocsenave@347 1598 "user takes 1 damage if misses."
ocsenave@347 1599 "evade status-lowering effects" ;;caused by you or also your opponent?
ocsenave@347 1600 "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect"
ocsenave@347 1601 "atk causes recoil dmg = 1/4 dmg dealt"
ocsenave@347 1602 "confuses opponent" ;; acr taken from move acr
ocsenave@347 1603 "user atk +2"
ocsenave@347 1604 "user def +2"
ocsenave@347 1605 "user spd +2"
ocsenave@347 1606 "user spc +2"
ocsenave@347 1607 "user acr +2" ;; unused!
ocsenave@347 1608 "user evd +2" ;; unused!
ocsenave@347 1609 "restores up to half of user's max hp." ;; broken: fails if the difference
ocsenave@347 1610 ;; b/w max and current hp is one less than a multiple of 256.
ocsenave@347 1611 "(transform)"
ocsenave@347 1612 "opponent atk -2"
ocsenave@347 1613 "opponent def -2"
ocsenave@347 1614 "opponent spd -2"
ocsenave@347 1615 "opponent spc -2"
ocsenave@347 1616 "opponent acr -2"
ocsenave@347 1617 "opponent evd -2"
ocsenave@347 1618 "doubles user spc when attacked"
ocsenave@347 1619 "doubles user def when attacked"
ocsenave@347 1620 "just poisons opponent" ;;acr taken from move acr
ocsenave@347 1621 "just paralyzes opponent" ;;
ocsenave@347 1622 "0x19 chance opponent atk -1"
ocsenave@347 1623 "0x19 chance opponent def -1"
ocsenave@347 1624 "0x19 chance opponent spd -1"
ocsenave@347 1625 "0x4C chance opponent spc -1" ;; context suggest chance is 0x19
ocsenave@347 1626 "0x19 chance opponent acr -1"
ocsenave@347 1627 "0x19 chance opponent evd -1"
ocsenave@347 1628 "???" ;; unused? no effect?
ocsenave@347 1629 "???" ;; unused? no effect?
ocsenave@347 1630 "0x19 chance opponent confused"
ocsenave@347 1631 "atk hits twice. 0x33 chance opponent poisioned."
ocsenave@347 1632 "broken. crash the game after attack."
ocsenave@347 1633 "(substitute)"
ocsenave@347 1634 "unless opponent faints, user must recharge after atk. some
ocsenave@347 1635 exceptions apply."
ocsenave@347 1636 "(rage)"
ocsenave@347 1637 "(mimic)"
ocsenave@347 1638 "(metronome)"
ocsenave@347 1639 "(leech seed)"
ocsenave@347 1640 "does nothing (splash)"
ocsenave@347 1641 "(disable)"
ocsenave@347 1642 ])
ocsenave@347 1643 #+end_src
ocsenave@347 1644
ocsenave@347 1645
ocsenave@312 1646 ** Alphabet code
ocsenave@347 1647
ocsenave@348 1648 * Source
ocsenave@348 1649
ocsenave@347 1650 #+begin_src clojure :tangle ../clojure/com/aurellem/gb/hxc.clj
ocsenave@347 1651
ocsenave@347 1652 (ns com.aurellem.gb.hxc
ocsenave@347 1653 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@347 1654 constants species))
ocsenave@347 1655 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@347 1656
ocsenave@347 1657 ; ************* HANDWRITTEN CONSTANTS
ocsenave@347 1658
ocsenave@347 1659 <<type-ids>>
ocsenave@347 1660
ocsenave@347 1661
ocsenave@347 1662 ;; question: when status effects claim to take
ocsenave@347 1663 ;; their accuracy from the move accuracy, does
ocsenave@347 1664 ;; this mean that the move always "hits" but the
ocsenave@347 1665 ;; status effect may not?
ocsenave@347 1666
ocsenave@347 1667 <<move-effects>>
ocsenave@347 1668
ocsenave@347 1669 ;; ************** HARDCODED DATA
ocsenave@347 1670
ocsenave@347 1671 <<hxc-thunks>>
ocsenave@347 1672 ;; --------------------------------------------------
ocsenave@347 1673
ocsenave@347 1674 <<pokenames>>
ocsenave@348 1675 <<type-names>>
ocsenave@347 1676
ocsenave@347 1677 ;; http://hax.iimarck.us/topic/581/
ocsenave@348 1678 <<pokecry>>
ocsenave@347 1679
ocsenave@347 1680
ocsenave@348 1681 <<item-names>>
ocsenave@347 1682
ocsenave@347 1683
ocsenave@347 1684
ocsenave@347 1685 (def hxc-titles
ocsenave@347 1686 "The hardcoded names of the trainer titles in memory. List begins at
ocsenave@347 1687 ROM@27E77"
ocsenave@347 1688 (hxc-thunk-words 0x27E77 196))
ocsenave@347 1689
ocsenave@347 1690
ocsenave@348 1691 <<dex-text>>
ocsenave@347 1692
ocsenave@347 1693 ;; In red/blue, pokedex stats are in internal order.
ocsenave@347 1694 ;; In yellow, pokedex stats are in pokedex order.
ocsenave@348 1695 <<dex-stats>>
ocsenave@347 1696
ocsenave@347 1697
ocsenave@347 1698
ocsenave@347 1699
ocsenave@348 1700 <<places>>
ocsenave@347 1701
ocsenave@347 1702 (defn hxc-dialog
ocsenave@347 1703 "The hardcoded dialogue in memory, including in-game alerts. Dialog
ocsenave@347 1704 seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000."
ocsenave@347 1705 ([rom]
ocsenave@347 1706 (map character-codes->str
ocsenave@347 1707 (take-nth 2
ocsenave@347 1708 (partition-by #(= % 0x57)
ocsenave@347 1709 (take 0x0F728
ocsenave@347 1710 (drop 0x98000 rom))))))
ocsenave@347 1711 ([]
ocsenave@347 1712 (hxc-dialog com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347 1713
ocsenave@347 1714
ocsenave@348 1715 <<move-names>>
ocsenave@348 1716 <<move-data>>
ocsenave@347 1717
ocsenave@348 1718 <<machines>>
ocsenave@347 1719
ocsenave@347 1720
ocsenave@347 1721
ocsenave@347 1722 (defn internal-id
ocsenave@347 1723 ([rom]
ocsenave@347 1724 (zipmap
ocsenave@347 1725 (hxc-pokenames rom)
ocsenave@347 1726 (range)))
ocsenave@347 1727 ([]
ocsenave@347 1728 (internal-id com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347 1729
ocsenave@347 1730
ocsenave@347 1731
ocsenave@347 1732
ocsenave@347 1733
ocsenave@347 1734 ;; nidoran gender change upon levelup
ocsenave@347 1735 ;; (->
ocsenave@347 1736 ;; @current-state
ocsenave@347 1737 ;; rom
ocsenave@347 1738 ;; vec
ocsenave@347 1739 ;; (rewrite-memory
ocsenave@347 1740 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂))
ocsenave@347 1741 ;; [1 1 15])
ocsenave@347 1742 ;; (rewrite-memory
ocsenave@347 1743 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀))
ocsenave@347 1744 ;; [1 1 3])
ocsenave@347 1745 ;; (write-rom!)
ocsenave@347 1746
ocsenave@347 1747 ;; )
ocsenave@347 1748
ocsenave@347 1749
ocsenave@347 1750
ocsenave@348 1751 <<type-advantage>>
ocsenave@347 1752
ocsenave@347 1753
ocsenave@347 1754
ocsenave@348 1755 <<evolution-header>>
ocsenave@349 1756 <<evolution>>
ocsenave@348 1757 <<learnsets>>
ocsenave@348 1758 <<pokebase>>
ocsenave@347 1759
ocsenave@347 1760
ocsenave@347 1761 (defn hxc-intro-pkmn
ocsenave@347 1762 "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's
ocsenave@347 1763 internal id is stored at ROM@5EDB."
ocsenave@347 1764 ([] (hxc-intro-pkmn
ocsenave@347 1765 com.aurellem.gb.gb-driver/original-rom))
ocsenave@347 1766 ([rom]
ocsenave@347 1767 (nth (hxc-pokenames rom) (nth rom 0x5EDB))))
ocsenave@347 1768
ocsenave@347 1769 (defn sxc-intro-pkmn!
ocsenave@347 1770 "Set the hardcoded pokemon to display in Prof. Oak's introduction."
ocsenave@347 1771 [pokemon]
ocsenave@347 1772 (write-rom!
ocsenave@347 1773 (rewrite-rom 0x5EDB
ocsenave@347 1774 [
ocsenave@347 1775 (inc
ocsenave@347 1776 ((zipmap
ocsenave@347 1777 (hxc-pokenames)
ocsenave@347 1778 (range))
ocsenave@347 1779 pokemon))])))
ocsenave@347 1780
ocsenave@347 1781
ocsenave@348 1782 <<item-prices>>
ocsenave@347 1783
ocsenave@348 1784 <<item-vendors>>
ocsenave@347 1785
ocsenave@348 1786 <<wilds>>
ocsenave@347 1787
ocsenave@347 1788
ocsenave@347 1789 ;; ********************** MANIPULATION FNS
ocsenave@347 1790
ocsenave@347 1791
ocsenave@347 1792 (defn same-type
ocsenave@347 1793 ([pkmn move]
ocsenave@347 1794 (same-type
ocsenave@347 1795 com.aurellem.gb.gb-driver/original-rom pkmn move))
ocsenave@347 1796 ([rom pkmn move]
ocsenave@347 1797 (((comp :types (hxc-pokemon-base rom)) pkmn)
ocsenave@347 1798 ((comp :type (hxc-move-data rom)) move))))
ocsenave@347 1799
ocsenave@347 1800
ocsenave@347 1801
ocsenave@347 1802
ocsenave@347 1803 (defn submap?
ocsenave@347 1804 "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false."
ocsenave@347 1805 [map-small map-big]
ocsenave@347 1806 (cond (empty? map-small) true
ocsenave@347 1807 (and
ocsenave@347 1808 (contains? map-big (ffirst map-small))
ocsenave@347 1809 (= (get map-big (ffirst map-small))
ocsenave@347 1810 (second (first map-small))))
ocsenave@347 1811 (recur (next map-small) map-big)
ocsenave@347 1812
ocsenave@347 1813 :else false))
ocsenave@347 1814
ocsenave@347 1815
ocsenave@347 1816 (defn search-map [proto-map maps]
ocsenave@347 1817 "Returns all the maps that make the same associations as proto-map."
ocsenave@347 1818 (some (partial submap? proto-map) maps))
ocsenave@347 1819
ocsenave@347 1820 (defn filter-vals
ocsenave@347 1821 "Returns a map consisting of all the pairs [key val] for
ocsenave@347 1822 which (pred key) returns true."
ocsenave@347 1823 [pred map]
ocsenave@347 1824 (reduce (partial apply assoc) {}
ocsenave@347 1825 (filter (fn [[k v]] (pred v)) map)))
ocsenave@347 1826
ocsenave@347 1827
ocsenave@347 1828 (defn search-moves
ocsenave@347 1829 "Returns a subcollection of all hardcoded moves with the
ocsenave@347 1830 given attributes. Attributes consist of :name :power
ocsenave@347 1831 :accuracy :pp :fx-id
ocsenave@347 1832 (and also :fx-txt, but it contains the same information
ocsenave@347 1833 as :fx-id)"
ocsenave@347 1834 ([attribute-map]
ocsenave@347 1835 (search-moves
ocsenave@347 1836 com.aurellem.gb.gb-driver/original-rom attribute-map))
ocsenave@347 1837 ([rom attribute-map]
ocsenave@347 1838 (filter-vals (partial submap? attribute-map)
ocsenave@347 1839 (hxc-move-data rom))))
ocsenave@347 1840
ocsenave@347 1841
ocsenave@347 1842
ocsenave@347 1843
ocsenave@347 1844
ocsenave@347 1845 ;; note: 0x2f31 contains the names "TM" "HM"?
ocsenave@347 1846
ocsenave@347 1847 ;; note for later: credits start at F1290
ocsenave@347 1848
ocsenave@347 1849 ;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ??
ocsenave@347 1850
ocsenave@347 1851 ;; note: DD4D spells out pokemon vital stat names ("speed", etc.)
ocsenave@347 1852
ocsenave@347 1853 ;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE.
ocsenave@347 1854 ;; The first instance is for Machines; the second, for stones.
ocsenave@347 1855
ocsenave@410 1856 ;; note: according to
ocsenave@410 1857 ;; http://www.upokecenter.com/games/rby/guides/rgbtrainers.php
ocsenave@410 1858 ;; the amount of money given by a trainer is equal to the
ocsenave@410 1859 ;; base money times the level of the last Pokemon on that trainer's
ocsenave@410 1860 ;; list. Other sources say it's the the level of the last pokemon
ocsenave@410 1861 ;; /defeated/.
ocsenave@410 1862
ocsenave@410 1863 ;; todo: find base money.
ocsenave@410 1864
ocsenave@410 1865
ocsenave@411 1866 ;; note: 0xDFEA (in indexable mem) is the dex# of the currently-viewed Pokemon in
ocsenave@411 1867 ;; in the pokedex. It's used for other purposes if there is none.
ocsenave@411 1868
ocsenave@412 1869 ;; note: 0x9D35 (index.) switches from 0xFF to 0x00 temporarily when
ocsenave@412 1870 ;; you walk between areas.
ocsenave@412 1871
ocsenave@412 1872 ;; note: 0xD059 (index.) is the special battle type of your next battle:
ocsenave@412 1873 ;; - 00 is a usual battle
ocsenave@412 1874 ;; - 01 is a pre-scripted OLD MAN battle which always fails to catch the
ocsenave@412 1875 ;; target Pokemon.
ocsenave@412 1876 ;; - 02 is a safari zone battle
ocsenave@412 1877 ;; - 03 obligates you to run away. (unused)
ocsenave@412 1878 ;; - 04 is a pre-scripted OAK battle, which (temporarily) causes the
ocsenave@412 1879 ;; enemy Pokemon to cry PIKAAA, and which always catches the target
ocsenave@412 1880 ;; Pokemon. The target Pokemon is erased after the battle.
ocsenave@412 1881 ;; - 05+ are glitch states in which you are sort of the Pokemon.
ocsenave@412 1882
ocsenave@412 1883
ocsenave@412 1884 ;; note: 0x251A (in indexable mem): image decompression routine seems to begin here.
ocsenave@347 1885
ocsenave@420 1886 ;; note: 0x4845 (index): vending inventory is loaded here. possibly
ocsenave@420 1887 ;; other things, too.
ocsenave@420 1888 (comment
ocsenave@420 1889 ;; temporarily intercept/adjust what pops out of the vending
ocsenave@420 1890 ;; machine.
ocsenave@420 1891 ;; (and how much it costs)
ocsenave@420 1892
ocsenave@420 1893 ;; located at 0x4845
ocsenave@420 1894 ;; not to be confused with shop inventory, 0xCF7B
ocsenave@420 1895 (do
ocsenave@420 1896 (step (read-state "vend-menu"))
ocsenave@420 1897 (write-memory! (rewrite-memory (vec(memory)) 0x4845 [2 0 1 0]))
ocsenave@420 1898 (step @current-state [:a])
ocsenave@420 1899 (step @current-state [])
ocsenave@420 1900 (nstep @current-state 200) ))
ocsenave@420 1901
ocsenave@347 1902
ocsenave@373 1903 ;; Note: There are two tile tables, one from 8000-8FFF, the other from
ocsenave@373 1904 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end.
ocsenave@373 1905 (defn print-pixel-letters!
ocsenave@373 1906 "The pixel tiles representing letters. Neat!"
ocsenave@373 1907 ([] (print-pixel-letters! (read-state "oak-speaks")))
ocsenave@373 1908 ([state]
ocsenave@373 1909 (map
ocsenave@373 1910 (comp
ocsenave@373 1911 println
ocsenave@373 1912 (partial map #(if (zero? %) \space 0))
ocsenave@373 1913 #(if (< (count %) 8)
ocsenave@373 1914 (recur (cons 0 %))
ocsenave@373 1915 %)
ocsenave@373 1916 reverse bit-list)
ocsenave@373 1917
ocsenave@373 1918 (take 0xFFF (drop 0x8800 (memory state))))))
ocsenave@373 1919
ocsenave@373 1920
ocsenave@419 1921 ;; (defn test-2 []
ocsenave@419 1922 ;; (loop [n 0
ocsenave@419 1923 ;; pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000)
ocsenave@419 1924 ;; pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a])
ocsenave@419 1925 ;; (step []) (nstep 100)) 100000)]
ocsenave@419 1926 ;; (cond (empty? (drop n pc-1)) [pc-1 n]
ocsenave@419 1927 ;; (not= (take 10 (drop n pc-1)) (take 10 pc-2))
ocsenave@419 1928 ;; (recur pc-1 pc-2 (inc n))
ocsenave@419 1929 ;; :else
ocsenave@419 1930 ;; [(take 1000 pc-2) n])))
ocsenave@406 1931
ocsenave@406 1932
ocsenave@406 1933
ocsenave@406 1934
ocsenave@410 1935 (defn test-3
ocsenave@410 1936 "Explore trainer data"
ocsenave@419 1937 ([] (test-3 0x3A289))
ocsenave@419 1938 ([start]
ocsenave@410 1939 (let [pokenames (vec(hxc-pokenames-raw))]
ocsenave@410 1940 (println
ocsenave@410 1941 (reduce
ocsenave@410 1942 str
ocsenave@410 1943 (map
ocsenave@419 1944 (fn [[adr lvl pkmn]]
ocsenave@419 1945 (str (format "%-11s %4d %02X %02X \t %05X\n"
ocsenave@419 1946
ocsenave@410 1947 (cond
ocsenave@410 1948 (zero? lvl) "+"
ocsenave@410 1949 (nil? (get pokenames (dec pkmn)))
ocsenave@410 1950 "-"
ocsenave@410 1951 :else
ocsenave@410 1952 (get pokenames (dec pkmn)))
ocsenave@410 1953 lvl
ocsenave@410 1954 pkmn
ocsenave@410 1955 lvl
ocsenave@419 1956 adr
ocsenave@419 1957 )))
ocsenave@419 1958 (map cons
ocsenave@419 1959 (take-nth 2 (drop start (range)))
ocsenave@419 1960 (partition 2
ocsenave@419 1961 (take 400;;703
ocsenave@419 1962 (drop
ocsenave@419 1963 start
ocsenave@419 1964 ;; 0x3A75D
ocsenave@419 1965 (rom)))))))))))
ocsenave@410 1966
ocsenave@412 1967 (defn search-memory* [mem codes k]
ocsenave@412 1968 (loop [index 0
ocsenave@412 1969 index-next 1
ocsenave@412 1970 start-match 0
ocsenave@412 1971 to-match codes
ocsenave@412 1972 matches []]
ocsenave@412 1973 (cond
ocsenave@412 1974 (>= index (count mem)) matches
ocsenave@412 1975
ocsenave@412 1976 (empty? to-match)
ocsenave@412 1977 (recur
ocsenave@412 1978 index-next
ocsenave@412 1979 (inc index-next)
ocsenave@412 1980 index-next
ocsenave@412 1981 codes
ocsenave@412 1982 (conj matches
ocsenave@412 1983 [(hex start-match) (take k (drop start-match mem))])
ocsenave@412 1984 )
ocsenave@412 1985
ocsenave@412 1986 (or (= (first to-match) \_) ;; wildcard
ocsenave@412 1987 (= (first to-match) (nth mem index)))
ocsenave@412 1988 (recur
ocsenave@412 1989 (inc index)
ocsenave@412 1990 index-next
ocsenave@412 1991 start-match
ocsenave@412 1992 (rest to-match)
ocsenave@412 1993 matches)
ocsenave@412 1994
ocsenave@412 1995 :else
ocsenave@412 1996 (recur
ocsenave@412 1997 index-next
ocsenave@412 1998 (inc index-next)
ocsenave@412 1999 index-next
ocsenave@412 2000 codes
ocsenave@412 2001 matches))))
ocsenave@420 2002
ocsenave@420 2003
ocsenave@420 2004 (def script-use-ball
ocsenave@420 2005 [0xFA ;; ld A, nn
ocsenave@420 2006 \_
ocsenave@420 2007 \_
ocsenave@420 2008 0xA7 ;; and A
ocsenave@420 2009 0xCA ;; JP Z
ocsenave@420 2010 \_
ocsenave@420 2011 \_
ocsenave@420 2012 0x3D ;; dec A
ocsenave@420 2013 0xC2 ;; JP NZ
ocsenave@420 2014 \_
ocsenave@420 2015 \_
ocsenave@420 2016 0xFA ;; LD A
ocsenave@420 2017 \_
ocsenave@420 2018 \_
ocsenave@420 2019 ])
ocsenave@420 2020
ocsenave@420 2021
ocsenave@420 2022
ocsenave@420 2023 (defn search-pattern [ptn coll]
ocsenave@420 2024 (loop
ocsenave@420 2025 [index 0
ocsenave@420 2026 to-match ptn
ocsenave@420 2027 binds {}
ocsenave@420 2028
ocsenave@420 2029 next-index 1
ocsenave@420 2030 match-start 0
ocsenave@420 2031 matches []]
ocsenave@420 2032
ocsenave@420 2033 (cond
ocsenave@420 2034 (>= index (count coll)) matches
ocsenave@420 2035 (empty? to-match)
ocsenave@420 2036 (recur
ocsenave@420 2037 next-index
ocsenave@420 2038 ptn
ocsenave@420 2039 {}
ocsenave@420 2040 (inc next-index)
ocsenave@420 2041 next-index
ocsenave@420 2042 (conj match-start
ocsenave@420 2043 [(hex match-start) binds]))
ocsenave@420 2044
ocsenave@420 2045 :else
ocsenave@420 2046 (let [k (first to-match)
ocsenave@420 2047 v (nth coll index)]
ocsenave@420 2048 (cond
ocsenave@420 2049 (= k \_) ;; wildcard
ocsenave@420 2050 (recur
ocsenave@420 2051 (inc index)
ocsenave@420 2052 (rest to-match)
ocsenave@420 2053 binds
ocsenave@420 2054
ocsenave@420 2055 next-index
ocsenave@420 2056 match-start
ocsenave@420 2057 matches)
ocsenave@420 2058
ocsenave@420 2059 (keyword? k)
ocsenave@420 2060 (if (binds k)
ocsenave@420 2061 (if (= (binds k) v)
ocsenave@420 2062 (recur
ocsenave@420 2063 (inc index)
ocsenave@420 2064 (rest to-match)
ocsenave@420 2065 binds
ocsenave@420 2066 next-index
ocsenave@420 2067 match-start
ocsenave@420 2068 matches)
ocsenave@420 2069
ocsenave@420 2070 (recur
ocsenave@420 2071 next-index
ocsenave@420 2072 ptn
ocsenave@420 2073 {}
ocsenave@420 2074 (inc next-index)
ocsenave@420 2075 next-index
ocsenave@420 2076 matches))
ocsenave@420 2077
ocsenave@420 2078 ;; ;; consistent bindings
ocsenave@420 2079 ;; (recur
ocsenave@420 2080 ;; (inc index)
ocsenave@420 2081 ;; (rest to-match)
ocsenave@420 2082 ;; binds
ocsenave@420 2083
ocsenave@420 2084 ;; next-index
ocsenave@420 2085 ;; match-start
ocsenave@420 2086 ;; matches)
ocsenave@420 2087
ocsenave@420 2088 ;; ;; inconsistent bindings
ocsenave@420 2089 ;; (recur
ocsenave@420 2090 ;; next-index
ocsenave@420 2091 ;; ptn
ocsenave@420 2092 ;; {}
ocsenave@420 2093 ;; (inc next-index)
ocsenave@420 2094 ;; next-index
ocsenave@420 2095 ;; matches))
ocsenave@420 2096
ocsenave@420 2097 (if ((set (vals binds)) v)
ocsenave@420 2098 ;; bindings are not unique
ocsenave@420 2099 (recur
ocsenave@420 2100 next-index
ocsenave@420 2101 ptn
ocsenave@420 2102 {}
ocsenave@420 2103 (inc next-index)
ocsenave@420 2104 next-index
ocsenave@420 2105 matches)
ocsenave@420 2106
ocsenave@420 2107 ;; bindings are unique
ocsenave@420 2108 (recur
ocsenave@420 2109 (inc index)
ocsenave@420 2110 (rest to-match)
ocsenave@420 2111 (assoc binds k v)
ocsenave@420 2112
ocsenave@420 2113 next-index
ocsenave@420 2114 match-start
ocsenave@420 2115 matches)))
ocsenave@420 2116
ocsenave@420 2117 :else ;; k is just a number
ocsenave@420 2118 (if (= k v)
ocsenave@420 2119 (recur
ocsenave@420 2120 (inc index)
ocsenave@420 2121 (rest to-match)
ocsenave@420 2122 binds
ocsenave@420 2123
ocsenave@420 2124 next-index
ocsenave@420 2125 match-start
ocsenave@420 2126 matches)
ocsenave@420 2127
ocsenave@420 2128 (recur
ocsenave@420 2129 next-index
ocsenave@420 2130 ptn
ocsenave@420 2131 {}
ocsenave@420 2132 (inc next-index)
ocsenave@420 2133 next-index
ocsenave@420 2134 matches)))))))
ocsenave@420 2135
ocsenave@420 2136
ocsenave@420 2137
ocsenave@420 2138
ocsenave@420 2139
ocsenave@420 2140
ocsenave@420 2141
ocsenave@420 2142
ocsenave@420 2143
ocsenave@420 2144 (defn search-pattern* [ptn coll]
ocsenave@420 2145 (loop
ocsenave@420 2146 [
ocsenave@420 2147 binds {}
ocsenave@420 2148 index 0
ocsenave@420 2149 index-next 1
ocsenave@420 2150 start-match 0
ocsenave@420 2151 to-match ptn
ocsenave@420 2152 matches []]
ocsenave@420 2153
ocsenave@420 2154 (cond
ocsenave@420 2155 (>= index (count coll)) matches
ocsenave@420 2156 (empty? to-match)
ocsenave@420 2157 (recur
ocsenave@420 2158 {}
ocsenave@420 2159 index-next
ocsenave@420 2160 (inc index-next)
ocsenave@420 2161 index-next
ocsenave@420 2162 ptn
ocsenave@420 2163 (conj matches
ocsenave@420 2164 [(hex start-match) binds]))
ocsenave@420 2165
ocsenave@420 2166 :else
ocsenave@420 2167 (let [k (first to-match)
ocsenave@420 2168 v (nth coll index)]
ocsenave@420 2169 (cond
ocsenave@420 2170 (= k \_) ;; wildcard
ocsenave@420 2171 (recur
ocsenave@420 2172 binds
ocsenave@420 2173 (inc index)
ocsenave@420 2174 index-next
ocsenave@420 2175 start-match
ocsenave@420 2176 (rest to-match)
ocsenave@420 2177 matches)
ocsenave@420 2178
ocsenave@420 2179 (keyword? k)
ocsenave@420 2180 (if (binds k)
ocsenave@420 2181 (if (= (binds k) v)
ocsenave@420 2182 (recur
ocsenave@420 2183 binds
ocsenave@420 2184 (inc index)
ocsenave@420 2185 index-next
ocsenave@420 2186 start-match
ocsenave@420 2187 (rest to-match)
ocsenave@420 2188 matches)
ocsenave@420 2189 (recur
ocsenave@420 2190 {}
ocsenave@420 2191 index-next
ocsenave@420 2192 (inc index-next)
ocsenave@420 2193 index-next
ocsenave@420 2194 ptn
ocsenave@420 2195 matches))
ocsenave@420 2196 (if
ocsenave@420 2197 ;; every symbol must be bound to a different thing.
ocsenave@420 2198 ((set (vals binds)) v)
ocsenave@420 2199 (recur
ocsenave@420 2200 {}
ocsenave@420 2201 index-next
ocsenave@420 2202 (inc index-next)
ocsenave@420 2203 index-next
ocsenave@420 2204 ptn
ocsenave@420 2205 matches)
ocsenave@420 2206 (recur
ocsenave@420 2207 (assoc binds k v)
ocsenave@420 2208 (inc index)
ocsenave@420 2209 index-next
ocsenave@420 2210 start-match
ocsenave@420 2211 (rest to-match)
ocsenave@420 2212 matches))))))))
ocsenave@420 2213
ocsenave@412 2214
ocsenave@406 2215
ocsenave@406 2216
ocsenave@410 2217 ;; look for the rainbow badge in memory
ocsenave@410 2218 (println (reduce str (map #(str (first %) "\t" (vec(second %)) "\n") (search-memory (rom) [221] 10))))
ocsenave@410 2219
ocsenave@406 2220
ocsenave@347 2221 (comment
ocsenave@347 2222
ocsenave@347 2223 (def hxc-later
ocsenave@347 2224 "Running this code produces, e.g. hardcoded names NPCs give
ocsenave@347 2225 their pokemon. Will sort through it later."
ocsenave@347 2226 (print (character-codes->str(take 10000
ocsenave@347 2227 (drop 0x71597
ocsenave@347 2228 (rom (root)))))))
ocsenave@347 2229
ocsenave@347 2230 (let [dex
ocsenave@347 2231 (partition-by #(= 0x50 %)
ocsenave@347 2232 (take 2540
ocsenave@347 2233 (drop 0x40687
ocsenave@347 2234 (rom (root)))))]
ocsenave@347 2235 (def dex dex)
ocsenave@347 2236 (def hxc-species
ocsenave@347 2237 (map character-codes->str
ocsenave@347 2238 (take-nth 4 dex))))
ocsenave@347 2239 )
ocsenave@347 2240
ocsenave@347 2241
ocsenave@347 2242 #+end_src
ocsenave@347 2243
ocsenave@348 2244 #+results:
ocsenave@348 2245 : nil
ocsenave@348 2246