vba-clojure: org/rom.org annotate

annotate org/rom.org @ 419:4901ba2d3860

Figured out how NPC Pokemon teams are encoded.

author	Dylan Holmes <ocsenave@gmail.com>
date	Sat, 14 Apr 2012 05:20:28 -0500
parents	543a78679971
children	acc3d1ad24e8

rev	line source
ocsenave@311	1 #+title: Notes on Deconstructing Pokemon Yellow
ocsenave@311	2 #+author: Dylan Holmes
ocsenave@311	3 #+email: rlm@mit.edu
ocsenave@419	4 #+description: A detailed explication of Pok\eacute{}mon Yellow, helped by Clojure.
ocsenave@419	5 #+keywords: pokemon, pokemon yellow, rom, gameboy, assembly, hex, pointers, clojure
ocsenave@311	6 #+SETUPFILE: ../../aurellem/org/setup.org
ocsenave@311	7 #+INCLUDE: ../../aurellem/org/level-0.org
ocsenave@311	8 #+BABEL: :exports both :noweb yes :cache no :mkdirp yes
ocsenave@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 ** COMMENT Getting linguistic data: names, words, etc.
ocsenave@348	16
ocsenave@348	17 Some of the simplest data
ocsenave@348	18
ocsenave@348	19
ocsenave@348	20 One of the simplest data structures in the Pok\eacute{} ROM is an
ocsenave@348	21 unbroken list of strings that either (a) all have a specific length,
ocsenave@348	22 or (b) are all separated by the same character.
ocsenave@348	23
ocsenave@348	24 Because lots of good data has this format, we'll start by writing a
ocsenave@348	25 template function to extract it:
ocsenave@348	26
ocsenave@348	27 #+name: hxc-thunks
ocsenave@348	28 #+begin_src clojure :results silent
ocsenave@348	29 (defn hxc-thunk
ocsenave@348	30 "Creates a thunk (nullary fn) that grabs data in a certain region of rom and
ocsenave@348	31 splits it into a collection by 0x50. If rom is not supplied, uses the
ocsenave@348	32 original rom data."
ocsenave@348	33 [start length]
ocsenave@348	34 (fn self
ocsenave@348	35 ([rom]
ocsenave@348	36 (take-nth 2
ocsenave@348	37 (partition-by #(= % 0x50)
ocsenave@348	38 (take length
ocsenave@348	39 (drop start rom)))))
ocsenave@348	40 ([]
ocsenave@348	41 (self com.aurellem.gb.gb-driver/original-rom))))
ocsenave@348	42
ocsenave@348	43 (def hxc-thunk-words
ocsenave@348	44 "Same as hxc-thunk, except it interprets the rom data as characters,
ocsenave@348	45 returning a collection of strings."
ocsenave@348	46 (comp
ocsenave@348	47 (partial comp (partial map character-codes->str))
ocsenave@348	48 hxc-thunk))
ocsenave@348	49
ocsenave@348	50 #+end_src
ocsenave@348	51
ocsenave@348	52
ocsenave@348	53 * Pok\eacute{}mon I
ocsenave@348	54 ** Names of each species
ocsenave@348	55 The names of the Pok\eacute{}mon species are stored in
ocsenave@348	56 ROM@E8000. This name list is interesting, for a number of reasons:
ocsenave@348	57 - The names are stored in [[ ][internal order]] rather than in the familiar
ocsenave@348	58 Pok\eacute{}dex order. This seemingly random order probably represents the order in which the authors created or
ocsenave@348	59 programmed in the Pok\eacute{}mon; it's used throughout the game.
ocsenave@348	60 - There is enough space allocated for 190 Pok\eacute{}mon. As I
ocsenave@348	61 understand it, there were originally going to be 190 Pok\eacute{}mon
ocsenave@348	62 in Generation I, but the creators decided to defer some to
ocsenave@348	63 Generation II. This explains why many Gen I and Gen II Pok\eacute{}mon
ocsenave@348	64 have the same aesthetic feel.
ocsenave@348	65 - The list is pockmarked with random gaps, due to the strange internal
ocsenave@348	66 ordering
ocsenave@348	67 and the 39 unused spaces [fn::190 allocated spaces minus 151 true Pok\eacute{}mon]. These missing spaces are filled with the
ocsenave@348	68 placeholder name =MISSINGNO.= (\ldquo{}Missing number\rdquo{}).
ocsenave@348	69
ocsenave@348	70 Each name is exactly ten letters long; whenever a name would be too short, the extra
ocsenave@348	71 space is padded with the character 0x50.
ocsenave@348	72
ocsenave@348	73 *** See the data
ocsenave@348	74
ocsenave@348	75 Here you can see the raw data in three stages: in the first stage, we
ocsenave@348	76 just grab the first few bytes starting from position 0xE8000. In the
ocsenave@371	77 second stage, we partition the bytes into ten-letter chunks to show you
ocsenave@348	78 where the names begin and end. In the final stage, we convert each
ocsenave@348	79 byte into the letter it represents using the =character-codes->str=
ocsenave@348	80 function. (0x50 is rendered as the symbol \ldquo{} =#= \rdquo{} for
ocsenave@348	81 ease of reading).
ocsenave@348	82
ocsenave@348	83 #+begin_src clojure :exports both :cache no :results output
ocsenave@348	84 (ns com.aurellem.gb.hxc
ocsenave@348	85 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@348	86 constants))
ocsenave@348	87 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348	88
ocsenave@371	89
ocsenave@348	90 (println (take 100 (drop 0xE8000 (rom))))
ocsenave@348	91
ocsenave@348	92 (println (partition 10 (take 100 (drop 0xE8000 (rom)))))
ocsenave@348	93
ocsenave@348	94 (println (character-codes->str (take 100 (drop 0xE8000 (rom)))))
ocsenave@348	95
ocsenave@348	96
ocsenave@348	97 #+end_src
ocsenave@348	98
ocsenave@348	99 #+results:
ocsenave@348	100 : (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	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 : RHYDON####KANGASKHANNIDORAN♂##CLEFAIRY##SPEAROW###VOLTORB###NIDOKING##SLOWBRO###IVYSAUR###EXEGGUTOR#
ocsenave@348	103
ocsenave@348	104
ocsenave@348	105 *** Automatically grab the data.
ocsenave@348	106
ocsenave@348	107 #+name: pokenames
ocsenave@348	108 #+begin_src clojure
ocsenave@348	109
ocsenave@348	110 (defn hxc-pokenames-raw
ocsenave@348	111 "The hardcoded names of the 190 species in memory. List begins at
ocsenave@348	112 ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters
ocsenave@348	113 long, these names are stripped of padding. See also, hxc-pokedex-names"
ocsenave@348	114 ([]
ocsenave@348	115 (hxc-pokenames-raw com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	116 ([rom]
ocsenave@348	117 (let [count-species 190
ocsenave@348	118 name-length 10]
ocsenave@348	119 (map character-codes->str
ocsenave@348	120 (partition name-length
ocsenave@348	121 (map #(if (= 0x50 %) 0x00 %)
ocsenave@348	122 (take (* count-species name-length)
ocsenave@348	123 (drop 0xE8000
ocsenave@348	124 rom))))))))
ocsenave@348	125 (def hxc-pokenames
ocsenave@348	126 (comp
ocsenave@348	127 (partial map format-name)
ocsenave@348	128 hxc-pokenames-raw))
ocsenave@348	129
ocsenave@348	130
ocsenave@348	131
ocsenave@348	132
ocsenave@348	133 (defn hxc-pokedex-names
ocsenave@411	134 "The names of the pokemon in hardcoded pokedex order. List of the
ocsenave@411	135 pokedex numbers of each pokemon (in internal order) 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@411	485 #+results: dex-stats
ocsenave@411	486 : #'com.aurellem.gb.hxc/hxc-pokedex-stats
ocsenave@411	487
ocsenave@348	488 ** Species synopses
ocsenave@348	489
ocsenave@348	490 #+name: dex-text
ocsenave@348	491 #+begin_src clojure
ocsenave@348	492 (def hxc-pokedex-text-raw
ocsenave@348	493 "The hardcoded pokedex entries in memory. List begins at
ocsenave@348	494 ROM@B8000, shortly before move names."
ocsenave@348	495 (hxc-thunk-words 0xB8000 14754))
ocsenave@348	496
ocsenave@348	497
ocsenave@348	498
ocsenave@348	499
ocsenave@348	500 (defn hxc-pokedex-text
ocsenave@348	501 "The hardcoded pokedex entries in memory, presented as an
ocsenave@348	502 associative hash map. List begins at ROM@B8000."
ocsenave@348	503 ([] (hxc-pokedex-text com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	504 ([rom]
ocsenave@348	505 (zipmap
ocsenave@348	506 (hxc-pokedex-names rom)
ocsenave@348	507 (cons nil ;; for missingno.
ocsenave@348	508 (hxc-pokedex-text-raw rom)))))
ocsenave@348	509 #+end_src
ocsenave@348	510
ocsenave@348	511
ocsenave@348	512 ** Pok\eacute{}mon cries
ocsenave@348	513 #+name: pokecry
ocsenave@348	514 #+begin_src clojure
ocsenave@348	515 (defn hxc-cry
ocsenave@348	516 "The pokemon cry data in internal order. List begins at ROM@39462"
ocsenave@348	517 ([](hxc-cry com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	518 ([rom]
ocsenave@348	519 (zipmap
ocsenave@348	520 (hxc-pokenames rom)
ocsenave@348	521 (map
ocsenave@348	522 (fn [[cry-id pitch length]]
ocsenave@348	523 {:cry-id cry-id
ocsenave@348	524 :pitch pitch
ocsenave@348	525 :length length}
ocsenave@348	526 )
ocsenave@348	527 (partition 3
ocsenave@348	528 (drop 0x39462 rom))))))
ocsenave@348	529
ocsenave@348	530 (defn hxc-cry-groups
ocsenave@348	531 ([] (hxc-cry-groups com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	532 ([rom]
ocsenave@348	533 (map #(mapv first
ocsenave@348	534 (filter
ocsenave@348	535 (fn [[k v]]
ocsenave@348	536 (= % (:cry-id v)))
ocsenave@348	537 (hxc-cry)))
ocsenave@348	538 ((comp
ocsenave@348	539 range
ocsenave@348	540 count
ocsenave@348	541 set
ocsenave@348	542 (partial map :cry-id)
ocsenave@348	543 vals
ocsenave@348	544 hxc-cry)
ocsenave@348	545 rom))))
ocsenave@348	546
ocsenave@348	547
ocsenave@348	548 (defn cry-conversion!
ocsenave@348	549 "Convert Porygon's cry in ROM to be the cry of the given pokemon."
ocsenave@348	550 [pkmn]
ocsenave@348	551 (write-rom!
ocsenave@348	552 (rewrite-memory
ocsenave@348	553 (vec(rom))
ocsenave@348	554 0x3965D
ocsenave@348	555 (map second
ocsenave@348	556 ((hxc-cry) pkmn)))))
ocsenave@348	557
ocsenave@348	558 #+end_src
ocsenave@348	559
ocsenave@348	560 ** COMMENT Names of permanent stats
ocsenave@348	561 0DD4D-DD72
ocsenave@348	562
ocsenave@348	563 * Items
ocsenave@348	564 ** Item names
ocsenave@371	565
ocsenave@371	566 *** See the data
ocsenave@371	567 #+begin_src clojure :exports both :results output
ocsenave@371	568 (ns com.aurellem.gb.hxc
ocsenave@371	569 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371	570 constants))
ocsenave@371	571 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371	572
ocsenave@371	573 (println (take 100 (drop 0x045B7 (rom))))
ocsenave@371	574
ocsenave@371	575 (println
ocsenave@371	576 (partition-by
ocsenave@371	577 (partial = 0x50)
ocsenave@371	578 (take 100 (drop 0x045B7 (rom)))))
ocsenave@371	579
ocsenave@371	580 (println
ocsenave@371	581 (map character-codes->str
ocsenave@371	582 (partition-by
ocsenave@371	583 (partial = 0x50)
ocsenave@371	584 (take 100 (drop 0x045B7 (rom))))))
ocsenave@371	585
ocsenave@371	586
ocsenave@371	587 #+end_src
ocsenave@371	588
ocsenave@371	589 #+results:
ocsenave@371	590 : (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	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 : (MASTER BALL # ULTRA BALL # GREAT BALL # POKé BALL # TOWN MAP # BICYCLE # ????? # SAFARI BALL # POKéDEX # MOON STONE # AN)
ocsenave@371	593
ocsenave@371	594 *** Automatically grab the data
ocsenave@348	595 #+name: item-names
ocsenave@348	596 #+begin_src clojure
ocsenave@348	597
ocsenave@348	598 (def hxc-items-raw
ocsenave@348	599 "The hardcoded names of the items in memory. List begins at
ocsenave@348	600 ROM@045B7"
ocsenave@348	601 (hxc-thunk-words 0x45B7 870))
ocsenave@348	602
ocsenave@348	603 (def hxc-items
ocsenave@348	604 "The hardcoded names of the items in memory, presented as
ocsenave@348	605 keywords. List begins at ROM@045B7. See also, hxc-items-raw."
ocsenave@348	606 (comp (partial map format-name) hxc-items-raw))
ocsenave@348	607 #+end_src
ocsenave@348	608
ocsenave@348	609 ** Item prices
ocsenave@371	610
ocsenave@371	611 ***
ocsenave@371	612 #+begin_src clojure :exports both :results output
ocsenave@371	613 (ns com.aurellem.gb.hxc
ocsenave@371	614 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371	615 constants))
ocsenave@371	616 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371	617
ocsenave@371	618 (println (take 90 (drop 0x4495 (rom))))
ocsenave@371	619
ocsenave@371	620 (println
ocsenave@371	621 (partition 3
ocsenave@371	622 (take 90 (drop 0x4495 (rom)))))
ocsenave@371	623
ocsenave@371	624 (println
ocsenave@371	625 (partition 3
ocsenave@371	626 (map hex
ocsenave@371	627 (take 90 (drop 0x4495 (rom))))))
ocsenave@371	628
ocsenave@371	629 (println
ocsenave@371	630 (map decode-bcd
ocsenave@371	631 (map butlast
ocsenave@371	632 (partition 3
ocsenave@371	633 (take 90 (drop 0x4495 (rom)))))))
ocsenave@371	634
ocsenave@371	635 (println
ocsenave@371	636 (map
ocsenave@371	637 vector
ocsenave@371	638 (hxc-items (rom))
ocsenave@371	639 (map decode-bcd
ocsenave@371	640 (map butlast
ocsenave@371	641 (partition 3
ocsenave@371	642 (take 90 (drop 0x4495 (rom))))))))
ocsenave@371	643
ocsenave@371	644
ocsenave@371	645
ocsenave@371	646
ocsenave@371	647
ocsenave@371	648 #+end_src
ocsenave@371	649
ocsenave@371	650 #+results:
ocsenave@371	651 : (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	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 : ((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	654 : (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	655 : ([: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	656
ocsenave@371	657
ocsenave@371	658 ***
ocsenave@348	659 #+name: item-prices
ocsenave@348	660 #+begin_src clojure
ocsenave@348	661 (defn hxc-item-prices
ocsenave@348	662 "The hardcoded list of item prices in memory. List begins at ROM@4495"
ocsenave@348	663 ([] (hxc-item-prices com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	664 ([rom]
ocsenave@348	665 (let [items (hxc-items rom)
ocsenave@348	666 price-size 3]
ocsenave@348	667 (zipmap items
ocsenave@348	668 (map (comp
ocsenave@348	669 ;; zero-cost items are "priceless"
ocsenave@348	670 #(if (zero? %) :priceless %)
ocsenave@348	671 decode-bcd butlast)
ocsenave@348	672 (partition price-size
ocsenave@348	673 (take (* price-size (count items))
ocsenave@348	674 (drop 0x4495 rom))))))))
ocsenave@348	675 #+end_src
ocsenave@348	676 ** Vendor inventories
ocsenave@348	677
ocsenave@348	678 #+name: item-vendors
ocsenave@348	679 #+begin_src clojure
ocsenave@348	680 (defn hxc-shops
ocsenave@348	681 ([] (hxc-shops com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	682 ([rom]
ocsenave@348	683 (let [items (zipmap (range) (hxc-items rom))
ocsenave@348	684
ocsenave@348	685 ;; temporarily softcode the TM items
ocsenave@348	686 items (into
ocsenave@348	687 items
ocsenave@348	688 (map (juxt identity
ocsenave@348	689 (comp keyword
ocsenave@348	690 (partial str "tm-")
ocsenave@348	691 (partial + 1 -200)
ocsenave@348	692 ))
ocsenave@348	693 (take 200 (drop 200 (range)))))
ocsenave@348	694
ocsenave@348	695 ]
ocsenave@348	696
ocsenave@348	697 ((fn parse-shop [coll [num-items & items-etc]]
ocsenave@348	698 (let [inventory (take-while
ocsenave@348	699 (partial not= 0xFF)
ocsenave@348	700 items-etc)
ocsenave@348	701 [separator & items-etc] (drop num-items (rest items-etc))]
ocsenave@348	702 (if (= separator 0x50)
ocsenave@348	703 (map (partial mapv (comp items dec)) (conj coll inventory))
ocsenave@348	704 (recur (conj coll inventory) items-etc)
ocsenave@348	705 )
ocsenave@348	706 ))
ocsenave@348	707
ocsenave@348	708 '()
ocsenave@348	709 (drop 0x233C rom))
ocsenave@348	710
ocsenave@348	711
ocsenave@348	712 )))
ocsenave@348	713 #+end_src
ocsenave@348	714
ocsenave@348	715 #+results: item-vendors
ocsenave@348	716 : #'com.aurellem.gb.hxc/hxc-shops
ocsenave@348	717
ocsenave@348	718
ocsenave@348	719
ocsenave@348	720 * Types
ocsenave@348	721 ** Names of types
ocsenave@406	722
ocsenave@406	723 *** COMMENT Pointers to type names
ocsenave@406	724 #+begin_src clojure :exports both :results output
ocsenave@406	725 (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	726 #+end_src
ocsenave@406	727
ocsenave@406	728
ocsenave@371	729 ***
ocsenave@371	730 #+begin_src clojure :exports both :results output
ocsenave@371	731 (ns com.aurellem.gb.hxc
ocsenave@371	732 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371	733 constants))
ocsenave@371	734 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371	735
ocsenave@371	736 (println (take 90 (drop 0x27D99 (rom))))
ocsenave@371	737
ocsenave@371	738 (println
ocsenave@371	739 (partition-by (partial = 0x50)
ocsenave@371	740 (take 90 (drop 0x27D99 (rom)))))
ocsenave@371	741
ocsenave@371	742 (println
ocsenave@371	743 (map character-codes->str
ocsenave@371	744 (partition-by (partial = 0x50)
ocsenave@371	745 (take 90 (drop 0x27D99 (rom))))))
ocsenave@371	746
ocsenave@371	747 #+end_src
ocsenave@371	748
ocsenave@371	749 #+results:
ocsenave@371	750 : (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	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 : (NORMAL # FIGHTING # FLYING # POISON # FIRE # WATER # GRASS # ELECTRIC # PSYCHIC # ICE # GROUND # ROCK # BIRD # BUG # G)
ocsenave@371	753
ocsenave@371	754
ocsenave@371	755 ***
ocsenave@348	756 #+name: type-names
ocsenave@348	757 #+begin_src clojure
ocsenave@348	758 (def hxc-types
ocsenave@348	759 "The hardcoded type names in memory. List begins at ROM@27D99,
ocsenave@348	760 shortly before hxc-titles."
ocsenave@348	761 (hxc-thunk-words 0x27D99 102))
ocsenave@348	762
ocsenave@348	763 #+end_src
ocsenave@348	764
ocsenave@348	765 ** Type effectiveness
ocsenave@371	766 ***
ocsenave@371	767 #+begin_src clojure :exports both :results output
ocsenave@371	768 (ns com.aurellem.gb.hxc
ocsenave@371	769 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371	770 constants))
ocsenave@371	771 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371	772
ocsenave@371	773
ocsenave@371	774 ;; POKEMON TYPES
ocsenave@371	775
ocsenave@371	776 (println pkmn-types) ;; these are the pokemon types
ocsenave@371	777 (println (map vector (range) pkmn-types)) ;; each type has an id number.
ocsenave@371	778
ocsenave@371	779 (newline)
ocsenave@371	780
ocsenave@371	781
ocsenave@371	782
ocsenave@371	783
ocsenave@371	784 ;;; TYPE EFFECTIVENESS
ocsenave@371	785
ocsenave@371	786 (println (take 15 (drop 0x3E62D (rom))))
ocsenave@371	787 (println (partition 3 (take 15 (drop 0x3E62D (rom)))))
ocsenave@371	788
ocsenave@371	789 (println
ocsenave@371	790 (map
ocsenave@371	791 (fn [[atk-type def-type multiplier]]
ocsenave@371	792 (list atk-type def-type (/ multiplier 10.)))
ocsenave@371	793
ocsenave@371	794 (partition 3
ocsenave@371	795 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371	796
ocsenave@371	797
ocsenave@371	798 (println
ocsenave@371	799 (map
ocsenave@371	800 (fn [[atk-type def-type multiplier]]
ocsenave@371	801 [
ocsenave@371	802 (get pkmn-types atk-type)
ocsenave@371	803 (get pkmn-types def-type)
ocsenave@371	804 (/ multiplier 10.)
ocsenave@371	805 ])
ocsenave@371	806
ocsenave@371	807 (partition 3
ocsenave@371	808 (take 15 (drop 0x3E62D (rom))))))
ocsenave@371	809
ocsenave@371	810 #+end_src
ocsenave@371	811
ocsenave@371	812 #+results:
ocsenave@371	813 : [: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	814 : ([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	815 :
ocsenave@371	816 : (0 5 5 0 8 0 8 8 20 20 7 20 20 5 5)
ocsenave@371	817 : ((0 5 5) (0 8 0) (8 8 20) (20 7 20) (20 5 5))
ocsenave@371	818 : ((0 5 0.5) (0 8 0.0) (8 8 2.0) (20 7 2.0) (20 5 0.5))
ocsenave@371	819 : ([:normal :rock 0.5] [:normal :ghost 0.0] [:ghost :ghost 2.0] [:fire :bug 2.0] [:fire :rock 0.5])
ocsenave@371	820
ocsenave@371	821
ocsenave@371	822 ***
ocsenave@372	823
ocsenave@349	824 #+name: type-advantage
ocsenave@348	825 #+begin_src clojure
ocsenave@348	826 (defn hxc-advantage
ocsenave@348	827 ;; in-game multipliers are stored as 10x their effective value
ocsenave@348	828 ;; to allow for fractional multipliers like 1/2
ocsenave@348	829
ocsenave@348	830 "The hardcoded type advantages in memory, returned as tuples of
ocsenave@348	831 atk-type def-type multiplier. By default (i.e. if not listed here),
ocsenave@348	832 the multiplier is 1. List begins at 0x3E62D."
ocsenave@348	833 ([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	834 ([rom]
ocsenave@348	835 (map
ocsenave@348	836 (fn [[atk def mult]] [(get pkmn-types atk (hex atk))
ocsenave@348	837 (get pkmn-types def (hex def))
ocsenave@348	838 (/ mult 10)])
ocsenave@348	839 (partition 3
ocsenave@348	840 (take-while (partial not= 0xFF)
ocsenave@348	841 (drop 0x3E62D rom))))))
ocsenave@348	842 #+end_src
ocsenave@348	843
ocsenave@348	844
ocsenave@348	845
ocsenave@348	846 * Moves
ocsenave@348	847 ** Names of moves
ocsenave@371	848 *** See the data
ocsenave@371	849 #+begin_src clojure :exports both :results output
ocsenave@371	850 (ns com.aurellem.gb.hxc
ocsenave@371	851 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371	852 constants))
ocsenave@371	853 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@371	854
ocsenave@371	855 (println (take 100 (drop 0xBC000 (rom))))
ocsenave@371	856
ocsenave@371	857 (println
ocsenave@371	858 (partition-by
ocsenave@371	859 (partial = 0x50)
ocsenave@371	860 (take 100 (drop 0xBC000 (rom)))))
ocsenave@371	861
ocsenave@371	862 (println
ocsenave@371	863 (map character-codes->str
ocsenave@371	864 (partition-by
ocsenave@371	865 (partial = 0x50)
ocsenave@371	866 (take 100 (drop 0xBC000 (rom))))))
ocsenave@371	867
ocsenave@371	868
ocsenave@371	869 #+end_src
ocsenave@371	870
ocsenave@371	871 #+results:
ocsenave@371	872 : (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	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 : (POUND # KARATE CHOP # DOUBLESLAP # COMET PUNCH # MEGA PUNCH # PAY DAY # FIRE PUNCH # ICE PUNCH # THUNDERPUNCH # SCRATC)
ocsenave@371	875
ocsenave@371	876 *** Automatically grab the data
ocsenave@371	877
ocsenave@348	878 #+name: move-names
ocsenave@348	879 #+begin_src clojure
ocsenave@348	880 (def hxc-move-names
ocsenave@348	881 "The hardcoded move names in memory. List begins at ROM@BC000"
ocsenave@348	882 (hxc-thunk-words 0xBC000 1551))
ocsenave@348	883 #+end_src
ocsenave@348	884
ocsenave@348	885 ** Properties of moves
ocsenave@348	886
ocsenave@348	887 #+name: move-data
ocsenave@348	888 #+begin_src clojure
ocsenave@348	889 (defn hxc-move-data
ocsenave@348	890 "The hardcoded (basic (move effects)) in memory. List begins at
ocsenave@348	891 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id
ocsenave@348	892 :fx-txt}. The move descriptions are handwritten, not hardcoded."
ocsenave@348	893 ([]
ocsenave@348	894 (hxc-move-data com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	895 ([rom]
ocsenave@348	896 (let [names (vec (hxc-move-names rom))
ocsenave@348	897 move-count (count names)
ocsenave@348	898 move-size 6
ocsenave@348	899 types pkmn-types ;;; !! hardcoded types
ocsenave@348	900 ]
ocsenave@348	901 (zipmap (map format-name names)
ocsenave@348	902 (map
ocsenave@348	903 (fn [[idx effect power type-id accuracy pp]]
ocsenave@348	904 {:name (names (dec idx))
ocsenave@348	905 :power power
ocsenave@348	906 :accuracy accuracy
ocsenave@348	907 :pp pp
ocsenave@348	908 :type (types type-id)
ocsenave@348	909 :fx-id effect
ocsenave@348	910 :fx-txt (get move-effects effect)
ocsenave@348	911 }
ocsenave@348	912 )
ocsenave@348	913
ocsenave@348	914 (partition move-size
ocsenave@348	915 (take (* move-size move-count)
ocsenave@348	916 (drop 0x38000 rom))))))))
ocsenave@348	917
ocsenave@348	918
ocsenave@348	919
ocsenave@348	920 (defn hxc-move-data*
ocsenave@348	921 "Like hxc-move-data, but reports numbers as hexadecimal symbols instead."
ocsenave@348	922 ([]
ocsenave@348	923 (hxc-move-data* com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	924 ([rom]
ocsenave@348	925 (let [names (vec (hxc-move-names rom))
ocsenave@348	926 move-count (count names)
ocsenave@348	927 move-size 6
ocsenave@348	928 format-name (fn [s]
ocsenave@348	929 (keyword (.toLowerCase
ocsenave@348	930 (apply str
ocsenave@348	931 (map #(if (= % \space) "-" %) s)))))
ocsenave@348	932 ]
ocsenave@348	933 (zipmap (map format-name names)
ocsenave@348	934 (map
ocsenave@348	935 (fn [[idx effect power type accuracy pp]]
ocsenave@348	936 {:name (names (dec idx))
ocsenave@348	937 :power power
ocsenave@348	938 :accuracy (hex accuracy)
ocsenave@348	939 :pp pp
ocsenave@348	940 :fx-id (hex effect)
ocsenave@348	941 :fx-txt (get move-effects effect)
ocsenave@348	942 }
ocsenave@348	943 )
ocsenave@348	944
ocsenave@348	945 (partition move-size
ocsenave@348	946 (take (* move-size move-count)
ocsenave@348	947 (drop 0x38000 rom))))))))
ocsenave@348	948
ocsenave@348	949 #+end_src
ocsenave@348	950
ocsenave@348	951 ** TM and HM moves
ocsenave@371	952 ***
ocsenave@371	953 #+begin_src clojure :exports both :results output
ocsenave@371	954 (ns com.aurellem.gb.hxc
ocsenave@371	955 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@371	956 constants))
ocsenave@371	957 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@348	958
ocsenave@371	959
ocsenave@371	960 (println (hxc-move-names))
ocsenave@371	961 (println (map vector (rest(range)) (hxc-move-names)))
ocsenave@371	962
ocsenave@371	963 (newline)
ocsenave@371	964
ocsenave@371	965 (println (take 55 (drop 0x1232D (rom))))
ocsenave@371	966
ocsenave@371	967 (println
ocsenave@371	968 (interpose "."
ocsenave@371	969 (map
ocsenave@371	970 (zipmap (rest (range)) (hxc-move-names))
ocsenave@371	971 (take 55 (drop 0x1232D (rom))))))
ocsenave@371	972
ocsenave@371	973 #+end_src
ocsenave@371	974
ocsenave@371	975 #+results:
ocsenave@371	976 : (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	977 : ([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	978 :
ocsenave@371	979 : (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	980 : (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	981
ocsenave@371	982
ocsenave@371	983 ***
ocsenave@348	984 #+name: machines
ocsenave@348	985 #+begin_src clojure
ocsenave@348	986 (defn hxc-machines
ocsenave@348	987 "The hardcoded moves taught by TMs and HMs. List begins at ROM@1232D."
ocsenave@348	988 ([] (hxc-machines
ocsenave@348	989 com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	990 ([rom]
ocsenave@348	991 (let [moves (hxc-move-names rom)]
ocsenave@348	992 (zipmap
ocsenave@348	993 (range)
ocsenave@348	994 (take-while
ocsenave@348	995 (comp not nil?)
ocsenave@348	996 (map (comp
ocsenave@348	997 format-name
ocsenave@348	998 (zipmap
ocsenave@348	999 (range)
ocsenave@348	1000 moves)
ocsenave@348	1001 dec)
ocsenave@348	1002 (take 100
ocsenave@348	1003 (drop 0x1232D rom))))))))
ocsenave@348	1004
ocsenave@348	1005 #+end_src
ocsenave@348	1006
ocsenave@348	1007
ocsenave@348	1008
ocsenave@348	1009
ocsenave@348	1010
ocsenave@348	1011 ** COMMENT Status ailments
ocsenave@348	1012
ocsenave@419	1013
ocsenave@419	1014 * NPC Trainers
ocsenave@419	1015
ocsenave@419	1016 ** Trainer Pok\eacute{}mon
ocsenave@419	1017 # http://hax.iimarck.us/topic/103/
ocsenave@419	1018 There are two formats for specifying lists of NPC PPok\eacute{}mon:
ocsenave@419	1019 - If all the Pok\eacute{}mon will have the same level, the format is
ocsenave@419	1020 - Level (used for all the Pok\eacute{}mon)
ocsenave@419	1021 - Any number of Pok\eacute{}mon internal ids.
ocsenave@419	1022 - 0x00, to indicate end-of-list.
ocsenave@419	1023 - Otherwise, all the Pok\eacute{}mon will have their level
ocsenave@419	1024 specified. The format is
ocsenave@419	1025 - 0xFF, to indicate that we will be specifying the levels individually[fn::Because 0xFF is a
ocsenave@419	1026 forbidden level within the usual gameplay discipline, the game
ocsenave@419	1027 makers could safely use 0xFF as a mode indicator.].
ocsenave@419	1028 - Any number of alternating Level/Pokemon pairs
ocsenave@419	1029 - 0x00, to indicate end-of-list.
ocsenave@419	1030
ocsenave@419	1031 *** Get the pointers
ocsenave@419	1032 *** See the data
ocsenave@419	1033 #+begin_src clojure :exports both :results output
ocsenave@419	1034 (ns com.aurellem.gb.hxc
ocsenave@419	1035 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@419	1036 constants))
ocsenave@419	1037 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@419	1038
ocsenave@419	1039 (->>
ocsenave@419	1040 (rom)
ocsenave@419	1041 (drop 0x39E2F)
ocsenave@419	1042 (take 21)
ocsenave@419	1043 (println))
ocsenave@419	1044
ocsenave@419	1045
ocsenave@419	1046 (->>
ocsenave@419	1047 (rom)
ocsenave@419	1048 (drop 0x39E2F)
ocsenave@419	1049 (take 21)
ocsenave@419	1050 (partition-by zero?)
ocsenave@419	1051 (take-nth 2)
ocsenave@419	1052 (println))
ocsenave@419	1053
ocsenave@419	1054
ocsenave@419	1055
ocsenave@419	1056 (let
ocsenave@419	1057 [pokenames
ocsenave@419	1058 (zipmap
ocsenave@419	1059 (rest (range))
ocsenave@419	1060 (hxc-pokenames-raw))]
ocsenave@419	1061
ocsenave@419	1062 (->>
ocsenave@419	1063 (rom)
ocsenave@419	1064 (drop 0x39E2F)
ocsenave@419	1065 (take 21) ;; (1922 in all)
ocsenave@419	1066 (partition-by zero?)
ocsenave@419	1067 (take-nth 2)
ocsenave@419	1068 (map
ocsenave@419	1069 (fn parse-team [[mode & team]]
ocsenave@419	1070 (if (not= 0xFF mode)
ocsenave@419	1071 (mapv
ocsenave@419	1072 #(hash-map :level mode :species (pokenames %))
ocsenave@419	1073 team)
ocsenave@419	1074
ocsenave@419	1075 (mapv
ocsenave@419	1076 (fn [[lvl id]] (hash-map :level lvl :species (pokenames id)))
ocsenave@419	1077 (partition 2 team)))))
ocsenave@419	1078
ocsenave@419	1079 (println)))
ocsenave@419	1080
ocsenave@419	1081
ocsenave@419	1082
ocsenave@419	1083 #+end_src
ocsenave@419	1084
ocsenave@419	1085 #+results:
ocsenave@419	1086 : (11 165 108 0 14 5 0 10 165 165 107 0 14 165 108 107 0 15 165 5 0)
ocsenave@419	1087 : ((11 165 108) (14 5) (10 165 165 107) (14 165 108 107) (15 165 5))
ocsenave@419	1088 : ([{:species RATTATA, :level 11} {:species EKANS, :level 11}] [{:species SPEAROW, :level 14}] [{:species RATTATA, :level 10} {:species RATTATA, :level 10} {:species ZUBAT, :level 10}] [{:species RATTATA, :level 14} {:species EKANS, :level 14} {:species ZUBAT, :level 14}] [{:species RATTATA, :level 15} {:species SPEAROW, :level 15}])
ocsenave@419	1089
ocsenave@348	1090 * Places
ocsenave@348	1091 ** Names of places
ocsenave@348	1092
ocsenave@348	1093 #+name: places
ocsenave@348	1094 #+begin_src clojure
ocsenave@348	1095 (def hxc-places
ocsenave@348	1096 "The hardcoded place names in memory. List begins at
ocsenave@419	1097 ROM@71500. [Cinnabar/Cerulean] Mansion seems to be dynamically calculated."
ocsenave@348	1098 (hxc-thunk-words 0x71500 560))
ocsenave@419	1099 #+end_src
ocsenave@348	1100
ocsenave@419	1101 *** See it work
ocsenave@419	1102 #+begin_src clojure :exports both :results output
ocsenave@419	1103 (println (hxc-places))
ocsenave@348	1104 #+end_src
ocsenave@348	1105
ocsenave@419	1106 #+results:
ocsenave@419	1107 : (PALLET TOWN VIRIDIAN CITY PEWTER CITY CERULEAN CITY LAVENDER TOWN VERMILION CITY CELADON CITY FUCHSIA CITY CINNABAR ISLAND INDIGO PLATEAU SAFFRON CITY ROUTE 1 ROUTE 2 ROUTE 3 ROUTE 4 ROUTE 5 ROUTE 6 ROUTE 7 ROUTE 8 ROUTE 9 ROUTE 10 ROUTE 11 ROUTE 12 ROUTE 13 ROUTE 14 ROUTE 15 ROUTE 16 ROUTE 17 ROUTE 18 SEA ROUTE 19 SEA ROUTE 20 SEA ROUTE 21 ROUTE 22 ROUTE 23 ROUTE 24 ROUTE 25 VIRIDIAN FOREST MT.MOON ROCK TUNNEL SEA COTTAGE S.S.ANNE [POKE]MON LEAGUE UNDERGROUND PATH [POKE]MON TOWER SEAFOAM ISLANDS VICTORY ROAD DIGLETT's CAVE ROCKET HQ SILPH CO. [0x4A] MANSION SAFARI ZONE)
ocsenave@419	1108
ocsenave@348	1109 ** Wild Pok\eacute{}mon demographics
ocsenave@348	1110 #+name: wilds
ocsenave@348	1111 #+begin_src clojure
ocsenave@348	1112
ocsenave@348	1113
ocsenave@348	1114
ocsenave@348	1115 (defn hxc-ptrs-wild
ocsenave@348	1116 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348	1117 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348	1118 ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	1119 ([rom]
ocsenave@348	1120 (let [ptrs
ocsenave@348	1121 (map (fn [[a b]] (+ a (* 0x100 b)))
ocsenave@348	1122 (take-while (partial not= (list 0xFF 0xFF))
ocsenave@348	1123 (partition 2 (drop 0xCB95 rom))))]
ocsenave@348	1124 ptrs)))
ocsenave@348	1125
ocsenave@348	1126
ocsenave@348	1127
ocsenave@348	1128 (defn hxc-wilds
ocsenave@348	1129 "A list of the hardcoded wild encounter data in memory. Pointers
ocsenave@348	1130 begin at ROM@0CB95; data begins at ROM@0x04D89"
ocsenave@348	1131 ([] (hxc-wilds com.aurellem.gb.gb-driver/original-rom))
ocsenave@348	1132 ([rom]
ocsenave@348	1133 (let [pokenames (zipmap (range) (hxc-pokenames rom))]
ocsenave@348	1134 (map
ocsenave@348	1135 (partial map (fn [[a b]] {:species (pokenames (dec b)) :level
ocsenave@348	1136 a}))
ocsenave@348	1137 (partition 10
ocsenave@348	1138
ocsenave@348	1139 (take-while (comp (partial not= 1)
ocsenave@348	1140 first)
ocsenave@348	1141 (partition 2
ocsenave@348	1142 (drop 0xCD8C rom))
ocsenave@348	1143
ocsenave@348	1144 ))))))
ocsenave@348	1145
ocsenave@348	1146 #+end_src
ocsenave@348	1147
ocsenave@348	1148
ocsenave@348	1149
ocsenave@348	1150
ocsenave@348	1151
ocsenave@348	1152 * Appendices
ocsenave@347	1153 ** Mapping the ROM
ocsenave@311	1154
ocsenave@411	1155 \| ROM address (hex) \| Description \| Format \| Example \|
ocsenave@411	1156 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1157 \| \| <15> \| <15> \| <15> \|
ocsenave@411	1158 \| 01823-0184A \| Important prefix strings. \| Variable-length strings, separated by 0x50. \| TM#TRAINER#PC#ROCKET#POK\eacute{}#... \|
ocsenave@411	1159 \| 0233C- \| Shop inventories. \| \| \|
ocsenave@412	1160 \| 02F47- \| (?) Move ids of some HM moves. \| One byte per move id \| 0x0F 0x13 0x39 0x46 0x94 0xFF, the move ids of CUT, FLY, SURF, STRENGTH, FLASH, then cancel. \|
ocsenave@411	1161 \| 04495- \| Prices of items. \| Each price is two bytes of binary-coded decimal. Prices are separated by zeroes. Priceless items[fn::Like the Pok\eacute{}dex and other unsellable items.] are given a price of zero. \| The cost of lemonade is 0x03 0x50, which translates to a price of ₱350. \|
ocsenave@412	1162 \| 04524-04527 \| (unconfirmed) possibly the bike price in Cerulean. \| \| \|
ocsenave@411	1163 \| 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	1164 \| 04D89- \| Lists of wild Pok\eacute{}mon to encounter in each region. \| Each list contains ten Pokemon (ids) and their levels; twenty bytes in total. First, the level of the first Pokemon. Then the internal id of the first Pokemon. Next, the level of the second Pokemon, and so on. Since Pokemon cannot have level 0, the lists are separated by a pair 0 /X/, where /X/ is an apparently random Pokemon id. \| The first list is (3 36 4 36 2 165 3 165 2 36 3 36 5 36 4 165 6 36 7 36 0 25), i.e. level 3 pidgey, level 4 pidgey, level 2 rattata, level 3 rattata, level 2 pidgey, level 3 pidgey, level 5 pidgey, level 4 rattata, level 6 pidgey, level 7 pidgey, \ldquo{}level 0 gastly\rdquo{} (i.e., end-of-list). \|
ocsenave@412	1165 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1166 \| 05DD2-05DF2 \| Menu text for player info. \| \| PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] \|
ocsenave@411	1167 \| 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	1168 \| 06698- \| ? Background music. \| \| \|
ocsenave@412	1169 \| 7550-7570 \| Menu options for map directions[fn:unused:According to [[http://tcrf.net/Pok%C3%A9mon_Red_and_Blue#NORTH.2FWEST.2FSOUTH.2FEAST][The Cutting Room Floor]], this data is unused. ]. \| Variable-length strings. \| NORTH [newline] WEST [0x50] SOUTH [newline] EAST [0x50] NORTH [newline] EAST[0x50] \|
ocsenave@412	1170 \| 7570-757D \| Menu options for trading Pok\eacute{}mon \| \| TRADE [newline] CANCEL [0x50] \|
ocsenave@412	1171 \| 757D-758A \| Menu options for healing Pok\eacute{}mon \| \| HEAL [newline] CANCEL [0x50] \|
ocsenave@412	1172 \| 7635- \| Menu options for selected Pok\eacute{}mon (Includes names of out-of-battle moves). \| Variable-length strings separated by 0x50. \| CUT [0x50] FLY [0x50] SURF [0x50] STRENGTH [0x50] FLASH [0x50] DIG [0x50] TELEPORT [0x50] SOFTBOILED [0x50] STATS [newline] SWITCH [newline] CANCEL [0x50] \|
ocsenave@412	1173 \| 7AF0-8000 \| (empty space) \| \| 0 0 0 0 0 ... \|
ocsenave@411	1174 \| 0822E-082F? \| Pointers to background music, part I. \| \| \|
ocsenave@411	1175 \| 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	1176 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1177 \| 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	1178 \| 0DAE0. \| Amount of HP restored by Super Potion. \| " \| 50 \|
ocsenave@411	1179 \| 0DAE3. \| Amount of HP restored by Potion. \| " \| 20 \|
ocsenave@411	1180 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1181 \| 0DD4D-DD72 \| Names of permanent stats. \| Variable-length strings separated by 0x50. \| #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# \|
ocsenave@412	1182 \| 1164B- \| Terminology for the Pok\eacute{}mon menu. \| Contiguous, variable-length strings. \| TYPE1[newline]TYPE2[newline] №,[newline]OT,[newline][0x50]STATUS,[0x50]OK \|
ocsenave@412	1183 \| 116DE- \| Terminology for permanent stats in the Pok\eacute{}mon menu. \| Contiguous, variable-length strings. \| ATTACK[newline]DEFENSE[newline]SPEED[newline]SPECIAL[0x50] \|
ocsenave@412	1184 \| 11852- \| Terminology for current stats in the Pok\eacute{}mon menu. \| Contiguous, variable-length strings. \| EXP POINTS[newline]LEVEL UP[0x50] \|
ocsenave@411	1185 \| 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	1186 \| 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	1187 \| 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	1188 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1189 \| 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	1190 \| 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	1191 \| 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	1192 \| 27DFF-27E77 \| ? \| 120 bytes of unknown data. \| \|
ocsenave@411	1193 \| 27E77- \| Trainer title names. \| Variable-length names separated by 0x50. \| YOUNGSTER#BUG CATCHER#LASS#... \|
ocsenave@411	1194 \| 34000- \| \| \| \|
ocsenave@411	1195 \| 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	1196 \| 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	1197 \| 39462- \| The Pok\eacute{}mon cry data. \| Fixed-length (3 byte) descriptions of cries. \| \|
ocsenave@411	1198 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1199 \| 3997D-39B05 \| Trainer titles (extended; see 27E77). This list includes strictly more trainers, seemingly at random inserted into the list from 27E77.[fn::The names added are in bold: YOUNGSTER, BUG CATCHER, LASS, SAILOR, JR TRAINER(m), JR TRAINER(f), POK\eacute{}MANIAC, SUPER NERD, HIKER, BIKER, BURGLAR, ENGINEER, JUGGLER, FISHERMAN, SWIMMER, CUE BALL, GAMBLER, BEAUTY, PSYCHIC, ROCKER, JUGGLER (again), TAMER, BIRDKEEPER, BLACKBELT, RIVAL1, PROF OAK, CHIEF, SCIENTIST, GIOVANNI, ROCKET, COOLTRAINER(m), COOLTRAINER(f), BRUNO, BROCK, MISTY, LT. SURGE, ERIKA, KOGA, BLAINE, SABRINA, GENTLEMAN, RIVAL2, RIVAL3, LORELEI, CHANNELER, AGATHA, LANCE.] \| \| \|
ocsenave@412	1200 \| 39B05-39DD0. \| unknown \| \| \|
ocsenave@419	1201 \| 39DD1-39E2E \| Pointers to trainer Pok\eacute{}mon \| Pairs of low-high bits. \| The first pair is 0x2F 0x5E, which corresponds to memory location 5E2F relative to this 38000-3C000 bank, i.e.[fn::For details about how relative bank pointers work, see the relevant Appendix.] position 39E2F overall. \|
ocsenave@419	1202 \| 39E2F-3A5B2 \| Trainer Pok\eacute{}mon \| Specially-formatted lists of various length, separated by 0x00. If the list starts with 0xFF, the rest of the list will alternate between levels and internal-ids. Otherwise, start of the list is the level of the whole team, and the rest of the list is internal-ids. \| The first entry is (11 165 108 0), which means a level 11 team consisting of Rattata and Ekans. The entry for MISTY is (255 18 27 21 152 0), which means a team of various levels consisting of level 18 Staryu and level 21 Starmie. [fn::Incidentally, if you want to change your rival's starter Pok\eacute{}mon, it's enough just to change its species in all of your battles with him.].) \|
ocsenave@411	1203 \| 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	1204 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1205 \| 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	1206 \| 3BBAA-3C000 \| (empty) \| \| 0 0 0 0 ... \|
ocsenave@411	1207 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1208 \| 3D131-3D133 \| The inventory of both OLD MAN and PROF. OAK when they battle for you. \| Pairs of [item-id quantity], terminated by 0xFF. \| (0x04 0x01 0xFF) They only have one Pok\eacute{}ball [fn::If you give them any ball, OAK will catch the enemy Pok\eacute{}mon and OLD MAN will miss. (OLD MAN misses even if he throws a MASTER BALL, which is a sight to see!) If you give them some other item first in the list, you'll be able to use that item normally but then you'll trigger the Safari Zone message: Pa will claim you're out of SAFARI BALLs and the battle will end. If you engage in either an OLD MAN or OAK battle with a Gym Leader, you will [1] get reprimanded if you try to throw a ball [2] incur the Safari Zone message [3] automatically win no matter which item you use [4] earn whichever reward they give you as usual [5] permanently retain the name OLD MAN / PROF. OAK.]. \|
ocsenave@411	1209 \| 3D6C7-3D6D6 \| Two miscellaneous strings. \| Variable length, separated by 0x50 \| Disabled!#TYPE \|
ocsenave@411	1210 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1211 \| 40252-4027B \| Pok\eacute{}dex menu text \| Variable-length strings separated by 0x50. \| SEEN#OWN#CONTENTS#... \|
ocsenave@411	1212 \| 40370-40386 \| Important constants for Pok\eacute{}dex entries \| \| HT _ _ ?′??″ [newline] WT _ _ _ ??? lb [0x50] POK\Eacute{} [0x50] \|
ocsenave@411	1213 \| 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	1214 \| 41072- \| Pok\eacute{} placeholder species, "???" \| \| \|
ocsenave@411	1215 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1216 \| 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@412	1217 \| 527BA-527DB \| The costs and kinds of prizes from Celadon Game Corner. \| The following pattern repeats three times, once per window[fn::For the first two prize lists, ids are interpreted as Pok\eacute{}mon ids. For the last prize list, ids are (somehow) interpreted as item ids.]: Internal ids / 0x50 / Prices (two bytes of BCD)/ 0x50. \| (0x94 0x52 0x65 0x50) Abra Vulpix Wigglytuff (0x02 0x30 0x10 0x00 0x26 0x80) 230C, 1000C, 2680C \|
ocsenave@411	1218 \| 5DE10-5DE30 \| Abbreviations for status ailments. \| Fixed-length strings, probably[fn::Here's something strange: all of the status messages start with 0x7F and end with 0x4F \mdash{}except PAR, which ends with 0x50.]. The last entry is QUIT##. \| [0x7F] SLP [0x4E][0x7F] PSN [0x4E][0x7F] PAR [0x50][0x7F]... \|
ocsenave@412	1219 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1220 \| 70295- \| Hall of fame \| The text "HALL OF FAME" \| \|
ocsenave@412	1221 \| 70442- \| Play time/money \| The text "PLAY TIME [0x50] MONEY" \| \|
ocsenave@411	1222 \| 71500-7174B \| Names of places. \| Variable-length place names (strings), separated by 0x50. \| PALLET TOWN#VIRIDIAN CITY#PEWTER CITY#CERULEAN CITY#... \|
ocsenave@411	1223 \| 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	1224 \| 7C249-7C2?? \| Pointers to background music, pt II. \| \| \|
ocsenave@412	1225 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@419	1226 \| 98000-B7190 \| Dialogue and other messsages. \| Variable-length strings. \| \|
ocsenave@419	1227 \| B7190-B8000 \| (empty space) \| \| 0 0 0 0 0 ... \|
ocsenave@411	1228 \| B8000-BC000 \| The text of each Pok\eacute{}mon's Pok\eacute{}dex entry. \| Variable-length descriptions (strings) in Pok\eacute{}dex order, separated by 0x50. These entries use the special characters 0x49 (new page), 0x4E (new line), and 0x5F (end entry). \| The first entry (Bulbasaur's) is: "It can go for days [0x4E] without eating a [0x4E] single morsel. [0x49] In the bulb on [0x4E] its back, it [0x4E] stores energy [0x5F] [0x50]." \|
ocsenave@419	1229 \| BC000-BC60F \| Move names. \| Variable-length move names, separated by 0x50. The moves are in internal order. \| POUND#KARATE CHOP#DOUBLESLAP#COMET PUNCH#... \|
ocsenave@419	1230 \| BC610-BD000 \| (empty space) \| \| 0 0 0 0 0 ... \|
ocsenave@411	1231 \| E8000-E876C \| Names of the \ldquo{}190\rdquo{} species of Pok\eacute{}mon in memory. \| Fixed length (10-letter) Pok\eacute{}mon names. Any extra space is padded with the character 0x50. The names are in \ldquo{}internal order\rdquo{}. \| RHYDON####KANGASKHANNIDORAN♂#... \|
ocsenave@412	1232 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1233 \| E9BD5- \| The text PLAY TIME (see above, 70442) \| \| \|
ocsenave@410	1234 #+TBLFM:
ocsenave@312	1235
ocsenave@347	1236
ocsenave@419	1237 ** Understanding memory banks and pointers
ocsenave@419	1238 #+begin_src clojure
ocsenave@419	1239
ocsenave@419	1240 (defn endian-flip
ocsenave@419	1241 "Flip the bytes of the two-byte number."
ocsenave@419	1242 [n]
ocsenave@419	1243 (assert (< n 0xFFFF))
ocsenave@419	1244 (+ (* 0x100 (rem n 0x100))
ocsenave@419	1245 (int (/ n 0x100))))
ocsenave@419	1246
ocsenave@419	1247
ocsenave@419	1248 (defn offset->ptr
ocsenave@419	1249 "Convert an offset into a little-endian pointer."
ocsenave@419	1250 [n]
ocsenave@419	1251 (->
ocsenave@419	1252 n
ocsenave@419	1253 (rem 0x10000) ;; take last four bytes
ocsenave@419	1254 (rem 0x4000) ;; get relative offset from the start of the bank
ocsenave@419	1255 (+ 0x4000)
ocsenave@419	1256 endian-flip))
ocsenave@419	1257
ocsenave@419	1258 (defn offset->bank
ocsenave@419	1259 "Get the bank of the offset."
ocsenave@419	1260 [n]
ocsenave@419	1261 (int (/ n 0x4000)))
ocsenave@419	1262
ocsenave@419	1263 (defn ptr->offset
ocsenave@419	1264 "Convert a two-byte little-endian pointer into an offset."
ocsenave@419	1265 [bank ptr]
ocsenave@419	1266 (->
ocsenave@419	1267 ptr
ocsenave@419	1268 endian-flip
ocsenave@419	1269 (- 0x4000)
ocsenave@419	1270 (+ (* 0x4000 bank))
ocsenave@419	1271 ))
ocsenave@419	1272
ocsenave@419	1273 (defn same-bank-offset
ocsenave@419	1274 "Convert a ptr into an absolute offset by using the bank of the reference."
ocsenave@419	1275 [reference ptr]
ocsenave@419	1276 (ptr->offset
ocsenave@419	1277 (offset->bank reference)
ocsenave@419	1278 ptr))
ocsenave@419	1279 #+end_src
ocsenave@419	1280
ocsenave@347	1281
ocsenave@312	1282 ** Internal Pok\eacute{}mon IDs
ocsenave@312	1283 ** Type IDs
ocsenave@347	1284
ocsenave@347	1285 #+name: type-ids
ocsenave@347	1286 #+begin_src clojure
ocsenave@347	1287 (def pkmn-types
ocsenave@347	1288 [:normal ;;0
ocsenave@347	1289 :fighting ;;1
ocsenave@347	1290 :flying ;;2
ocsenave@347	1291 :poison ;;3
ocsenave@347	1292 :ground ;;4
ocsenave@347	1293 :rock ;;5
ocsenave@347	1294 :bird ;;6
ocsenave@347	1295 :bug ;;7
ocsenave@347	1296 :ghost ;;8
ocsenave@347	1297 :A
ocsenave@347	1298 :B
ocsenave@347	1299 :C
ocsenave@347	1300 :D
ocsenave@347	1301 :E
ocsenave@347	1302 :F
ocsenave@347	1303 :G
ocsenave@347	1304 :H
ocsenave@347	1305 :I
ocsenave@347	1306 :J
ocsenave@347	1307 :K
ocsenave@347	1308 :fire ;;20 (0x14)
ocsenave@347	1309 :water ;;21 (0x15)
ocsenave@347	1310 :grass ;;22 (0x16)
ocsenave@347	1311 :electric ;;23 (0x17)
ocsenave@347	1312 :psychic ;;24 (0x18)
ocsenave@347	1313 :ice ;;25 (0x19)
ocsenave@347	1314 :dragon ;;26 (0x1A)
ocsenave@347	1315 ])
ocsenave@347	1316 #+end_src
ocsenave@347	1317
ocsenave@312	1318 ** Basic effects of moves
ocsenave@347	1319
ocsenave@347	1320 *** Table of basic effects
ocsenave@347	1321
ocsenave@347	1322 The possible effects of moves in Pok\eacute{}mon \mdash{} for example, dealing
ocsenave@347	1323 damage, leeching health, or potentially poisoning the opponent
ocsenave@347	1324 \mdash{} are stored in a table. Each move has exactly one effect, and
ocsenave@347	1325 different moves might have the same effect.
ocsenave@347	1326
ocsenave@347	1327 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	1328
ocsenave@347	1329 All the legitimate move effects are listed in the table
ocsenave@347	1330 below. Here are some notes for reading it:
ocsenave@347	1331
ocsenave@347	1332 - Whenever an effect has a chance of doing something (like a chance of
ocsenave@371	1333 poisoning the opponent), I list the chance as a hexadecimal amount
ocsenave@371	1334 out of 256; this is to avoid rounding errors. To convert the hex amount into a percentage, divide by 256.
ocsenave@347	1335 - For some effects, the description is too cumbersome to
ocsenave@347	1336 write. Instead, I just write a move name
ocsenave@347	1337 in parentheses, like: (leech seed). That move gives a characteristic example
ocsenave@347	1338 of the effect.
ocsenave@347	1339 - I use the abbreviations =atk=, =def=, =spd=, =spc=, =acr=, =evd= for
ocsenave@371	1340 attack, defense, speed, special, accuracy, and evasiveness.
ocsenave@347	1341 .
ocsenave@347	1342
ocsenave@347	1343
ocsenave@347	1344
ocsenave@347	1345 \| ID (hex) \| Description \| Notes \|
ocsenave@347	1346 \|----------+-------------------------------------------------------------------------------------------------+------------------------------------------------------------------\|
ocsenave@347	1347 \| 0 \| normal damage \| \|
ocsenave@347	1348 \| 1 \| no damage, just sleep \| TODO: find out how many turns \|
ocsenave@347	1349 \| 2 \| 0x4C chance of poison \| \|
ocsenave@347	1350 \| 3 \| leech half of inflicted damage \| \|
ocsenave@347	1351 \| 4 \| 0x19 chance of burn \| \|
ocsenave@347	1352 \| 5 \| 0x19 chance of freeze \| \|
ocsenave@347	1353 \| 6 \| 0x19 chance of paralysis \| \|
ocsenave@347	1354 \| 7 \| user faints; opponent's defense is halved during attack. \| \|
ocsenave@347	1355 \| 8 \| leech half of inflicted damage ONLY if the opponent is asleep \| \|
ocsenave@347	1356 \| 9 \| imitate last attack \| \|
ocsenave@347	1357 \| A \| user atk +1 \| \|
ocsenave@347	1358 \| B \| user def +1 \| \|
ocsenave@347	1359 \| C \| user spd +1 \| \|
ocsenave@347	1360 \| D \| user spc +1 \| \|
ocsenave@347	1361 \| E \| user acr +1 \| This effect is unused. \|
ocsenave@347	1362 \| F \| user evd +1 \| \|
ocsenave@347	1363 \| 10 \| get post-battle money = 2 * level * uses \| \|
ocsenave@347	1364 \| 11 \| move has 0xFE acr, regardless of battle stat modifications. \| \|
ocsenave@347	1365 \| 12 \| opponent atk -1 \| \|
ocsenave@347	1366 \| 13 \| opponent def -1 \| \|
ocsenave@347	1367 \| 14 \| opponent spd -1 \| \|
ocsenave@347	1368 \| 15 \| opponent spc -1 \| \|
ocsenave@347	1369 \| 16 \| opponent acr -1 \| \|
ocsenave@347	1370 \| 17 \| opponent evd -1 \| \|
ocsenave@347	1371 \| 18 \| converts user's type to opponent's. \| \|
ocsenave@347	1372 \| 19 \| (haze) \| \|
ocsenave@347	1373 \| 1A \| (bide) \| \|
ocsenave@347	1374 \| 1B \| (thrash) \| \|
ocsenave@347	1375 \| 1C \| (teleport) \| \|
ocsenave@347	1376 \| 1D \| (fury swipes) \| \|
ocsenave@347	1377 \| 1E \| attacks 2-5 turns \| Unused. TODO: find out what it does. \|
ocsenave@347	1378 \| 1F \| 0x19 chance of flinching \| \|
ocsenave@347	1379 \| 20 \| opponent sleep for 1-7 turns \| \|
ocsenave@347	1380 \| 21 \| 0x66 chance of poison \| \|
ocsenave@347	1381 \| 22 \| 0x4D chance of burn \| \|
ocsenave@347	1382 \| 23 \| 0x4D chance of freeze \| \|
ocsenave@347	1383 \| 24 \| 0x4D chance of paralysis \| \|
ocsenave@347	1384 \| 25 \| 0x4D chance of flinching \| \|
ocsenave@347	1385 \| 26 \| one-hit KO \| \|
ocsenave@347	1386 \| 27 \| charge one turn, atk next. \| \|
ocsenave@347	1387 \| 28 \| fixed damage, leaves 1HP. \| Is the fixed damage the power of the move? \|
ocsenave@347	1388 \| 29 \| fixed damage. \| Like seismic toss, dragon rage, psywave. \|
ocsenave@347	1389 \| 2A \| atk 2-5 turns; opponent can't attack \| The odds of attacking for /n/ turns are: (0 0x60 0x60 0x20 0x20) \|
ocsenave@347	1390 \| 2B \| charge one turn, atk next. (can't be hit when charging) \| \|
ocsenave@347	1391 \| 2C \| atk hits twice. \| \|
ocsenave@347	1392 \| 2D \| user takes 1 damage if misses. \| \|
ocsenave@347	1393 \| 2E \| evade status-lowering effects \| Caused by you or also your opponent? \|
ocsenave@347	1394 \| 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	1395 \| 30 \| atk causes recoil dmg = 1/4 dmg dealt \| \|
ocsenave@347	1396 \| 31 \| confuses opponent \| \|
ocsenave@347	1397 \| 32 \| user atk +2 \| \|
ocsenave@347	1398 \| 33 \| user def +2 \| \|
ocsenave@347	1399 \| 34 \| user spd +2 \| \|
ocsenave@347	1400 \| 35 \| user spc +2 \| \|
ocsenave@347	1401 \| 36 \| user acr +2 \| This effect is unused. \|
ocsenave@347	1402 \| 37 \| user evd +2 \| This effect is unused. \|
ocsenave@347	1403 \| 38 \| restores up to half of user's max hp. \| \|
ocsenave@347	1404 \| 39 \| (transform) \| \|
ocsenave@347	1405 \| 3A \| opponent atk -2 \| \|
ocsenave@347	1406 \| 3B \| opponent def -2 \| \|
ocsenave@347	1407 \| 3C \| opponent spd -2 \| \|
ocsenave@347	1408 \| 3D \| opponent spc -2 \| \|
ocsenave@347	1409 \| 3E \| opponent acr -2 \| \|
ocsenave@347	1410 \| 3F \| opponent evd -2 \| \|
ocsenave@347	1411 \| 40 \| doubles user spc when attacked \| \|
ocsenave@347	1412 \| 41 \| doubles user def when attacked \| \|
ocsenave@347	1413 \| 42 \| just poisons opponent \| \|
ocsenave@347	1414 \| 43 \| just paralyzes opponent \| \|
ocsenave@347	1415 \| 44 \| 0x19 chance opponent atk -1 \| \|
ocsenave@347	1416 \| 45 \| 0x19 chance opponent def -1 \| \|
ocsenave@347	1417 \| 46 \| 0x19 chance opponent spd -1 \| \|
ocsenave@347	1418 \| 47 \| 0x4C chance opponent spc -1 \| \|
ocsenave@347	1419 \| 48 \| 0x19 chance opponent acr -1 \| \|
ocsenave@347	1420 \| 49 \| 0x19 chance opponent evd -1 \| \|
ocsenave@347	1421 \| 4A \| ??? \| ;; unused? no effect? \|
ocsenave@347	1422 \| 4B \| ??? \| ;; unused? no effect? \|
ocsenave@347	1423 \| 4C \| 0x19 chance of confusing the opponent \| \|
ocsenave@347	1424 \| 4D \| atk hits twice. 0x33 chance opponent poisioned. \| \|
ocsenave@347	1425 \| 4E \| broken. crash the game after attack. \| \|
ocsenave@347	1426 \| 4F \| (substitute) \| \|
ocsenave@347	1427 \| 50 \| unless opponent faints, user must recharge after atk. some exceptions apply \| \|
ocsenave@347	1428 \| 51 \| (rage) \| \|
ocsenave@347	1429 \| 52 \| (mimic) \| \|
ocsenave@347	1430 \| 53 \| (metronome) \| \|
ocsenave@347	1431 \| 54 \| (leech seed) \| \|
ocsenave@347	1432 \| 55 \| does nothing (splash) \| \|
ocsenave@347	1433 \| 56 \| (disable) \| \|
ocsenave@347	1434 #+end_src
ocsenave@347	1435
ocsenave@347	1436 *** Source
ocsenave@347	1437 #+name: move-effects
ocsenave@347	1438 #+begin_src clojure
ocsenave@347	1439 (def move-effects
ocsenave@347	1440 ["normal damage"
ocsenave@347	1441 "no damage, just opponent sleep" ;; how many turns? is atk power ignored?
ocsenave@347	1442 "0x4C chance of poison"
ocsenave@347	1443 "leech half of inflicted damage"
ocsenave@347	1444 "0x19 chance of burn"
ocsenave@347	1445 "0x19 chance of freeze"
ocsenave@347	1446 "0x19 chance of paralyze"
ocsenave@347	1447 "user faints; opponent defense halved during attack."
ocsenave@347	1448 "leech half of inflicted damage ONLY if sleeping opponent."
ocsenave@347	1449 "imitate last attack"
ocsenave@347	1450 "user atk +1"
ocsenave@347	1451 "user def +1"
ocsenave@347	1452 "user spd +1"
ocsenave@347	1453 "user spc +1"
ocsenave@347	1454 "user acr +1" ;; unused?!
ocsenave@347	1455 "user evd +1"
ocsenave@347	1456 "get post-battle $ = 2leveluses"
ocsenave@347	1457 "0xFE acr, no matter what."
ocsenave@347	1458 "opponent atk -1" ;; acr taken from move acr?
ocsenave@347	1459 "opponent def -1" ;;
ocsenave@347	1460 "opponent spd -1" ;;
ocsenave@347	1461 "opponent spc -1" ;;
ocsenave@347	1462 "opponent acr -1";;
ocsenave@347	1463 "opponent evd -1"
ocsenave@347	1464 "converts user's type to opponent's."
ocsenave@347	1465 "(haze)"
ocsenave@347	1466 "(bide)"
ocsenave@347	1467 "(thrash)"
ocsenave@347	1468 "(teleport)"
ocsenave@347	1469 "(fury swipes)"
ocsenave@347	1470 "attacks 2-5 turns" ;; unused? like rollout?
ocsenave@347	1471 "0x19 chance of flinch"
ocsenave@347	1472 "opponent sleep for 1-7 turns"
ocsenave@347	1473 "0x66 chance of poison"
ocsenave@347	1474 "0x4D chance of burn"
ocsenave@347	1475 "0x4D chance of freeze"
ocsenave@347	1476 "0x4D chance of paralyze"
ocsenave@347	1477 "0x4D chance of flinch"
ocsenave@347	1478 "one-hit KO"
ocsenave@347	1479 "charge one turn, atk next."
ocsenave@347	1480 "fixed damage, leaves 1HP." ;; how is dmg determined?
ocsenave@347	1481 "fixed damage." ;; cf seismic toss, dragon rage, psywave.
ocsenave@347	1482 "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20)
ocsenave@347	1483 "charge one turn, atk next. (can't be hit when charging)"
ocsenave@347	1484 "atk hits twice."
ocsenave@347	1485 "user takes 1 damage if misses."
ocsenave@347	1486 "evade status-lowering effects" ;;caused by you or also your opponent?
ocsenave@347	1487 "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect"
ocsenave@347	1488 "atk causes recoil dmg = 1/4 dmg dealt"
ocsenave@347	1489 "confuses opponent" ;; acr taken from move acr
ocsenave@347	1490 "user atk +2"
ocsenave@347	1491 "user def +2"
ocsenave@347	1492 "user spd +2"
ocsenave@347	1493 "user spc +2"
ocsenave@347	1494 "user acr +2" ;; unused!
ocsenave@347	1495 "user evd +2" ;; unused!
ocsenave@347	1496 "restores up to half of user's max hp." ;; broken: fails if the difference
ocsenave@347	1497 ;; b/w max and current hp is one less than a multiple of 256.
ocsenave@347	1498 "(transform)"
ocsenave@347	1499 "opponent atk -2"
ocsenave@347	1500 "opponent def -2"
ocsenave@347	1501 "opponent spd -2"
ocsenave@347	1502 "opponent spc -2"
ocsenave@347	1503 "opponent acr -2"
ocsenave@347	1504 "opponent evd -2"
ocsenave@347	1505 "doubles user spc when attacked"
ocsenave@347	1506 "doubles user def when attacked"
ocsenave@347	1507 "just poisons opponent" ;;acr taken from move acr
ocsenave@347	1508 "just paralyzes opponent" ;;
ocsenave@347	1509 "0x19 chance opponent atk -1"
ocsenave@347	1510 "0x19 chance opponent def -1"
ocsenave@347	1511 "0x19 chance opponent spd -1"
ocsenave@347	1512 "0x4C chance opponent spc -1" ;; context suggest chance is 0x19
ocsenave@347	1513 "0x19 chance opponent acr -1"
ocsenave@347	1514 "0x19 chance opponent evd -1"
ocsenave@347	1515 "???" ;; unused? no effect?
ocsenave@347	1516 "???" ;; unused? no effect?
ocsenave@347	1517 "0x19 chance opponent confused"
ocsenave@347	1518 "atk hits twice. 0x33 chance opponent poisioned."
ocsenave@347	1519 "broken. crash the game after attack."
ocsenave@347	1520 "(substitute)"
ocsenave@347	1521 "unless opponent faints, user must recharge after atk. some
ocsenave@347	1522 exceptions apply."
ocsenave@347	1523 "(rage)"
ocsenave@347	1524 "(mimic)"
ocsenave@347	1525 "(metronome)"
ocsenave@347	1526 "(leech seed)"
ocsenave@347	1527 "does nothing (splash)"
ocsenave@347	1528 "(disable)"
ocsenave@347	1529 ])
ocsenave@347	1530 #+end_src
ocsenave@347	1531
ocsenave@347	1532
ocsenave@312	1533 ** Alphabet code
ocsenave@347	1534
ocsenave@348	1535 * Source
ocsenave@348	1536
ocsenave@347	1537 #+begin_src clojure :tangle ../clojure/com/aurellem/gb/hxc.clj
ocsenave@347	1538
ocsenave@347	1539 (ns com.aurellem.gb.hxc
ocsenave@347	1540 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@347	1541 constants species))
ocsenave@347	1542 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@347	1543
ocsenave@347	1544 ; ************* HANDWRITTEN CONSTANTS
ocsenave@347	1545
ocsenave@347	1546 <<type-ids>>
ocsenave@347	1547
ocsenave@347	1548
ocsenave@347	1549 ;; question: when status effects claim to take
ocsenave@347	1550 ;; their accuracy from the move accuracy, does
ocsenave@347	1551 ;; this mean that the move always "hits" but the
ocsenave@347	1552 ;; status effect may not?
ocsenave@347	1553
ocsenave@347	1554 <<move-effects>>
ocsenave@347	1555
ocsenave@347	1556 ;; ************** HARDCODED DATA
ocsenave@347	1557
ocsenave@347	1558 <<hxc-thunks>>
ocsenave@347	1559 ;; --------------------------------------------------
ocsenave@347	1560
ocsenave@347	1561 <<pokenames>>
ocsenave@348	1562 <<type-names>>
ocsenave@347	1563
ocsenave@347	1564 ;; http://hax.iimarck.us/topic/581/
ocsenave@348	1565 <<pokecry>>
ocsenave@347	1566
ocsenave@347	1567
ocsenave@348	1568 <<item-names>>
ocsenave@347	1569
ocsenave@347	1570
ocsenave@347	1571
ocsenave@347	1572 (def hxc-titles
ocsenave@347	1573 "The hardcoded names of the trainer titles in memory. List begins at
ocsenave@347	1574 ROM@27E77"
ocsenave@347	1575 (hxc-thunk-words 0x27E77 196))
ocsenave@347	1576
ocsenave@347	1577
ocsenave@348	1578 <<dex-text>>
ocsenave@347	1579
ocsenave@347	1580 ;; In red/blue, pokedex stats are in internal order.
ocsenave@347	1581 ;; In yellow, pokedex stats are in pokedex order.
ocsenave@348	1582 <<dex-stats>>
ocsenave@347	1583
ocsenave@347	1584
ocsenave@347	1585
ocsenave@347	1586
ocsenave@348	1587 <<places>>
ocsenave@347	1588
ocsenave@347	1589 (defn hxc-dialog
ocsenave@347	1590 "The hardcoded dialogue in memory, including in-game alerts. Dialog
ocsenave@347	1591 seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000."
ocsenave@347	1592 ([rom]
ocsenave@347	1593 (map character-codes->str
ocsenave@347	1594 (take-nth 2
ocsenave@347	1595 (partition-by #(= % 0x57)
ocsenave@347	1596 (take 0x0F728
ocsenave@347	1597 (drop 0x98000 rom))))))
ocsenave@347	1598 ([]
ocsenave@347	1599 (hxc-dialog com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347	1600
ocsenave@347	1601
ocsenave@348	1602 <<move-names>>
ocsenave@348	1603 <<move-data>>
ocsenave@347	1604
ocsenave@348	1605 <<machines>>
ocsenave@347	1606
ocsenave@347	1607
ocsenave@347	1608
ocsenave@347	1609 (defn internal-id
ocsenave@347	1610 ([rom]
ocsenave@347	1611 (zipmap
ocsenave@347	1612 (hxc-pokenames rom)
ocsenave@347	1613 (range)))
ocsenave@347	1614 ([]
ocsenave@347	1615 (internal-id com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347	1616
ocsenave@347	1617
ocsenave@347	1618
ocsenave@347	1619
ocsenave@347	1620
ocsenave@347	1621 ;; nidoran gender change upon levelup
ocsenave@347	1622 ;; (->
ocsenave@347	1623 ;; @current-state
ocsenave@347	1624 ;; rom
ocsenave@347	1625 ;; vec
ocsenave@347	1626 ;; (rewrite-memory
ocsenave@347	1627 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂))
ocsenave@347	1628 ;; [1 1 15])
ocsenave@347	1629 ;; (rewrite-memory
ocsenave@347	1630 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀))
ocsenave@347	1631 ;; [1 1 3])
ocsenave@347	1632 ;; (write-rom!)
ocsenave@347	1633
ocsenave@347	1634 ;; )
ocsenave@347	1635
ocsenave@347	1636
ocsenave@347	1637
ocsenave@348	1638 <<type-advantage>>
ocsenave@347	1639
ocsenave@347	1640
ocsenave@347	1641
ocsenave@348	1642 <<evolution-header>>
ocsenave@349	1643 <<evolution>>
ocsenave@348	1644 <<learnsets>>
ocsenave@348	1645 <<pokebase>>
ocsenave@347	1646
ocsenave@347	1647
ocsenave@347	1648 (defn hxc-intro-pkmn
ocsenave@347	1649 "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's
ocsenave@347	1650 internal id is stored at ROM@5EDB."
ocsenave@347	1651 ([] (hxc-intro-pkmn
ocsenave@347	1652 com.aurellem.gb.gb-driver/original-rom))
ocsenave@347	1653 ([rom]
ocsenave@347	1654 (nth (hxc-pokenames rom) (nth rom 0x5EDB))))
ocsenave@347	1655
ocsenave@347	1656 (defn sxc-intro-pkmn!
ocsenave@347	1657 "Set the hardcoded pokemon to display in Prof. Oak's introduction."
ocsenave@347	1658 [pokemon]
ocsenave@347	1659 (write-rom!
ocsenave@347	1660 (rewrite-rom 0x5EDB
ocsenave@347	1661 [
ocsenave@347	1662 (inc
ocsenave@347	1663 ((zipmap
ocsenave@347	1664 (hxc-pokenames)
ocsenave@347	1665 (range))
ocsenave@347	1666 pokemon))])))
ocsenave@347	1667
ocsenave@347	1668
ocsenave@348	1669 <<item-prices>>
ocsenave@347	1670
ocsenave@348	1671 <<item-vendors>>
ocsenave@347	1672
ocsenave@348	1673 <<wilds>>
ocsenave@347	1674
ocsenave@347	1675
ocsenave@347	1676 ;; ********************** MANIPULATION FNS
ocsenave@347	1677
ocsenave@347	1678
ocsenave@347	1679 (defn same-type
ocsenave@347	1680 ([pkmn move]
ocsenave@347	1681 (same-type
ocsenave@347	1682 com.aurellem.gb.gb-driver/original-rom pkmn move))
ocsenave@347	1683 ([rom pkmn move]
ocsenave@347	1684 (((comp :types (hxc-pokemon-base rom)) pkmn)
ocsenave@347	1685 ((comp :type (hxc-move-data rom)) move))))
ocsenave@347	1686
ocsenave@347	1687
ocsenave@347	1688
ocsenave@347	1689
ocsenave@347	1690 (defn submap?
ocsenave@347	1691 "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false."
ocsenave@347	1692 [map-small map-big]
ocsenave@347	1693 (cond (empty? map-small) true
ocsenave@347	1694 (and
ocsenave@347	1695 (contains? map-big (ffirst map-small))
ocsenave@347	1696 (= (get map-big (ffirst map-small))
ocsenave@347	1697 (second (first map-small))))
ocsenave@347	1698 (recur (next map-small) map-big)
ocsenave@347	1699
ocsenave@347	1700 :else false))
ocsenave@347	1701
ocsenave@347	1702
ocsenave@347	1703 (defn search-map [proto-map maps]
ocsenave@347	1704 "Returns all the maps that make the same associations as proto-map."
ocsenave@347	1705 (some (partial submap? proto-map) maps))
ocsenave@347	1706
ocsenave@347	1707 (defn filter-vals
ocsenave@347	1708 "Returns a map consisting of all the pairs [key val] for
ocsenave@347	1709 which (pred key) returns true."
ocsenave@347	1710 [pred map]
ocsenave@347	1711 (reduce (partial apply assoc) {}
ocsenave@347	1712 (filter (fn [[k v]] (pred v)) map)))
ocsenave@347	1713
ocsenave@347	1714
ocsenave@347	1715 (defn search-moves
ocsenave@347	1716 "Returns a subcollection of all hardcoded moves with the
ocsenave@347	1717 given attributes. Attributes consist of :name :power
ocsenave@347	1718 :accuracy :pp :fx-id
ocsenave@347	1719 (and also :fx-txt, but it contains the same information
ocsenave@347	1720 as :fx-id)"
ocsenave@347	1721 ([attribute-map]
ocsenave@347	1722 (search-moves
ocsenave@347	1723 com.aurellem.gb.gb-driver/original-rom attribute-map))
ocsenave@347	1724 ([rom attribute-map]
ocsenave@347	1725 (filter-vals (partial submap? attribute-map)
ocsenave@347	1726 (hxc-move-data rom))))
ocsenave@347	1727
ocsenave@347	1728
ocsenave@347	1729
ocsenave@347	1730
ocsenave@347	1731
ocsenave@347	1732 ;; note: 0x2f31 contains the names "TM" "HM"?
ocsenave@347	1733
ocsenave@347	1734 ;; note for later: credits start at F1290
ocsenave@347	1735
ocsenave@347	1736 ;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ??
ocsenave@347	1737
ocsenave@347	1738 ;; note: DD4D spells out pokemon vital stat names ("speed", etc.)
ocsenave@347	1739
ocsenave@347	1740 ;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE.
ocsenave@347	1741 ;; The first instance is for Machines; the second, for stones.
ocsenave@347	1742
ocsenave@410	1743 ;; note: according to
ocsenave@410	1744 ;; http://www.upokecenter.com/games/rby/guides/rgbtrainers.php
ocsenave@410	1745 ;; the amount of money given by a trainer is equal to the
ocsenave@410	1746 ;; base money times the level of the last Pokemon on that trainer's
ocsenave@410	1747 ;; list. Other sources say it's the the level of the last pokemon
ocsenave@410	1748 ;; /defeated/.
ocsenave@410	1749
ocsenave@410	1750 ;; todo: find base money.
ocsenave@410	1751
ocsenave@410	1752
ocsenave@411	1753 ;; note: 0xDFEA (in indexable mem) is the dex# of the currently-viewed Pokemon in
ocsenave@411	1754 ;; in the pokedex. It's used for other purposes if there is none.
ocsenave@411	1755
ocsenave@412	1756 ;; note: 0x9D35 (index.) switches from 0xFF to 0x00 temporarily when
ocsenave@412	1757 ;; you walk between areas.
ocsenave@412	1758
ocsenave@412	1759 ;; note: 0xD059 (index.) is the special battle type of your next battle:
ocsenave@412	1760 ;; - 00 is a usual battle
ocsenave@412	1761 ;; - 01 is a pre-scripted OLD MAN battle which always fails to catch the
ocsenave@412	1762 ;; target Pokemon.
ocsenave@412	1763 ;; - 02 is a safari zone battle
ocsenave@412	1764 ;; - 03 obligates you to run away. (unused)
ocsenave@412	1765 ;; - 04 is a pre-scripted OAK battle, which (temporarily) causes the
ocsenave@412	1766 ;; enemy Pokemon to cry PIKAAA, and which always catches the target
ocsenave@412	1767 ;; Pokemon. The target Pokemon is erased after the battle.
ocsenave@412	1768 ;; - 05+ are glitch states in which you are sort of the Pokemon.
ocsenave@412	1769
ocsenave@412	1770
ocsenave@412	1771 ;; note: 0x251A (in indexable mem): image decompression routine seems to begin here.
ocsenave@347	1772
ocsenave@347	1773
ocsenave@373	1774 ;; Note: There are two tile tables, one from 8000-8FFF, the other from
ocsenave@373	1775 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end.
ocsenave@373	1776 (defn print-pixel-letters!
ocsenave@373	1777 "The pixel tiles representing letters. Neat!"
ocsenave@373	1778 ([] (print-pixel-letters! (read-state "oak-speaks")))
ocsenave@373	1779 ([state]
ocsenave@373	1780 (map
ocsenave@373	1781 (comp
ocsenave@373	1782 println
ocsenave@373	1783 (partial map #(if (zero? %) \space 0))
ocsenave@373	1784 #(if (< (count %) 8)
ocsenave@373	1785 (recur (cons 0 %))
ocsenave@373	1786 %)
ocsenave@373	1787 reverse bit-list)
ocsenave@373	1788
ocsenave@373	1789 (take 0xFFF (drop 0x8800 (memory state))))))
ocsenave@373	1790
ocsenave@373	1791
ocsenave@419	1792 ;; (defn test-2 []
ocsenave@419	1793 ;; (loop [n 0
ocsenave@419	1794 ;; pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000)
ocsenave@419	1795 ;; pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a])
ocsenave@419	1796 ;; (step []) (nstep 100)) 100000)]
ocsenave@419	1797 ;; (cond (empty? (drop n pc-1)) [pc-1 n]
ocsenave@419	1798 ;; (not= (take 10 (drop n pc-1)) (take 10 pc-2))
ocsenave@419	1799 ;; (recur pc-1 pc-2 (inc n))
ocsenave@419	1800 ;; :else
ocsenave@419	1801 ;; [(take 1000 pc-2) n])))
ocsenave@406	1802
ocsenave@406	1803
ocsenave@406	1804
ocsenave@406	1805
ocsenave@410	1806 (defn test-3
ocsenave@410	1807 "Explore trainer data"
ocsenave@419	1808 ([] (test-3 0x3A289))
ocsenave@419	1809 ([start]
ocsenave@410	1810 (let [pokenames (vec(hxc-pokenames-raw))]
ocsenave@410	1811 (println
ocsenave@410	1812 (reduce
ocsenave@410	1813 str
ocsenave@410	1814 (map
ocsenave@419	1815 (fn [[adr lvl pkmn]]
ocsenave@419	1816 (str (format "%-11s %4d %02X %02X \t %05X\n"
ocsenave@419	1817
ocsenave@410	1818 (cond
ocsenave@410	1819 (zero? lvl) "+"
ocsenave@410	1820 (nil? (get pokenames (dec pkmn)))
ocsenave@410	1821 "-"
ocsenave@410	1822 :else
ocsenave@410	1823 (get pokenames (dec pkmn)))
ocsenave@410	1824 lvl
ocsenave@410	1825 pkmn
ocsenave@410	1826 lvl
ocsenave@419	1827 adr
ocsenave@419	1828 )))
ocsenave@419	1829 (map cons
ocsenave@419	1830 (take-nth 2 (drop start (range)))
ocsenave@419	1831 (partition 2
ocsenave@419	1832 (take 400;;703
ocsenave@419	1833 (drop
ocsenave@419	1834 start
ocsenave@419	1835 ;; 0x3A75D
ocsenave@419	1836 (rom)))))))))))
ocsenave@410	1837
ocsenave@412	1838 (defn search-memory* [mem codes k]
ocsenave@412	1839 (loop [index 0
ocsenave@412	1840 index-next 1
ocsenave@412	1841 start-match 0
ocsenave@412	1842 to-match codes
ocsenave@412	1843 matches []]
ocsenave@412	1844 (cond
ocsenave@412	1845 (>= index (count mem)) matches
ocsenave@412	1846
ocsenave@412	1847 (empty? to-match)
ocsenave@412	1848 (recur
ocsenave@412	1849 index-next
ocsenave@412	1850 (inc index-next)
ocsenave@412	1851 index-next
ocsenave@412	1852 codes
ocsenave@412	1853 (conj matches
ocsenave@412	1854 [(hex start-match) (take k (drop start-match mem))])
ocsenave@412	1855 )
ocsenave@412	1856
ocsenave@412	1857 (or (= (first to-match) \_) ;; wildcard
ocsenave@412	1858 (= (first to-match) (nth mem index)))
ocsenave@412	1859 (recur
ocsenave@412	1860 (inc index)
ocsenave@412	1861 index-next
ocsenave@412	1862 start-match
ocsenave@412	1863 (rest to-match)
ocsenave@412	1864 matches)
ocsenave@412	1865
ocsenave@412	1866 :else
ocsenave@412	1867 (recur
ocsenave@412	1868 index-next
ocsenave@412	1869 (inc index-next)
ocsenave@412	1870 index-next
ocsenave@412	1871 codes
ocsenave@412	1872 matches))))
ocsenave@412	1873
ocsenave@412	1874
ocsenave@412	1875
ocsenave@406	1876
ocsenave@406	1877
ocsenave@410	1878 ;; look for the rainbow badge in memory
ocsenave@410	1879 (println (reduce str (map #(str (first %) "\t" (vec(second %)) "\n") (search-memory (rom) [221] 10))))
ocsenave@410	1880
ocsenave@406	1881
ocsenave@347	1882 (comment
ocsenave@347	1883
ocsenave@347	1884 (def hxc-later
ocsenave@347	1885 "Running this code produces, e.g. hardcoded names NPCs give
ocsenave@347	1886 their pokemon. Will sort through it later."
ocsenave@347	1887 (print (character-codes->str(take 10000
ocsenave@347	1888 (drop 0x71597
ocsenave@347	1889 (rom (root)))))))
ocsenave@347	1890
ocsenave@347	1891 (let [dex
ocsenave@347	1892 (partition-by #(= 0x50 %)
ocsenave@347	1893 (take 2540
ocsenave@347	1894 (drop 0x40687
ocsenave@347	1895 (rom (root)))))]
ocsenave@347	1896 (def dex dex)
ocsenave@347	1897 (def hxc-species
ocsenave@347	1898 (map character-codes->str
ocsenave@347	1899 (take-nth 4 dex))))
ocsenave@347	1900 )
ocsenave@347	1901
ocsenave@347	1902
ocsenave@347	1903 #+end_src
ocsenave@347	1904
ocsenave@348	1905 #+results:
ocsenave@348	1906 : nil
ocsenave@348	1907

Mercurial > vba-clojure

annotate org/rom.org @ 419:4901ba2d3860