vba-clojure: org/rom.org comparison

comparison org/rom.org @ 474:9a20581477c2

merge dylan's changes.

author	Robert McIntyre <rlm@mit.edu>
date	Fri, 04 May 2012 06:18:48 -0500
parents	9a7fae5afd8f
children

comparison

equal deleted inserted replaced

-:396065930208
+:9a20581477c2
 #+description: A detailed explication of Pok\eacute{}mon Yellow, helped by Clojure.
 #+keywords: pokemon, pokemon yellow, rom, gameboy, assembly, hex, pointers, clojure
 #+SETUPFILE: ../../aurellem/org/setup.org
 #+INCLUDE: ../../aurellem/org/level-0.org
 #+BABEL: :exports both :noweb yes :cache no :mkdirp yes
+#+OPTIONS: num:2
 # about map headers http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes
 # map headers Yellow http://www.pokecommunity.com/archive/index.php/t-235311.html
 # pokedollar: U+20B1
 * Introduction
+This article contains the results of my investigations with
+Pok\eacute{}mon Yellow as I searched for interesting
+data in the ROM. By using the Clojure language interface
+written by Robert[fn::This Clojure interface will be published to aurellem.org soon.], I
+was able to interact with the game in real-time, sending commands and
+gathering data. The result is a manifestly accurate map of
+Pok\eacute{}mon Yellow; every result
+comes with runnable code that /works/. You can see the code and the output of
+every function and confirm for yourself that they are all correct. I
+hope you like the result!
+To orient yourself, you can look for a specific topic in the table of contents
+above, or browse the [[#sec-9-1][map of the ROM]], below.
+If you have any questions or comments, please e-mail =rlm@mit.edu=.
 ** COMMENT Getting linguistic data: names, words, etc.
 Some of the simplest data
 rating-def
 rating-speed
 rating-special
 type-1
 type-2
-rarity
+rarity ;; catch rate
-rating-xp
+rating-xp ;; base exp yield
 pic-dimensions ;; tile_width|tile_height (8px/tile)
 ptr-pic-obverse-1
 ptr-pic-obverse-2
 ptr-pic-reverse-1
 ptr-pic-reverse-2
-move-1
+move-1 ;; attacks known at level 0 [i.e. by default]
-move-2
+move-2 ;; (0 for none)
 move-3
 move-4
 growth-rate
 &
 TMs|HMs]]
 (hxc-pokedex-text-raw rom)))))
 #+end_src
 ** Pok\eacute{}mon cries
+*** See the data
+Here, you can see that each Pok\eacute{}mon's cry data consists of
+three bytes: the =cry-id=, which is the basic sound byte to use, the
+=pitch=, which determines how high or low to make the sound byte, and
+the =length=, which is the amount of the sound byte to play.
+Even though there are only a few different basic sound bytes (cry
+ids) to build from, by varying the pitch and length,
+you can create a wide variety of different Pok\eacute{}mon cries.
+#+begin_src clojure  :exports both :cache no :results output
+(ns com.aurellem.gb.hxc
+(:use (com.aurellem.gb assembly characters gb-driver util mem-util
+constants))
+(:import [com.aurellem.gb.gb_driver SaveState]))
+(->>
+(rom)
+(drop 0x39462)
+(take 12)
+(println))
+(->>
+(rom)
+(drop 0x39462)
+(take 12)
+(partition 3)
+(map vec)
+(println))
+(->>
+(rom)
+(drop 0x39462)
+(take 12)
+(partition 3)
+(map
+(fn [[id pitch length]]
+{:cry-id id :pitch pitch :length length}))
+(println))
+#+end_src
+#+results:
+: (17 0 128 3 0 128 0 0 128 25 204 1)
+: ([17 0 128] [3 0 128] [0 0 128] [25 204 1])
+: ({: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})
+It is interesting to note which Pok\eacute{}mon use the same basic
+=cry-id= --- I call these /cry groups/. Here, you can see which
+Pok\eacute{}mon belong to the same cry group.
+#+begin_src clojure  :exports both :cache no :results output
+(ns com.aurellem.gb.hxc
+(:use (com.aurellem.gb assembly characters gb-driver util mem-util
+constants))
+(:import [com.aurellem.gb.gb_driver SaveState]))
+(println "POKEMON CRY GROUPS")
+(doall
+(map println
+(let [cry-id
+(->>
+(rom)
+(drop 0x39462)  ;; get the cry data
+(partition 3)   ;; partition it into groups of three
+(map first)     ;; keep only the first item, the cry-id
+(zipmap (hxc-pokenames)) ;; associate each pokemon with its cry-id
+)]
+(->> (hxc-pokenames)                 ;; start with the list of pokemon
+(remove (partial = :missingno.)) ;; remove missingnos
+(sort-by cry-id)
+(partition-by cry-id)
+(map vec)))))
+#+end_src
+#+results:
+#+begin_example
+POKEMON CRY GROUPS
+[:nidoran♂ :sandshrew :sandslash :nidorino]
+[:nidoran♀ :nidorina]
+[:slowpoke]
+[:kangaskhan]
+[:rhyhorn :magmar :charmander :charmeleon :charizard]
+[:grimer :snorlax]
+[:voltorb :electabuzz :electrode]
+[:gengar :muk]
+[:marowak :oddish :gloom]
+[:nidoking :moltres :articuno :raichu]
+[:nidoqueen :mankey :primeape]
+[:exeggcute :diglett :doduo :dodrio :dugtrio]
+[:lickitung :hitmonchan :seel :dewgong]
+[:exeggutor :drowzee :jynx :hypno]
+[:pidgey :poliwag :ditto :jigglypuff :wigglytuff :poliwhirl :poliwrath]
+[:ivysaur :dragonite :pikachu :dratini :dragonair :bulbasaur :venusaur]
+[:spearow :farfetch'd]
+[:rhydon]
+[:tangela :hitmonlee :golem :koffing :weezing]
+[:blastoise :kakuna :beedrill]
+[:pinsir :chansey :pidgeotto :pidgeot]
+[:arcanine :weedle]
+[:scyther :kabuto :caterpie :butterfree :goldeen :seaking]
+[:gyarados :onix :arbok :ekans :magikarp]
+[:shellder :fearow :zapdos :kabutops :cloyster]
+[:clefairy :cubone :meowth :horsea :seadra :clefable :persian]
+[:tentacool :venonat :eevee :flareon :jolteon :vaporeon :venomoth :tentacruel]
+[:lapras]
+[:gastly :kadabra :magneton :metapod :haunter :abra :alakazam :magnemite]
+[:tauros :zubat :golbat :squirtle :wartortle]
+[:mew :staryu :parasect :paras :mewtwo :starmie]
+[:slowbro :growlithe :machoke :omanyte :omastar :machop :machamp]
+[:mr.mime :krabby :kingler]
+[:psyduck :golduck :bellsprout]
+[:rattata :raticate]
+[:aerodactyl :vileplume]
+[:graveler :vulpix :ninetales :geodude]
+[:ponyta :rapidash :porygon :weepinbell :victreebel]
+#+end_example
+*** Automatically grab the data
 #+name: pokecry
 #+begin_src clojure
 (defn hxc-cry
 "The pokemon cry data in internal order. List begins at ROM@39462"
 ([](hxc-cry com.aurellem.gb.gb-driver/original-rom))
 ;;; TYPE EFFECTIVENESS
-(println (take 15 (drop 0x3E62D (rom))))
+(println (take 15 (drop 0x3E5FA (rom))))
-(println (partition 3 (take 15 (drop 0x3E62D (rom)))))
+(println (partition 3 (take 15 (drop 0x3E5FA (rom)))))
 (println
 (map
 (fn [[atk-type def-type multiplier]]
 (list atk-type def-type (/ multiplier 10.)))
 (partition 3
-(take 15 (drop 0x3E62D (rom))))))
+(take 15 (drop 0x3E5FA (rom))))))
 (println
 (map
 (fn [[atk-type def-type multiplier]]
 (get pkmn-types def-type)
 (/ multiplier 10.)
 ])
 (partition 3
-(take 15 (drop 0x3E62D (rom))))))
+(take 15 (drop 0x3E5FA (rom))))))
 #+end_src
 #+results:
 : [: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]
 : ([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])
 :
-: (0 5 5 0 8 0 8 8 20 20 7 20 20 5 5)
+: (21 20 20 20 22 20 20 25 20 22 21 20 23 21 20)
-: ((0 5 5) (0 8 0) (8 8 20) (20 7 20) (20 5 5))
+: ((21 20 20) (20 22 20) (20 25 20) (22 21 20) (23 21 20))
-: ((0 5 0.5) (0 8 0.0) (8 8 2.0) (20 7 2.0) (20 5 0.5))
+: ((21 20 2.0) (20 22 2.0) (20 25 2.0) (22 21 2.0) (23 21 2.0))
-: ([:normal :rock 0.5] [:normal :ghost 0.0] [:ghost :ghost 2.0] [:fire :bug 2.0] [:fire :rock 0.5])
+: ([:water :fire 2.0] [:fire :grass 2.0] [:fire :ice 2.0] [:grass :water 2.0] [:electric :water 2.0])
 ***
 #+name: type-advantage
 (fn [[atk def mult]] [(get pkmn-types atk (hex atk))
 (get pkmn-types def (hex def))
 (/ mult 10)])
 (partition 3
 (take-while (partial not= 0xFF)
-(drop 0x3E62D rom))))))
+(drop 0x3E5FA rom))))))
 #+end_src
 * Moves
 ** Names of moves
 ** Wild Pok\eacute{}mon demographics
 #+name: wilds
 #+begin_src clojure
+;; 0x0489, relative to 0xCB95, points to 0xCD89.
 (defn hxc-ptrs-wild
 "A list of the hardcoded wild encounter data in memory. Pointers
-begin at ROM@0CB95; data begins at ROM@0x04D89"
+begin at ROM@0CB95; data begins at ROM@0x0CD89"
 ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 (let [ptrs
 (map (fn [[a b]] (+ a (* 0x100 b)))
 (take-while (partial not= (list 0xFF 0xFF))
 (defn hxc-wilds
 "A list of the hardcoded wild encounter data in memory. Pointers
-begin at ROM@0CB95; data begins at ROM@0x04D89"
+begin at ROM@0CB95; data begins at ROM@0x0CD89"
 ([] (hxc-wilds com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 (let [pokenames (zipmap (range) (hxc-pokenames rom))]
 (map
-(partial map (fn [[a b]] {:species (pokenames (dec b)) :level
+(partial map
-a}))
+(fn [[a b]]
-(partition 10
+{:species (pokenames (dec b))
+:level a}))
-(take-while (comp (partial not= 1)
+(partition 10
-first)
+(take-while
-(partition 2
+(comp (partial not= 1) first)
-(drop 0xCD8C rom))
+(partition 2
+(drop 0xCD8C rom))
 ))))))
 #+end_src
 | 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. |                 |
 | 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. |                 |
 | 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. |
 | 04524-04527           | (unconfirmed) possibly the bike price in Cerulean. |                 |                 |
 | 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#... |
-| 04D89-                | Lists of wild Pok\eacute{}mon to encounter in each region. | Each list contains ten Pokemon (ids) and their levels; twenty bytes in total. First, the level of the first Pokemon. Then the internal id of the first Pokemon. Next, the level of the second Pokemon, and so on. Since Pokemon cannot have level 0, the lists are separated by a pair 0 /X/, where /X/ is an apparently random Pokemon id. | The first list is (3 36 4 36 2 165 3 165 2 36 3 36 5 36 4 165 6 36 7 36 0 25), i.e. level 3 pidgey, level 4 pidgey, level 2 rattata, level 3 rattata, level 2 pidgey, level 3 pidgey, level 5 pidgey, level 4 rattata, level 6 pidgey, level 7 pidgey, \ldquo{}level 0 gastly\rdquo{} (i.e., end-of-list). |
 |-----------------------+-----------------+-----------------+-----------------|
 | 05DD2-05DF2           | Menu text for player info. |                 | PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] |
 | 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. |
 | 06698-                | ? Background music. |                 |                 |
 |-----------------------+-----------------+-----------------+-----------------|
 | 7570-757D             | Menu options for trading Pok\eacute{}mon |                 | TRADE [newline] CANCEL [0x50] |
 | 757D-758A             | Menu options for healing Pok\eacute{}mon |                 | HEAL [newline] CANCEL [0x50] |
 | 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] |
 | 7AF0-8000             | (empty space)   |                 | 0 0 0 0 0 ...   |
 | 0822E-082F?           | Pointers to background music, part I. |                 |                 |
-| 0CB95-                | Pointers to lists of wild pokemon to encounter in each region. These lists begin at 04D89, see above. | Each pointer is a low-byte, high-byte pair. | The first entry is 0x89 0x4D, corresponding to the address 0x4D89, the location of the first list of wild Pok\eacute{}mon (see 04D89, above). |
+| 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.) |
+| 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). |
 |-----------------------+-----------------+-----------------+-----------------|
 | 0DACB.                | Amount of HP restored by Soda Pop | The HP consists of a single numerical byte. | 60              |
 | 0DACF.                | Amount of HP restored by Lemonade | "               | 80              |
 | 0DAD5.                | Amount of HP restored by Fresh Water | "               | 50              |
 | 0DADB.                | Amount of HP restored by Hyper Potion. | "               | 200             |
 | 39B05-39DD0.          | unknown         |                 |                 |
 | 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. |
 | 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.].) |
 | 3B1E5-3B361           | Pointers to evolution/learnset data. | One high-low byte pair for each of the 190 Pok\eacute{}mon in internal order. |                 |
 |-----------------------+-----------------+-----------------+-----------------|
-| 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. |                 |
+| 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. |                 |
 | 3BBAA-3C000           | (empty)         |                 | 0 0 0 0 ...     |
 |-----------------------+-----------------+-----------------+-----------------|
 | 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.]. |
 | 3D6C7-3D6D6           | Two miscellaneous strings. | Variable length, separated by 0x50 | Disabled!#TYPE  |
 | 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. |
 | 3E200-3E204           | " (???)         | "               | "               |
 | 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. |
+| 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] |
 |-----------------------+-----------------+-----------------+-----------------|
 | 40252-4027B           | Pok\eacute{}dex menu text | Variable-length strings separated by 0x50. | SEEN#OWN#CONTENTS#... |
 | 40370-40386           | Important constants for Pok\eacute{}dex entries |                 | HT _ _ *?′??″* [newline] WT _ _ _ *???* lb [0x50] *POK\Eacute{}* [0x50] |
 | 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). |
 | 41072-                | Pok\eacute{} placeholder species, "???" |                 |                 |
 Locations where Give Pokemon is used in a nonstraightforward way
 0x5287C
 0x5CE23
 0x5C36B
 0x7562E
+Find GivePokemon
+(search-memory* (vec(rom)) [120 234 \_ \_ 121 234 \_ \_ 175 234 \_ \_ 6] 10)
+F4011 : ASM script for asking if it's oak battle
 ** Understanding  memory banks and pointers
 #+begin_src clojure

Mercurial > vba-clojure

comparison org/rom.org @ 474:9a20581477c2