vba-clojure: org/rom.org annotate

annotate org/rom.org @ 411:0406867ead8a

Saving work -- found Pokedex menu text, and other things.

author	Dylan Holmes <ocsenave@gmail.com>
date	Fri, 13 Apr 2012 05:06:56 -0500
parents	a2319e29205b
children	543a78679971

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

Mercurial > vba-clojure

annotate org/rom.org @ 411:0406867ead8a