vba-clojure: org/rom.org annotate

annotate org/rom.org @ 410:a2319e29205b

Added several new things: NPC Pokemon names, Celadon prize data, NPC Trainers' Pokemon.

author	Dylan Holmes <ocsenave@gmail.com>
date	Fri, 13 Apr 2012 02:38:10 -0500
parents	03ade2a04458
children	0406867ead8a

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

Mercurial > vba-clojure

annotate org/rom.org @ 410:a2319e29205b