ocsenave@311: #+title: Notes on Deconstructing Pokemon Yellow ocsenave@311: #+author: Dylan Holmes ocsenave@311: #+email: rlm@mit.edu ocsenave@419: #+description: A detailed explication of Pok\eacute{}mon Yellow, helped by Clojure. ocsenave@419: #+keywords: pokemon, pokemon yellow, rom, gameboy, assembly, hex, pointers, clojure ocsenave@311: #+SETUPFILE: ../../aurellem/org/setup.org ocsenave@311: #+INCLUDE: ../../aurellem/org/level-0.org ocsenave@311: #+BABEL: :exports both :noweb yes :cache no :mkdirp yes ocsenave@471: #+OPTIONS: num:2 ocsenave@471: ocsenave@311: ocsenave@346: # about map headers http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes ocsenave@346: # map headers Yellow http://www.pokecommunity.com/archive/index.php/t-235311.html ocsenave@312: # pokedollar: U+20B1 ocsenave@347: * Introduction ocsenave@470: This article contains the results of my investigations with ocsenave@470: Pok\eacute{}mon Yellow as I searched for interesting ocsenave@470: data in the ROM. By using the Clojure language interface ocsenave@470: written by Robert[fn::This Clojure interface will be published to aurellem.org soon.], I ocsenave@470: was able to interact with the game in real-time, sending commands and ocsenave@470: gathering data. The result is a manifestly accurate map of ocsenave@470: Pok\eacute{}mon Yellow; every result ocsenave@470: comes with runnable code that /works/. You can see the code and the output of ocsenave@470: every function and confirm for yourself that they are all correct. I ocsenave@470: hope you like the result! ocsenave@470: ocsenave@470: To orient yourself, you can look for a specific topic in the table of contents ocsenave@470: above, or browse the [[#sec-9-1][map of the ROM]], below. ocsenave@470: ocsenave@470: ocsenave@471: If you have any questions or comments, please e-mail =rlm@mit.edu=. ocsenave@470: ocsenave@347: ocsenave@348: ** COMMENT Getting linguistic data: names, words, etc. ocsenave@348: ocsenave@348: Some of the simplest data ocsenave@348: ocsenave@348: ocsenave@348: One of the simplest data structures in the Pok\eacute{} ROM is an ocsenave@348: unbroken list of strings that either (a) all have a specific length, ocsenave@348: or (b) are all separated by the same character. ocsenave@348: ocsenave@348: Because lots of good data has this format, we'll start by writing a ocsenave@348: template function to extract it: ocsenave@348: ocsenave@348: #+name: hxc-thunks ocsenave@348: #+begin_src clojure :results silent ocsenave@348: (defn hxc-thunk ocsenave@348: "Creates a thunk (nullary fn) that grabs data in a certain region of rom and ocsenave@348: splits it into a collection by 0x50. If rom is not supplied, uses the ocsenave@348: original rom data." ocsenave@348: [start length] ocsenave@348: (fn self ocsenave@348: ([rom] ocsenave@348: (take-nth 2 ocsenave@348: (partition-by #(= % 0x50) ocsenave@348: (take length ocsenave@348: (drop start rom))))) ocsenave@348: ([] ocsenave@348: (self com.aurellem.gb.gb-driver/original-rom)))) ocsenave@348: ocsenave@348: (def hxc-thunk-words ocsenave@348: "Same as hxc-thunk, except it interprets the rom data as characters, ocsenave@348: returning a collection of strings." ocsenave@348: (comp ocsenave@348: (partial comp (partial map character-codes->str)) ocsenave@348: hxc-thunk)) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: * Pok\eacute{}mon I ocsenave@348: ** Names of each species ocsenave@348: The names of the Pok\eacute{}mon species are stored in ocsenave@348: ROM@E8000. This name list is interesting, for a number of reasons: ocsenave@348: - The names are stored in [[ ][internal order]] rather than in the familiar ocsenave@348: Pok\eacute{}dex order. This seemingly random order probably represents the order in which the authors created or ocsenave@348: programmed in the Pok\eacute{}mon; it's used throughout the game. ocsenave@348: - There is enough space allocated for 190 Pok\eacute{}mon. As I ocsenave@348: understand it, there were originally going to be 190 Pok\eacute{}mon ocsenave@348: in Generation I, but the creators decided to defer some to ocsenave@348: Generation II. This explains why many Gen I and Gen II Pok\eacute{}mon ocsenave@348: have the same aesthetic feel. ocsenave@348: - The list is pockmarked with random gaps, due to the strange internal ocsenave@348: ordering ocsenave@348: and the 39 unused spaces [fn::190 allocated spaces minus 151 true Pok\eacute{}mon]. These missing spaces are filled with the ocsenave@348: placeholder name =MISSINGNO.= (\ldquo{}Missing number\rdquo{}). ocsenave@348: ocsenave@348: Each name is exactly ten letters long; whenever a name would be too short, the extra ocsenave@348: space is padded with the character 0x50. ocsenave@348: ocsenave@348: *** See the data ocsenave@348: ocsenave@348: Here you can see the raw data in three stages: in the first stage, we ocsenave@348: just grab the first few bytes starting from position 0xE8000. In the ocsenave@371: second stage, we partition the bytes into ten-letter chunks to show you ocsenave@348: where the names begin and end. In the final stage, we convert each ocsenave@348: byte into the letter it represents using the =character-codes->str= ocsenave@348: function. (0x50 is rendered as the symbol \ldquo{} =#= \rdquo{} for ocsenave@348: ease of reading). ocsenave@348: ocsenave@348: #+begin_src clojure :exports both :cache no :results output ocsenave@348: (ns com.aurellem.gb.hxc ocsenave@348: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@348: constants)) ocsenave@348: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@348: ocsenave@371: ocsenave@348: (println (take 100 (drop 0xE8000 (rom)))) ocsenave@348: ocsenave@348: (println (partition 10 (take 100 (drop 0xE8000 (rom))))) ocsenave@348: ocsenave@348: (println (character-codes->str (take 100 (drop 0xE8000 (rom))))) ocsenave@348: ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: #+results: ocsenave@348: : (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: : ((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: : RHYDON####KANGASKHANNIDORAN♂##CLEFAIRY##SPEAROW###VOLTORB###NIDOKING##SLOWBRO###IVYSAUR###EXEGGUTOR# ocsenave@348: ocsenave@348: ocsenave@348: *** Automatically grab the data. ocsenave@348: ocsenave@348: #+name: pokenames ocsenave@348: #+begin_src clojure ocsenave@348: ocsenave@348: (defn hxc-pokenames-raw ocsenave@348: "The hardcoded names of the 190 species in memory. List begins at ocsenave@348: ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters ocsenave@348: long, these names are stripped of padding. See also, hxc-pokedex-names" ocsenave@348: ([] ocsenave@348: (hxc-pokenames-raw com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [count-species 190 ocsenave@348: name-length 10] ocsenave@348: (map character-codes->str ocsenave@348: (partition name-length ocsenave@348: (map #(if (= 0x50 %) 0x00 %) ocsenave@348: (take (* count-species name-length) ocsenave@348: (drop 0xE8000 ocsenave@348: rom)))))))) ocsenave@348: (def hxc-pokenames ocsenave@348: (comp ocsenave@348: (partial map format-name) ocsenave@348: hxc-pokenames-raw)) ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: (defn hxc-pokedex-names ocsenave@411: "The names of the pokemon in hardcoded pokedex order. List of the ocsenave@411: pokedex numbers of each pokemon (in internal order) begins at ocsenave@348: ROM@410B1. See also, hxc-pokenames." ocsenave@348: ([] (hxc-pokedex-names ocsenave@348: com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [names (hxc-pokenames rom)] ocsenave@348: (#(mapv % ocsenave@348: ((comp range count keys) %)) ocsenave@348: (zipmap ocsenave@348: (take (count names) ocsenave@348: (drop 0x410b1 rom)) ocsenave@348: ocsenave@348: names))))) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ** Generic species information ocsenave@348: ocsenave@348: #+name: pokebase ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-pokemon-base ocsenave@348: ([] (hxc-pokemon-base com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [entry-size 28 ocsenave@371: ocsenave@348: pokemon (rest (hxc-pokedex-names)) ocsenave@371: pkmn-count (inc(count pokemon)) ocsenave@348: types (apply assoc {} ocsenave@348: (interleave ocsenave@348: (range) ocsenave@348: pkmn-types)) ;;!! softcoded ocsenave@348: moves (apply assoc {} ocsenave@348: (interleave ocsenave@348: (range) ocsenave@348: (map format-name ocsenave@348: (hxc-move-names rom)))) ocsenave@348: machines (hxc-machines) ocsenave@348: ] ocsenave@348: (zipmap ocsenave@348: pokemon ocsenave@348: (map ocsenave@348: (fn [[n ocsenave@348: rating-hp ocsenave@348: rating-atk ocsenave@348: rating-def ocsenave@348: rating-speed ocsenave@348: rating-special ocsenave@348: type-1 ocsenave@348: type-2 ocsenave@473: rarity ;; catch rate ocsenave@473: rating-xp ;; base exp yield ocsenave@348: pic-dimensions ;; tile_width|tile_height (8px/tile) ocsenave@348: ptr-pic-obverse-1 ocsenave@348: ptr-pic-obverse-2 ocsenave@348: ptr-pic-reverse-1 ocsenave@348: ptr-pic-reverse-2 ocsenave@473: move-1 ;; attacks known at level 0 [i.e. by default] ocsenave@473: move-2 ;; (0 for none) ocsenave@348: move-3 ocsenave@348: move-4 ocsenave@348: growth-rate ocsenave@348: & ocsenave@348: TMs|HMs]] ocsenave@348: (let ocsenave@348: [base-moves ocsenave@348: (mapv moves ocsenave@348: ((comp ocsenave@348: ;; since the game uses zero as a delimiter, ocsenave@348: ;; it must also increment all move indices by 1. ocsenave@348: ;; heren we decrement to correct this. ocsenave@348: (partial map dec) ocsenave@348: (partial take-while (comp not zero?))) ocsenave@348: [move-1 move-2 move-3 move-4])) ocsenave@348: ocsenave@348: types ocsenave@348: (set (list (types type-1) ocsenave@348: (types type-2))) ocsenave@348: TMs|HMs ocsenave@348: (map ocsenave@348: (comp ocsenave@348: (partial map first) ocsenave@348: (partial remove (comp zero? second))) ocsenave@348: (split-at ocsenave@348: 50 ocsenave@348: (map vector ocsenave@348: (rest(range)) ocsenave@348: (reduce concat ocsenave@348: (map ocsenave@348: #(take 8 ocsenave@348: (concat (bit-list %) ocsenave@348: (repeat 0))) ocsenave@348: ocsenave@348: TMs|HMs))))) ocsenave@348: ocsenave@348: TMs (vec (first TMs|HMs)) ocsenave@348: HMs (take 5 (map (partial + -50) (vec (second TMs|HMs)))) ocsenave@348: ocsenave@348: ocsenave@348: ] ocsenave@348: ocsenave@348: ocsenave@348: {:dex# n ocsenave@348: :base-moves base-moves ocsenave@348: :types types ocsenave@348: :TMs TMs ocsenave@348: :HMs HMs ocsenave@348: :base-hp rating-hp ocsenave@348: :base-atk rating-atk ocsenave@348: :base-def rating-def ocsenave@348: :base-speed rating-speed ocsenave@348: :base-special rating-special ocsenave@348: :o0 pic-dimensions ocsenave@348: :o1 ptr-pic-obverse-1 ocsenave@348: :o2 ptr-pic-obverse-2 ocsenave@348: })) ocsenave@348: ocsenave@348: (partition entry-size ocsenave@348: (take (* entry-size pkmn-count) ocsenave@348: (drop 0x383DE ocsenave@348: rom)))))))) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ** Pok\eacute{}mon evolutions ocsenave@348: #+name: evolution-header ocsenave@348: #+begin_src clojure ocsenave@348: (defn format-evo ocsenave@348: "Parse a sequence of evolution data, returning a map. First is the ocsenave@348: method: 0 = end-evolution-data. 1 = level-up, 2 = item, 3 = trade. Next is an item id, if the ocsenave@348: method of evolution is by item (only stones will actually make pokemon ocsenave@348: evolve, for some auxillary reason.) Finally, the minimum level for ocsenave@348: evolution to occur (level 1 means no limit, which is used for trade ocsenave@348: and item evolutions), followed by the internal id of the pokemon ocsenave@348: into which to evolve. Hence, level up and trade evolutions are ocsenave@348: described with 3 ocsenave@348: bytes; item evolutions with four." ocsenave@348: [coll] ocsenave@348: (let [method (first coll)] ocsenave@348: (cond (empty? coll) [] ocsenave@348: (= 0 method) [] ;; just in case ocsenave@348: (= 1 method) ;; level-up evolution ocsenave@348: (conj (format-evo (drop 3 coll)) ocsenave@348: {:method :level-up ocsenave@348: :min-level (nth coll 1) ocsenave@348: :into (dec (nth coll 2))}) ocsenave@348: ocsenave@348: (= 2 method) ;; item evolution ocsenave@348: (conj (format-evo (drop 4 coll)) ocsenave@348: {:method :item ocsenave@348: :item (dec (nth coll 1)) ocsenave@348: :min-level (nth coll 2) ocsenave@348: :into (dec (nth coll 3))}) ocsenave@348: ocsenave@348: (= 3 method) ;; trade evolution ocsenave@348: (conj (format-evo (drop 3 coll)) ocsenave@348: {:method :trade ocsenave@348: :min-level (nth coll 1) ;; always 1 for trade. ocsenave@348: :into (dec (nth coll 2))})))) ocsenave@348: ocsenave@348: ocsenave@348: (defn hxc-ptrs-evolve ocsenave@348: "A hardcoded collection of 190 pointers to alternating evolution/learnset data, ocsenave@348: in internal order." ocsenave@348: ([] ocsenave@348: (hxc-ptrs-evolve com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [ ocsenave@348: pkmn-count (count (hxc-pokenames-raw)) ;; 190 ocsenave@348: ptrs ocsenave@348: (map (fn [[a b]] (low-high a b)) ocsenave@348: (partition 2 ocsenave@348: (take (* 2 pkmn-count) ocsenave@348: (drop 0x3b1e5 rom))))] ocsenave@348: (map (partial + 0x34000) ptrs) ocsenave@348: ocsenave@348: ))) ocsenave@348: #+end_src ocsenave@348: ocsenave@348: #+name:evolution ocsenave@348: #+begin_src clojure ocsenave@348: ocsenave@348: (defn hxc-evolution ocsenave@348: "Hardcoded evolution data in memory. The data exists at ROM@34000, ocsenave@348: sorted by internal order. Pointers to the data exist at ROM@3B1E5; see also, hxc-ptrs-evolve." ocsenave@348: ([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (apply assoc {} ocsenave@348: (interleave ocsenave@348: (hxc-pokenames rom) ocsenave@348: (map ocsenave@348: (comp ocsenave@348: format-evo ocsenave@348: (partial take-while (comp not zero?)) ocsenave@348: #(drop % rom)) ocsenave@348: (hxc-ptrs-evolve rom) ocsenave@348: ))))) ocsenave@348: ocsenave@348: (defn hxc-evolution-pretty ocsenave@348: "Like hxc-evolution, except it uses the names of items and pokemon ocsenave@348: --- grabbed from ROM --- rather than their numerical identifiers." ocsenave@348: ([] (hxc-evolution-pretty com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let ocsenave@348: [poke-names (vec (hxc-pokenames rom)) ocsenave@348: item-names (vec (hxc-items rom)) ocsenave@348: use-names ocsenave@348: (fn [m] ocsenave@348: (loop [ks (keys m) new-map m] ocsenave@348: (let [k (first ks)] ocsenave@348: (cond (nil? ks) new-map ocsenave@348: (= k :into) ocsenave@348: (recur ocsenave@348: (next ks) ocsenave@348: (assoc new-map ocsenave@348: :into ocsenave@348: (poke-names ocsenave@348: (:into ocsenave@348: new-map)))) ocsenave@348: (= k :item) ocsenave@348: (recur ocsenave@348: (next ks) ocsenave@348: (assoc new-map ocsenave@348: :item ocsenave@348: (item-names ocsenave@348: (:item new-map)))) ocsenave@348: :else ocsenave@348: (recur ocsenave@348: (next ks) ocsenave@348: new-map) ocsenave@348: ))))] ocsenave@348: ocsenave@348: (into {} ocsenave@348: (map (fn [[pkmn evo-coll]] ocsenave@348: [pkmn (map use-names evo-coll)]) ocsenave@348: (hxc-evolution rom)))))) ocsenave@348: ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ** Level-up moves (learnsets) ocsenave@348: #+name: learnsets ocsenave@348: #+begin_src clojure ocsenave@348: ocsenave@348: ocsenave@348: (defn hxc-learnsets ocsenave@348: "Hardcoded map associating pokemon names to lists of pairs [lvl ocsenave@348: move] of abilities they learn as they level up. The data ocsenave@348: exists at ROM@34000, sorted by internal order. Pointers to the data ocsenave@348: exist at ROM@3B1E5; see also, hxc-ptrs-evolve" ocsenave@348: ([] (hxc-learnsets com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (apply assoc ocsenave@348: {} ocsenave@348: (interleave ocsenave@348: (hxc-pokenames rom) ocsenave@348: (map (comp ocsenave@348: (partial map ocsenave@348: (fn [[lvl mv]] [lvl (dec mv)])) ocsenave@348: (partial partition 2) ocsenave@348: ;; keep the learnset data ocsenave@348: (partial take-while (comp not zero?)) ocsenave@348: ;; skip the evolution data ocsenave@348: rest ocsenave@348: (partial drop-while (comp not zero?))) ocsenave@348: (map #(drop % rom) ocsenave@348: (hxc-ptrs-evolve rom))))))) ocsenave@348: ocsenave@348: (defn hxc-learnsets-pretty ocsenave@348: "Live hxc-learnsets except it reports the name of each move --- as ocsenave@348: it appears in rom --- rather than the move index." ocsenave@348: ([] (hxc-learnsets-pretty com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [moves (vec(map format-name (hxc-move-names)))] ocsenave@348: (into {} ocsenave@348: (map (fn [[pkmn learnset]] ocsenave@348: [pkmn (map (fn [[lvl mv]] [lvl (moves mv)]) ocsenave@348: learnset)]) ocsenave@348: (hxc-learnsets rom)))))) ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: * Pok\eacute{}mon II : the Pok\eacute{}dex ocsenave@348: ** Species vital stats ocsenave@348: #+name: dex-stats ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-pokedex-stats ocsenave@348: "The hardcoded pokedex stats (species height weight) in memory. List ocsenave@348: begins at ROM@40687" ocsenave@348: ([] (hxc-pokedex-stats com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [pokedex-names (zipmap (range) (hxc-pokedex-names rom)) ocsenave@348: pkmn-count (count pokedex-names) ocsenave@348: ] ocsenave@348: ((fn capture-stats ocsenave@348: [n stats data] ocsenave@348: (if (zero? n) stats ocsenave@348: (let [[species ocsenave@348: [_ ocsenave@348: height-ft ocsenave@348: height-in ocsenave@348: weight-1 ocsenave@348: weight-2 ocsenave@348: _ ocsenave@348: dex-ptr-1 ocsenave@348: dex-ptr-2 ocsenave@348: dex-bank ocsenave@348: _ ocsenave@348: & data]] ocsenave@348: (split-with (partial not= 0x50) data)] ocsenave@348: (recur (dec n) ocsenave@348: (assoc stats ocsenave@348: (pokedex-names (- pkmn-count (dec n))) ocsenave@348: {:species ocsenave@348: (format-name (character-codes->str species)) ocsenave@348: :height-ft ocsenave@348: height-ft ocsenave@348: :height-in ocsenave@348: height-in ocsenave@348: :weight ocsenave@348: (/ (low-high weight-1 weight-2) 10.) ocsenave@348: ocsenave@348: ;; :text ocsenave@348: ;; (character-codes->str ocsenave@348: ;; (take-while ocsenave@348: ;; (partial not= 0x50) ocsenave@348: ;; (drop ocsenave@348: ;; (+ 0xB8000 ocsenave@348: ;; -0x4000 ocsenave@348: ;; (low-high dex-ptr-1 dex-ptr-2)) ocsenave@348: ;; rom))) ocsenave@348: }) ocsenave@348: ocsenave@348: data) ocsenave@348: ocsenave@348: ocsenave@348: ))) ocsenave@348: ocsenave@348: pkmn-count ocsenave@348: {} ocsenave@348: (drop 0x40687 rom))) )) ocsenave@348: #+end_src ocsenave@348: ocsenave@411: #+results: dex-stats ocsenave@411: : #'com.aurellem.gb.hxc/hxc-pokedex-stats ocsenave@411: ocsenave@348: ** Species synopses ocsenave@348: ocsenave@348: #+name: dex-text ocsenave@348: #+begin_src clojure ocsenave@348: (def hxc-pokedex-text-raw ocsenave@348: "The hardcoded pokedex entries in memory. List begins at ocsenave@348: ROM@B8000, shortly before move names." ocsenave@348: (hxc-thunk-words 0xB8000 14754)) ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: (defn hxc-pokedex-text ocsenave@348: "The hardcoded pokedex entries in memory, presented as an ocsenave@348: associative hash map. List begins at ROM@B8000." ocsenave@348: ([] (hxc-pokedex-text com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (zipmap ocsenave@348: (hxc-pokedex-names rom) ocsenave@348: (cons nil ;; for missingno. ocsenave@348: (hxc-pokedex-text-raw rom))))) ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ** Pok\eacute{}mon cries ocsenave@471: *** See the data ocsenave@471: ocsenave@471: Here, you can see that each Pok\eacute{}mon's cry data consists of ocsenave@471: three bytes: the =cry-id=, which is the basic sound byte to use, the ocsenave@471: =pitch=, which determines how high or low to make the sound byte, and ocsenave@471: the =length=, which is the amount of the sound byte to play. ocsenave@471: ocsenave@471: Even though there are only a few different basic sound bytes (cry ocsenave@471: ids) to build from, by varying the pitch and length, ocsenave@471: you can create a wide variety of different Pok\eacute{}mon cries. ocsenave@471: ocsenave@471: #+begin_src clojure :exports both :cache no :results output ocsenave@471: (ns com.aurellem.gb.hxc ocsenave@471: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@471: constants)) ocsenave@471: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@471: ocsenave@471: (->> ocsenave@471: (rom) ocsenave@471: (drop 0x39462) ocsenave@471: (take 12) ocsenave@471: (println)) ocsenave@471: ocsenave@471: (->> ocsenave@471: (rom) ocsenave@471: (drop 0x39462) ocsenave@471: (take 12) ocsenave@471: (partition 3) ocsenave@471: (map vec) ocsenave@471: (println)) ocsenave@471: ocsenave@471: (->> ocsenave@471: (rom) ocsenave@471: (drop 0x39462) ocsenave@471: (take 12) ocsenave@471: (partition 3) ocsenave@471: (map ocsenave@471: (fn [[id pitch length]] ocsenave@471: {:cry-id id :pitch pitch :length length})) ocsenave@471: (println)) ocsenave@471: ocsenave@471: #+end_src ocsenave@471: ocsenave@471: #+results: ocsenave@471: : (17 0 128 3 0 128 0 0 128 25 204 1) ocsenave@471: : ([17 0 128] [3 0 128] [0 0 128] [25 204 1]) ocsenave@471: : ({: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: ocsenave@471: ocsenave@471: It is interesting to note which Pok\eacute{}mon use the same basic ocsenave@471: =cry-id= --- I call these /cry groups/. Here, you can see which ocsenave@471: Pok\eacute{}mon belong to the same cry group. ocsenave@471: ocsenave@471: #+begin_src clojure :exports both :cache no :results output ocsenave@471: (ns com.aurellem.gb.hxc ocsenave@471: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@471: constants)) ocsenave@471: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@471: ocsenave@471: (println "POKEMON CRY GROUPS") ocsenave@471: (doall ocsenave@471: (map println ocsenave@471: (let [cry-id ocsenave@471: (->> ocsenave@471: (rom) ocsenave@471: (drop 0x39462) ;; get the cry data ocsenave@471: (partition 3) ;; partition it into groups of three ocsenave@471: (map first) ;; keep only the first item, the cry-id ocsenave@471: (zipmap (hxc-pokenames)) ;; associate each pokemon with its cry-id ocsenave@471: )] ocsenave@471: ocsenave@471: (->> (hxc-pokenames) ;; start with the list of pokemon ocsenave@471: (remove (partial = :missingno.)) ;; remove missingnos ocsenave@471: (sort-by cry-id) ocsenave@471: (partition-by cry-id) ocsenave@471: (map vec))))) ocsenave@471: ocsenave@471: #+end_src ocsenave@471: ocsenave@471: #+results: ocsenave@471: #+begin_example ocsenave@471: POKEMON CRY GROUPS ocsenave@471: [:nidoran♂ :sandshrew :sandslash :nidorino] ocsenave@471: [:nidoran♀ :nidorina] ocsenave@471: [:slowpoke] ocsenave@471: [:kangaskhan] ocsenave@471: [:rhyhorn :magmar :charmander :charmeleon :charizard] ocsenave@471: [:grimer :snorlax] ocsenave@471: [:voltorb :electabuzz :electrode] ocsenave@471: [:gengar :muk] ocsenave@471: [:marowak :oddish :gloom] ocsenave@471: [:nidoking :moltres :articuno :raichu] ocsenave@471: [:nidoqueen :mankey :primeape] ocsenave@471: [:exeggcute :diglett :doduo :dodrio :dugtrio] ocsenave@471: [:lickitung :hitmonchan :seel :dewgong] ocsenave@471: [:exeggutor :drowzee :jynx :hypno] ocsenave@471: [:pidgey :poliwag :ditto :jigglypuff :wigglytuff :poliwhirl :poliwrath] ocsenave@471: [:ivysaur :dragonite :pikachu :dratini :dragonair :bulbasaur :venusaur] ocsenave@471: [:spearow :farfetch'd] ocsenave@471: [:rhydon] ocsenave@471: [:tangela :hitmonlee :golem :koffing :weezing] ocsenave@471: [:blastoise :kakuna :beedrill] ocsenave@471: [:pinsir :chansey :pidgeotto :pidgeot] ocsenave@471: [:arcanine :weedle] ocsenave@471: [:scyther :kabuto :caterpie :butterfree :goldeen :seaking] ocsenave@471: [:gyarados :onix :arbok :ekans :magikarp] ocsenave@471: [:shellder :fearow :zapdos :kabutops :cloyster] ocsenave@471: [:clefairy :cubone :meowth :horsea :seadra :clefable :persian] ocsenave@471: [:tentacool :venonat :eevee :flareon :jolteon :vaporeon :venomoth :tentacruel] ocsenave@471: [:lapras] ocsenave@471: [:gastly :kadabra :magneton :metapod :haunter :abra :alakazam :magnemite] ocsenave@471: [:tauros :zubat :golbat :squirtle :wartortle] ocsenave@471: [:mew :staryu :parasect :paras :mewtwo :starmie] ocsenave@471: [:slowbro :growlithe :machoke :omanyte :omastar :machop :machamp] ocsenave@471: [:mr.mime :krabby :kingler] ocsenave@471: [:psyduck :golduck :bellsprout] ocsenave@471: [:rattata :raticate] ocsenave@471: [:aerodactyl :vileplume] ocsenave@471: [:graveler :vulpix :ninetales :geodude] ocsenave@471: [:ponyta :rapidash :porygon :weepinbell :victreebel] ocsenave@471: #+end_example ocsenave@471: ocsenave@471: ocsenave@471: ocsenave@471: ocsenave@471: ocsenave@471: ocsenave@471: *** Automatically grab the data ocsenave@348: #+name: pokecry ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-cry ocsenave@348: "The pokemon cry data in internal order. List begins at ROM@39462" ocsenave@348: ([](hxc-cry com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (zipmap ocsenave@348: (hxc-pokenames rom) ocsenave@348: (map ocsenave@348: (fn [[cry-id pitch length]] ocsenave@348: {:cry-id cry-id ocsenave@348: :pitch pitch ocsenave@348: :length length} ocsenave@348: ) ocsenave@348: (partition 3 ocsenave@348: (drop 0x39462 rom)))))) ocsenave@348: ocsenave@348: (defn hxc-cry-groups ocsenave@348: ([] (hxc-cry-groups com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (map #(mapv first ocsenave@348: (filter ocsenave@348: (fn [[k v]] ocsenave@348: (= % (:cry-id v))) ocsenave@348: (hxc-cry))) ocsenave@348: ((comp ocsenave@348: range ocsenave@348: count ocsenave@348: set ocsenave@348: (partial map :cry-id) ocsenave@348: vals ocsenave@348: hxc-cry) ocsenave@348: rom)))) ocsenave@348: ocsenave@348: ocsenave@348: (defn cry-conversion! ocsenave@348: "Convert Porygon's cry in ROM to be the cry of the given pokemon." ocsenave@348: [pkmn] ocsenave@348: (write-rom! ocsenave@348: (rewrite-memory ocsenave@348: (vec(rom)) ocsenave@348: 0x3965D ocsenave@348: (map second ocsenave@348: ((hxc-cry) pkmn))))) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ** COMMENT Names of permanent stats ocsenave@348: 0DD4D-DD72 ocsenave@348: ocsenave@348: * Items ocsenave@348: ** Item names ocsenave@371: ocsenave@371: *** See the data ocsenave@371: #+begin_src clojure :exports both :results output ocsenave@371: (ns com.aurellem.gb.hxc ocsenave@371: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@371: constants)) ocsenave@371: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@371: ocsenave@371: (println (take 100 (drop 0x045B7 (rom)))) ocsenave@371: ocsenave@371: (println ocsenave@371: (partition-by ocsenave@371: (partial = 0x50) ocsenave@371: (take 100 (drop 0x045B7 (rom))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (map character-codes->str ocsenave@371: (partition-by ocsenave@371: (partial = 0x50) ocsenave@371: (take 100 (drop 0x045B7 (rom)))))) ocsenave@371: ocsenave@371: ocsenave@371: #+end_src ocsenave@371: ocsenave@371: #+results: ocsenave@371: : (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: : ((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: : (MASTER BALL # ULTRA BALL # GREAT BALL # POKé BALL # TOWN MAP # BICYCLE # ????? # SAFARI BALL # POKéDEX # MOON STONE # AN) ocsenave@371: ocsenave@371: *** Automatically grab the data ocsenave@348: #+name: item-names ocsenave@348: #+begin_src clojure ocsenave@348: ocsenave@348: (def hxc-items-raw ocsenave@348: "The hardcoded names of the items in memory. List begins at ocsenave@348: ROM@045B7" ocsenave@348: (hxc-thunk-words 0x45B7 870)) ocsenave@348: ocsenave@348: (def hxc-items ocsenave@348: "The hardcoded names of the items in memory, presented as ocsenave@348: keywords. List begins at ROM@045B7. See also, hxc-items-raw." ocsenave@348: (comp (partial map format-name) hxc-items-raw)) ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ** Item prices ocsenave@371: ocsenave@371: *** ocsenave@371: #+begin_src clojure :exports both :results output ocsenave@371: (ns com.aurellem.gb.hxc ocsenave@371: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@371: constants)) ocsenave@371: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@371: ocsenave@371: (println (take 90 (drop 0x4495 (rom)))) ocsenave@371: ocsenave@371: (println ocsenave@371: (partition 3 ocsenave@371: (take 90 (drop 0x4495 (rom))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (partition 3 ocsenave@371: (map hex ocsenave@371: (take 90 (drop 0x4495 (rom)))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (map decode-bcd ocsenave@371: (map butlast ocsenave@371: (partition 3 ocsenave@371: (take 90 (drop 0x4495 (rom))))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (map ocsenave@371: vector ocsenave@371: (hxc-items (rom)) ocsenave@371: (map decode-bcd ocsenave@371: (map butlast ocsenave@371: (partition 3 ocsenave@371: (take 90 (drop 0x4495 (rom)))))))) ocsenave@371: ocsenave@371: ocsenave@371: ocsenave@371: ocsenave@371: ocsenave@371: #+end_src ocsenave@371: ocsenave@371: #+results: ocsenave@371: : (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: : ((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: : ((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: : (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: : ([: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: ocsenave@371: ocsenave@371: *** ocsenave@348: #+name: item-prices ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-item-prices ocsenave@348: "The hardcoded list of item prices in memory. List begins at ROM@4495" ocsenave@348: ([] (hxc-item-prices com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [items (hxc-items rom) ocsenave@348: price-size 3] ocsenave@348: (zipmap items ocsenave@348: (map (comp ocsenave@348: ;; zero-cost items are "priceless" ocsenave@348: #(if (zero? %) :priceless %) ocsenave@348: decode-bcd butlast) ocsenave@348: (partition price-size ocsenave@348: (take (* price-size (count items)) ocsenave@348: (drop 0x4495 rom)))))))) ocsenave@348: #+end_src ocsenave@348: ** Vendor inventories ocsenave@348: ocsenave@348: #+name: item-vendors ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-shops ocsenave@348: ([] (hxc-shops com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [items (zipmap (range) (hxc-items rom)) ocsenave@348: ocsenave@348: ;; temporarily softcode the TM items ocsenave@348: items (into ocsenave@348: items ocsenave@348: (map (juxt identity ocsenave@348: (comp keyword ocsenave@348: (partial str "tm-") ocsenave@348: (partial + 1 -200) ocsenave@348: )) ocsenave@348: (take 200 (drop 200 (range))))) ocsenave@348: ocsenave@348: ] ocsenave@348: ocsenave@348: ((fn parse-shop [coll [num-items & items-etc]] ocsenave@348: (let [inventory (take-while ocsenave@348: (partial not= 0xFF) ocsenave@348: items-etc) ocsenave@348: [separator & items-etc] (drop num-items (rest items-etc))] ocsenave@348: (if (= separator 0x50) ocsenave@348: (map (partial mapv (comp items dec)) (conj coll inventory)) ocsenave@348: (recur (conj coll inventory) items-etc) ocsenave@348: ) ocsenave@348: )) ocsenave@348: ocsenave@348: '() ocsenave@348: (drop 0x233C rom)) ocsenave@348: ocsenave@348: ocsenave@348: ))) ocsenave@348: #+end_src ocsenave@348: ocsenave@348: #+results: item-vendors ocsenave@348: : #'com.aurellem.gb.hxc/hxc-shops ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: * Types ocsenave@348: ** Names of types ocsenave@406: ocsenave@406: *** COMMENT Pointers to type names ocsenave@406: #+begin_src clojure :exports both :results output ocsenave@406: (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: #+end_src ocsenave@406: ocsenave@406: ocsenave@371: *** ocsenave@371: #+begin_src clojure :exports both :results output ocsenave@371: (ns com.aurellem.gb.hxc ocsenave@371: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@371: constants)) ocsenave@371: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@371: ocsenave@371: (println (take 90 (drop 0x27D99 (rom)))) ocsenave@371: ocsenave@371: (println ocsenave@371: (partition-by (partial = 0x50) ocsenave@371: (take 90 (drop 0x27D99 (rom))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (map character-codes->str ocsenave@371: (partition-by (partial = 0x50) ocsenave@371: (take 90 (drop 0x27D99 (rom)))))) ocsenave@371: ocsenave@371: #+end_src ocsenave@371: ocsenave@371: #+results: ocsenave@371: : (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: : ((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: : (NORMAL # FIGHTING # FLYING # POISON # FIRE # WATER # GRASS # ELECTRIC # PSYCHIC # ICE # GROUND # ROCK # BIRD # BUG # G) ocsenave@371: ocsenave@371: ocsenave@371: *** ocsenave@348: #+name: type-names ocsenave@348: #+begin_src clojure ocsenave@348: (def hxc-types ocsenave@348: "The hardcoded type names in memory. List begins at ROM@27D99, ocsenave@348: shortly before hxc-titles." ocsenave@348: (hxc-thunk-words 0x27D99 102)) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ** Type effectiveness ocsenave@371: *** ocsenave@371: #+begin_src clojure :exports both :results output ocsenave@371: (ns com.aurellem.gb.hxc ocsenave@371: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@371: constants)) ocsenave@371: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@371: ocsenave@371: ocsenave@371: ;; POKEMON TYPES ocsenave@371: ocsenave@371: (println pkmn-types) ;; these are the pokemon types ocsenave@371: (println (map vector (range) pkmn-types)) ;; each type has an id number. ocsenave@371: ocsenave@371: (newline) ocsenave@371: ocsenave@371: ocsenave@371: ocsenave@371: ocsenave@371: ;;; TYPE EFFECTIVENESS ocsenave@371: ocsenave@472: (println (take 15 (drop 0x3E5FA (rom)))) ocsenave@472: (println (partition 3 (take 15 (drop 0x3E5FA (rom))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (map ocsenave@371: (fn [[atk-type def-type multiplier]] ocsenave@371: (list atk-type def-type (/ multiplier 10.))) ocsenave@371: ocsenave@371: (partition 3 ocsenave@472: (take 15 (drop 0x3E5FA (rom)))))) ocsenave@371: ocsenave@371: ocsenave@371: (println ocsenave@371: (map ocsenave@371: (fn [[atk-type def-type multiplier]] ocsenave@371: [ ocsenave@371: (get pkmn-types atk-type) ocsenave@371: (get pkmn-types def-type) ocsenave@371: (/ multiplier 10.) ocsenave@371: ]) ocsenave@371: ocsenave@371: (partition 3 ocsenave@472: (take 15 (drop 0x3E5FA (rom)))))) ocsenave@371: ocsenave@371: #+end_src ocsenave@371: ocsenave@371: #+results: ocsenave@371: : [: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: : ([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: : ocsenave@472: : (21 20 20 20 22 20 20 25 20 22 21 20 23 21 20) ocsenave@472: : ((21 20 20) (20 22 20) (20 25 20) (22 21 20) (23 21 20)) ocsenave@472: : ((21 20 2.0) (20 22 2.0) (20 25 2.0) (22 21 2.0) (23 21 2.0)) ocsenave@472: : ([:water :fire 2.0] [:fire :grass 2.0] [:fire :ice 2.0] [:grass :water 2.0] [:electric :water 2.0]) ocsenave@371: ocsenave@371: ocsenave@371: *** ocsenave@372: ocsenave@349: #+name: type-advantage ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-advantage ocsenave@348: ;; in-game multipliers are stored as 10x their effective value ocsenave@348: ;; to allow for fractional multipliers like 1/2 ocsenave@348: ocsenave@348: "The hardcoded type advantages in memory, returned as tuples of ocsenave@348: atk-type def-type multiplier. By default (i.e. if not listed here), ocsenave@348: the multiplier is 1. List begins at 0x3E62D." ocsenave@348: ([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (map ocsenave@348: (fn [[atk def mult]] [(get pkmn-types atk (hex atk)) ocsenave@348: (get pkmn-types def (hex def)) ocsenave@348: (/ mult 10)]) ocsenave@348: (partition 3 ocsenave@348: (take-while (partial not= 0xFF) ocsenave@472: (drop 0x3E5FA rom)))))) ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@472: ocsenave@348: * Moves ocsenave@348: ** Names of moves ocsenave@371: *** See the data ocsenave@371: #+begin_src clojure :exports both :results output ocsenave@371: (ns com.aurellem.gb.hxc ocsenave@371: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@371: constants)) ocsenave@371: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@371: ocsenave@371: (println (take 100 (drop 0xBC000 (rom)))) ocsenave@371: ocsenave@371: (println ocsenave@371: (partition-by ocsenave@371: (partial = 0x50) ocsenave@371: (take 100 (drop 0xBC000 (rom))))) ocsenave@371: ocsenave@371: (println ocsenave@371: (map character-codes->str ocsenave@371: (partition-by ocsenave@371: (partial = 0x50) ocsenave@371: (take 100 (drop 0xBC000 (rom)))))) ocsenave@371: ocsenave@371: ocsenave@371: #+end_src ocsenave@371: ocsenave@371: #+results: ocsenave@371: : (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: : ((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: : (POUND # KARATE CHOP # DOUBLESLAP # COMET PUNCH # MEGA PUNCH # PAY DAY # FIRE PUNCH # ICE PUNCH # THUNDERPUNCH # SCRATC) ocsenave@371: ocsenave@371: *** Automatically grab the data ocsenave@371: ocsenave@348: #+name: move-names ocsenave@348: #+begin_src clojure ocsenave@348: (def hxc-move-names ocsenave@348: "The hardcoded move names in memory. List begins at ROM@BC000" ocsenave@348: (hxc-thunk-words 0xBC000 1551)) ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ** Properties of moves ocsenave@348: ocsenave@348: #+name: move-data ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-move-data ocsenave@348: "The hardcoded (basic (move effects)) in memory. List begins at ocsenave@348: 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id ocsenave@348: :fx-txt}. The move descriptions are handwritten, not hardcoded." ocsenave@348: ([] ocsenave@348: (hxc-move-data com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [names (vec (hxc-move-names rom)) ocsenave@348: move-count (count names) ocsenave@348: move-size 6 ocsenave@348: types pkmn-types ;;; !! hardcoded types ocsenave@348: ] ocsenave@348: (zipmap (map format-name names) ocsenave@348: (map ocsenave@348: (fn [[idx effect power type-id accuracy pp]] ocsenave@348: {:name (names (dec idx)) ocsenave@348: :power power ocsenave@348: :accuracy accuracy ocsenave@348: :pp pp ocsenave@348: :type (types type-id) ocsenave@348: :fx-id effect ocsenave@348: :fx-txt (get move-effects effect) ocsenave@348: } ocsenave@348: ) ocsenave@348: ocsenave@348: (partition move-size ocsenave@348: (take (* move-size move-count) ocsenave@348: (drop 0x38000 rom)))))))) ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: (defn hxc-move-data* ocsenave@348: "Like hxc-move-data, but reports numbers as hexadecimal symbols instead." ocsenave@348: ([] ocsenave@348: (hxc-move-data* com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [names (vec (hxc-move-names rom)) ocsenave@348: move-count (count names) ocsenave@348: move-size 6 ocsenave@348: format-name (fn [s] ocsenave@348: (keyword (.toLowerCase ocsenave@348: (apply str ocsenave@348: (map #(if (= % \space) "-" %) s))))) ocsenave@348: ] ocsenave@348: (zipmap (map format-name names) ocsenave@348: (map ocsenave@348: (fn [[idx effect power type accuracy pp]] ocsenave@348: {:name (names (dec idx)) ocsenave@348: :power power ocsenave@348: :accuracy (hex accuracy) ocsenave@348: :pp pp ocsenave@348: :fx-id (hex effect) ocsenave@348: :fx-txt (get move-effects effect) ocsenave@348: } ocsenave@348: ) ocsenave@348: ocsenave@348: (partition move-size ocsenave@348: (take (* move-size move-count) ocsenave@348: (drop 0x38000 rom)))))))) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ** TM and HM moves ocsenave@371: *** ocsenave@371: #+begin_src clojure :exports both :results output ocsenave@371: (ns com.aurellem.gb.hxc ocsenave@371: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@371: constants)) ocsenave@371: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@348: ocsenave@371: ocsenave@371: (println (hxc-move-names)) ocsenave@371: (println (map vector (rest(range)) (hxc-move-names))) ocsenave@371: ocsenave@371: (newline) ocsenave@371: ocsenave@371: (println (take 55 (drop 0x1232D (rom)))) ocsenave@371: ocsenave@371: (println ocsenave@371: (interpose "." ocsenave@371: (map ocsenave@371: (zipmap (rest (range)) (hxc-move-names)) ocsenave@371: (take 55 (drop 0x1232D (rom)))))) ocsenave@371: ocsenave@371: #+end_src ocsenave@371: ocsenave@371: #+results: ocsenave@371: : (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: : ([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: : ocsenave@371: : (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: : (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: ocsenave@371: ocsenave@371: *** ocsenave@348: #+name: machines ocsenave@348: #+begin_src clojure ocsenave@348: (defn hxc-machines ocsenave@348: "The hardcoded moves taught by TMs and HMs. List begins at ROM@1232D." ocsenave@348: ([] (hxc-machines ocsenave@348: com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [moves (hxc-move-names rom)] ocsenave@348: (zipmap ocsenave@348: (range) ocsenave@348: (take-while ocsenave@348: (comp not nil?) ocsenave@348: (map (comp ocsenave@348: format-name ocsenave@348: (zipmap ocsenave@348: (range) ocsenave@348: moves) ocsenave@348: dec) ocsenave@348: (take 100 ocsenave@348: (drop 0x1232D rom)))))))) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ** COMMENT Status ailments ocsenave@348: ocsenave@419: ocsenave@419: * NPC Trainers ocsenave@419: ocsenave@419: ** Trainer Pok\eacute{}mon ocsenave@419: # http://hax.iimarck.us/topic/103/ ocsenave@419: There are two formats for specifying lists of NPC PPok\eacute{}mon: ocsenave@419: - If all the Pok\eacute{}mon will have the same level, the format is ocsenave@419: - Level (used for all the Pok\eacute{}mon) ocsenave@419: - Any number of Pok\eacute{}mon internal ids. ocsenave@419: - 0x00, to indicate end-of-list. ocsenave@419: - Otherwise, all the Pok\eacute{}mon will have their level ocsenave@419: specified. The format is ocsenave@419: - 0xFF, to indicate that we will be specifying the levels individually[fn::Because 0xFF is a ocsenave@419: forbidden level within the usual gameplay discipline, the game ocsenave@419: makers could safely use 0xFF as a mode indicator.]. ocsenave@419: - Any number of alternating Level/Pokemon pairs ocsenave@419: - 0x00, to indicate end-of-list. ocsenave@419: ocsenave@419: *** Get the pointers ocsenave@419: *** See the data ocsenave@419: #+begin_src clojure :exports both :results output ocsenave@419: (ns com.aurellem.gb.hxc ocsenave@419: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@419: constants)) ocsenave@419: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@419: ocsenave@419: (->> ocsenave@419: (rom) ocsenave@419: (drop 0x39E2F) ocsenave@419: (take 21) ocsenave@419: (println)) ocsenave@419: ocsenave@419: ocsenave@419: (->> ocsenave@419: (rom) ocsenave@419: (drop 0x39E2F) ocsenave@419: (take 21) ocsenave@419: (partition-by zero?) ocsenave@419: (take-nth 2) ocsenave@419: (println)) ocsenave@419: ocsenave@419: ocsenave@419: ocsenave@419: (let ocsenave@419: [pokenames ocsenave@419: (zipmap ocsenave@419: (rest (range)) ocsenave@419: (hxc-pokenames-raw))] ocsenave@419: ocsenave@419: (->> ocsenave@419: (rom) ocsenave@419: (drop 0x39E2F) ocsenave@419: (take 21) ;; (1922 in all) ocsenave@419: (partition-by zero?) ocsenave@419: (take-nth 2) ocsenave@419: (map ocsenave@419: (fn parse-team [[mode & team]] ocsenave@419: (if (not= 0xFF mode) ocsenave@419: (mapv ocsenave@419: #(hash-map :level mode :species (pokenames %)) ocsenave@419: team) ocsenave@419: ocsenave@419: (mapv ocsenave@419: (fn [[lvl id]] (hash-map :level lvl :species (pokenames id))) ocsenave@419: (partition 2 team))))) ocsenave@419: ocsenave@419: (println))) ocsenave@419: ocsenave@419: ocsenave@419: ocsenave@419: #+end_src ocsenave@419: ocsenave@419: #+results: ocsenave@419: : (11 165 108 0 14 5 0 10 165 165 107 0 14 165 108 107 0 15 165 5 0) ocsenave@419: : ((11 165 108) (14 5) (10 165 165 107) (14 165 108 107) (15 165 5)) ocsenave@419: : ([{: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: ocsenave@348: * Places ocsenave@348: ** Names of places ocsenave@348: ocsenave@348: #+name: places ocsenave@348: #+begin_src clojure ocsenave@348: (def hxc-places ocsenave@348: "The hardcoded place names in memory. List begins at ocsenave@420: ROM@71500. [Cinnabar/Celadon] Mansion seems to be dynamically calculated." ocsenave@348: (hxc-thunk-words 0x71500 560)) ocsenave@419: #+end_src ocsenave@348: ocsenave@419: *** See it work ocsenave@419: #+begin_src clojure :exports both :results output ocsenave@419: (println (hxc-places)) ocsenave@348: #+end_src ocsenave@348: ocsenave@419: #+results: ocsenave@419: : (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: ocsenave@348: ** Wild Pok\eacute{}mon demographics ocsenave@348: #+name: wilds ocsenave@348: #+begin_src clojure ocsenave@348: ocsenave@473: ;; 0x0489, relative to 0xCB95, points to 0xCD89. ocsenave@348: (defn hxc-ptrs-wild ocsenave@348: "A list of the hardcoded wild encounter data in memory. Pointers ocsenave@473: begin at ROM@0CB95; data begins at ROM@0x0CD89" ocsenave@348: ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [ptrs ocsenave@348: (map (fn [[a b]] (+ a (* 0x100 b))) ocsenave@348: (take-while (partial not= (list 0xFF 0xFF)) ocsenave@348: (partition 2 (drop 0xCB95 rom))))] ocsenave@348: ptrs))) ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: (defn hxc-wilds ocsenave@348: "A list of the hardcoded wild encounter data in memory. Pointers ocsenave@473: begin at ROM@0CB95; data begins at ROM@0x0CD89" ocsenave@348: ([] (hxc-wilds com.aurellem.gb.gb-driver/original-rom)) ocsenave@348: ([rom] ocsenave@348: (let [pokenames (zipmap (range) (hxc-pokenames rom))] ocsenave@348: (map ocsenave@473: (partial map ocsenave@473: (fn [[a b]] ocsenave@473: {:species (pokenames (dec b)) ocsenave@473: :level a})) ocsenave@473: (partition 10 ocsenave@473: (take-while ocsenave@473: (comp (partial not= 1) first) ocsenave@473: (partition 2 ocsenave@473: (drop 0xCD8C rom)) ocsenave@348: ocsenave@348: )))))) ocsenave@348: ocsenave@348: #+end_src ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@348: ocsenave@420: ** Map data ocsenave@420: ocsenave@420: # http://www.pokecommunity.com/showthread.php?t=235311 ocsenave@420: # http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes ocsenave@420: ocsenave@420: #+name map ocsenave@420: #+begin_src clojure :exports both :results output ocsenave@420: (ns com.aurellem.gb.hxc ocsenave@420: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@420: constants)) ocsenave@420: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@420: ocsenave@420: ocsenave@420: (defn parse-header-tileset ocsenave@420: [[bank# ;; memory bank for blocks & tileset ocsenave@420: ocsenave@420: blocks-lo ;; structure ocsenave@420: blocks-hi ocsenave@420: ocsenave@420: tileset-lo ;; style ocsenave@420: tileset-hi ocsenave@420: ocsenave@420: collision-lo ;; collision info ocsenave@420: collision-hi ocsenave@420: ocsenave@420: talk-here-1 ;; positions of up to three ocsenave@420: talk-here-2 ;; talk-over-countertop tiles ocsenave@420: talk-here-3 ;; --- 0xFF if unused. ocsenave@420: ocsenave@420: grass ;; grass tile --- 0xFF if unused ocsenave@420: ocsenave@420: animation-flags ;; settings for animation ocsenave@420: & _]] ocsenave@420: ocsenave@420: [bank# ocsenave@420: ocsenave@420: blocks-lo ;; structure ocsenave@420: blocks-hi ocsenave@420: ocsenave@420: tileset-lo ;; style ocsenave@420: tileset-hi ocsenave@420: ocsenave@420: collision-lo ;; collision info ocsenave@420: collision-hi ocsenave@420: ocsenave@420: talk-here-1 ;; positions of up to three ocsenave@420: talk-here-2 ;; talk-over-countertop tiles ocsenave@420: talk-here-3 ;; --- 0xFF if unused. ocsenave@420: ocsenave@420: grass ;; grass tile --- 0xFF if unused ocsenave@420: ocsenave@420: animation-flags ;; settings for animation ocsenave@420: ]) ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: (defn parse-header-map ocsenave@420: [start] ocsenave@420: ocsenave@420: (let [connection-size 11 ocsenave@420: ocsenave@420: [tileset-index ocsenave@420: map-height ocsenave@420: map-width ocsenave@420: layout-lo ocsenave@420: layout-hi ocsenave@420: text-lo ocsenave@420: text-hi ocsenave@420: script-lo ocsenave@420: script-hi ocsenave@420: adjacency-flags ;; x x x x N S W E ocsenave@420: & etc] ocsenave@420: (drop start (rom)) ocsenave@420: ocsenave@420: [east? west? south? north?] ocsenave@420: (bit-list adjacency-flags) ocsenave@420: ocsenave@420: [connections object-data] ocsenave@420: (split-at ocsenave@420: (* connection-size (+ east? west? south? north?)) ocsenave@420: etc) ocsenave@420: ocsenave@420: connections ocsenave@420: (partition connection-size connections) ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ] ocsenave@420: (ptr->offset ocsenave@420: 3 ocsenave@420: (low-high layout-lo layout-hi)) ocsenave@420: ocsenave@420: ocsenave@420: )) ocsenave@420: #+end_src ocsenave@420: ocsenave@420: #+results: ocsenave@420: : ocsenave@420: ocsenave@420: ocsenave@348: ocsenave@348: * Appendices ocsenave@347: ** Mapping the ROM ocsenave@420: # D3AD: Script:Use Pokeball? ocsenave@311: ocsenave@411: | ROM address (hex) | Description | Format | Example | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | | <15> | <15> | <15> | ocsenave@411: | 01823-0184A | Important prefix strings. | Variable-length strings, separated by 0x50. | TM#TRAINER#PC#ROCKET#POK\eacute{}#... | ocsenave@411: | 0233C- | Shop inventories. | | | ocsenave@412: | 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: | 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: | 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: | 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: | 04524-04527 | (unconfirmed) possibly the bike price in Cerulean. | | | ocsenave@411: | 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@412: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | 05DD2-05DF2 | Menu text for player info. | | PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] | ocsenave@411: | 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: | 06698- | ? Background music. | | | ocsenave@421: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | 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: | 7570-757D | Menu options for trading Pok\eacute{}mon | | TRADE [newline] CANCEL [0x50] | ocsenave@412: | 757D-758A | Menu options for healing Pok\eacute{}mon | | HEAL [newline] CANCEL [0x50] | ocsenave@412: | 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: | 7AF0-8000 | (empty space) | | 0 0 0 0 0 ... | ocsenave@411: | 0822E-082F? | Pointers to background music, part I. | | | ocsenave@473: | 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 relative to this memory bank, i.e. absolute address 0xCD89, the location of the first list of wild Pok\eacute{}mon. (For details on pointer addresses, see the relevant appendix.) | ocsenave@473: | 0CD89- | Lists of wild Pok\eacute{}mon to encounter in each region. | Lists of 12 bytes. First, an encounter rate[fn::I suspect this is an amount out of 256.]. Next, ten alternating Pok\eacute{}mon/level pairs. Each list ends with 0x00. If the encounter rate is zero, the list ends immediately. | The first nonempty list (located at ROM@0CD8B) is (25; 3 36 4 36 2 165 3 165 2 36 3 36 5 36 4 165 6 36 7 36; 0), i.e. 25 encounter rate; 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, 0 (i.e., end-of-list). | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@420: | 0DACB. | Amount of HP restored by Soda Pop | The HP consists of a single numerical byte. | 60 | ocsenave@420: | 0DACF. | Amount of HP restored by Lemonade | " | 80 | ocsenave@420: | 0DAD5. | Amount of HP restored by Fresh Water | " | 50 | ocsenave@420: | 0DADB. | Amount of HP restored by Hyper Potion. | " | 200 | ocsenave@411: | 0DAE0. | Amount of HP restored by Super Potion. | " | 50 | ocsenave@411: | 0DAE3. | Amount of HP restored by Potion. | " | 20 | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | 0DD4D-DD72 | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# | ocsenave@420: |-----------------------+-----------------+-----------------+-----------------| ocsenave@421: | 0DE2F. | Duration of Repel. | A single byte, representing the number of steps you can take before the effect wears off. | 100 | ocsenave@420: | 0DF39. | Duration of Super Repel. | " | 200 | ocsenave@420: | 0DF3E. | Duration of Max Repel. | " | 250 | ocsenave@420: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | 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: | 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: | 11852- | Terminology for current stats in the Pok\eacute{}mon menu. | Contiguous, variable-length strings. | EXP POINTS[newline]LEVEL UP[0x50] | ocsenave@411: | 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: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@421: | 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: | 11D67. | Which badge is a prerequisite for SURF? | " | 0x67 (test for Soul Badge) | ocsenave@421: | 11DAC. | Which badge is a prerequisite for STRENGTH? | " | 0x5F (test for Rainbow Badge) | ocsenave@421: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@421: | 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: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | 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: | 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: | 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: | 27DFF-27E77 | ? | 120 bytes of unknown data. | | ocsenave@411: | 27E77- | Trainer title names. | Variable-length names separated by 0x50. | YOUNGSTER#BUG CATCHER#LASS#... | ocsenave@411: | 34000- | | | | ocsenave@411: | 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: | 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: | 39462- | The Pok\eacute{}mon cry data. | Fixed-length (3 byte) descriptions of cries. | | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | 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: | 39B05-39DD0. | unknown | | | ocsenave@419: | 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: | 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: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@472: | 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: | 3BBAA-3C000 | (empty) | | 0 0 0 0 ... | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | 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: | 3D6C7-3D6D6 | Two miscellaneous strings. | Variable length, separated by 0x50 | Disabled!#TYPE | ocsenave@421: | 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: | 3E200-3E204 | " (???) | " | " | ocsenave@421: | 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@472: | 3E5FA-3E6F0. | *Type effectiveness* | Triples of bytes: =atk-type=, =def-type=, =multiplier=. The multiplier is stored as 10x its actual value to allow for fractions; so, 20 means 2.0x effective, 5 means 0.5x effective. Unlisted type combinations have 1.0x effectiveness by default. | The first few entries are (21 20 20) (20 22 20) (20 25 20) (22 21 20) (23 21 20), corresponding to [:water :fire 2.0] [:fire :grass 2.0] [:fire :ice 2.0] | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | 40252-4027B | Pok\eacute{}dex menu text | Variable-length strings separated by 0x50. | SEEN#OWN#CONTENTS#... | ocsenave@411: | 40370-40386 | Important constants for Pok\eacute{}dex entries | | HT _ _ *?′??″* [newline] WT _ _ _ *???* lb [0x50] *POK\Eacute{}* [0x50] | ocsenave@411: | 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: | 41072- | Pok\eacute{} placeholder species, "???" | | | ocsenave@411: |-----------------------+-----------------+-----------------+-----------------| ocsenave@411: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@420: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@421: | 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: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | 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: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | 70295- | Hall of fame | The text "HALL OF FAME" | | ocsenave@412: | 70442- | Play time/money | The text "PLAY TIME [0x50] MONEY" | | ocsenave@411: | 71500-7174B | Names of places. | Variable-length place names (strings), separated by 0x50. | PALLET TOWN#VIRIDIAN CITY#PEWTER CITY#CERULEAN CITY#... | ocsenave@411: | 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: | 7C249-7C2?? | Pointers to background music, pt II. | | | ocsenave@412: |-----------------------+-----------------+-----------------+-----------------| ocsenave@419: | 98000-B7190 | Dialogue and other messsages. | Variable-length strings. | | ocsenave@419: | B7190-B8000 | (empty space) | | 0 0 0 0 0 ... | ocsenave@411: | 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: | 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: | BC610-BD000 | (empty space) | | 0 0 0 0 0 ... | ocsenave@411: | 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: |-----------------------+-----------------+-----------------+-----------------| ocsenave@412: | E9BD5- | The text PLAY TIME (see above, 70442) | | | ocsenave@421: | 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: | 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@472: | | | | | ocsenave@410: #+TBLFM: ocsenave@312: ocsenave@421: ** COMMENT ocsenave@421: Locations where Give Pokemon is used in a nonstraightforward way ocsenave@421: 0x5287C ocsenave@421: 0x5CE23 ocsenave@421: 0x5C36B ocsenave@421: 0x7562E ocsenave@421: ocsenave@470: Find GivePokemon ocsenave@470: (search-memory* (vec(rom)) [120 234 \_ \_ 121 234 \_ \_ 175 234 \_ \_ 6] 10) ocsenave@470: ocsenave@470: F4011 : ASM script for asking if it's oak battle ocsenave@470: ocsenave@347: ocsenave@419: ** Understanding memory banks and pointers ocsenave@419: #+begin_src clojure ocsenave@419: ocsenave@419: (defn endian-flip ocsenave@419: "Flip the bytes of the two-byte number." ocsenave@419: [n] ocsenave@419: (assert (< n 0xFFFF)) ocsenave@419: (+ (* 0x100 (rem n 0x100)) ocsenave@419: (int (/ n 0x100)))) ocsenave@419: ocsenave@419: ocsenave@419: (defn offset->ptr ocsenave@419: "Convert an offset into a little-endian pointer." ocsenave@419: [n] ocsenave@419: (-> ocsenave@419: n ocsenave@419: (rem 0x10000) ;; take last four bytes ocsenave@419: (rem 0x4000) ;; get relative offset from the start of the bank ocsenave@419: (+ 0x4000) ocsenave@419: endian-flip)) ocsenave@419: ocsenave@419: (defn offset->bank ocsenave@419: "Get the bank of the offset." ocsenave@419: [n] ocsenave@419: (int (/ n 0x4000))) ocsenave@419: ocsenave@419: (defn ptr->offset ocsenave@419: "Convert a two-byte little-endian pointer into an offset." ocsenave@419: [bank ptr] ocsenave@419: (-> ocsenave@419: ptr ocsenave@419: endian-flip ocsenave@419: (- 0x4000) ocsenave@419: (+ (* 0x4000 bank)) ocsenave@419: )) ocsenave@419: ocsenave@419: (defn same-bank-offset ocsenave@419: "Convert a ptr into an absolute offset by using the bank of the reference." ocsenave@419: [reference ptr] ocsenave@419: (ptr->offset ocsenave@419: (offset->bank reference) ocsenave@419: ptr)) ocsenave@419: #+end_src ocsenave@419: ocsenave@347: ocsenave@312: ** Internal Pok\eacute{}mon IDs ocsenave@312: ** Type IDs ocsenave@347: ocsenave@347: #+name: type-ids ocsenave@347: #+begin_src clojure ocsenave@347: (def pkmn-types ocsenave@347: [:normal ;;0 ocsenave@347: :fighting ;;1 ocsenave@347: :flying ;;2 ocsenave@347: :poison ;;3 ocsenave@347: :ground ;;4 ocsenave@347: :rock ;;5 ocsenave@347: :bird ;;6 ocsenave@347: :bug ;;7 ocsenave@347: :ghost ;;8 ocsenave@347: :A ocsenave@347: :B ocsenave@347: :C ocsenave@347: :D ocsenave@347: :E ocsenave@347: :F ocsenave@347: :G ocsenave@347: :H ocsenave@347: :I ocsenave@347: :J ocsenave@347: :K ocsenave@347: :fire ;;20 (0x14) ocsenave@347: :water ;;21 (0x15) ocsenave@347: :grass ;;22 (0x16) ocsenave@347: :electric ;;23 (0x17) ocsenave@347: :psychic ;;24 (0x18) ocsenave@347: :ice ;;25 (0x19) ocsenave@347: :dragon ;;26 (0x1A) ocsenave@347: ]) ocsenave@347: #+end_src ocsenave@347: ocsenave@312: ** Basic effects of moves ocsenave@347: ocsenave@347: *** Table of basic effects ocsenave@347: ocsenave@347: The possible effects of moves in Pok\eacute{}mon \mdash{} for example, dealing ocsenave@347: damage, leeching health, or potentially poisoning the opponent ocsenave@347: \mdash{} are stored in a table. Each move has exactly one effect, and ocsenave@347: different moves might have the same effect. ocsenave@347: ocsenave@347: 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: ocsenave@347: All the legitimate move effects are listed in the table ocsenave@347: below. Here are some notes for reading it: ocsenave@347: ocsenave@347: - Whenever an effect has a chance of doing something (like a chance of ocsenave@371: poisoning the opponent), I list the chance as a hexadecimal amount ocsenave@371: out of 256; this is to avoid rounding errors. To convert the hex amount into a percentage, divide by 256. ocsenave@347: - For some effects, the description is too cumbersome to ocsenave@347: write. Instead, I just write a move name ocsenave@347: in parentheses, like: (leech seed). That move gives a characteristic example ocsenave@347: of the effect. ocsenave@347: - I use the abbreviations =atk=, =def=, =spd=, =spc=, =acr=, =evd= for ocsenave@371: attack, defense, speed, special, accuracy, and evasiveness. ocsenave@347: . ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: | ID (hex) | Description | Notes | ocsenave@347: |----------+-------------------------------------------------------------------------------------------------+------------------------------------------------------------------| ocsenave@347: | 0 | normal damage | | ocsenave@347: | 1 | no damage, just sleep | TODO: find out how many turns | ocsenave@347: | 2 | 0x4C chance of poison | | ocsenave@347: | 3 | leech half of inflicted damage | | ocsenave@347: | 4 | 0x19 chance of burn | | ocsenave@347: | 5 | 0x19 chance of freeze | | ocsenave@347: | 6 | 0x19 chance of paralysis | | ocsenave@347: | 7 | user faints; opponent's defense is halved during attack. | | ocsenave@347: | 8 | leech half of inflicted damage ONLY if the opponent is asleep | | ocsenave@347: | 9 | imitate last attack | | ocsenave@347: | A | user atk +1 | | ocsenave@347: | B | user def +1 | | ocsenave@347: | C | user spd +1 | | ocsenave@347: | D | user spc +1 | | ocsenave@347: | E | user acr +1 | This effect is unused. | ocsenave@347: | F | user evd +1 | | ocsenave@347: | 10 | get post-battle money = 2 * level * uses | | ocsenave@347: | 11 | move has 0xFE acr, regardless of battle stat modifications. | | ocsenave@347: | 12 | opponent atk -1 | | ocsenave@347: | 13 | opponent def -1 | | ocsenave@347: | 14 | opponent spd -1 | | ocsenave@347: | 15 | opponent spc -1 | | ocsenave@347: | 16 | opponent acr -1 | | ocsenave@347: | 17 | opponent evd -1 | | ocsenave@347: | 18 | converts user's type to opponent's. | | ocsenave@347: | 19 | (haze) | | ocsenave@347: | 1A | (bide) | | ocsenave@347: | 1B | (thrash) | | ocsenave@347: | 1C | (teleport) | | ocsenave@347: | 1D | (fury swipes) | | ocsenave@347: | 1E | attacks 2-5 turns | Unused. TODO: find out what it does. | ocsenave@347: | 1F | 0x19 chance of flinching | | ocsenave@347: | 20 | opponent sleep for 1-7 turns | | ocsenave@347: | 21 | 0x66 chance of poison | | ocsenave@347: | 22 | 0x4D chance of burn | | ocsenave@347: | 23 | 0x4D chance of freeze | | ocsenave@347: | 24 | 0x4D chance of paralysis | | ocsenave@347: | 25 | 0x4D chance of flinching | | ocsenave@347: | 26 | one-hit KO | | ocsenave@347: | 27 | charge one turn, atk next. | | ocsenave@347: | 28 | fixed damage, leaves 1HP. | Is the fixed damage the power of the move? | ocsenave@347: | 29 | fixed damage. | Like seismic toss, dragon rage, psywave. | ocsenave@347: | 2A | atk 2-5 turns; opponent can't attack | The odds of attacking for /n/ turns are: (0 0x60 0x60 0x20 0x20) | ocsenave@347: | 2B | charge one turn, atk next. (can't be hit when charging) | | ocsenave@347: | 2C | atk hits twice. | | ocsenave@347: | 2D | user takes 1 damage if misses. | | ocsenave@347: | 2E | evade status-lowering effects | Caused by you or also your opponent? | ocsenave@347: | 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: | 30 | atk causes recoil dmg = 1/4 dmg dealt | | ocsenave@347: | 31 | confuses opponent | | ocsenave@347: | 32 | user atk +2 | | ocsenave@347: | 33 | user def +2 | | ocsenave@347: | 34 | user spd +2 | | ocsenave@347: | 35 | user spc +2 | | ocsenave@347: | 36 | user acr +2 | This effect is unused. | ocsenave@347: | 37 | user evd +2 | This effect is unused. | ocsenave@347: | 38 | restores up to half of user's max hp. | | ocsenave@347: | 39 | (transform) | | ocsenave@347: | 3A | opponent atk -2 | | ocsenave@347: | 3B | opponent def -2 | | ocsenave@347: | 3C | opponent spd -2 | | ocsenave@347: | 3D | opponent spc -2 | | ocsenave@347: | 3E | opponent acr -2 | | ocsenave@347: | 3F | opponent evd -2 | | ocsenave@347: | 40 | doubles user spc when attacked | | ocsenave@347: | 41 | doubles user def when attacked | | ocsenave@347: | 42 | just poisons opponent | | ocsenave@347: | 43 | just paralyzes opponent | | ocsenave@347: | 44 | 0x19 chance opponent atk -1 | | ocsenave@347: | 45 | 0x19 chance opponent def -1 | | ocsenave@347: | 46 | 0x19 chance opponent spd -1 | | ocsenave@347: | 47 | 0x4C chance opponent spc -1 | | ocsenave@347: | 48 | 0x19 chance opponent acr -1 | | ocsenave@347: | 49 | 0x19 chance opponent evd -1 | | ocsenave@347: | 4A | ??? | ;; unused? no effect? | ocsenave@347: | 4B | ??? | ;; unused? no effect? | ocsenave@347: | 4C | 0x19 chance of confusing the opponent | | ocsenave@347: | 4D | atk hits twice. 0x33 chance opponent poisioned. | | ocsenave@347: | 4E | broken. crash the game after attack. | | ocsenave@347: | 4F | (substitute) | | ocsenave@347: | 50 | unless opponent faints, user must recharge after atk. some exceptions apply | | ocsenave@347: | 51 | (rage) | | ocsenave@347: | 52 | (mimic) | | ocsenave@347: | 53 | (metronome) | | ocsenave@347: | 54 | (leech seed) | | ocsenave@347: | 55 | does nothing (splash) | | ocsenave@347: | 56 | (disable) | | ocsenave@347: #+end_src ocsenave@347: ocsenave@347: *** Source ocsenave@347: #+name: move-effects ocsenave@347: #+begin_src clojure ocsenave@347: (def move-effects ocsenave@347: ["normal damage" ocsenave@347: "no damage, just opponent sleep" ;; how many turns? is atk power ignored? ocsenave@347: "0x4C chance of poison" ocsenave@347: "leech half of inflicted damage" ocsenave@347: "0x19 chance of burn" ocsenave@347: "0x19 chance of freeze" ocsenave@347: "0x19 chance of paralyze" ocsenave@347: "user faints; opponent defense halved during attack." ocsenave@347: "leech half of inflicted damage ONLY if sleeping opponent." ocsenave@347: "imitate last attack" ocsenave@347: "user atk +1" ocsenave@347: "user def +1" ocsenave@347: "user spd +1" ocsenave@347: "user spc +1" ocsenave@347: "user acr +1" ;; unused?! ocsenave@347: "user evd +1" ocsenave@347: "get post-battle $ = 2*level*uses" ocsenave@347: "0xFE acr, no matter what." ocsenave@347: "opponent atk -1" ;; acr taken from move acr? ocsenave@347: "opponent def -1" ;; ocsenave@347: "opponent spd -1" ;; ocsenave@347: "opponent spc -1" ;; ocsenave@347: "opponent acr -1";; ocsenave@347: "opponent evd -1" ocsenave@347: "converts user's type to opponent's." ocsenave@347: "(haze)" ocsenave@347: "(bide)" ocsenave@347: "(thrash)" ocsenave@347: "(teleport)" ocsenave@347: "(fury swipes)" ocsenave@347: "attacks 2-5 turns" ;; unused? like rollout? ocsenave@347: "0x19 chance of flinch" ocsenave@347: "opponent sleep for 1-7 turns" ocsenave@347: "0x66 chance of poison" ocsenave@347: "0x4D chance of burn" ocsenave@347: "0x4D chance of freeze" ocsenave@347: "0x4D chance of paralyze" ocsenave@347: "0x4D chance of flinch" ocsenave@347: "one-hit KO" ocsenave@347: "charge one turn, atk next." ocsenave@347: "fixed damage, leaves 1HP." ;; how is dmg determined? ocsenave@347: "fixed damage." ;; cf seismic toss, dragon rage, psywave. ocsenave@347: "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20) ocsenave@347: "charge one turn, atk next. (can't be hit when charging)" ocsenave@347: "atk hits twice." ocsenave@347: "user takes 1 damage if misses." ocsenave@347: "evade status-lowering effects" ;;caused by you or also your opponent? ocsenave@347: "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect" ocsenave@347: "atk causes recoil dmg = 1/4 dmg dealt" ocsenave@347: "confuses opponent" ;; acr taken from move acr ocsenave@347: "user atk +2" ocsenave@347: "user def +2" ocsenave@347: "user spd +2" ocsenave@347: "user spc +2" ocsenave@347: "user acr +2" ;; unused! ocsenave@347: "user evd +2" ;; unused! ocsenave@347: "restores up to half of user's max hp." ;; broken: fails if the difference ocsenave@347: ;; b/w max and current hp is one less than a multiple of 256. ocsenave@347: "(transform)" ocsenave@347: "opponent atk -2" ocsenave@347: "opponent def -2" ocsenave@347: "opponent spd -2" ocsenave@347: "opponent spc -2" ocsenave@347: "opponent acr -2" ocsenave@347: "opponent evd -2" ocsenave@347: "doubles user spc when attacked" ocsenave@347: "doubles user def when attacked" ocsenave@347: "just poisons opponent" ;;acr taken from move acr ocsenave@347: "just paralyzes opponent" ;; ocsenave@347: "0x19 chance opponent atk -1" ocsenave@347: "0x19 chance opponent def -1" ocsenave@347: "0x19 chance opponent spd -1" ocsenave@347: "0x4C chance opponent spc -1" ;; context suggest chance is 0x19 ocsenave@347: "0x19 chance opponent acr -1" ocsenave@347: "0x19 chance opponent evd -1" ocsenave@347: "???" ;; unused? no effect? ocsenave@347: "???" ;; unused? no effect? ocsenave@347: "0x19 chance opponent confused" ocsenave@347: "atk hits twice. 0x33 chance opponent poisioned." ocsenave@347: "broken. crash the game after attack." ocsenave@347: "(substitute)" ocsenave@347: "unless opponent faints, user must recharge after atk. some ocsenave@347: exceptions apply." ocsenave@347: "(rage)" ocsenave@347: "(mimic)" ocsenave@347: "(metronome)" ocsenave@347: "(leech seed)" ocsenave@347: "does nothing (splash)" ocsenave@347: "(disable)" ocsenave@347: ]) ocsenave@347: #+end_src ocsenave@347: ocsenave@347: ocsenave@312: ** Alphabet code ocsenave@347: ocsenave@348: * Source ocsenave@348: ocsenave@347: #+begin_src clojure :tangle ../clojure/com/aurellem/gb/hxc.clj ocsenave@347: ocsenave@347: (ns com.aurellem.gb.hxc ocsenave@347: (:use (com.aurellem.gb assembly characters gb-driver util mem-util ocsenave@347: constants species)) ocsenave@347: (:import [com.aurellem.gb.gb_driver SaveState])) ocsenave@347: ocsenave@347: ; ************* HANDWRITTEN CONSTANTS ocsenave@347: ocsenave@347: <> ocsenave@347: ocsenave@347: ocsenave@347: ;; question: when status effects claim to take ocsenave@347: ;; their accuracy from the move accuracy, does ocsenave@347: ;; this mean that the move always "hits" but the ocsenave@347: ;; status effect may not? ocsenave@347: ocsenave@347: <> ocsenave@347: ocsenave@347: ;; ************** HARDCODED DATA ocsenave@347: ocsenave@347: <> ocsenave@347: ;; -------------------------------------------------- ocsenave@347: ocsenave@347: <> ocsenave@348: <> ocsenave@347: ocsenave@347: ;; http://hax.iimarck.us/topic/581/ ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: (def hxc-titles ocsenave@347: "The hardcoded names of the trainer titles in memory. List begins at ocsenave@347: ROM@27E77" ocsenave@347: (hxc-thunk-words 0x27E77 196)) ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@347: ;; In red/blue, pokedex stats are in internal order. ocsenave@347: ;; In yellow, pokedex stats are in pokedex order. ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@347: (defn hxc-dialog ocsenave@347: "The hardcoded dialogue in memory, including in-game alerts. Dialog ocsenave@347: seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000." ocsenave@347: ([rom] ocsenave@347: (map character-codes->str ocsenave@347: (take-nth 2 ocsenave@347: (partition-by #(= % 0x57) ocsenave@347: (take 0x0F728 ocsenave@347: (drop 0x98000 rom)))))) ocsenave@347: ([] ocsenave@347: (hxc-dialog com.aurellem.gb.gb-driver/original-rom))) ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@348: <> ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: (defn internal-id ocsenave@347: ([rom] ocsenave@347: (zipmap ocsenave@347: (hxc-pokenames rom) ocsenave@347: (range))) ocsenave@347: ([] ocsenave@347: (internal-id com.aurellem.gb.gb-driver/original-rom))) ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ;; nidoran gender change upon levelup ocsenave@347: ;; (-> ocsenave@347: ;; @current-state ocsenave@347: ;; rom ocsenave@347: ;; vec ocsenave@347: ;; (rewrite-memory ocsenave@347: ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂)) ocsenave@347: ;; [1 1 15]) ocsenave@347: ;; (rewrite-memory ocsenave@347: ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀)) ocsenave@347: ;; [1 1 3]) ocsenave@347: ;; (write-rom!) ocsenave@347: ocsenave@347: ;; ) ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@349: <> ocsenave@348: <> ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@347: (defn hxc-intro-pkmn ocsenave@347: "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's ocsenave@347: internal id is stored at ROM@5EDB." ocsenave@347: ([] (hxc-intro-pkmn ocsenave@347: com.aurellem.gb.gb-driver/original-rom)) ocsenave@347: ([rom] ocsenave@347: (nth (hxc-pokenames rom) (nth rom 0x5EDB)))) ocsenave@347: ocsenave@347: (defn sxc-intro-pkmn! ocsenave@347: "Set the hardcoded pokemon to display in Prof. Oak's introduction." ocsenave@347: [pokemon] ocsenave@347: (write-rom! ocsenave@347: (rewrite-rom 0x5EDB ocsenave@347: [ ocsenave@347: (inc ocsenave@347: ((zipmap ocsenave@347: (hxc-pokenames) ocsenave@347: (range)) ocsenave@347: pokemon))]))) ocsenave@347: ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@348: <> ocsenave@347: ocsenave@347: ocsenave@347: ;; ********************** MANIPULATION FNS ocsenave@347: ocsenave@347: ocsenave@347: (defn same-type ocsenave@347: ([pkmn move] ocsenave@347: (same-type ocsenave@347: com.aurellem.gb.gb-driver/original-rom pkmn move)) ocsenave@347: ([rom pkmn move] ocsenave@347: (((comp :types (hxc-pokemon-base rom)) pkmn) ocsenave@347: ((comp :type (hxc-move-data rom)) move)))) ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: (defn submap? ocsenave@347: "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false." ocsenave@347: [map-small map-big] ocsenave@347: (cond (empty? map-small) true ocsenave@347: (and ocsenave@347: (contains? map-big (ffirst map-small)) ocsenave@347: (= (get map-big (ffirst map-small)) ocsenave@347: (second (first map-small)))) ocsenave@347: (recur (next map-small) map-big) ocsenave@347: ocsenave@347: :else false)) ocsenave@347: ocsenave@347: ocsenave@347: (defn search-map [proto-map maps] ocsenave@347: "Returns all the maps that make the same associations as proto-map." ocsenave@347: (some (partial submap? proto-map) maps)) ocsenave@347: ocsenave@347: (defn filter-vals ocsenave@347: "Returns a map consisting of all the pairs [key val] for ocsenave@347: which (pred key) returns true." ocsenave@347: [pred map] ocsenave@347: (reduce (partial apply assoc) {} ocsenave@347: (filter (fn [[k v]] (pred v)) map))) ocsenave@347: ocsenave@347: ocsenave@347: (defn search-moves ocsenave@347: "Returns a subcollection of all hardcoded moves with the ocsenave@347: given attributes. Attributes consist of :name :power ocsenave@347: :accuracy :pp :fx-id ocsenave@347: (and also :fx-txt, but it contains the same information ocsenave@347: as :fx-id)" ocsenave@347: ([attribute-map] ocsenave@347: (search-moves ocsenave@347: com.aurellem.gb.gb-driver/original-rom attribute-map)) ocsenave@347: ([rom attribute-map] ocsenave@347: (filter-vals (partial submap? attribute-map) ocsenave@347: (hxc-move-data rom)))) ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ocsenave@347: ;; note: 0x2f31 contains the names "TM" "HM"? ocsenave@347: ocsenave@347: ;; note for later: credits start at F1290 ocsenave@347: ocsenave@347: ;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ?? ocsenave@347: ocsenave@347: ;; note: DD4D spells out pokemon vital stat names ("speed", etc.) ocsenave@347: ocsenave@347: ;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE. ocsenave@347: ;; The first instance is for Machines; the second, for stones. ocsenave@347: ocsenave@410: ;; note: according to ocsenave@410: ;; http://www.upokecenter.com/games/rby/guides/rgbtrainers.php ocsenave@410: ;; the amount of money given by a trainer is equal to the ocsenave@410: ;; base money times the level of the last Pokemon on that trainer's ocsenave@410: ;; list. Other sources say it's the the level of the last pokemon ocsenave@410: ;; /defeated/. ocsenave@410: ocsenave@410: ;; todo: find base money. ocsenave@410: ocsenave@410: ocsenave@411: ;; note: 0xDFEA (in indexable mem) is the dex# of the currently-viewed Pokemon in ocsenave@411: ;; in the pokedex. It's used for other purposes if there is none. ocsenave@411: ocsenave@412: ;; note: 0x9D35 (index.) switches from 0xFF to 0x00 temporarily when ocsenave@412: ;; you walk between areas. ocsenave@412: ocsenave@412: ;; note: 0xD059 (index.) is the special battle type of your next battle: ocsenave@412: ;; - 00 is a usual battle ocsenave@412: ;; - 01 is a pre-scripted OLD MAN battle which always fails to catch the ocsenave@412: ;; target Pokemon. ocsenave@412: ;; - 02 is a safari zone battle ocsenave@412: ;; - 03 obligates you to run away. (unused) ocsenave@412: ;; - 04 is a pre-scripted OAK battle, which (temporarily) causes the ocsenave@412: ;; enemy Pokemon to cry PIKAAA, and which always catches the target ocsenave@412: ;; Pokemon. The target Pokemon is erased after the battle. ocsenave@412: ;; - 05+ are glitch states in which you are sort of the Pokemon. ocsenave@412: ocsenave@412: ocsenave@412: ;; note: 0x251A (in indexable mem): image decompression routine seems to begin here. ocsenave@347: ocsenave@420: ;; note: 0x4845 (index): vending inventory is loaded here. possibly ocsenave@420: ;; other things, too. ocsenave@420: (comment ocsenave@420: ;; temporarily intercept/adjust what pops out of the vending ocsenave@420: ;; machine. ocsenave@420: ;; (and how much it costs) ocsenave@420: ocsenave@420: ;; located at 0x4845 ocsenave@420: ;; not to be confused with shop inventory, 0xCF7B ocsenave@420: (do ocsenave@420: (step (read-state "vend-menu")) ocsenave@420: (write-memory! (rewrite-memory (vec(memory)) 0x4845 [2 0 1 0])) ocsenave@420: (step @current-state [:a]) ocsenave@420: (step @current-state []) ocsenave@420: (nstep @current-state 200) )) ocsenave@420: ocsenave@347: ocsenave@373: ;; Note: There are two tile tables, one from 8000-8FFF, the other from ocsenave@373: ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end. ocsenave@373: (defn print-pixel-letters! ocsenave@373: "The pixel tiles representing letters. Neat!" ocsenave@373: ([] (print-pixel-letters! (read-state "oak-speaks"))) ocsenave@373: ([state] ocsenave@373: (map ocsenave@373: (comp ocsenave@373: println ocsenave@373: (partial map #(if (zero? %) \space 0)) ocsenave@373: #(if (< (count %) 8) ocsenave@373: (recur (cons 0 %)) ocsenave@373: %) ocsenave@373: reverse bit-list) ocsenave@373: ocsenave@373: (take 0xFFF (drop 0x8800 (memory state)))))) ocsenave@373: ocsenave@373: ocsenave@419: ;; (defn test-2 [] ocsenave@419: ;; (loop [n 0 ocsenave@419: ;; pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000) ocsenave@419: ;; pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a]) ocsenave@419: ;; (step []) (nstep 100)) 100000)] ocsenave@419: ;; (cond (empty? (drop n pc-1)) [pc-1 n] ocsenave@419: ;; (not= (take 10 (drop n pc-1)) (take 10 pc-2)) ocsenave@419: ;; (recur pc-1 pc-2 (inc n)) ocsenave@419: ;; :else ocsenave@419: ;; [(take 1000 pc-2) n]))) ocsenave@406: ocsenave@406: ocsenave@406: ocsenave@406: ocsenave@410: (defn test-3 ocsenave@410: "Explore trainer data" ocsenave@419: ([] (test-3 0x3A289)) ocsenave@419: ([start] ocsenave@410: (let [pokenames (vec(hxc-pokenames-raw))] ocsenave@410: (println ocsenave@410: (reduce ocsenave@410: str ocsenave@410: (map ocsenave@419: (fn [[adr lvl pkmn]] ocsenave@419: (str (format "%-11s %4d %02X %02X \t %05X\n" ocsenave@419: ocsenave@410: (cond ocsenave@410: (zero? lvl) "+" ocsenave@410: (nil? (get pokenames (dec pkmn))) ocsenave@410: "-" ocsenave@410: :else ocsenave@410: (get pokenames (dec pkmn))) ocsenave@410: lvl ocsenave@410: pkmn ocsenave@410: lvl ocsenave@419: adr ocsenave@419: ))) ocsenave@419: (map cons ocsenave@419: (take-nth 2 (drop start (range))) ocsenave@419: (partition 2 ocsenave@419: (take 400;;703 ocsenave@419: (drop ocsenave@419: start ocsenave@419: ;; 0x3A75D ocsenave@419: (rom))))))))))) ocsenave@410: ocsenave@412: (defn search-memory* [mem codes k] ocsenave@412: (loop [index 0 ocsenave@412: index-next 1 ocsenave@412: start-match 0 ocsenave@412: to-match codes ocsenave@412: matches []] ocsenave@412: (cond ocsenave@412: (>= index (count mem)) matches ocsenave@412: ocsenave@412: (empty? to-match) ocsenave@412: (recur ocsenave@412: index-next ocsenave@412: (inc index-next) ocsenave@412: index-next ocsenave@412: codes ocsenave@412: (conj matches ocsenave@412: [(hex start-match) (take k (drop start-match mem))]) ocsenave@412: ) ocsenave@412: ocsenave@412: (or (= (first to-match) \_) ;; wildcard ocsenave@412: (= (first to-match) (nth mem index))) ocsenave@412: (recur ocsenave@412: (inc index) ocsenave@412: index-next ocsenave@412: start-match ocsenave@412: (rest to-match) ocsenave@412: matches) ocsenave@412: ocsenave@412: :else ocsenave@412: (recur ocsenave@412: index-next ocsenave@412: (inc index-next) ocsenave@412: index-next ocsenave@412: codes ocsenave@412: matches)))) ocsenave@420: ocsenave@420: ocsenave@420: (def script-use-ball ocsenave@420: [0xFA ;; ld A, nn ocsenave@420: \_ ocsenave@420: \_ ocsenave@420: 0xA7 ;; and A ocsenave@420: 0xCA ;; JP Z ocsenave@420: \_ ocsenave@420: \_ ocsenave@420: 0x3D ;; dec A ocsenave@420: 0xC2 ;; JP NZ ocsenave@420: \_ ocsenave@420: \_ ocsenave@420: 0xFA ;; LD A ocsenave@420: \_ ocsenave@420: \_ ocsenave@420: ]) ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: (defn search-pattern [ptn coll] ocsenave@420: (loop ocsenave@420: [index 0 ocsenave@420: to-match ptn ocsenave@420: binds {} ocsenave@420: ocsenave@420: next-index 1 ocsenave@420: match-start 0 ocsenave@420: matches []] ocsenave@420: ocsenave@420: (cond ocsenave@420: (>= index (count coll)) matches ocsenave@420: (empty? to-match) ocsenave@420: (recur ocsenave@420: next-index ocsenave@420: ptn ocsenave@420: {} ocsenave@420: (inc next-index) ocsenave@420: next-index ocsenave@420: (conj match-start ocsenave@420: [(hex match-start) binds])) ocsenave@420: ocsenave@420: :else ocsenave@420: (let [k (first to-match) ocsenave@420: v (nth coll index)] ocsenave@420: (cond ocsenave@420: (= k \_) ;; wildcard ocsenave@420: (recur ocsenave@420: (inc index) ocsenave@420: (rest to-match) ocsenave@420: binds ocsenave@420: ocsenave@420: next-index ocsenave@420: match-start ocsenave@420: matches) ocsenave@420: ocsenave@420: (keyword? k) ocsenave@420: (if (binds k) ocsenave@420: (if (= (binds k) v) ocsenave@420: (recur ocsenave@420: (inc index) ocsenave@420: (rest to-match) ocsenave@420: binds ocsenave@420: next-index ocsenave@420: match-start ocsenave@420: matches) ocsenave@420: ocsenave@420: (recur ocsenave@420: next-index ocsenave@420: ptn ocsenave@420: {} ocsenave@420: (inc next-index) ocsenave@420: next-index ocsenave@420: matches)) ocsenave@420: ocsenave@420: ;; ;; consistent bindings ocsenave@420: ;; (recur ocsenave@420: ;; (inc index) ocsenave@420: ;; (rest to-match) ocsenave@420: ;; binds ocsenave@420: ocsenave@420: ;; next-index ocsenave@420: ;; match-start ocsenave@420: ;; matches) ocsenave@420: ocsenave@420: ;; ;; inconsistent bindings ocsenave@420: ;; (recur ocsenave@420: ;; next-index ocsenave@420: ;; ptn ocsenave@420: ;; {} ocsenave@420: ;; (inc next-index) ocsenave@420: ;; next-index ocsenave@420: ;; matches)) ocsenave@420: ocsenave@420: (if ((set (vals binds)) v) ocsenave@420: ;; bindings are not unique ocsenave@420: (recur ocsenave@420: next-index ocsenave@420: ptn ocsenave@420: {} ocsenave@420: (inc next-index) ocsenave@420: next-index ocsenave@420: matches) ocsenave@420: ocsenave@420: ;; bindings are unique ocsenave@420: (recur ocsenave@420: (inc index) ocsenave@420: (rest to-match) ocsenave@420: (assoc binds k v) ocsenave@420: ocsenave@420: next-index ocsenave@420: match-start ocsenave@420: matches))) ocsenave@420: ocsenave@420: :else ;; k is just a number ocsenave@420: (if (= k v) ocsenave@420: (recur ocsenave@420: (inc index) ocsenave@420: (rest to-match) ocsenave@420: binds ocsenave@420: ocsenave@420: next-index ocsenave@420: match-start ocsenave@420: matches) ocsenave@420: ocsenave@420: (recur ocsenave@420: next-index ocsenave@420: ptn ocsenave@420: {} ocsenave@420: (inc next-index) ocsenave@420: next-index ocsenave@420: matches))))))) ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: ocsenave@420: (defn search-pattern* [ptn coll] ocsenave@420: (loop ocsenave@420: [ ocsenave@420: binds {} ocsenave@420: index 0 ocsenave@420: index-next 1 ocsenave@420: start-match 0 ocsenave@420: to-match ptn ocsenave@420: matches []] ocsenave@420: ocsenave@420: (cond ocsenave@420: (>= index (count coll)) matches ocsenave@420: (empty? to-match) ocsenave@420: (recur ocsenave@420: {} ocsenave@420: index-next ocsenave@420: (inc index-next) ocsenave@420: index-next ocsenave@420: ptn ocsenave@420: (conj matches ocsenave@420: [(hex start-match) binds])) ocsenave@420: ocsenave@420: :else ocsenave@420: (let [k (first to-match) ocsenave@420: v (nth coll index)] ocsenave@420: (cond ocsenave@420: (= k \_) ;; wildcard ocsenave@420: (recur ocsenave@420: binds ocsenave@420: (inc index) ocsenave@420: index-next ocsenave@420: start-match ocsenave@420: (rest to-match) ocsenave@420: matches) ocsenave@420: ocsenave@420: (keyword? k) ocsenave@420: (if (binds k) ocsenave@420: (if (= (binds k) v) ocsenave@420: (recur ocsenave@420: binds ocsenave@420: (inc index) ocsenave@420: index-next ocsenave@420: start-match ocsenave@420: (rest to-match) ocsenave@420: matches) ocsenave@420: (recur ocsenave@420: {} ocsenave@420: index-next ocsenave@420: (inc index-next) ocsenave@420: index-next ocsenave@420: ptn ocsenave@420: matches)) ocsenave@420: (if ocsenave@420: ;; every symbol must be bound to a different thing. ocsenave@420: ((set (vals binds)) v) ocsenave@420: (recur ocsenave@420: {} ocsenave@420: index-next ocsenave@420: (inc index-next) ocsenave@420: index-next ocsenave@420: ptn ocsenave@420: matches) ocsenave@420: (recur ocsenave@420: (assoc binds k v) ocsenave@420: (inc index) ocsenave@420: index-next ocsenave@420: start-match ocsenave@420: (rest to-match) ocsenave@421: matches))) ocsenave@421: ocsenave@421: :else ocsenave@421: (if (= k v) ocsenave@421: (recur ocsenave@421: binds ocsenave@421: (inc index) ocsenave@421: index-next ocsenave@421: start-match ocsenave@421: (rest to-match) ocsenave@421: matches) ocsenave@421: (recur ocsenave@421: {} ocsenave@421: index-next ocsenave@421: (inc index-next) ocsenave@421: index-next ocsenave@421: ptn ocsenave@421: matches)) ocsenave@421: ocsenave@421: ocsenave@421: ocsenave@421: ))))) ocsenave@420: ocsenave@412: ocsenave@406: ocsenave@406: ocsenave@410: ;; look for the rainbow badge in memory ocsenave@410: (println (reduce str (map #(str (first %) "\t" (vec(second %)) "\n") (search-memory (rom) [221] 10)))) ocsenave@410: ocsenave@406: ocsenave@347: (comment ocsenave@347: ocsenave@347: (def hxc-later ocsenave@347: "Running this code produces, e.g. hardcoded names NPCs give ocsenave@347: their pokemon. Will sort through it later." ocsenave@347: (print (character-codes->str(take 10000 ocsenave@347: (drop 0x71597 ocsenave@347: (rom (root))))))) ocsenave@347: ocsenave@347: (let [dex ocsenave@347: (partition-by #(= 0x50 %) ocsenave@347: (take 2540 ocsenave@347: (drop 0x40687 ocsenave@347: (rom (root)))))] ocsenave@347: (def dex dex) ocsenave@347: (def hxc-species ocsenave@347: (map character-codes->str ocsenave@347: (take-nth 4 dex)))) ocsenave@347: ) ocsenave@347: ocsenave@347: ocsenave@347: #+end_src ocsenave@347: ocsenave@348: #+results: ocsenave@348: : nil ocsenave@348: