annotate org/rom.org @ 471:5f87c3e46c22

Added interactive Pokemon cries.
author Dylan Holmes <ocsenave@gmail.com>
date Sun, 29 Apr 2012 20:35:58 -0500
parents c02108ddcb35
children 69d1787522c7
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@471 9 #+OPTIONS: num:2
ocsenave@471 10
ocsenave@311 11
ocsenave@346 12 # about map headers http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes
ocsenave@346 13 # map headers Yellow http://www.pokecommunity.com/archive/index.php/t-235311.html
ocsenave@312 14 # pokedollar: U+20B1
ocsenave@347 15 * Introduction
ocsenave@470 16 This article contains the results of my investigations with
ocsenave@470 17 Pok\eacute{}mon Yellow as I searched for interesting
ocsenave@470 18 data in the ROM. By using the Clojure language interface
ocsenave@470 19 written by Robert[fn::This Clojure interface will be published to aurellem.org soon.], I
ocsenave@470 20 was able to interact with the game in real-time, sending commands and
ocsenave@470 21 gathering data. The result is a manifestly accurate map of
ocsenave@470 22 Pok\eacute{}mon Yellow; every result
ocsenave@470 23 comes with runnable code that /works/. You can see the code and the output of
ocsenave@470 24 every function and confirm for yourself that they are all correct. I
ocsenave@470 25 hope you like the result!
ocsenave@470 26
ocsenave@470 27 To orient yourself, you can look for a specific topic in the table of contents
ocsenave@470 28 above, or browse the [[#sec-9-1][map of the ROM]], below.
ocsenave@470 29
ocsenave@470 30
ocsenave@471 31 If you have any questions or comments, please e-mail =rlm@mit.edu=.
ocsenave@470 32
ocsenave@347 33
ocsenave@348 34 ** COMMENT Getting linguistic data: names, words, etc.
ocsenave@348 35
ocsenave@348 36 Some of the simplest data
ocsenave@348 37
ocsenave@348 38
ocsenave@348 39 One of the simplest data structures in the Pok\eacute{} ROM is an
ocsenave@348 40 unbroken list of strings that either (a) all have a specific length,
ocsenave@348 41 or (b) are all separated by the same character.
ocsenave@348 42
ocsenave@348 43 Because lots of good data has this format, we'll start by writing a
ocsenave@348 44 template function to extract it:
ocsenave@348 45
ocsenave@348 46 #+name: hxc-thunks
ocsenave@348 47 #+begin_src clojure :results silent
ocsenave@348 48 (defn hxc-thunk
ocsenave@348 49 "Creates a thunk (nullary fn) that grabs data in a certain region of rom and
ocsenave@348 50 splits it into a collection by 0x50. If rom is not supplied, uses the
ocsenave@348 51 original rom data."
ocsenave@348 52 [start length]
ocsenave@348 53 (fn self
ocsenave@348 54 ([rom]
ocsenave@348 55 (take-nth 2
ocsenave@348 56 (partition-by #(= % 0x50)
ocsenave@348 57 (take length
ocsenave@348 58 (drop start rom)))))
ocsenave@348 59 ([]
ocsenave@348 60 (self com.aurellem.gb.gb-driver/original-rom))))
ocsenave@348 61
ocsenave@348 62 (def hxc-thunk-words
ocsenave@348 63 "Same as hxc-thunk, except it interprets the rom data as characters,
ocsenave@348 64 returning a collection of strings."
ocsenave@348 65 (comp
ocsenave@348 66 (partial comp (partial map character-codes->str))
ocsenave@348 67 hxc-thunk))
ocsenave@348 68
ocsenave@348 69 #+end_src
ocsenave@348 70
ocsenave@348 71
ocsenave@348 72 * Pok\eacute{}mon I
ocsenave@348 73 ** Names of each species
ocsenave@348 74 The names of the Pok\eacute{}mon species are stored in
ocsenave@348 75 ROM@E8000. This name list is interesting, for a number of reasons:
ocsenave@348 76 - The names are stored in [[ ][internal order]] rather than in the familiar
ocsenave@348 77 Pok\eacute{}dex order. This seemingly random order probably represents the order in which the authors created or
ocsenave@348 78 programmed in the Pok\eacute{}mon; it's used throughout the game.
ocsenave@348 79 - There is enough space allocated for 190 Pok\eacute{}mon. As I
ocsenave@348 80 understand it, there were originally going to be 190 Pok\eacute{}mon
ocsenave@348 81 in Generation I, but the creators decided to defer some to
ocsenave@348 82 Generation II. This explains why many Gen I and Gen II Pok\eacute{}mon
ocsenave@348 83 have the same aesthetic feel.
ocsenave@348 84 - The list is pockmarked with random gaps, due to the strange internal
ocsenave@348 85 ordering
ocsenave@348 86 and the 39 unused spaces [fn::190 allocated spaces minus 151 true Pok\eacute{}mon]. These missing spaces are filled with the
ocsenave@348 87 placeholder name =MISSINGNO.= (\ldquo{}Missing number\rdquo{}).
ocsenave@348 88
ocsenave@348 89 Each name is exactly ten letters long; whenever a name would be too short, the extra
ocsenave@348 90 space is padded with the character 0x50.
ocsenave@348 91
ocsenave@348 92 *** See the data
ocsenave@348 93
ocsenave@348 94 Here you can see the raw data in three stages: in the first stage, we
ocsenave@348 95 just grab the first few bytes starting from position 0xE8000. In the
ocsenave@371 96 second stage, we partition the bytes into ten-letter chunks to show you
ocsenave@348 97 where the names begin and end. In the final stage, we convert each
ocsenave@348 98 byte into the letter it represents using the =character-codes->str=
ocsenave@348 99 function. (0x50 is rendered as the symbol \ldquo{} =#= \rdquo{} for
ocsenave@348 100 ease of reading).
ocsenave@348 101
ocsenave@348 102 #+begin_src clojure :exports both :cache no :results output
ocsenave@348 103 (ns com.aurellem.gb.hxc
ocsenave@348 104 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@348 105 constants))
ocsenave@348 106 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348 107
ocsenave@371 108
ocsenave@348 109 (println (take 100 (drop 0xE8000 (rom))))
ocsenave@348 110
ocsenave@348 111 (println (partition 10 (take 100 (drop 0xE8000 (rom)))))
ocsenave@348 112
ocsenave@348 113 (println (character-codes->str (take 100 (drop 0xE8000 (rom)))))
ocsenave@348 114
ocsenave@348 115
ocsenave@348 116 #+end_src
ocsenave@348 117
ocsenave@348 118 #+results:
ocsenave@348 119 : (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 120 : ((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 121 : RHYDON####KANGASKHANNIDORAN♂##CLEFAIRY##SPEAROW###VOLTORB###NIDOKING##SLOWBRO###IVYSAUR###EXEGGUTOR#
ocsenave@348 122
ocsenave@348 123
ocsenave@348 124 *** Automatically grab the data.
ocsenave@348 125
ocsenave@348 126 #+name: pokenames
ocsenave@348 127 #+begin_src clojure
ocsenave@348 128
ocsenave@348 129 (defn hxc-pokenames-raw
ocsenave@348 130 "The hardcoded names of the 190 species in memory. List begins at
ocsenave@348 131 ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters
ocsenave@348 132 long, these names are stripped of padding. See also, hxc-pokedex-names"
ocsenave@348 133 ([]
ocsenave@348 134 (hxc-pokenames-raw com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 135 ([rom]
ocsenave@348 136 (let [count-species 190
ocsenave@348 137 name-length 10]
ocsenave@348 138 (map character-codes->str
ocsenave@348 139 (partition name-length
ocsenave@348 140 (map #(if (= 0x50 %) 0x00 %)
ocsenave@348 141 (take (* count-species name-length)
ocsenave@348 142 (drop 0xE8000
ocsenave@348 143 rom))))))))
ocsenave@348 144 (def hxc-pokenames
ocsenave@348 145 (comp
ocsenave@348 146 (partial map format-name)
ocsenave@348 147 hxc-pokenames-raw))
ocsenave@348 148
ocsenave@348 149
ocsenave@348 150
ocsenave@348 151
ocsenave@348 152 (defn hxc-pokedex-names
ocsenave@411 153 "The names of the pokemon in hardcoded pokedex order. List of the
ocsenave@411 154 pokedex numbers of each pokemon (in internal order) begins at
ocsenave@348 155 ROM@410B1. See also, hxc-pokenames."
ocsenave@348 156 ([] (hxc-pokedex-names
ocsenave@348 157 com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 158 ([rom]
ocsenave@348 159 (let [names (hxc-pokenames rom)]
ocsenave@348 160 (#(mapv %
ocsenave@348 161 ((comp range count keys) %))
ocsenave@348 162 (zipmap
ocsenave@348 163 (take (count names)
ocsenave@348 164 (drop 0x410b1 rom))
ocsenave@348 165
ocsenave@348 166 names)))))
ocsenave@348 167
ocsenave@348 168 #+end_src
ocsenave@348 169
ocsenave@348 170
ocsenave@348 171
ocsenave@348 172 ** Generic species information
ocsenave@348 173
ocsenave@348 174 #+name: pokebase
ocsenave@348 175 #+begin_src clojure
ocsenave@348 176 (defn hxc-pokemon-base
ocsenave@348 177 ([] (hxc-pokemon-base com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 178 ([rom]
ocsenave@348 179 (let [entry-size 28
ocsenave@371 180
ocsenave@348 181 pokemon (rest (hxc-pokedex-names))
ocsenave@371 182 pkmn-count (inc(count pokemon))
ocsenave@348 183 types (apply assoc {}
ocsenave@348 184 (interleave
ocsenave@348 185 (range)
ocsenave@348 186 pkmn-types)) ;;!! softcoded
ocsenave@348 187 moves (apply assoc {}
ocsenave@348 188 (interleave
ocsenave@348 189 (range)
ocsenave@348 190 (map format-name
ocsenave@348 191 (hxc-move-names rom))))
ocsenave@348 192 machines (hxc-machines)
ocsenave@348 193 ]
ocsenave@348 194 (zipmap
ocsenave@348 195 pokemon
ocsenave@348 196 (map
ocsenave@348 197 (fn [[n
ocsenave@348 198 rating-hp
ocsenave@348 199 rating-atk
ocsenave@348 200 rating-def
ocsenave@348 201 rating-speed
ocsenave@348 202 rating-special
ocsenave@348 203 type-1
ocsenave@348 204 type-2
ocsenave@348 205 rarity
ocsenave@348 206 rating-xp
ocsenave@348 207 pic-dimensions ;; tile_width|tile_height (8px/tile)
ocsenave@348 208 ptr-pic-obverse-1
ocsenave@348 209 ptr-pic-obverse-2
ocsenave@348 210 ptr-pic-reverse-1
ocsenave@348 211 ptr-pic-reverse-2
ocsenave@348 212 move-1
ocsenave@348 213 move-2
ocsenave@348 214 move-3
ocsenave@348 215 move-4
ocsenave@348 216 growth-rate
ocsenave@348 217 &
ocsenave@348 218 TMs|HMs]]
ocsenave@348 219 (let
ocsenave@348 220 [base-moves
ocsenave@348 221 (mapv moves
ocsenave@348 222 ((comp
ocsenave@348 223 ;; since the game uses zero as a delimiter,
ocsenave@348 224 ;; it must also increment all move indices by 1.
ocsenave@348 225 ;; heren we decrement to correct this.
ocsenave@348 226 (partial map dec)
ocsenave@348 227 (partial take-while (comp not zero?)))
ocsenave@348 228 [move-1 move-2 move-3 move-4]))
ocsenave@348 229
ocsenave@348 230 types
ocsenave@348 231 (set (list (types type-1)
ocsenave@348 232 (types type-2)))
ocsenave@348 233 TMs|HMs
ocsenave@348 234 (map
ocsenave@348 235 (comp
ocsenave@348 236 (partial map first)
ocsenave@348 237 (partial remove (comp zero? second)))
ocsenave@348 238 (split-at
ocsenave@348 239 50
ocsenave@348 240 (map vector
ocsenave@348 241 (rest(range))
ocsenave@348 242 (reduce concat
ocsenave@348 243 (map
ocsenave@348 244 #(take 8
ocsenave@348 245 (concat (bit-list %)
ocsenave@348 246 (repeat 0)))
ocsenave@348 247
ocsenave@348 248 TMs|HMs)))))
ocsenave@348 249
ocsenave@348 250 TMs (vec (first TMs|HMs))
ocsenave@348 251 HMs (take 5 (map (partial + -50) (vec (second TMs|HMs))))
ocsenave@348 252
ocsenave@348 253
ocsenave@348 254 ]
ocsenave@348 255
ocsenave@348 256
ocsenave@348 257 {:dex# n
ocsenave@348 258 :base-moves base-moves
ocsenave@348 259 :types types
ocsenave@348 260 :TMs TMs
ocsenave@348 261 :HMs HMs
ocsenave@348 262 :base-hp rating-hp
ocsenave@348 263 :base-atk rating-atk
ocsenave@348 264 :base-def rating-def
ocsenave@348 265 :base-speed rating-speed
ocsenave@348 266 :base-special rating-special
ocsenave@348 267 :o0 pic-dimensions
ocsenave@348 268 :o1 ptr-pic-obverse-1
ocsenave@348 269 :o2 ptr-pic-obverse-2
ocsenave@348 270 }))
ocsenave@348 271
ocsenave@348 272 (partition entry-size
ocsenave@348 273 (take (* entry-size pkmn-count)
ocsenave@348 274 (drop 0x383DE
ocsenave@348 275 rom))))))))
ocsenave@348 276
ocsenave@348 277 #+end_src
ocsenave@348 278
ocsenave@348 279
ocsenave@348 280 ** Pok\eacute{}mon evolutions
ocsenave@348 281 #+name: evolution-header
ocsenave@348 282 #+begin_src clojure
ocsenave@348 283 (defn format-evo
ocsenave@348 284 "Parse a sequence of evolution data, returning a map. First is the
ocsenave@348 285 method: 0 = end-evolution-data. 1 = level-up, 2 = item, 3 = trade. Next is an item id, if the
ocsenave@348 286 method of evolution is by item (only stones will actually make pokemon
ocsenave@348 287 evolve, for some auxillary reason.) Finally, the minimum level for
ocsenave@348 288 evolution to occur (level 1 means no limit, which is used for trade
ocsenave@348 289 and item evolutions), followed by the internal id of the pokemon
ocsenave@348 290 into which to evolve. Hence, level up and trade evolutions are
ocsenave@348 291 described with 3
ocsenave@348 292 bytes; item evolutions with four."
ocsenave@348 293 [coll]
ocsenave@348 294 (let [method (first coll)]
ocsenave@348 295 (cond (empty? coll) []
ocsenave@348 296 (= 0 method) [] ;; just in case
ocsenave@348 297 (= 1 method) ;; level-up evolution
ocsenave@348 298 (conj (format-evo (drop 3 coll))
ocsenave@348 299 {:method :level-up
ocsenave@348 300 :min-level (nth coll 1)
ocsenave@348 301 :into (dec (nth coll 2))})
ocsenave@348 302
ocsenave@348 303 (= 2 method) ;; item evolution
ocsenave@348 304 (conj (format-evo (drop 4 coll))
ocsenave@348 305 {:method :item
ocsenave@348 306 :item (dec (nth coll 1))
ocsenave@348 307 :min-level (nth coll 2)
ocsenave@348 308 :into (dec (nth coll 3))})
ocsenave@348 309
ocsenave@348 310 (= 3 method) ;; trade evolution
ocsenave@348 311 (conj (format-evo (drop 3 coll))
ocsenave@348 312 {:method :trade
ocsenave@348 313 :min-level (nth coll 1) ;; always 1 for trade.
ocsenave@348 314 :into (dec (nth coll 2))}))))
ocsenave@348 315
ocsenave@348 316
ocsenave@348 317 (defn hxc-ptrs-evolve
ocsenave@348 318 "A hardcoded collection of 190 pointers to alternating evolution/learnset data,
ocsenave@348 319 in internal order."
ocsenave@348 320 ([]
ocsenave@348 321 (hxc-ptrs-evolve com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 322 ([rom]
ocsenave@348 323 (let [
ocsenave@348 324 pkmn-count (count (hxc-pokenames-raw)) ;; 190
ocsenave@348 325 ptrs
ocsenave@348 326 (map (fn [[a b]] (low-high a b))
ocsenave@348 327 (partition 2
ocsenave@348 328 (take (* 2 pkmn-count)
ocsenave@348 329 (drop 0x3b1e5 rom))))]
ocsenave@348 330 (map (partial + 0x34000) ptrs)
ocsenave@348 331
ocsenave@348 332 )))
ocsenave@348 333 #+end_src
ocsenave@348 334
ocsenave@348 335 #+name:evolution
ocsenave@348 336 #+begin_src clojure
ocsenave@348 337
ocsenave@348 338 (defn hxc-evolution
ocsenave@348 339 "Hardcoded evolution data in memory. The data exists at ROM@34000,
ocsenave@348 340 sorted by internal order. Pointers to the data exist at ROM@3B1E5; see also, hxc-ptrs-evolve."
ocsenave@348 341 ([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 342 ([rom]
ocsenave@348 343 (apply assoc {}
ocsenave@348 344 (interleave
ocsenave@348 345 (hxc-pokenames rom)
ocsenave@348 346 (map
ocsenave@348 347 (comp
ocsenave@348 348 format-evo
ocsenave@348 349 (partial take-while (comp not zero?))
ocsenave@348 350 #(drop % rom))
ocsenave@348 351 (hxc-ptrs-evolve rom)
ocsenave@348 352 )))))
ocsenave@348 353
ocsenave@348 354 (defn hxc-evolution-pretty
ocsenave@348 355 "Like hxc-evolution, except it uses the names of items and pokemon
ocsenave@348 356 --- grabbed from ROM --- rather than their numerical identifiers."
ocsenave@348 357 ([] (hxc-evolution-pretty com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 358 ([rom]
ocsenave@348 359 (let
ocsenave@348 360 [poke-names (vec (hxc-pokenames rom))
ocsenave@348 361 item-names (vec (hxc-items rom))
ocsenave@348 362 use-names
ocsenave@348 363 (fn [m]
ocsenave@348 364 (loop [ks (keys m) new-map m]
ocsenave@348 365 (let [k (first ks)]
ocsenave@348 366 (cond (nil? ks) new-map
ocsenave@348 367 (= k :into)
ocsenave@348 368 (recur
ocsenave@348 369 (next ks)
ocsenave@348 370 (assoc new-map
ocsenave@348 371 :into
ocsenave@348 372 (poke-names
ocsenave@348 373 (:into
ocsenave@348 374 new-map))))
ocsenave@348 375 (= k :item)
ocsenave@348 376 (recur
ocsenave@348 377 (next ks)
ocsenave@348 378 (assoc new-map
ocsenave@348 379 :item
ocsenave@348 380 (item-names
ocsenave@348 381 (:item new-map))))
ocsenave@348 382 :else
ocsenave@348 383 (recur
ocsenave@348 384 (next ks)
ocsenave@348 385 new-map)
ocsenave@348 386 ))))]
ocsenave@348 387
ocsenave@348 388 (into {}
ocsenave@348 389 (map (fn [[pkmn evo-coll]]
ocsenave@348 390 [pkmn (map use-names evo-coll)])
ocsenave@348 391 (hxc-evolution rom))))))
ocsenave@348 392
ocsenave@348 393
ocsenave@348 394 #+end_src
ocsenave@348 395
ocsenave@348 396
ocsenave@348 397 ** Level-up moves (learnsets)
ocsenave@348 398 #+name: learnsets
ocsenave@348 399 #+begin_src clojure
ocsenave@348 400
ocsenave@348 401
ocsenave@348 402 (defn hxc-learnsets
ocsenave@348 403 "Hardcoded map associating pokemon names to lists of pairs [lvl
ocsenave@348 404 move] of abilities they learn as they level up. The data
ocsenave@348 405 exists at ROM@34000, sorted by internal order. Pointers to the data
ocsenave@348 406 exist at ROM@3B1E5; see also, hxc-ptrs-evolve"
ocsenave@348 407 ([] (hxc-learnsets com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 408 ([rom]
ocsenave@348 409 (apply assoc
ocsenave@348 410 {}
ocsenave@348 411 (interleave
ocsenave@348 412 (hxc-pokenames rom)
ocsenave@348 413 (map (comp
ocsenave@348 414 (partial map
ocsenave@348 415 (fn [[lvl mv]] [lvl (dec mv)]))
ocsenave@348 416 (partial partition 2)
ocsenave@348 417 ;; keep the learnset data
ocsenave@348 418 (partial take-while (comp not zero?))
ocsenave@348 419 ;; skip the evolution data
ocsenave@348 420 rest
ocsenave@348 421 (partial drop-while (comp not zero?)))
ocsenave@348 422 (map #(drop % rom)
ocsenave@348 423 (hxc-ptrs-evolve rom)))))))
ocsenave@348 424
ocsenave@348 425 (defn hxc-learnsets-pretty
ocsenave@348 426 "Live hxc-learnsets except it reports the name of each move --- as
ocsenave@348 427 it appears in rom --- rather than the move index."
ocsenave@348 428 ([] (hxc-learnsets-pretty com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 429 ([rom]
ocsenave@348 430 (let [moves (vec(map format-name (hxc-move-names)))]
ocsenave@348 431 (into {}
ocsenave@348 432 (map (fn [[pkmn learnset]]
ocsenave@348 433 [pkmn (map (fn [[lvl mv]] [lvl (moves mv)])
ocsenave@348 434 learnset)])
ocsenave@348 435 (hxc-learnsets rom))))))
ocsenave@348 436
ocsenave@348 437
ocsenave@348 438
ocsenave@348 439 #+end_src
ocsenave@348 440
ocsenave@348 441
ocsenave@348 442
ocsenave@348 443 * Pok\eacute{}mon II : the Pok\eacute{}dex
ocsenave@348 444 ** Species vital stats
ocsenave@348 445 #+name: dex-stats
ocsenave@348 446 #+begin_src clojure
ocsenave@348 447 (defn hxc-pokedex-stats
ocsenave@348 448 "The hardcoded pokedex stats (species height weight) in memory. List
ocsenave@348 449 begins at ROM@40687"
ocsenave@348 450 ([] (hxc-pokedex-stats com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 451 ([rom]
ocsenave@348 452 (let [pokedex-names (zipmap (range) (hxc-pokedex-names rom))
ocsenave@348 453 pkmn-count (count pokedex-names)
ocsenave@348 454 ]
ocsenave@348 455 ((fn capture-stats
ocsenave@348 456 [n stats data]
ocsenave@348 457 (if (zero? n) stats
ocsenave@348 458 (let [[species
ocsenave@348 459 [_
ocsenave@348 460 height-ft
ocsenave@348 461 height-in
ocsenave@348 462 weight-1
ocsenave@348 463 weight-2
ocsenave@348 464 _
ocsenave@348 465 dex-ptr-1
ocsenave@348 466 dex-ptr-2
ocsenave@348 467 dex-bank
ocsenave@348 468 _
ocsenave@348 469 & data]]
ocsenave@348 470 (split-with (partial not= 0x50) data)]
ocsenave@348 471 (recur (dec n)
ocsenave@348 472 (assoc stats
ocsenave@348 473 (pokedex-names (- pkmn-count (dec n)))
ocsenave@348 474 {:species
ocsenave@348 475 (format-name (character-codes->str species))
ocsenave@348 476 :height-ft
ocsenave@348 477 height-ft
ocsenave@348 478 :height-in
ocsenave@348 479 height-in
ocsenave@348 480 :weight
ocsenave@348 481 (/ (low-high weight-1 weight-2) 10.)
ocsenave@348 482
ocsenave@348 483 ;; :text
ocsenave@348 484 ;; (character-codes->str
ocsenave@348 485 ;; (take-while
ocsenave@348 486 ;; (partial not= 0x50)
ocsenave@348 487 ;; (drop
ocsenave@348 488 ;; (+ 0xB8000
ocsenave@348 489 ;; -0x4000
ocsenave@348 490 ;; (low-high dex-ptr-1 dex-ptr-2))
ocsenave@348 491 ;; rom)))
ocsenave@348 492 })
ocsenave@348 493
ocsenave@348 494 data)
ocsenave@348 495
ocsenave@348 496
ocsenave@348 497 )))
ocsenave@348 498
ocsenave@348 499 pkmn-count
ocsenave@348 500 {}
ocsenave@348 501 (drop 0x40687 rom))) ))
ocsenave@348 502 #+end_src
ocsenave@348 503
ocsenave@411 504 #+results: dex-stats
ocsenave@411 505 : #'com.aurellem.gb.hxc/hxc-pokedex-stats
ocsenave@411 506
ocsenave@348 507 ** Species synopses
ocsenave@348 508
ocsenave@348 509 #+name: dex-text
ocsenave@348 510 #+begin_src clojure
ocsenave@348 511 (def hxc-pokedex-text-raw
ocsenave@348 512 "The hardcoded pokedex entries in memory. List begins at
ocsenave@348 513 ROM@B8000, shortly before move names."
ocsenave@348 514 (hxc-thunk-words 0xB8000 14754))
ocsenave@348 515
ocsenave@348 516
ocsenave@348 517
ocsenave@348 518
ocsenave@348 519 (defn hxc-pokedex-text
ocsenave@348 520 "The hardcoded pokedex entries in memory, presented as an
ocsenave@348 521 associative hash map. List begins at ROM@B8000."
ocsenave@348 522 ([] (hxc-pokedex-text com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 523 ([rom]
ocsenave@348 524 (zipmap
ocsenave@348 525 (hxc-pokedex-names rom)
ocsenave@348 526 (cons nil ;; for missingno.
ocsenave@348 527 (hxc-pokedex-text-raw rom)))))
ocsenave@348 528 #+end_src
ocsenave@348 529
ocsenave@348 530
ocsenave@348 531 ** Pok\eacute{}mon cries
ocsenave@471 532 *** See the data
ocsenave@471 533
ocsenave@471 534 Here, you can see that each Pok\eacute{}mon's cry data consists of
ocsenave@471 535 three bytes: the =cry-id=, which is the basic sound byte to use, the
ocsenave@471 536 =pitch=, which determines how high or low to make the sound byte, and
ocsenave@471 537 the =length=, which is the amount of the sound byte to play.
ocsenave@471 538
ocsenave@471 539 Even though there are only a few different basic sound bytes (cry
ocsenave@471 540 ids) to build from, by varying the pitch and length,
ocsenave@471 541 you can create a wide variety of different Pok\eacute{}mon cries.
ocsenave@471 542
ocsenave@471 543 #+begin_src clojure :exports both :cache no :results output
ocsenave@471 544 (ns com.aurellem.gb.hxc
ocsenave@471 545 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@471 546 constants))
ocsenave@471 547 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@471 548
ocsenave@471 549 (->>
ocsenave@471 550 (rom)
ocsenave@471 551 (drop 0x39462)
ocsenave@471 552 (take 12)
ocsenave@471 553 (println))
ocsenave@471 554
ocsenave@471 555 (->>
ocsenave@471 556 (rom)
ocsenave@471 557 (drop 0x39462)
ocsenave@471 558 (take 12)
ocsenave@471 559 (partition 3)
ocsenave@471 560 (map vec)
ocsenave@471 561 (println))
ocsenave@471 562
ocsenave@471 563 (->>
ocsenave@471 564 (rom)
ocsenave@471 565 (drop 0x39462)
ocsenave@471 566 (take 12)
ocsenave@471 567 (partition 3)
ocsenave@471 568 (map
ocsenave@471 569 (fn [[id pitch length]]
ocsenave@471 570 {:cry-id id :pitch pitch :length length}))
ocsenave@471 571 (println))
ocsenave@471 572
ocsenave@471 573 #+end_src
ocsenave@471 574
ocsenave@471 575 #+results:
ocsenave@471 576 : (17 0 128 3 0 128 0 0 128 25 204 1)
ocsenave@471 577 : ([17 0 128] [3 0 128] [0 0 128] [25 204 1])
ocsenave@471 578 : ({:cry-id 17, :pitch 0, :length 128} {:cry-id 3, :pitch 0, :length 128} {:cry-id 0, :pitch 0, :length 128} {:cry-id 25, :pitch 204, :length 1})
ocsenave@471 579
ocsenave@471 580
ocsenave@471 581 It is interesting to note which Pok\eacute{}mon use the same basic
ocsenave@471 582 =cry-id= --- I call these /cry groups/. Here, you can see which
ocsenave@471 583 Pok\eacute{}mon belong to the same cry group.
ocsenave@471 584
ocsenave@471 585 #+begin_src clojure :exports both :cache no :results output
ocsenave@471 586 (ns com.aurellem.gb.hxc
ocsenave@471 587 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@471 588 constants))
ocsenave@471 589 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@471 590
ocsenave@471 591 (println "POKEMON CRY GROUPS")
ocsenave@471 592 (doall
ocsenave@471 593 (map println
ocsenave@471 594 (let [cry-id
ocsenave@471 595 (->>
ocsenave@471 596 (rom)
ocsenave@471 597 (drop 0x39462) ;; get the cry data
ocsenave@471 598 (partition 3) ;; partition it into groups of three
ocsenave@471 599 (map first) ;; keep only the first item, the cry-id
ocsenave@471 600 (zipmap (hxc-pokenames)) ;; associate each pokemon with its cry-id
ocsenave@471 601 )]
ocsenave@471 602
ocsenave@471 603 (->> (hxc-pokenames) ;; start with the list of pokemon
ocsenave@471 604 (remove (partial = :missingno.)) ;; remove missingnos
ocsenave@471 605 (sort-by cry-id)
ocsenave@471 606 (partition-by cry-id)
ocsenave@471 607 (map vec)))))
ocsenave@471 608
ocsenave@471 609 #+end_src
ocsenave@471 610
ocsenave@471 611 #+results:
ocsenave@471 612 #+begin_example
ocsenave@471 613 POKEMON CRY GROUPS
ocsenave@471 614 [:nidoran♂ :sandshrew :sandslash :nidorino]
ocsenave@471 615 [:nidoran♀ :nidorina]
ocsenave@471 616 [:slowpoke]
ocsenave@471 617 [:kangaskhan]
ocsenave@471 618 [:rhyhorn :magmar :charmander :charmeleon :charizard]
ocsenave@471 619 [:grimer :snorlax]
ocsenave@471 620 [:voltorb :electabuzz :electrode]
ocsenave@471 621 [:gengar :muk]
ocsenave@471 622 [:marowak :oddish :gloom]
ocsenave@471 623 [:nidoking :moltres :articuno :raichu]
ocsenave@471 624 [:nidoqueen :mankey :primeape]
ocsenave@471 625 [:exeggcute :diglett :doduo :dodrio :dugtrio]
ocsenave@471 626 [:lickitung :hitmonchan :seel :dewgong]
ocsenave@471 627 [:exeggutor :drowzee :jynx :hypno]
ocsenave@471 628 [:pidgey :poliwag :ditto :jigglypuff :wigglytuff :poliwhirl :poliwrath]
ocsenave@471 629 [:ivysaur :dragonite :pikachu :dratini :dragonair :bulbasaur :venusaur]
ocsenave@471 630 [:spearow :farfetch'd]
ocsenave@471 631 [:rhydon]
ocsenave@471 632 [:tangela :hitmonlee :golem :koffing :weezing]
ocsenave@471 633 [:blastoise :kakuna :beedrill]
ocsenave@471 634 [:pinsir :chansey :pidgeotto :pidgeot]
ocsenave@471 635 [:arcanine :weedle]
ocsenave@471 636 [:scyther :kabuto :caterpie :butterfree :goldeen :seaking]
ocsenave@471 637 [:gyarados :onix :arbok :ekans :magikarp]
ocsenave@471 638 [:shellder :fearow :zapdos :kabutops :cloyster]
ocsenave@471 639 [:clefairy :cubone :meowth :horsea :seadra :clefable :persian]
ocsenave@471 640 [:tentacool :venonat :eevee :flareon :jolteon :vaporeon :venomoth :tentacruel]
ocsenave@471 641 [:lapras]
ocsenave@471 642 [:gastly :kadabra :magneton :metapod :haunter :abra :alakazam :magnemite]
ocsenave@471 643 [:tauros :zubat :golbat :squirtle :wartortle]
ocsenave@471 644 [:mew :staryu :parasect :paras :mewtwo :starmie]
ocsenave@471 645 [:slowbro :growlithe :machoke :omanyte :omastar :machop :machamp]
ocsenave@471 646 [:mr.mime :krabby :kingler]
ocsenave@471 647 [:psyduck :golduck :bellsprout]
ocsenave@471 648 [:rattata :raticate]
ocsenave@471 649 [:aerodactyl :vileplume]
ocsenave@471 650 [:graveler :vulpix :ninetales :geodude]
ocsenave@471 651 [:ponyta :rapidash :porygon :weepinbell :victreebel]
ocsenave@471 652 #+end_example
ocsenave@471 653
ocsenave@471 654
ocsenave@471 655
ocsenave@471 656
ocsenave@471 657
ocsenave@471 658
ocsenave@471 659 *** Automatically grab the data
ocsenave@348 660 #+name: pokecry
ocsenave@348 661 #+begin_src clojure
ocsenave@348 662 (defn hxc-cry
ocsenave@348 663 "The pokemon cry data in internal order. List begins at ROM@39462"
ocsenave@348 664 ([](hxc-cry com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 665 ([rom]
ocsenave@348 666 (zipmap
ocsenave@348 667 (hxc-pokenames rom)
ocsenave@348 668 (map
ocsenave@348 669 (fn [[cry-id pitch length]]
ocsenave@348 670 {:cry-id cry-id
ocsenave@348 671 :pitch pitch
ocsenave@348 672 :length length}
ocsenave@348 673 )
ocsenave@348 674 (partition 3
ocsenave@348 675 (drop 0x39462 rom))))))
ocsenave@348 676
ocsenave@348 677 (defn hxc-cry-groups
ocsenave@348 678 ([] (hxc-cry-groups com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 679 ([rom]
ocsenave@348 680 (map #(mapv first
ocsenave@348 681 (filter
ocsenave@348 682 (fn [[k v]]
ocsenave@348 683 (= % (:cry-id v)))
ocsenave@348 684 (hxc-cry)))
ocsenave@348 685 ((comp
ocsenave@348 686 range
ocsenave@348 687 count
ocsenave@348 688 set
ocsenave@348 689 (partial map :cry-id)
ocsenave@348 690 vals
ocsenave@348 691 hxc-cry)
ocsenave@348 692 rom))))
ocsenave@348 693
ocsenave@348 694
ocsenave@348 695 (defn cry-conversion!
ocsenave@348 696 "Convert Porygon's cry in ROM to be the cry of the given pokemon."
ocsenave@348 697 [pkmn]
ocsenave@348 698 (write-rom!
ocsenave@348 699 (rewrite-memory
ocsenave@348 700 (vec(rom))
ocsenave@348 701 0x3965D
ocsenave@348 702 (map second
ocsenave@348 703 ((hxc-cry) pkmn)))))
ocsenave@348 704
ocsenave@348 705 #+end_src
ocsenave@348 706
ocsenave@348 707 ** COMMENT Names of permanent stats
ocsenave@348 708 0DD4D-DD72
ocsenave@348 709
ocsenave@348 710 * Items
ocsenave@348 711 ** Item names
ocsenave@371 712
ocsenave@371 713 *** See the data
ocsenave@371 714 #+begin_src clojure :exports both :results output
ocsenave@371 715 (ns com.aurellem.gb.hxc
ocsenave@371 716 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 717 constants))
ocsenave@371 718 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 719
ocsenave@371 720 (println (take 100 (drop 0x045B7 (rom))))
ocsenave@371 721
ocsenave@371 722 (println
ocsenave@371 723 (partition-by
ocsenave@371 724 (partial = 0x50)
ocsenave@371 725 (take 100 (drop 0x045B7 (rom)))))
ocsenave@371 726
ocsenave@371 727 (println
ocsenave@371 728 (map character-codes->str
ocsenave@371 729 (partition-by
ocsenave@371 730 (partial = 0x50)
ocsenave@371 731 (take 100 (drop 0x045B7 (rom))))))
ocsenave@371 732
ocsenave@371 733
ocsenave@371 734 #+end_src
ocsenave@371 735
ocsenave@371 736 #+results:
ocsenave@371 737 : (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 738 : ((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 739 : (MASTER BALL # ULTRA BALL # GREAT BALL # POKĂ© BALL # TOWN MAP # BICYCLE # ????? # SAFARI BALL # POKĂ©DEX # MOON STONE # AN)
ocsenave@371 740
ocsenave@371 741 *** Automatically grab the data
ocsenave@348 742 #+name: item-names
ocsenave@348 743 #+begin_src clojure
ocsenave@348 744
ocsenave@348 745 (def hxc-items-raw
ocsenave@348 746 "The hardcoded names of the items in memory. List begins at
ocsenave@348 747 ROM@045B7"
ocsenave@348 748 (hxc-thunk-words 0x45B7 870))
ocsenave@348 749
ocsenave@348 750 (def hxc-items
ocsenave@348 751 "The hardcoded names of the items in memory, presented as
ocsenave@348 752 keywords. List begins at ROM@045B7. See also, hxc-items-raw."
ocsenave@348 753 (comp (partial map format-name) hxc-items-raw))
ocsenave@348 754 #+end_src
ocsenave@348 755
ocsenave@348 756 ** Item prices
ocsenave@371 757
ocsenave@371 758 ***
ocsenave@371 759 #+begin_src clojure :exports both :results output
ocsenave@371 760 (ns com.aurellem.gb.hxc
ocsenave@371 761 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 762 constants))
ocsenave@371 763 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 764
ocsenave@371 765 (println (take 90 (drop 0x4495 (rom))))
ocsenave@371 766
ocsenave@371 767 (println
ocsenave@371 768 (partition 3
ocsenave@371 769 (take 90 (drop 0x4495 (rom)))))
ocsenave@371 770
ocsenave@371 771 (println
ocsenave@371 772 (partition 3
ocsenave@371 773 (map hex
ocsenave@371 774 (take 90 (drop 0x4495 (rom))))))
ocsenave@371 775
ocsenave@371 776 (println
ocsenave@371 777 (map decode-bcd
ocsenave@371 778 (map butlast
ocsenave@371 779 (partition 3
ocsenave@371 780 (take 90 (drop 0x4495 (rom)))))))
ocsenave@371 781
ocsenave@371 782 (println
ocsenave@371 783 (map
ocsenave@371 784 vector
ocsenave@371 785 (hxc-items (rom))
ocsenave@371 786 (map decode-bcd
ocsenave@371 787 (map butlast
ocsenave@371 788 (partition 3
ocsenave@371 789 (take 90 (drop 0x4495 (rom))))))))
ocsenave@371 790
ocsenave@371 791
ocsenave@371 792
ocsenave@371 793
ocsenave@371 794
ocsenave@371 795 #+end_src
ocsenave@371 796
ocsenave@371 797 #+results:
ocsenave@371 798 : (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 799 : ((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 800 : ((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 801 : (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 802 : ([: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 803
ocsenave@371 804
ocsenave@371 805 ***
ocsenave@348 806 #+name: item-prices
ocsenave@348 807 #+begin_src clojure
ocsenave@348 808 (defn hxc-item-prices
ocsenave@348 809 "The hardcoded list of item prices in memory. List begins at ROM@4495"
ocsenave@348 810 ([] (hxc-item-prices com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 811 ([rom]
ocsenave@348 812 (let [items (hxc-items rom)
ocsenave@348 813 price-size 3]
ocsenave@348 814 (zipmap items
ocsenave@348 815 (map (comp
ocsenave@348 816 ;; zero-cost items are "priceless"
ocsenave@348 817 #(if (zero? %) :priceless %)
ocsenave@348 818 decode-bcd butlast)
ocsenave@348 819 (partition price-size
ocsenave@348 820 (take (* price-size (count items))
ocsenave@348 821 (drop 0x4495 rom))))))))
ocsenave@348 822 #+end_src
ocsenave@348 823 ** Vendor inventories
ocsenave@348 824
ocsenave@348 825 #+name: item-vendors
ocsenave@348 826 #+begin_src clojure
ocsenave@348 827 (defn hxc-shops
ocsenave@348 828 ([] (hxc-shops com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 829 ([rom]
ocsenave@348 830 (let [items (zipmap (range) (hxc-items rom))
ocsenave@348 831
ocsenave@348 832 ;; temporarily softcode the TM items
ocsenave@348 833 items (into
ocsenave@348 834 items
ocsenave@348 835 (map (juxt identity
ocsenave@348 836 (comp keyword
ocsenave@348 837 (partial str "tm-")
ocsenave@348 838 (partial + 1 -200)
ocsenave@348 839 ))
ocsenave@348 840 (take 200 (drop 200 (range)))))
ocsenave@348 841
ocsenave@348 842 ]
ocsenave@348 843
ocsenave@348 844 ((fn parse-shop [coll [num-items & items-etc]]
ocsenave@348 845 (let [inventory (take-while
ocsenave@348 846 (partial not= 0xFF)
ocsenave@348 847 items-etc)
ocsenave@348 848 [separator & items-etc] (drop num-items (rest items-etc))]
ocsenave@348 849 (if (= separator 0x50)
ocsenave@348 850 (map (partial mapv (comp items dec)) (conj coll inventory))
ocsenave@348 851 (recur (conj coll inventory) items-etc)
ocsenave@348 852 )
ocsenave@348 853 ))
ocsenave@348 854
ocsenave@348 855 '()
ocsenave@348 856 (drop 0x233C rom))
ocsenave@348 857
ocsenave@348 858
ocsenave@348 859 )))
ocsenave@348 860 #+end_src
ocsenave@348 861
ocsenave@348 862 #+results: item-vendors
ocsenave@348 863 : #'com.aurellem.gb.hxc/hxc-shops
ocsenave@348 864
ocsenave@348 865
ocsenave@348 866
ocsenave@348 867 * Types
ocsenave@348 868 ** Names of types
ocsenave@406 869
ocsenave@406 870 *** COMMENT Pointers to type names
ocsenave@406 871 #+begin_src clojure :exports both :results output
ocsenave@406 872 (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 873 #+end_src
ocsenave@406 874
ocsenave@406 875
ocsenave@371 876 ***
ocsenave@371 877 #+begin_src clojure :exports both :results output
ocsenave@371 878 (ns com.aurellem.gb.hxc
ocsenave@371 879 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 880 constants))
ocsenave@371 881 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 882
ocsenave@371 883 (println (take 90 (drop 0x27D99 (rom))))
ocsenave@371 884
ocsenave@371 885 (println
ocsenave@371 886 (partition-by (partial = 0x50)
ocsenave@371 887 (take 90 (drop 0x27D99 (rom)))))
ocsenave@371 888
ocsenave@371 889 (println
ocsenave@371 890 (map character-codes->str
ocsenave@371 891 (partition-by (partial = 0x50)
ocsenave@371 892 (take 90 (drop 0x27D99 (rom))))))
ocsenave@371 893
ocsenave@371 894 #+end_src
ocsenave@371 895
ocsenave@371 896 #+results:
ocsenave@371 897 : (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 898 : ((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 899 : (NORMAL # FIGHTING # FLYING # POISON # FIRE # WATER # GRASS # ELECTRIC # PSYCHIC # ICE # GROUND # ROCK # BIRD # BUG # G)
ocsenave@371 900
ocsenave@371 901
ocsenave@371 902 ***
ocsenave@348 903 #+name: type-names
ocsenave@348 904 #+begin_src clojure
ocsenave@348 905 (def hxc-types
ocsenave@348 906 "The hardcoded type names in memory. List begins at ROM@27D99,
ocsenave@348 907 shortly before hxc-titles."
ocsenave@348 908 (hxc-thunk-words 0x27D99 102))
ocsenave@348 909
ocsenave@348 910 #+end_src
ocsenave@348 911
ocsenave@348 912 ** Type effectiveness
ocsenave@371 913 ***
ocsenave@371 914 #+begin_src clojure :exports both :results output
ocsenave@371 915 (ns com.aurellem.gb.hxc
ocsenave@371 916 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 917 constants))
ocsenave@371 918 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 919
ocsenave@371 920
ocsenave@371 921 ;; POKEMON TYPES
ocsenave@371 922
ocsenave@371 923 (println pkmn-types) ;; these are the pokemon types
ocsenave@371 924 (println (map vector (range) pkmn-types)) ;; each type has an id number.
ocsenave@371 925
ocsenave@371 926 (newline)
ocsenave@371 927
ocsenave@371 928
ocsenave@371 929
ocsenave@371 930
ocsenave@371 931 ;;; TYPE EFFECTIVENESS
ocsenave@371 932
ocsenave@371 933 (println (take 15 (drop 0x3E62D (rom))))
ocsenave@371 934 (println (partition 3 (take 15 (drop 0x3E62D (rom)))))
ocsenave@371 935
ocsenave@371 936 (println
ocsenave@371 937 (map
ocsenave@371 938 (fn [[atk-type def-type multiplier]]
ocsenave@371 939 (list atk-type def-type (/ multiplier 10.)))
ocsenave@371 940
ocsenave@371 941 (partition 3
ocsenave@371 942 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371 943
ocsenave@371 944
ocsenave@371 945 (println
ocsenave@371 946 (map
ocsenave@371 947 (fn [[atk-type def-type multiplier]]
ocsenave@371 948 [
ocsenave@371 949 (get pkmn-types atk-type)
ocsenave@371 950 (get pkmn-types def-type)
ocsenave@371 951 (/ multiplier 10.)
ocsenave@371 952 ])
ocsenave@371 953
ocsenave@371 954 (partition 3
ocsenave@371 955 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371 956
ocsenave@371 957 #+end_src
ocsenave@371 958
ocsenave@371 959 #+results:
ocsenave@371 960 : [: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 961 : ([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 962 :
ocsenave@371 963 : (0 5 5 0 8 0 8 8 20 20 7 20 20 5 5)
ocsenave@371 964 : ((0 5 5) (0 8 0) (8 8 20) (20 7 20) (20 5 5))
ocsenave@371 965 : ((0 5 0.5) (0 8 0.0) (8 8 2.0) (20 7 2.0) (20 5 0.5))
ocsenave@371 966 : ([:normal :rock 0.5] [:normal :ghost 0.0] [:ghost :ghost 2.0] [:fire :bug 2.0] [:fire :rock 0.5])
ocsenave@371 967
ocsenave@371 968
ocsenave@371 969 ***
ocsenave@372 970
ocsenave@349 971 #+name: type-advantage
ocsenave@348 972 #+begin_src clojure
ocsenave@348 973 (defn hxc-advantage
ocsenave@348 974 ;; in-game multipliers are stored as 10x their effective value
ocsenave@348 975 ;; to allow for fractional multipliers like 1/2
ocsenave@348 976
ocsenave@348 977 "The hardcoded type advantages in memory, returned as tuples of
ocsenave@348 978 atk-type def-type multiplier. By default (i.e. if not listed here),
ocsenave@348 979 the multiplier is 1. List begins at 0x3E62D."
ocsenave@348 980 ([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 981 ([rom]
ocsenave@348 982 (map
ocsenave@348 983 (fn [[atk def mult]] [(get pkmn-types atk (hex atk))
ocsenave@348 984 (get pkmn-types def (hex def))
ocsenave@348 985 (/ mult 10)])
ocsenave@348 986 (partition 3
ocsenave@348 987 (take-while (partial not= 0xFF)
ocsenave@348 988 (drop 0x3E62D rom))))))
ocsenave@348 989 #+end_src
ocsenave@348 990
ocsenave@348 991
ocsenave@348 992
ocsenave@348 993 * Moves
ocsenave@348 994 ** Names of moves
ocsenave@371 995 *** See the data
ocsenave@371 996 #+begin_src clojure :exports both :results output
ocsenave@371 997 (ns com.aurellem.gb.hxc
ocsenave@371 998 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 999 constants))
ocsenave@371 1000 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371 1001
ocsenave@371 1002 (println (take 100 (drop 0xBC000 (rom))))
ocsenave@371 1003
ocsenave@371 1004 (println
ocsenave@371 1005 (partition-by
ocsenave@371 1006 (partial = 0x50)
ocsenave@371 1007 (take 100 (drop 0xBC000 (rom)))))
ocsenave@371 1008
ocsenave@371 1009 (println
ocsenave@371 1010 (map character-codes->str
ocsenave@371 1011 (partition-by
ocsenave@371 1012 (partial = 0x50)
ocsenave@371 1013 (take 100 (drop 0xBC000 (rom))))))
ocsenave@371 1014
ocsenave@371 1015
ocsenave@371 1016 #+end_src
ocsenave@371 1017
ocsenave@371 1018 #+results:
ocsenave@371 1019 : (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 1020 : ((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 1021 : (POUND # KARATE CHOP # DOUBLESLAP # COMET PUNCH # MEGA PUNCH # PAY DAY # FIRE PUNCH # ICE PUNCH # THUNDERPUNCH # SCRATC)
ocsenave@371 1022
ocsenave@371 1023 *** Automatically grab the data
ocsenave@371 1024
ocsenave@348 1025 #+name: move-names
ocsenave@348 1026 #+begin_src clojure
ocsenave@348 1027 (def hxc-move-names
ocsenave@348 1028 "The hardcoded move names in memory. List begins at ROM@BC000"
ocsenave@348 1029 (hxc-thunk-words 0xBC000 1551))
ocsenave@348 1030 #+end_src
ocsenave@348 1031
ocsenave@348 1032 ** Properties of moves
ocsenave@348 1033
ocsenave@348 1034 #+name: move-data
ocsenave@348 1035 #+begin_src clojure
ocsenave@348 1036 (defn hxc-move-data
ocsenave@348 1037 "The hardcoded (basic (move effects)) in memory. List begins at
ocsenave@348 1038 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id
ocsenave@348 1039 :fx-txt}. The move descriptions are handwritten, not hardcoded."
ocsenave@348 1040 ([]
ocsenave@348 1041 (hxc-move-data com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1042 ([rom]
ocsenave@348 1043 (let [names (vec (hxc-move-names rom))
ocsenave@348 1044 move-count (count names)
ocsenave@348 1045 move-size 6
ocsenave@348 1046 types pkmn-types ;;; !! hardcoded types
ocsenave@348 1047 ]
ocsenave@348 1048 (zipmap (map format-name names)
ocsenave@348 1049 (map
ocsenave@348 1050 (fn [[idx effect power type-id accuracy pp]]
ocsenave@348 1051 {:name (names (dec idx))
ocsenave@348 1052 :power power
ocsenave@348 1053 :accuracy accuracy
ocsenave@348 1054 :pp pp
ocsenave@348 1055 :type (types type-id)
ocsenave@348 1056 :fx-id effect
ocsenave@348 1057 :fx-txt (get move-effects effect)
ocsenave@348 1058 }
ocsenave@348 1059 )
ocsenave@348 1060
ocsenave@348 1061 (partition move-size
ocsenave@348 1062 (take (* move-size move-count)
ocsenave@348 1063 (drop 0x38000 rom))))))))
ocsenave@348 1064
ocsenave@348 1065
ocsenave@348 1066
ocsenave@348 1067 (defn hxc-move-data*
ocsenave@348 1068 "Like hxc-move-data, but reports numbers as hexadecimal symbols instead."
ocsenave@348 1069 ([]
ocsenave@348 1070 (hxc-move-data* com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1071 ([rom]
ocsenave@348 1072 (let [names (vec (hxc-move-names rom))
ocsenave@348 1073 move-count (count names)
ocsenave@348 1074 move-size 6
ocsenave@348 1075 format-name (fn [s]
ocsenave@348 1076 (keyword (.toLowerCase
ocsenave@348 1077 (apply str
ocsenave@348 1078 (map #(if (= % \space) "-" %) s)))))
ocsenave@348 1079 ]
ocsenave@348 1080 (zipmap (map format-name names)
ocsenave@348 1081 (map
ocsenave@348 1082 (fn [[idx effect power type accuracy pp]]
ocsenave@348 1083 {:name (names (dec idx))
ocsenave@348 1084 :power power
ocsenave@348 1085 :accuracy (hex accuracy)
ocsenave@348 1086 :pp pp
ocsenave@348 1087 :fx-id (hex effect)
ocsenave@348 1088 :fx-txt (get move-effects effect)
ocsenave@348 1089 }
ocsenave@348 1090 )
ocsenave@348 1091
ocsenave@348 1092 (partition move-size
ocsenave@348 1093 (take (* move-size move-count)
ocsenave@348 1094 (drop 0x38000 rom))))))))
ocsenave@348 1095
ocsenave@348 1096 #+end_src
ocsenave@348 1097
ocsenave@348 1098 ** TM and HM moves
ocsenave@371 1099 ***
ocsenave@371 1100 #+begin_src clojure :exports both :results output
ocsenave@371 1101 (ns com.aurellem.gb.hxc
ocsenave@371 1102 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371 1103 constants))
ocsenave@371 1104 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348 1105
ocsenave@371 1106
ocsenave@371 1107 (println (hxc-move-names))
ocsenave@371 1108 (println (map vector (rest(range)) (hxc-move-names)))
ocsenave@371 1109
ocsenave@371 1110 (newline)
ocsenave@371 1111
ocsenave@371 1112 (println (take 55 (drop 0x1232D (rom))))
ocsenave@371 1113
ocsenave@371 1114 (println
ocsenave@371 1115 (interpose "."
ocsenave@371 1116 (map
ocsenave@371 1117 (zipmap (rest (range)) (hxc-move-names))
ocsenave@371 1118 (take 55 (drop 0x1232D (rom))))))
ocsenave@371 1119
ocsenave@371 1120 #+end_src
ocsenave@371 1121
ocsenave@371 1122 #+results:
ocsenave@371 1123 : (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 1124 : ([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 1125 :
ocsenave@371 1126 : (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 1127 : (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 1128
ocsenave@371 1129
ocsenave@371 1130 ***
ocsenave@348 1131 #+name: machines
ocsenave@348 1132 #+begin_src clojure
ocsenave@348 1133 (defn hxc-machines
ocsenave@348 1134 "The hardcoded moves taught by TMs and HMs. List begins at ROM@1232D."
ocsenave@348 1135 ([] (hxc-machines
ocsenave@348 1136 com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1137 ([rom]
ocsenave@348 1138 (let [moves (hxc-move-names rom)]
ocsenave@348 1139 (zipmap
ocsenave@348 1140 (range)
ocsenave@348 1141 (take-while
ocsenave@348 1142 (comp not nil?)
ocsenave@348 1143 (map (comp
ocsenave@348 1144 format-name
ocsenave@348 1145 (zipmap
ocsenave@348 1146 (range)
ocsenave@348 1147 moves)
ocsenave@348 1148 dec)
ocsenave@348 1149 (take 100
ocsenave@348 1150 (drop 0x1232D rom))))))))
ocsenave@348 1151
ocsenave@348 1152 #+end_src
ocsenave@348 1153
ocsenave@348 1154
ocsenave@348 1155
ocsenave@348 1156
ocsenave@348 1157
ocsenave@348 1158 ** COMMENT Status ailments
ocsenave@348 1159
ocsenave@419 1160
ocsenave@419 1161 * NPC Trainers
ocsenave@419 1162
ocsenave@419 1163 ** Trainer Pok\eacute{}mon
ocsenave@419 1164 # http://hax.iimarck.us/topic/103/
ocsenave@419 1165 There are two formats for specifying lists of NPC PPok\eacute{}mon:
ocsenave@419 1166 - If all the Pok\eacute{}mon will have the same level, the format is
ocsenave@419 1167 - Level (used for all the Pok\eacute{}mon)
ocsenave@419 1168 - Any number of Pok\eacute{}mon internal ids.
ocsenave@419 1169 - 0x00, to indicate end-of-list.
ocsenave@419 1170 - Otherwise, all the Pok\eacute{}mon will have their level
ocsenave@419 1171 specified. The format is
ocsenave@419 1172 - 0xFF, to indicate that we will be specifying the levels individually[fn::Because 0xFF is a
ocsenave@419 1173 forbidden level within the usual gameplay discipline, the game
ocsenave@419 1174 makers could safely use 0xFF as a mode indicator.].
ocsenave@419 1175 - Any number of alternating Level/Pokemon pairs
ocsenave@419 1176 - 0x00, to indicate end-of-list.
ocsenave@419 1177
ocsenave@419 1178 *** Get the pointers
ocsenave@419 1179 *** See the data
ocsenave@419 1180 #+begin_src clojure :exports both :results output
ocsenave@419 1181 (ns com.aurellem.gb.hxc
ocsenave@419 1182 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@419 1183 constants))
ocsenave@419 1184 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@419 1185
ocsenave@419 1186 (->>
ocsenave@419 1187 (rom)
ocsenave@419 1188 (drop 0x39E2F)
ocsenave@419 1189 (take 21)
ocsenave@419 1190 (println))
ocsenave@419 1191
ocsenave@419 1192
ocsenave@419 1193 (->>
ocsenave@419 1194 (rom)
ocsenave@419 1195 (drop 0x39E2F)
ocsenave@419 1196 (take 21)
ocsenave@419 1197 (partition-by zero?)
ocsenave@419 1198 (take-nth 2)
ocsenave@419 1199 (println))
ocsenave@419 1200
ocsenave@419 1201
ocsenave@419 1202
ocsenave@419 1203 (let
ocsenave@419 1204 [pokenames
ocsenave@419 1205 (zipmap
ocsenave@419 1206 (rest (range))
ocsenave@419 1207 (hxc-pokenames-raw))]
ocsenave@419 1208
ocsenave@419 1209 (->>
ocsenave@419 1210 (rom)
ocsenave@419 1211 (drop 0x39E2F)
ocsenave@419 1212 (take 21) ;; (1922 in all)
ocsenave@419 1213 (partition-by zero?)
ocsenave@419 1214 (take-nth 2)
ocsenave@419 1215 (map
ocsenave@419 1216 (fn parse-team [[mode & team]]
ocsenave@419 1217 (if (not= 0xFF mode)
ocsenave@419 1218 (mapv
ocsenave@419 1219 #(hash-map :level mode :species (pokenames %))
ocsenave@419 1220 team)
ocsenave@419 1221
ocsenave@419 1222 (mapv
ocsenave@419 1223 (fn [[lvl id]] (hash-map :level lvl :species (pokenames id)))
ocsenave@419 1224 (partition 2 team)))))
ocsenave@419 1225
ocsenave@419 1226 (println)))
ocsenave@419 1227
ocsenave@419 1228
ocsenave@419 1229
ocsenave@419 1230 #+end_src
ocsenave@419 1231
ocsenave@419 1232 #+results:
ocsenave@419 1233 : (11 165 108 0 14 5 0 10 165 165 107 0 14 165 108 107 0 15 165 5 0)
ocsenave@419 1234 : ((11 165 108) (14 5) (10 165 165 107) (14 165 108 107) (15 165 5))
ocsenave@419 1235 : ([{: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 1236
ocsenave@348 1237 * Places
ocsenave@348 1238 ** Names of places
ocsenave@348 1239
ocsenave@348 1240 #+name: places
ocsenave@348 1241 #+begin_src clojure
ocsenave@348 1242 (def hxc-places
ocsenave@348 1243 "The hardcoded place names in memory. List begins at
ocsenave@420 1244 ROM@71500. [Cinnabar/Celadon] Mansion seems to be dynamically calculated."
ocsenave@348 1245 (hxc-thunk-words 0x71500 560))
ocsenave@419 1246 #+end_src
ocsenave@348 1247
ocsenave@419 1248 *** See it work
ocsenave@419 1249 #+begin_src clojure :exports both :results output
ocsenave@419 1250 (println (hxc-places))
ocsenave@348 1251 #+end_src
ocsenave@348 1252
ocsenave@419 1253 #+results:
ocsenave@419 1254 : (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 1255
ocsenave@348 1256 ** Wild Pok\eacute{}mon demographics
ocsenave@348 1257 #+name: wilds
ocsenave@348 1258 #+begin_src clojure
ocsenave@348 1259
ocsenave@348 1260
ocsenave@348 1261
ocsenave@348 1262 (defn hxc-ptrs-wild
ocsenave@348 1263 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348 1264 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348 1265 ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1266 ([rom]
ocsenave@348 1267 (let [ptrs
ocsenave@348 1268 (map (fn [[a b]] (+ a (* 0x100 b)))
ocsenave@348 1269 (take-while (partial not= (list 0xFF 0xFF))
ocsenave@348 1270 (partition 2 (drop 0xCB95 rom))))]
ocsenave@348 1271 ptrs)))
ocsenave@348 1272
ocsenave@348 1273
ocsenave@348 1274
ocsenave@348 1275 (defn hxc-wilds
ocsenave@348 1276 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348 1277 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348 1278 ([] (hxc-wilds com.aurellem.gb.gb-driver/original-rom))
ocsenave@348 1279 ([rom]
ocsenave@348 1280 (let [pokenames (zipmap (range) (hxc-pokenames rom))]
ocsenave@348 1281 (map
ocsenave@348 1282 (partial map (fn [[a b]] {:species (pokenames (dec b)) :level
ocsenave@348 1283 a}))
ocsenave@348 1284 (partition 10
ocsenave@348 1285
ocsenave@348 1286 (take-while (comp (partial not= 1)
ocsenave@348 1287 first)
ocsenave@348 1288 (partition 2
ocsenave@348 1289 (drop 0xCD8C rom))
ocsenave@348 1290
ocsenave@348 1291 ))))))
ocsenave@348 1292
ocsenave@348 1293 #+end_src
ocsenave@348 1294
ocsenave@348 1295
ocsenave@348 1296
ocsenave@348 1297
ocsenave@420 1298 ** Map data
ocsenave@420 1299
ocsenave@420 1300 # http://www.pokecommunity.com/showthread.php?t=235311
ocsenave@420 1301 # http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes
ocsenave@420 1302
ocsenave@420 1303 #+name map
ocsenave@420 1304 #+begin_src clojure :exports both :results output
ocsenave@420 1305 (ns com.aurellem.gb.hxc
ocsenave@420 1306 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@420 1307 constants))
ocsenave@420 1308 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@420 1309
ocsenave@420 1310
ocsenave@420 1311 (defn parse-header-tileset
ocsenave@420 1312 [[bank# ;; memory bank for blocks & tileset
ocsenave@420 1313
ocsenave@420 1314 blocks-lo ;; structure
ocsenave@420 1315 blocks-hi
ocsenave@420 1316
ocsenave@420 1317 tileset-lo ;; style
ocsenave@420 1318 tileset-hi
ocsenave@420 1319
ocsenave@420 1320 collision-lo ;; collision info
ocsenave@420 1321 collision-hi
ocsenave@420 1322
ocsenave@420 1323 talk-here-1 ;; positions of up to three
ocsenave@420 1324 talk-here-2 ;; talk-over-countertop tiles
ocsenave@420 1325 talk-here-3 ;; --- 0xFF if unused.
ocsenave@420 1326
ocsenave@420 1327 grass ;; grass tile --- 0xFF if unused
ocsenave@420 1328
ocsenave@420 1329 animation-flags ;; settings for animation
ocsenave@420 1330 & _]]
ocsenave@420 1331
ocsenave@420 1332 [bank#
ocsenave@420 1333
ocsenave@420 1334 blocks-lo ;; structure
ocsenave@420 1335 blocks-hi
ocsenave@420 1336
ocsenave@420 1337 tileset-lo ;; style
ocsenave@420 1338 tileset-hi
ocsenave@420 1339
ocsenave@420 1340 collision-lo ;; collision info
ocsenave@420 1341 collision-hi
ocsenave@420 1342
ocsenave@420 1343 talk-here-1 ;; positions of up to three
ocsenave@420 1344 talk-here-2 ;; talk-over-countertop tiles
ocsenave@420 1345 talk-here-3 ;; --- 0xFF if unused.
ocsenave@420 1346
ocsenave@420 1347 grass ;; grass tile --- 0xFF if unused
ocsenave@420 1348
ocsenave@420 1349 animation-flags ;; settings for animation
ocsenave@420 1350 ])
ocsenave@420 1351
ocsenave@420 1352
ocsenave@420 1353
ocsenave@420 1354 (defn parse-header-map
ocsenave@420 1355 [start]
ocsenave@420 1356
ocsenave@420 1357 (let [connection-size 11
ocsenave@420 1358
ocsenave@420 1359 [tileset-index
ocsenave@420 1360 map-height
ocsenave@420 1361 map-width
ocsenave@420 1362 layout-lo
ocsenave@420 1363 layout-hi
ocsenave@420 1364 text-lo
ocsenave@420 1365 text-hi
ocsenave@420 1366 script-lo
ocsenave@420 1367 script-hi
ocsenave@420 1368 adjacency-flags ;; x x x x N S W E
ocsenave@420 1369 & etc]
ocsenave@420 1370 (drop start (rom))
ocsenave@420 1371
ocsenave@420 1372 [east? west? south? north?]
ocsenave@420 1373 (bit-list adjacency-flags)
ocsenave@420 1374
ocsenave@420 1375 [connections object-data]
ocsenave@420 1376 (split-at
ocsenave@420 1377 (* connection-size (+ east? west? south? north?))
ocsenave@420 1378 etc)
ocsenave@420 1379
ocsenave@420 1380 connections
ocsenave@420 1381 (partition connection-size connections)
ocsenave@420 1382
ocsenave@420 1383
ocsenave@420 1384
ocsenave@420 1385
ocsenave@420 1386 ]
ocsenave@420 1387 (ptr->offset
ocsenave@420 1388 3
ocsenave@420 1389 (low-high layout-lo layout-hi))
ocsenave@420 1390
ocsenave@420 1391
ocsenave@420 1392 ))
ocsenave@420 1393 #+end_src
ocsenave@420 1394
ocsenave@420 1395 #+results:
ocsenave@420 1396 :
ocsenave@420 1397
ocsenave@420 1398
ocsenave@348 1399
ocsenave@348 1400 * Appendices
ocsenave@347 1401 ** Mapping the ROM
ocsenave@420 1402 # D3AD: Script:Use Pokeball?
ocsenave@311 1403
ocsenave@411 1404 | ROM address (hex) | Description | Format | Example |
ocsenave@411 1405 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1406 | | <15> | <15> | <15> |
ocsenave@411 1407 | 01823-0184A | Important prefix strings. | Variable-length strings, separated by 0x50. | TM#TRAINER#PC#ROCKET#POK\eacute{}#... |
ocsenave@411 1408 | 0233C- | Shop inventories. | | |
ocsenave@412 1409 | 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@421 1410 | 03E59- | Start of the Give-Pok\eacute{}mon script. | Assembly. When called, converts the contents of register BC into a Pok\eacute{}mon: (B) is the level; (C) is the species. | |
ocsenave@421 1411 | 03E3F- | Start of the give-item script. | Assembly. When called, converts the contents of register BC into an item: (B) is the item type; (C) is the quantity. | |
ocsenave@411 1412 | 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 1413 | 04524-04527 | (unconfirmed) possibly the bike price in Cerulean. | | |
ocsenave@411 1414 | 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 1415 | 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 1416 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1417 | 05DD2-05DF2 | Menu text for player info. | | PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] |
ocsenave@411 1418 | 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 1419 | 06698- | ? Background music. | | |
ocsenave@421 1420 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1421 | 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 1422 | 7570-757D | Menu options for trading Pok\eacute{}mon | | TRADE [newline] CANCEL [0x50] |
ocsenave@412 1423 | 757D-758A | Menu options for healing Pok\eacute{}mon | | HEAL [newline] CANCEL [0x50] |
ocsenave@412 1424 | 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 1425 | 7AF0-8000 | (empty space) | | 0 0 0 0 0 ... |
ocsenave@411 1426 | 0822E-082F? | Pointers to background music, part I. | | |
ocsenave@411 1427 | 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 1428 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@420 1429 | 0DACB. | Amount of HP restored by Soda Pop | The HP consists of a single numerical byte. | 60 |
ocsenave@420 1430 | 0DACF. | Amount of HP restored by Lemonade | " | 80 |
ocsenave@420 1431 | 0DAD5. | Amount of HP restored by Fresh Water | " | 50 |
ocsenave@420 1432 | 0DADB. | Amount of HP restored by Hyper Potion. | " | 200 |
ocsenave@411 1433 | 0DAE0. | Amount of HP restored by Super Potion. | " | 50 |
ocsenave@411 1434 | 0DAE3. | Amount of HP restored by Potion. | " | 20 |
ocsenave@411 1435 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1436 | 0DD4D-DD72 | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# |
ocsenave@420 1437 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@421 1438 | 0DE2F. | Duration of Repel. | A single byte, representing the number of steps you can take before the effect wears off. | 100 |
ocsenave@420 1439 | 0DF39. | Duration of Super Repel. | " | 200 |
ocsenave@420 1440 | 0DF3E. | Duration of Max Repel. | " | 250 |
ocsenave@420 1441 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1442 | 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 1443 | 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 1444 | 11852- | Terminology for current stats in the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | EXP POINTS[newline]LEVEL UP[0x50] |
ocsenave@411 1445 | 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 1446 | 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@421 1447 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@421 1448 | 11D53. | Which badge is a prerequisite for CUT? | op code: which bit of A to test? | When this script is called, the bits of A contain your badges, and this op code will check a certain bit of A. The op codes for the badges are, in order, [0x47 0x4F 0x57 0x5F 0x67 0x6F 0x77 0x7F]. |
ocsenave@421 1449 | 11D67. | Which badge is a prerequisite for SURF? | " | 0x67 (test for Soul Badge) |
ocsenave@421 1450 | 11DAC. | Which badge is a prerequisite for STRENGTH? | " | 0x5F (test for Rainbow Badge) |
ocsenave@421 1451 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1452 | 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 1453 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@421 1454 | 1CF8B-1CF8C | Which Pok\eacute{}mon does Melanie give you in Cerulean City? | A level/internal-id pair. | (10 153), corresponding to a level 10 Bulbasaur. |
ocsenave@421 1455 | 1D651-1D652 | Which Pok\eacute{}mon do you find at the top of Celadon Mansion? | A level/internal-id pair. | (25 102), corresponding to a level 25 Eevee. |
ocsenave@421 1456 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1457 | 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 1458 | 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 1459 | 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 1460 | 27DFF-27E77 | ? | 120 bytes of unknown data. | |
ocsenave@411 1461 | 27E77- | Trainer title names. | Variable-length names separated by 0x50. | YOUNGSTER#BUG CATCHER#LASS#... |
ocsenave@411 1462 | 34000- | | | |
ocsenave@411 1463 | 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 1464 | 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 1465 | 39462- | The Pok\eacute{}mon cry data. | Fixed-length (3 byte) descriptions of cries. | |
ocsenave@411 1466 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1467 | 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 1468 | 39B05-39DD0. | unknown | | |
ocsenave@419 1469 | 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 1470 | 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 1471 | 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 1472 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1473 | 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 1474 | 3BBAA-3C000 | (empty) | | 0 0 0 0 ... |
ocsenave@411 1475 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1476 | 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 1477 | 3D6C7-3D6D6 | Two miscellaneous strings. | Variable length, separated by 0x50 | Disabled!#TYPE |
ocsenave@421 1478 | 3E190-3E194 | Which moves have an increased critical-hit ratio? | List of move ids, terminated by 0xFF. | (0x02 0x4B 0x98 0xA3 0xFF) corresponding to karate-chop, razor-leaf, crabhammer, slash, end-of-list. |
ocsenave@421 1479 | 3E200-3E204 | " (???) | " | " |
ocsenave@421 1480 | 3E231. | Besides normal-type, which type of move can COUNTER counter? | A single byte representing a type id. | This is set to 1, the id of the FIGHTING type. |
ocsenave@411 1481 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1482 | 40252-4027B | Pok\eacute{}dex menu text | Variable-length strings separated by 0x50. | SEEN#OWN#CONTENTS#... |
ocsenave@411 1483 | 40370-40386 | Important constants for Pok\eacute{}dex entries | | HT _ _ *?′??″* [newline] WT _ _ _ *???* lb [0x50] *POK\Eacute{}* [0x50] |
ocsenave@411 1484 | 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 1485 | 41072- | Pok\eacute{} placeholder species, "???" | | |
ocsenave@411 1486 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@411 1487 | 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 1488 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@420 1489 | 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 1490 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@421 1491 | 515AE-515AF | Which Pok\eacute{}mon does the trainer near Route 25 give you? | A level/internal-id pair. | (10 176) corresponding to a level 10 Charmander. |
ocsenave@421 1492 | 51DD5-51DD6 | Which Pok\eacute{}mon does the Silph Co. trainer give you? | A level/internal-id pair. | (15 19) corresponding to a level 15 Lapras. |
ocsenave@421 1493 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1494 | 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 1495 | 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 1496 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1497 | 70295- | Hall of fame | The text "HALL OF FAME" | |
ocsenave@412 1498 | 70442- | Play time/money | The text "PLAY TIME [0x50] MONEY" | |
ocsenave@411 1499 | 71500-7174B | Names of places. | Variable-length place names (strings), separated by 0x50. | PALLET TOWN#VIRIDIAN CITY#PEWTER CITY#CERULEAN CITY#... |
ocsenave@411 1500 | 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 1501 | 7C249-7C2?? | Pointers to background music, pt II. | | |
ocsenave@412 1502 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@419 1503 | 98000-B7190 | Dialogue and other messsages. | Variable-length strings. | |
ocsenave@419 1504 | B7190-B8000 | (empty space) | | 0 0 0 0 0 ... |
ocsenave@411 1505 | 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 1506 | 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 1507 | BC610-BD000 | (empty space) | | 0 0 0 0 0 ... |
ocsenave@411 1508 | 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 1509 |-----------------------+-----------------+-----------------+-----------------|
ocsenave@412 1510 | E9BD5- | The text PLAY TIME (see above, 70442) | | |
ocsenave@421 1511 | F1A44-F1A45 | Which Pok\eacute{}mon does Officer Jenny give you? | A level/internal-id pair. | (10 177), corresponding to a level 10 Squirtle. |
ocsenave@421 1512 | F21BF-F21C0 | Which Pok\eacute{}mon does the salesman at the Mt. Moon Pok\eacute{}mon center give you? | A level/internal-id pair | (5 133), corresponding to a level 5 Magikarp. |
ocsenave@470 1513 | | |
ocsenave@410 1514 #+TBLFM:
ocsenave@312 1515
ocsenave@421 1516 ** COMMENT
ocsenave@421 1517 Locations where Give Pokemon is used in a nonstraightforward way
ocsenave@421 1518 0x5287C
ocsenave@421 1519 0x5CE23
ocsenave@421 1520 0x5C36B
ocsenave@421 1521 0x7562E
ocsenave@421 1522
ocsenave@470 1523 Find GivePokemon
ocsenave@470 1524 (search-memory* (vec(rom)) [120 234 \_ \_ 121 234 \_ \_ 175 234 \_ \_ 6] 10)
ocsenave@470 1525
ocsenave@470 1526 F4011 : ASM script for asking if it's oak battle
ocsenave@470 1527
ocsenave@347 1528
ocsenave@419 1529 ** Understanding memory banks and pointers
ocsenave@419 1530 #+begin_src clojure
ocsenave@419 1531
ocsenave@419 1532 (defn endian-flip
ocsenave@419 1533 "Flip the bytes of the two-byte number."
ocsenave@419 1534 [n]
ocsenave@419 1535 (assert (< n 0xFFFF))
ocsenave@419 1536 (+ (* 0x100 (rem n 0x100))
ocsenave@419 1537 (int (/ n 0x100))))
ocsenave@419 1538
ocsenave@419 1539
ocsenave@419 1540 (defn offset->ptr
ocsenave@419 1541 "Convert an offset into a little-endian pointer."
ocsenave@419 1542 [n]
ocsenave@419 1543 (->
ocsenave@419 1544 n
ocsenave@419 1545 (rem 0x10000) ;; take last four bytes
ocsenave@419 1546 (rem 0x4000) ;; get relative offset from the start of the bank
ocsenave@419 1547 (+ 0x4000)
ocsenave@419 1548 endian-flip))
ocsenave@419 1549
ocsenave@419 1550 (defn offset->bank
ocsenave@419 1551 "Get the bank of the offset."
ocsenave@419 1552 [n]
ocsenave@419 1553 (int (/ n 0x4000)))
ocsenave@419 1554
ocsenave@419 1555 (defn ptr->offset
ocsenave@419 1556 "Convert a two-byte little-endian pointer into an offset."
ocsenave@419 1557 [bank ptr]
ocsenave@419 1558 (->
ocsenave@419 1559 ptr
ocsenave@419 1560 endian-flip
ocsenave@419 1561 (- 0x4000)
ocsenave@419 1562 (+ (* 0x4000 bank))
ocsenave@419 1563 ))
ocsenave@419 1564
ocsenave@419 1565 (defn same-bank-offset
ocsenave@419 1566 "Convert a ptr into an absolute offset by using the bank of the reference."
ocsenave@419 1567 [reference ptr]
ocsenave@419 1568 (ptr->offset
ocsenave@419 1569 (offset->bank reference)
ocsenave@419 1570 ptr))
ocsenave@419 1571 #+end_src
ocsenave@419 1572
ocsenave@347 1573
ocsenave@312 1574 ** Internal Pok\eacute{}mon IDs
ocsenave@312 1575 ** Type IDs
ocsenave@347 1576
ocsenave@347 1577 #+name: type-ids
ocsenave@347 1578 #+begin_src clojure
ocsenave@347 1579 (def pkmn-types
ocsenave@347 1580 [:normal ;;0
ocsenave@347 1581 :fighting ;;1
ocsenave@347 1582 :flying ;;2
ocsenave@347 1583 :poison ;;3
ocsenave@347 1584 :ground ;;4
ocsenave@347 1585 :rock ;;5
ocsenave@347 1586 :bird ;;6
ocsenave@347 1587 :bug ;;7
ocsenave@347 1588 :ghost ;;8
ocsenave@347 1589 :A
ocsenave@347 1590 :B
ocsenave@347 1591 :C
ocsenave@347 1592 :D
ocsenave@347 1593 :E
ocsenave@347 1594 :F
ocsenave@347 1595 :G
ocsenave@347 1596 :H
ocsenave@347 1597 :I
ocsenave@347 1598 :J
ocsenave@347 1599 :K
ocsenave@347 1600 :fire ;;20 (0x14)
ocsenave@347 1601 :water ;;21 (0x15)
ocsenave@347 1602 :grass ;;22 (0x16)
ocsenave@347 1603 :electric ;;23 (0x17)
ocsenave@347 1604 :psychic ;;24 (0x18)
ocsenave@347 1605 :ice ;;25 (0x19)
ocsenave@347 1606 :dragon ;;26 (0x1A)
ocsenave@347 1607 ])
ocsenave@347 1608 #+end_src
ocsenave@347 1609
ocsenave@312 1610 ** Basic effects of moves
ocsenave@347 1611
ocsenave@347 1612 *** Table of basic effects
ocsenave@347 1613
ocsenave@347 1614 The possible effects of moves in Pok\eacute{}mon \mdash{} for example, dealing
ocsenave@347 1615 damage, leeching health, or potentially poisoning the opponent
ocsenave@347 1616 \mdash{} are stored in a table. Each move has exactly one effect, and
ocsenave@347 1617 different moves might have the same effect.
ocsenave@347 1618
ocsenave@347 1619 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 1620
ocsenave@347 1621 All the legitimate move effects are listed in the table
ocsenave@347 1622 below. Here are some notes for reading it:
ocsenave@347 1623
ocsenave@347 1624 - Whenever an effect has a chance of doing something (like a chance of
ocsenave@371 1625 poisoning the opponent), I list the chance as a hexadecimal amount
ocsenave@371 1626 out of 256; this is to avoid rounding errors. To convert the hex amount into a percentage, divide by 256.
ocsenave@347 1627 - For some effects, the description is too cumbersome to
ocsenave@347 1628 write. Instead, I just write a move name
ocsenave@347 1629 in parentheses, like: (leech seed). That move gives a characteristic example
ocsenave@347 1630 of the effect.
ocsenave@347 1631 - I use the abbreviations =atk=, =def=, =spd=, =spc=, =acr=, =evd= for
ocsenave@371 1632 attack, defense, speed, special, accuracy, and evasiveness.
ocsenave@347 1633 .
ocsenave@347 1634
ocsenave@347 1635
ocsenave@347 1636
ocsenave@347 1637 | ID (hex) | Description | Notes |
ocsenave@347 1638 |----------+-------------------------------------------------------------------------------------------------+------------------------------------------------------------------|
ocsenave@347 1639 | 0 | normal damage | |
ocsenave@347 1640 | 1 | no damage, just sleep | TODO: find out how many turns |
ocsenave@347 1641 | 2 | 0x4C chance of poison | |
ocsenave@347 1642 | 3 | leech half of inflicted damage | |
ocsenave@347 1643 | 4 | 0x19 chance of burn | |
ocsenave@347 1644 | 5 | 0x19 chance of freeze | |
ocsenave@347 1645 | 6 | 0x19 chance of paralysis | |
ocsenave@347 1646 | 7 | user faints; opponent's defense is halved during attack. | |
ocsenave@347 1647 | 8 | leech half of inflicted damage ONLY if the opponent is asleep | |
ocsenave@347 1648 | 9 | imitate last attack | |
ocsenave@347 1649 | A | user atk +1 | |
ocsenave@347 1650 | B | user def +1 | |
ocsenave@347 1651 | C | user spd +1 | |
ocsenave@347 1652 | D | user spc +1 | |
ocsenave@347 1653 | E | user acr +1 | This effect is unused. |
ocsenave@347 1654 | F | user evd +1 | |
ocsenave@347 1655 | 10 | get post-battle money = 2 * level * uses | |
ocsenave@347 1656 | 11 | move has 0xFE acr, regardless of battle stat modifications. | |
ocsenave@347 1657 | 12 | opponent atk -1 | |
ocsenave@347 1658 | 13 | opponent def -1 | |
ocsenave@347 1659 | 14 | opponent spd -1 | |
ocsenave@347 1660 | 15 | opponent spc -1 | |
ocsenave@347 1661 | 16 | opponent acr -1 | |
ocsenave@347 1662 | 17 | opponent evd -1 | |
ocsenave@347 1663 | 18 | converts user's type to opponent's. | |
ocsenave@347 1664 | 19 | (haze) | |
ocsenave@347 1665 | 1A | (bide) | |
ocsenave@347 1666 | 1B | (thrash) | |
ocsenave@347 1667 | 1C | (teleport) | |
ocsenave@347 1668 | 1D | (fury swipes) | |
ocsenave@347 1669 | 1E | attacks 2-5 turns | Unused. TODO: find out what it does. |
ocsenave@347 1670 | 1F | 0x19 chance of flinching | |
ocsenave@347 1671 | 20 | opponent sleep for 1-7 turns | |
ocsenave@347 1672 | 21 | 0x66 chance of poison | |
ocsenave@347 1673 | 22 | 0x4D chance of burn | |
ocsenave@347 1674 | 23 | 0x4D chance of freeze | |
ocsenave@347 1675 | 24 | 0x4D chance of paralysis | |
ocsenave@347 1676 | 25 | 0x4D chance of flinching | |
ocsenave@347 1677 | 26 | one-hit KO | |
ocsenave@347 1678 | 27 | charge one turn, atk next. | |
ocsenave@347 1679 | 28 | fixed damage, leaves 1HP. | Is the fixed damage the power of the move? |
ocsenave@347 1680 | 29 | fixed damage. | Like seismic toss, dragon rage, psywave. |
ocsenave@347 1681 | 2A | atk 2-5 turns; opponent can't attack | The odds of attacking for /n/ turns are: (0 0x60 0x60 0x20 0x20) |
ocsenave@347 1682 | 2B | charge one turn, atk next. (can't be hit when charging) | |
ocsenave@347 1683 | 2C | atk hits twice. | |
ocsenave@347 1684 | 2D | user takes 1 damage if misses. | |
ocsenave@347 1685 | 2E | evade status-lowering effects | Caused by you or also your opponent? |
ocsenave@347 1686 | 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 1687 | 30 | atk causes recoil dmg = 1/4 dmg dealt | |
ocsenave@347 1688 | 31 | confuses opponent | |
ocsenave@347 1689 | 32 | user atk +2 | |
ocsenave@347 1690 | 33 | user def +2 | |
ocsenave@347 1691 | 34 | user spd +2 | |
ocsenave@347 1692 | 35 | user spc +2 | |
ocsenave@347 1693 | 36 | user acr +2 | This effect is unused. |
ocsenave@347 1694 | 37 | user evd +2 | This effect is unused. |
ocsenave@347 1695 | 38 | restores up to half of user's max hp. | |
ocsenave@347 1696 | 39 | (transform) | |
ocsenave@347 1697 | 3A | opponent atk -2 | |
ocsenave@347 1698 | 3B | opponent def -2 | |
ocsenave@347 1699 | 3C | opponent spd -2 | |
ocsenave@347 1700 | 3D | opponent spc -2 | |
ocsenave@347 1701 | 3E | opponent acr -2 | |
ocsenave@347 1702 | 3F | opponent evd -2 | |
ocsenave@347 1703 | 40 | doubles user spc when attacked | |
ocsenave@347 1704 | 41 | doubles user def when attacked | |
ocsenave@347 1705 | 42 | just poisons opponent | |
ocsenave@347 1706 | 43 | just paralyzes opponent | |
ocsenave@347 1707 | 44 | 0x19 chance opponent atk -1 | |
ocsenave@347 1708 | 45 | 0x19 chance opponent def -1 | |
ocsenave@347 1709 | 46 | 0x19 chance opponent spd -1 | |
ocsenave@347 1710 | 47 | 0x4C chance opponent spc -1 | |
ocsenave@347 1711 | 48 | 0x19 chance opponent acr -1 | |
ocsenave@347 1712 | 49 | 0x19 chance opponent evd -1 | |
ocsenave@347 1713 | 4A | ??? | ;; unused? no effect? |
ocsenave@347 1714 | 4B | ??? | ;; unused? no effect? |
ocsenave@347 1715 | 4C | 0x19 chance of confusing the opponent | |
ocsenave@347 1716 | 4D | atk hits twice. 0x33 chance opponent poisioned. | |
ocsenave@347 1717 | 4E | broken. crash the game after attack. | |
ocsenave@347 1718 | 4F | (substitute) | |
ocsenave@347 1719 | 50 | unless opponent faints, user must recharge after atk. some exceptions apply | |
ocsenave@347 1720 | 51 | (rage) | |
ocsenave@347 1721 | 52 | (mimic) | |
ocsenave@347 1722 | 53 | (metronome) | |
ocsenave@347 1723 | 54 | (leech seed) | |
ocsenave@347 1724 | 55 | does nothing (splash) | |
ocsenave@347 1725 | 56 | (disable) | |
ocsenave@347 1726 #+end_src
ocsenave@347 1727
ocsenave@347 1728 *** Source
ocsenave@347 1729 #+name: move-effects
ocsenave@347 1730 #+begin_src clojure
ocsenave@347 1731 (def move-effects
ocsenave@347 1732 ["normal damage"
ocsenave@347 1733 "no damage, just opponent sleep" ;; how many turns? is atk power ignored?
ocsenave@347 1734 "0x4C chance of poison"
ocsenave@347 1735 "leech half of inflicted damage"
ocsenave@347 1736 "0x19 chance of burn"
ocsenave@347 1737 "0x19 chance of freeze"
ocsenave@347 1738 "0x19 chance of paralyze"
ocsenave@347 1739 "user faints; opponent defense halved during attack."
ocsenave@347 1740 "leech half of inflicted damage ONLY if sleeping opponent."
ocsenave@347 1741 "imitate last attack"
ocsenave@347 1742 "user atk +1"
ocsenave@347 1743 "user def +1"
ocsenave@347 1744 "user spd +1"
ocsenave@347 1745 "user spc +1"
ocsenave@347 1746 "user acr +1" ;; unused?!
ocsenave@347 1747 "user evd +1"
ocsenave@347 1748 "get post-battle $ = 2*level*uses"
ocsenave@347 1749 "0xFE acr, no matter what."
ocsenave@347 1750 "opponent atk -1" ;; acr taken from move acr?
ocsenave@347 1751 "opponent def -1" ;;
ocsenave@347 1752 "opponent spd -1" ;;
ocsenave@347 1753 "opponent spc -1" ;;
ocsenave@347 1754 "opponent acr -1";;
ocsenave@347 1755 "opponent evd -1"
ocsenave@347 1756 "converts user's type to opponent's."
ocsenave@347 1757 "(haze)"
ocsenave@347 1758 "(bide)"
ocsenave@347 1759 "(thrash)"
ocsenave@347 1760 "(teleport)"
ocsenave@347 1761 "(fury swipes)"
ocsenave@347 1762 "attacks 2-5 turns" ;; unused? like rollout?
ocsenave@347 1763 "0x19 chance of flinch"
ocsenave@347 1764 "opponent sleep for 1-7 turns"
ocsenave@347 1765 "0x66 chance of poison"
ocsenave@347 1766 "0x4D chance of burn"
ocsenave@347 1767 "0x4D chance of freeze"
ocsenave@347 1768 "0x4D chance of paralyze"
ocsenave@347 1769 "0x4D chance of flinch"
ocsenave@347 1770 "one-hit KO"
ocsenave@347 1771 "charge one turn, atk next."
ocsenave@347 1772 "fixed damage, leaves 1HP." ;; how is dmg determined?
ocsenave@347 1773 "fixed damage." ;; cf seismic toss, dragon rage, psywave.
ocsenave@347 1774 "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20)
ocsenave@347 1775 "charge one turn, atk next. (can't be hit when charging)"
ocsenave@347 1776 "atk hits twice."
ocsenave@347 1777 "user takes 1 damage if misses."
ocsenave@347 1778 "evade status-lowering effects" ;;caused by you or also your opponent?
ocsenave@347 1779 "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect"
ocsenave@347 1780 "atk causes recoil dmg = 1/4 dmg dealt"
ocsenave@347 1781 "confuses opponent" ;; acr taken from move acr
ocsenave@347 1782 "user atk +2"
ocsenave@347 1783 "user def +2"
ocsenave@347 1784 "user spd +2"
ocsenave@347 1785 "user spc +2"
ocsenave@347 1786 "user acr +2" ;; unused!
ocsenave@347 1787 "user evd +2" ;; unused!
ocsenave@347 1788 "restores up to half of user's max hp." ;; broken: fails if the difference
ocsenave@347 1789 ;; b/w max and current hp is one less than a multiple of 256.
ocsenave@347 1790 "(transform)"
ocsenave@347 1791 "opponent atk -2"
ocsenave@347 1792 "opponent def -2"
ocsenave@347 1793 "opponent spd -2"
ocsenave@347 1794 "opponent spc -2"
ocsenave@347 1795 "opponent acr -2"
ocsenave@347 1796 "opponent evd -2"
ocsenave@347 1797 "doubles user spc when attacked"
ocsenave@347 1798 "doubles user def when attacked"
ocsenave@347 1799 "just poisons opponent" ;;acr taken from move acr
ocsenave@347 1800 "just paralyzes opponent" ;;
ocsenave@347 1801 "0x19 chance opponent atk -1"
ocsenave@347 1802 "0x19 chance opponent def -1"
ocsenave@347 1803 "0x19 chance opponent spd -1"
ocsenave@347 1804 "0x4C chance opponent spc -1" ;; context suggest chance is 0x19
ocsenave@347 1805 "0x19 chance opponent acr -1"
ocsenave@347 1806 "0x19 chance opponent evd -1"
ocsenave@347 1807 "???" ;; unused? no effect?
ocsenave@347 1808 "???" ;; unused? no effect?
ocsenave@347 1809 "0x19 chance opponent confused"
ocsenave@347 1810 "atk hits twice. 0x33 chance opponent poisioned."
ocsenave@347 1811 "broken. crash the game after attack."
ocsenave@347 1812 "(substitute)"
ocsenave@347 1813 "unless opponent faints, user must recharge after atk. some
ocsenave@347 1814 exceptions apply."
ocsenave@347 1815 "(rage)"
ocsenave@347 1816 "(mimic)"
ocsenave@347 1817 "(metronome)"
ocsenave@347 1818 "(leech seed)"
ocsenave@347 1819 "does nothing (splash)"
ocsenave@347 1820 "(disable)"
ocsenave@347 1821 ])
ocsenave@347 1822 #+end_src
ocsenave@347 1823
ocsenave@347 1824
ocsenave@312 1825 ** Alphabet code
ocsenave@347 1826
ocsenave@348 1827 * Source
ocsenave@348 1828
ocsenave@347 1829 #+begin_src clojure :tangle ../clojure/com/aurellem/gb/hxc.clj
ocsenave@347 1830
ocsenave@347 1831 (ns com.aurellem.gb.hxc
ocsenave@347 1832 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@347 1833 constants species))
ocsenave@347 1834 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@347 1835
ocsenave@347 1836 ; ************* HANDWRITTEN CONSTANTS
ocsenave@347 1837
ocsenave@347 1838 <<type-ids>>
ocsenave@347 1839
ocsenave@347 1840
ocsenave@347 1841 ;; question: when status effects claim to take
ocsenave@347 1842 ;; their accuracy from the move accuracy, does
ocsenave@347 1843 ;; this mean that the move always "hits" but the
ocsenave@347 1844 ;; status effect may not?
ocsenave@347 1845
ocsenave@347 1846 <<move-effects>>
ocsenave@347 1847
ocsenave@347 1848 ;; ************** HARDCODED DATA
ocsenave@347 1849
ocsenave@347 1850 <<hxc-thunks>>
ocsenave@347 1851 ;; --------------------------------------------------
ocsenave@347 1852
ocsenave@347 1853 <<pokenames>>
ocsenave@348 1854 <<type-names>>
ocsenave@347 1855
ocsenave@347 1856 ;; http://hax.iimarck.us/topic/581/
ocsenave@348 1857 <<pokecry>>
ocsenave@347 1858
ocsenave@347 1859
ocsenave@348 1860 <<item-names>>
ocsenave@347 1861
ocsenave@347 1862
ocsenave@347 1863
ocsenave@347 1864 (def hxc-titles
ocsenave@347 1865 "The hardcoded names of the trainer titles in memory. List begins at
ocsenave@347 1866 ROM@27E77"
ocsenave@347 1867 (hxc-thunk-words 0x27E77 196))
ocsenave@347 1868
ocsenave@347 1869
ocsenave@348 1870 <<dex-text>>
ocsenave@347 1871
ocsenave@347 1872 ;; In red/blue, pokedex stats are in internal order.
ocsenave@347 1873 ;; In yellow, pokedex stats are in pokedex order.
ocsenave@348 1874 <<dex-stats>>
ocsenave@347 1875
ocsenave@347 1876
ocsenave@347 1877
ocsenave@347 1878
ocsenave@348 1879 <<places>>
ocsenave@347 1880
ocsenave@347 1881 (defn hxc-dialog
ocsenave@347 1882 "The hardcoded dialogue in memory, including in-game alerts. Dialog
ocsenave@347 1883 seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000."
ocsenave@347 1884 ([rom]
ocsenave@347 1885 (map character-codes->str
ocsenave@347 1886 (take-nth 2
ocsenave@347 1887 (partition-by #(= % 0x57)
ocsenave@347 1888 (take 0x0F728
ocsenave@347 1889 (drop 0x98000 rom))))))
ocsenave@347 1890 ([]
ocsenave@347 1891 (hxc-dialog com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347 1892
ocsenave@347 1893
ocsenave@348 1894 <<move-names>>
ocsenave@348 1895 <<move-data>>
ocsenave@347 1896
ocsenave@348 1897 <<machines>>
ocsenave@347 1898
ocsenave@347 1899
ocsenave@347 1900
ocsenave@347 1901 (defn internal-id
ocsenave@347 1902 ([rom]
ocsenave@347 1903 (zipmap
ocsenave@347 1904 (hxc-pokenames rom)
ocsenave@347 1905 (range)))
ocsenave@347 1906 ([]
ocsenave@347 1907 (internal-id com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347 1908
ocsenave@347 1909
ocsenave@347 1910
ocsenave@347 1911
ocsenave@347 1912
ocsenave@347 1913 ;; nidoran gender change upon levelup
ocsenave@347 1914 ;; (->
ocsenave@347 1915 ;; @current-state
ocsenave@347 1916 ;; rom
ocsenave@347 1917 ;; vec
ocsenave@347 1918 ;; (rewrite-memory
ocsenave@347 1919 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂))
ocsenave@347 1920 ;; [1 1 15])
ocsenave@347 1921 ;; (rewrite-memory
ocsenave@347 1922 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀))
ocsenave@347 1923 ;; [1 1 3])
ocsenave@347 1924 ;; (write-rom!)
ocsenave@347 1925
ocsenave@347 1926 ;; )
ocsenave@347 1927
ocsenave@347 1928
ocsenave@347 1929
ocsenave@348 1930 <<type-advantage>>
ocsenave@347 1931
ocsenave@347 1932
ocsenave@347 1933
ocsenave@348 1934 <<evolution-header>>
ocsenave@349 1935 <<evolution>>
ocsenave@348 1936 <<learnsets>>
ocsenave@348 1937 <<pokebase>>
ocsenave@347 1938
ocsenave@347 1939
ocsenave@347 1940 (defn hxc-intro-pkmn
ocsenave@347 1941 "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's
ocsenave@347 1942 internal id is stored at ROM@5EDB."
ocsenave@347 1943 ([] (hxc-intro-pkmn
ocsenave@347 1944 com.aurellem.gb.gb-driver/original-rom))
ocsenave@347 1945 ([rom]
ocsenave@347 1946 (nth (hxc-pokenames rom) (nth rom 0x5EDB))))
ocsenave@347 1947
ocsenave@347 1948 (defn sxc-intro-pkmn!
ocsenave@347 1949 "Set the hardcoded pokemon to display in Prof. Oak's introduction."
ocsenave@347 1950 [pokemon]
ocsenave@347 1951 (write-rom!
ocsenave@347 1952 (rewrite-rom 0x5EDB
ocsenave@347 1953 [
ocsenave@347 1954 (inc
ocsenave@347 1955 ((zipmap
ocsenave@347 1956 (hxc-pokenames)
ocsenave@347 1957 (range))
ocsenave@347 1958 pokemon))])))
ocsenave@347 1959
ocsenave@347 1960
ocsenave@348 1961 <<item-prices>>
ocsenave@347 1962
ocsenave@348 1963 <<item-vendors>>
ocsenave@347 1964
ocsenave@348 1965 <<wilds>>
ocsenave@347 1966
ocsenave@347 1967
ocsenave@347 1968 ;; ********************** MANIPULATION FNS
ocsenave@347 1969
ocsenave@347 1970
ocsenave@347 1971 (defn same-type
ocsenave@347 1972 ([pkmn move]
ocsenave@347 1973 (same-type
ocsenave@347 1974 com.aurellem.gb.gb-driver/original-rom pkmn move))
ocsenave@347 1975 ([rom pkmn move]
ocsenave@347 1976 (((comp :types (hxc-pokemon-base rom)) pkmn)
ocsenave@347 1977 ((comp :type (hxc-move-data rom)) move))))
ocsenave@347 1978
ocsenave@347 1979
ocsenave@347 1980
ocsenave@347 1981
ocsenave@347 1982 (defn submap?
ocsenave@347 1983 "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false."
ocsenave@347 1984 [map-small map-big]
ocsenave@347 1985 (cond (empty? map-small) true
ocsenave@347 1986 (and
ocsenave@347 1987 (contains? map-big (ffirst map-small))
ocsenave@347 1988 (= (get map-big (ffirst map-small))
ocsenave@347 1989 (second (first map-small))))
ocsenave@347 1990 (recur (next map-small) map-big)
ocsenave@347 1991
ocsenave@347 1992 :else false))
ocsenave@347 1993
ocsenave@347 1994
ocsenave@347 1995 (defn search-map [proto-map maps]
ocsenave@347 1996 "Returns all the maps that make the same associations as proto-map."
ocsenave@347 1997 (some (partial submap? proto-map) maps))
ocsenave@347 1998
ocsenave@347 1999 (defn filter-vals
ocsenave@347 2000 "Returns a map consisting of all the pairs [key val] for
ocsenave@347 2001 which (pred key) returns true."
ocsenave@347 2002 [pred map]
ocsenave@347 2003 (reduce (partial apply assoc) {}
ocsenave@347 2004 (filter (fn [[k v]] (pred v)) map)))
ocsenave@347 2005
ocsenave@347 2006
ocsenave@347 2007 (defn search-moves
ocsenave@347 2008 "Returns a subcollection of all hardcoded moves with the
ocsenave@347 2009 given attributes. Attributes consist of :name :power
ocsenave@347 2010 :accuracy :pp :fx-id
ocsenave@347 2011 (and also :fx-txt, but it contains the same information
ocsenave@347 2012 as :fx-id)"
ocsenave@347 2013 ([attribute-map]
ocsenave@347 2014 (search-moves
ocsenave@347 2015 com.aurellem.gb.gb-driver/original-rom attribute-map))
ocsenave@347 2016 ([rom attribute-map]
ocsenave@347 2017 (filter-vals (partial submap? attribute-map)
ocsenave@347 2018 (hxc-move-data rom))))
ocsenave@347 2019
ocsenave@347 2020
ocsenave@347 2021
ocsenave@347 2022
ocsenave@347 2023
ocsenave@347 2024 ;; note: 0x2f31 contains the names "TM" "HM"?
ocsenave@347 2025
ocsenave@347 2026 ;; note for later: credits start at F1290
ocsenave@347 2027
ocsenave@347 2028 ;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ??
ocsenave@347 2029
ocsenave@347 2030 ;; note: DD4D spells out pokemon vital stat names ("speed", etc.)
ocsenave@347 2031
ocsenave@347 2032 ;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE.
ocsenave@347 2033 ;; The first instance is for Machines; the second, for stones.
ocsenave@347 2034
ocsenave@410 2035 ;; note: according to
ocsenave@410 2036 ;; http://www.upokecenter.com/games/rby/guides/rgbtrainers.php
ocsenave@410 2037 ;; the amount of money given by a trainer is equal to the
ocsenave@410 2038 ;; base money times the level of the last Pokemon on that trainer's
ocsenave@410 2039 ;; list. Other sources say it's the the level of the last pokemon
ocsenave@410 2040 ;; /defeated/.
ocsenave@410 2041
ocsenave@410 2042 ;; todo: find base money.
ocsenave@410 2043
ocsenave@410 2044
ocsenave@411 2045 ;; note: 0xDFEA (in indexable mem) is the dex# of the currently-viewed Pokemon in
ocsenave@411 2046 ;; in the pokedex. It's used for other purposes if there is none.
ocsenave@411 2047
ocsenave@412 2048 ;; note: 0x9D35 (index.) switches from 0xFF to 0x00 temporarily when
ocsenave@412 2049 ;; you walk between areas.
ocsenave@412 2050
ocsenave@412 2051 ;; note: 0xD059 (index.) is the special battle type of your next battle:
ocsenave@412 2052 ;; - 00 is a usual battle
ocsenave@412 2053 ;; - 01 is a pre-scripted OLD MAN battle which always fails to catch the
ocsenave@412 2054 ;; target Pokemon.
ocsenave@412 2055 ;; - 02 is a safari zone battle
ocsenave@412 2056 ;; - 03 obligates you to run away. (unused)
ocsenave@412 2057 ;; - 04 is a pre-scripted OAK battle, which (temporarily) causes the
ocsenave@412 2058 ;; enemy Pokemon to cry PIKAAA, and which always catches the target
ocsenave@412 2059 ;; Pokemon. The target Pokemon is erased after the battle.
ocsenave@412 2060 ;; - 05+ are glitch states in which you are sort of the Pokemon.
ocsenave@412 2061
ocsenave@412 2062
ocsenave@412 2063 ;; note: 0x251A (in indexable mem): image decompression routine seems to begin here.
ocsenave@347 2064
ocsenave@420 2065 ;; note: 0x4845 (index): vending inventory is loaded here. possibly
ocsenave@420 2066 ;; other things, too.
ocsenave@420 2067 (comment
ocsenave@420 2068 ;; temporarily intercept/adjust what pops out of the vending
ocsenave@420 2069 ;; machine.
ocsenave@420 2070 ;; (and how much it costs)
ocsenave@420 2071
ocsenave@420 2072 ;; located at 0x4845
ocsenave@420 2073 ;; not to be confused with shop inventory, 0xCF7B
ocsenave@420 2074 (do
ocsenave@420 2075 (step (read-state "vend-menu"))
ocsenave@420 2076 (write-memory! (rewrite-memory (vec(memory)) 0x4845 [2 0 1 0]))
ocsenave@420 2077 (step @current-state [:a])
ocsenave@420 2078 (step @current-state [])
ocsenave@420 2079 (nstep @current-state 200) ))
ocsenave@420 2080
ocsenave@347 2081
ocsenave@373 2082 ;; Note: There are two tile tables, one from 8000-8FFF, the other from
ocsenave@373 2083 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end.
ocsenave@373 2084 (defn print-pixel-letters!
ocsenave@373 2085 "The pixel tiles representing letters. Neat!"
ocsenave@373 2086 ([] (print-pixel-letters! (read-state "oak-speaks")))
ocsenave@373 2087 ([state]
ocsenave@373 2088 (map
ocsenave@373 2089 (comp
ocsenave@373 2090 println
ocsenave@373 2091 (partial map #(if (zero? %) \space 0))
ocsenave@373 2092 #(if (< (count %) 8)
ocsenave@373 2093 (recur (cons 0 %))
ocsenave@373 2094 %)
ocsenave@373 2095 reverse bit-list)
ocsenave@373 2096
ocsenave@373 2097 (take 0xFFF (drop 0x8800 (memory state))))))
ocsenave@373 2098
ocsenave@373 2099
ocsenave@419 2100 ;; (defn test-2 []
ocsenave@419 2101 ;; (loop [n 0
ocsenave@419 2102 ;; pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000)
ocsenave@419 2103 ;; pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a])
ocsenave@419 2104 ;; (step []) (nstep 100)) 100000)]
ocsenave@419 2105 ;; (cond (empty? (drop n pc-1)) [pc-1 n]
ocsenave@419 2106 ;; (not= (take 10 (drop n pc-1)) (take 10 pc-2))
ocsenave@419 2107 ;; (recur pc-1 pc-2 (inc n))
ocsenave@419 2108 ;; :else
ocsenave@419 2109 ;; [(take 1000 pc-2) n])))
ocsenave@406 2110
ocsenave@406 2111
ocsenave@406 2112
ocsenave@406 2113
ocsenave@410 2114 (defn test-3
ocsenave@410 2115 "Explore trainer data"
ocsenave@419 2116 ([] (test-3 0x3A289))
ocsenave@419 2117 ([start]
ocsenave@410 2118 (let [pokenames (vec(hxc-pokenames-raw))]
ocsenave@410 2119 (println
ocsenave@410 2120 (reduce
ocsenave@410 2121 str
ocsenave@410 2122 (map
ocsenave@419 2123 (fn [[adr lvl pkmn]]
ocsenave@419 2124 (str (format "%-11s %4d %02X %02X \t %05X\n"
ocsenave@419 2125
ocsenave@410 2126 (cond
ocsenave@410 2127 (zero? lvl) "+"
ocsenave@410 2128 (nil? (get pokenames (dec pkmn)))
ocsenave@410 2129 "-"
ocsenave@410 2130 :else
ocsenave@410 2131 (get pokenames (dec pkmn)))
ocsenave@410 2132 lvl
ocsenave@410 2133 pkmn
ocsenave@410 2134 lvl
ocsenave@419 2135 adr
ocsenave@419 2136 )))
ocsenave@419 2137 (map cons
ocsenave@419 2138 (take-nth 2 (drop start (range)))
ocsenave@419 2139 (partition 2
ocsenave@419 2140 (take 400;;703
ocsenave@419 2141 (drop
ocsenave@419 2142 start
ocsenave@419 2143 ;; 0x3A75D
ocsenave@419 2144 (rom)))))))))))
ocsenave@410 2145
ocsenave@412 2146 (defn search-memory* [mem codes k]
ocsenave@412 2147 (loop [index 0
ocsenave@412 2148 index-next 1
ocsenave@412 2149 start-match 0
ocsenave@412 2150 to-match codes
ocsenave@412 2151 matches []]
ocsenave@412 2152 (cond
ocsenave@412 2153 (>= index (count mem)) matches
ocsenave@412 2154
ocsenave@412 2155 (empty? to-match)
ocsenave@412 2156 (recur
ocsenave@412 2157 index-next
ocsenave@412 2158 (inc index-next)
ocsenave@412 2159 index-next
ocsenave@412 2160 codes
ocsenave@412 2161 (conj matches
ocsenave@412 2162 [(hex start-match) (take k (drop start-match mem))])
ocsenave@412 2163 )
ocsenave@412 2164
ocsenave@412 2165 (or (= (first to-match) \_) ;; wildcard
ocsenave@412 2166 (= (first to-match) (nth mem index)))
ocsenave@412 2167 (recur
ocsenave@412 2168 (inc index)
ocsenave@412 2169 index-next
ocsenave@412 2170 start-match
ocsenave@412 2171 (rest to-match)
ocsenave@412 2172 matches)
ocsenave@412 2173
ocsenave@412 2174 :else
ocsenave@412 2175 (recur
ocsenave@412 2176 index-next
ocsenave@412 2177 (inc index-next)
ocsenave@412 2178 index-next
ocsenave@412 2179 codes
ocsenave@412 2180 matches))))
ocsenave@420 2181
ocsenave@420 2182
ocsenave@420 2183 (def script-use-ball
ocsenave@420 2184 [0xFA ;; ld A, nn
ocsenave@420 2185 \_
ocsenave@420 2186 \_
ocsenave@420 2187 0xA7 ;; and A
ocsenave@420 2188 0xCA ;; JP Z
ocsenave@420 2189 \_
ocsenave@420 2190 \_
ocsenave@420 2191 0x3D ;; dec A
ocsenave@420 2192 0xC2 ;; JP NZ
ocsenave@420 2193 \_
ocsenave@420 2194 \_
ocsenave@420 2195 0xFA ;; LD A
ocsenave@420 2196 \_
ocsenave@420 2197 \_
ocsenave@420 2198 ])
ocsenave@420 2199
ocsenave@420 2200
ocsenave@420 2201
ocsenave@420 2202 (defn search-pattern [ptn coll]
ocsenave@420 2203 (loop
ocsenave@420 2204 [index 0
ocsenave@420 2205 to-match ptn
ocsenave@420 2206 binds {}
ocsenave@420 2207
ocsenave@420 2208 next-index 1
ocsenave@420 2209 match-start 0
ocsenave@420 2210 matches []]
ocsenave@420 2211
ocsenave@420 2212 (cond
ocsenave@420 2213 (>= index (count coll)) matches
ocsenave@420 2214 (empty? to-match)
ocsenave@420 2215 (recur
ocsenave@420 2216 next-index
ocsenave@420 2217 ptn
ocsenave@420 2218 {}
ocsenave@420 2219 (inc next-index)
ocsenave@420 2220 next-index
ocsenave@420 2221 (conj match-start
ocsenave@420 2222 [(hex match-start) binds]))
ocsenave@420 2223
ocsenave@420 2224 :else
ocsenave@420 2225 (let [k (first to-match)
ocsenave@420 2226 v (nth coll index)]
ocsenave@420 2227 (cond
ocsenave@420 2228 (= k \_) ;; wildcard
ocsenave@420 2229 (recur
ocsenave@420 2230 (inc index)
ocsenave@420 2231 (rest to-match)
ocsenave@420 2232 binds
ocsenave@420 2233
ocsenave@420 2234 next-index
ocsenave@420 2235 match-start
ocsenave@420 2236 matches)
ocsenave@420 2237
ocsenave@420 2238 (keyword? k)
ocsenave@420 2239 (if (binds k)
ocsenave@420 2240 (if (= (binds k) v)
ocsenave@420 2241 (recur
ocsenave@420 2242 (inc index)
ocsenave@420 2243 (rest to-match)
ocsenave@420 2244 binds
ocsenave@420 2245 next-index
ocsenave@420 2246 match-start
ocsenave@420 2247 matches)
ocsenave@420 2248
ocsenave@420 2249 (recur
ocsenave@420 2250 next-index
ocsenave@420 2251 ptn
ocsenave@420 2252 {}
ocsenave@420 2253 (inc next-index)
ocsenave@420 2254 next-index
ocsenave@420 2255 matches))
ocsenave@420 2256
ocsenave@420 2257 ;; ;; consistent bindings
ocsenave@420 2258 ;; (recur
ocsenave@420 2259 ;; (inc index)
ocsenave@420 2260 ;; (rest to-match)
ocsenave@420 2261 ;; binds
ocsenave@420 2262
ocsenave@420 2263 ;; next-index
ocsenave@420 2264 ;; match-start
ocsenave@420 2265 ;; matches)
ocsenave@420 2266
ocsenave@420 2267 ;; ;; inconsistent bindings
ocsenave@420 2268 ;; (recur
ocsenave@420 2269 ;; next-index
ocsenave@420 2270 ;; ptn
ocsenave@420 2271 ;; {}
ocsenave@420 2272 ;; (inc next-index)
ocsenave@420 2273 ;; next-index
ocsenave@420 2274 ;; matches))
ocsenave@420 2275
ocsenave@420 2276 (if ((set (vals binds)) v)
ocsenave@420 2277 ;; bindings are not unique
ocsenave@420 2278 (recur
ocsenave@420 2279 next-index
ocsenave@420 2280 ptn
ocsenave@420 2281 {}
ocsenave@420 2282 (inc next-index)
ocsenave@420 2283 next-index
ocsenave@420 2284 matches)
ocsenave@420 2285
ocsenave@420 2286 ;; bindings are unique
ocsenave@420 2287 (recur
ocsenave@420 2288 (inc index)
ocsenave@420 2289 (rest to-match)
ocsenave@420 2290 (assoc binds k v)
ocsenave@420 2291
ocsenave@420 2292 next-index
ocsenave@420 2293 match-start
ocsenave@420 2294 matches)))
ocsenave@420 2295
ocsenave@420 2296 :else ;; k is just a number
ocsenave@420 2297 (if (= k v)
ocsenave@420 2298 (recur
ocsenave@420 2299 (inc index)
ocsenave@420 2300 (rest to-match)
ocsenave@420 2301 binds
ocsenave@420 2302
ocsenave@420 2303 next-index
ocsenave@420 2304 match-start
ocsenave@420 2305 matches)
ocsenave@420 2306
ocsenave@420 2307 (recur
ocsenave@420 2308 next-index
ocsenave@420 2309 ptn
ocsenave@420 2310 {}
ocsenave@420 2311 (inc next-index)
ocsenave@420 2312 next-index
ocsenave@420 2313 matches)))))))
ocsenave@420 2314
ocsenave@420 2315
ocsenave@420 2316
ocsenave@420 2317
ocsenave@420 2318
ocsenave@420 2319
ocsenave@420 2320
ocsenave@420 2321
ocsenave@420 2322
ocsenave@420 2323 (defn search-pattern* [ptn coll]
ocsenave@420 2324 (loop
ocsenave@420 2325 [
ocsenave@420 2326 binds {}
ocsenave@420 2327 index 0
ocsenave@420 2328 index-next 1
ocsenave@420 2329 start-match 0
ocsenave@420 2330 to-match ptn
ocsenave@420 2331 matches []]
ocsenave@420 2332
ocsenave@420 2333 (cond
ocsenave@420 2334 (>= index (count coll)) matches
ocsenave@420 2335 (empty? to-match)
ocsenave@420 2336 (recur
ocsenave@420 2337 {}
ocsenave@420 2338 index-next
ocsenave@420 2339 (inc index-next)
ocsenave@420 2340 index-next
ocsenave@420 2341 ptn
ocsenave@420 2342 (conj matches
ocsenave@420 2343 [(hex start-match) binds]))
ocsenave@420 2344
ocsenave@420 2345 :else
ocsenave@420 2346 (let [k (first to-match)
ocsenave@420 2347 v (nth coll index)]
ocsenave@420 2348 (cond
ocsenave@420 2349 (= k \_) ;; wildcard
ocsenave@420 2350 (recur
ocsenave@420 2351 binds
ocsenave@420 2352 (inc index)
ocsenave@420 2353 index-next
ocsenave@420 2354 start-match
ocsenave@420 2355 (rest to-match)
ocsenave@420 2356 matches)
ocsenave@420 2357
ocsenave@420 2358 (keyword? k)
ocsenave@420 2359 (if (binds k)
ocsenave@420 2360 (if (= (binds k) v)
ocsenave@420 2361 (recur
ocsenave@420 2362 binds
ocsenave@420 2363 (inc index)
ocsenave@420 2364 index-next
ocsenave@420 2365 start-match
ocsenave@420 2366 (rest to-match)
ocsenave@420 2367 matches)
ocsenave@420 2368 (recur
ocsenave@420 2369 {}
ocsenave@420 2370 index-next
ocsenave@420 2371 (inc index-next)
ocsenave@420 2372 index-next
ocsenave@420 2373 ptn
ocsenave@420 2374 matches))
ocsenave@420 2375 (if
ocsenave@420 2376 ;; every symbol must be bound to a different thing.
ocsenave@420 2377 ((set (vals binds)) v)
ocsenave@420 2378 (recur
ocsenave@420 2379 {}
ocsenave@420 2380 index-next
ocsenave@420 2381 (inc index-next)
ocsenave@420 2382 index-next
ocsenave@420 2383 ptn
ocsenave@420 2384 matches)
ocsenave@420 2385 (recur
ocsenave@420 2386 (assoc binds k v)
ocsenave@420 2387 (inc index)
ocsenave@420 2388 index-next
ocsenave@420 2389 start-match
ocsenave@420 2390 (rest to-match)
ocsenave@421 2391 matches)))
ocsenave@421 2392
ocsenave@421 2393 :else
ocsenave@421 2394 (if (= k v)
ocsenave@421 2395 (recur
ocsenave@421 2396 binds
ocsenave@421 2397 (inc index)
ocsenave@421 2398 index-next
ocsenave@421 2399 start-match
ocsenave@421 2400 (rest to-match)
ocsenave@421 2401 matches)
ocsenave@421 2402 (recur
ocsenave@421 2403 {}
ocsenave@421 2404 index-next
ocsenave@421 2405 (inc index-next)
ocsenave@421 2406 index-next
ocsenave@421 2407 ptn
ocsenave@421 2408 matches))
ocsenave@421 2409
ocsenave@421 2410
ocsenave@421 2411
ocsenave@421 2412 )))))
ocsenave@420 2413
ocsenave@412 2414
ocsenave@406 2415
ocsenave@406 2416
ocsenave@410 2417 ;; look for the rainbow badge in memory
ocsenave@410 2418 (println (reduce str (map #(str (first %) "\t" (vec(second %)) "\n") (search-memory (rom) [221] 10))))
ocsenave@410 2419
ocsenave@406 2420
ocsenave@347 2421 (comment
ocsenave@347 2422
ocsenave@347 2423 (def hxc-later
ocsenave@347 2424 "Running this code produces, e.g. hardcoded names NPCs give
ocsenave@347 2425 their pokemon. Will sort through it later."
ocsenave@347 2426 (print (character-codes->str(take 10000
ocsenave@347 2427 (drop 0x71597
ocsenave@347 2428 (rom (root)))))))
ocsenave@347 2429
ocsenave@347 2430 (let [dex
ocsenave@347 2431 (partition-by #(= 0x50 %)
ocsenave@347 2432 (take 2540
ocsenave@347 2433 (drop 0x40687
ocsenave@347 2434 (rom (root)))))]
ocsenave@347 2435 (def dex dex)
ocsenave@347 2436 (def hxc-species
ocsenave@347 2437 (map character-codes->str
ocsenave@347 2438 (take-nth 4 dex))))
ocsenave@347 2439 )
ocsenave@347 2440
ocsenave@347 2441
ocsenave@347 2442 #+end_src
ocsenave@347 2443
ocsenave@348 2444 #+results:
ocsenave@348 2445 : nil
ocsenave@348 2446