vba-clojure: org/rom.org annotate

annotate org/rom.org @ 421:13165fb5852b

Found assembly scripts for GiveItem and GivePokemon.

author	Dylan Holmes <ocsenave@gmail.com>
date	Sat, 14 Apr 2012 12:24:00 -0500
parents	acc3d1ad24e8
children	c02108ddcb35

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@420	1097 ROM@71500. [Cinnabar/Celadon] 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@420	1151 ** Map data
ocsenave@420	1152
ocsenave@420	1153 # http://www.pokecommunity.com/showthread.php?t=235311
ocsenave@420	1154 # http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes
ocsenave@420	1155
ocsenave@420	1156 #+name map
ocsenave@420	1157 #+begin_src clojure :exports both :results output
ocsenave@420	1158 (ns com.aurellem.gb.hxc
ocsenave@420	1159 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@420	1160 constants))
ocsenave@420	1161 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@420	1162
ocsenave@420	1163
ocsenave@420	1164 (defn parse-header-tileset
ocsenave@420	1165 [[bank# ;; memory bank for blocks & tileset
ocsenave@420	1166
ocsenave@420	1167 blocks-lo ;; structure
ocsenave@420	1168 blocks-hi
ocsenave@420	1169
ocsenave@420	1170 tileset-lo ;; style
ocsenave@420	1171 tileset-hi
ocsenave@420	1172
ocsenave@420	1173 collision-lo ;; collision info
ocsenave@420	1174 collision-hi
ocsenave@420	1175
ocsenave@420	1176 talk-here-1 ;; positions of up to three
ocsenave@420	1177 talk-here-2 ;; talk-over-countertop tiles
ocsenave@420	1178 talk-here-3 ;; --- 0xFF if unused.
ocsenave@420	1179
ocsenave@420	1180 grass ;; grass tile --- 0xFF if unused
ocsenave@420	1181
ocsenave@420	1182 animation-flags ;; settings for animation
ocsenave@420	1183 & _]]
ocsenave@420	1184
ocsenave@420	1185 [bank#
ocsenave@420	1186
ocsenave@420	1187 blocks-lo ;; structure
ocsenave@420	1188 blocks-hi
ocsenave@420	1189
ocsenave@420	1190 tileset-lo ;; style
ocsenave@420	1191 tileset-hi
ocsenave@420	1192
ocsenave@420	1193 collision-lo ;; collision info
ocsenave@420	1194 collision-hi
ocsenave@420	1195
ocsenave@420	1196 talk-here-1 ;; positions of up to three
ocsenave@420	1197 talk-here-2 ;; talk-over-countertop tiles
ocsenave@420	1198 talk-here-3 ;; --- 0xFF if unused.
ocsenave@420	1199
ocsenave@420	1200 grass ;; grass tile --- 0xFF if unused
ocsenave@420	1201
ocsenave@420	1202 animation-flags ;; settings for animation
ocsenave@420	1203 ])
ocsenave@420	1204
ocsenave@420	1205
ocsenave@420	1206
ocsenave@420	1207 (defn parse-header-map
ocsenave@420	1208 [start]
ocsenave@420	1209
ocsenave@420	1210 (let [connection-size 11
ocsenave@420	1211
ocsenave@420	1212 [tileset-index
ocsenave@420	1213 map-height
ocsenave@420	1214 map-width
ocsenave@420	1215 layout-lo
ocsenave@420	1216 layout-hi
ocsenave@420	1217 text-lo
ocsenave@420	1218 text-hi
ocsenave@420	1219 script-lo
ocsenave@420	1220 script-hi
ocsenave@420	1221 adjacency-flags ;; x x x x N S W E
ocsenave@420	1222 & etc]
ocsenave@420	1223 (drop start (rom))
ocsenave@420	1224
ocsenave@420	1225 [east? west? south? north?]
ocsenave@420	1226 (bit-list adjacency-flags)
ocsenave@420	1227
ocsenave@420	1228 [connections object-data]
ocsenave@420	1229 (split-at
ocsenave@420	1230 (* connection-size (+ east? west? south? north?))
ocsenave@420	1231 etc)
ocsenave@420	1232
ocsenave@420	1233 connections
ocsenave@420	1234 (partition connection-size connections)
ocsenave@420	1235
ocsenave@420	1236
ocsenave@420	1237
ocsenave@420	1238
ocsenave@420	1239 ]
ocsenave@420	1240 (ptr->offset
ocsenave@420	1241 3
ocsenave@420	1242 (low-high layout-lo layout-hi))
ocsenave@420	1243
ocsenave@420	1244
ocsenave@420	1245 ))
ocsenave@420	1246 #+end_src
ocsenave@420	1247
ocsenave@420	1248 #+results:
ocsenave@420	1249 :
ocsenave@420	1250
ocsenave@420	1251
ocsenave@348	1252
ocsenave@348	1253 * Appendices
ocsenave@347	1254 ** Mapping the ROM
ocsenave@420	1255 # D3AD: Script:Use Pokeball?
ocsenave@311	1256
ocsenave@411	1257 \| ROM address (hex) \| Description \| Format \| Example \|
ocsenave@411	1258 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1259 \| \| <15> \| <15> \| <15> \|
ocsenave@411	1260 \| 01823-0184A \| Important prefix strings. \| Variable-length strings, separated by 0x50. \| TM#TRAINER#PC#ROCKET#POK\eacute{}#... \|
ocsenave@411	1261 \| 0233C- \| Shop inventories. \| \| \|
ocsenave@412	1262 \| 02F47- \| (?) Move ids of some HM moves. \| One byte per move id \| 0x0F 0x13 0x39 0x46 0x94 0xFF, the move ids of CUT, FLY, SURF, STRENGTH, FLASH, then cancel. \|
ocsenave@421	1263 \| 03E59- \| Start of the Give-Pok\eacute{}mon script. \| Assembly. When called, converts the contents of register BC into a Pok\eacute{}mon: (B) is the level; (C) is the species. \| \|
ocsenave@421	1264 \| 03E3F- \| Start of the give-item script. \| Assembly. When called, converts the contents of register BC into an item: (B) is the item type; (C) is the quantity. \| \|
ocsenave@411	1265 \| 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	1266 \| 04524-04527 \| (unconfirmed) possibly the bike price in Cerulean. \| \| \|
ocsenave@411	1267 \| 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	1268 \| 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	1269 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1270 \| 05DD2-05DF2 \| Menu text for player info. \| \| PLAYER [newline] BADGES [nelwine] POK\Eacute{}DEX [newline] TIME [0x50] \|
ocsenave@411	1271 \| 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	1272 \| 06698- \| ? Background music. \| \| \|
ocsenave@421	1273 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1274 \| 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	1275 \| 7570-757D \| Menu options for trading Pok\eacute{}mon \| \| TRADE [newline] CANCEL [0x50] \|
ocsenave@412	1276 \| 757D-758A \| Menu options for healing Pok\eacute{}mon \| \| HEAL [newline] CANCEL [0x50] \|
ocsenave@412	1277 \| 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	1278 \| 7AF0-8000 \| (empty space) \| \| 0 0 0 0 0 ... \|
ocsenave@411	1279 \| 0822E-082F? \| Pointers to background music, part I. \| \| \|
ocsenave@411	1280 \| 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	1281 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@420	1282 \| 0DACB. \| Amount of HP restored by Soda Pop \| The HP consists of a single numerical byte. \| 60 \|
ocsenave@420	1283 \| 0DACF. \| Amount of HP restored by Lemonade \| " \| 80 \|
ocsenave@420	1284 \| 0DAD5. \| Amount of HP restored by Fresh Water \| " \| 50 \|
ocsenave@420	1285 \| 0DADB. \| Amount of HP restored by Hyper Potion. \| " \| 200 \|
ocsenave@411	1286 \| 0DAE0. \| Amount of HP restored by Super Potion. \| " \| 50 \|
ocsenave@411	1287 \| 0DAE3. \| Amount of HP restored by Potion. \| " \| 20 \|
ocsenave@411	1288 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1289 \| 0DD4D-DD72 \| Names of permanent stats. \| Variable-length strings separated by 0x50. \| #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# \|
ocsenave@420	1290 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@421	1291 \| 0DE2F. \| Duration of Repel. \| A single byte, representing the number of steps you can take before the effect wears off. \| 100 \|
ocsenave@420	1292 \| 0DF39. \| Duration of Super Repel. \| " \| 200 \|
ocsenave@420	1293 \| 0DF3E. \| Duration of Max Repel. \| " \| 250 \|
ocsenave@420	1294 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1295 \| 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	1296 \| 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	1297 \| 11852- \| Terminology for current stats in the Pok\eacute{}mon menu. \| Contiguous, variable-length strings. \| EXP POINTS[newline]LEVEL UP[0x50] \|
ocsenave@411	1298 \| 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	1299 \| 119C0-119CE \| The two terms for being able/unable to evolve using the current stone. \| Variable-length strings separated by 0x50. \| ABLE#NOT ABLE# \|
ocsenave@421	1300 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@421	1301 \| 11D53. \| Which badge is a prerequisite for CUT? \| op code: which bit of A to test? \| When this script is called, the bits of A contain your badges, and this op code will check a certain bit of A. The op codes for the badges are, in order, [0x47 0x4F 0x57 0x5F 0x67 0x6F 0x77 0x7F]. \|
ocsenave@421	1302 \| 11D67. \| Which badge is a prerequisite for SURF? \| " \| 0x67 (test for Soul Badge) \|
ocsenave@421	1303 \| 11DAC. \| Which badge is a prerequisite for STRENGTH? \| " \| 0x5F (test for Rainbow Badge) \|
ocsenave@421	1304 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1305 \| 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	1306 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@421	1307 \| 1CF8B-1CF8C \| Which Pok\eacute{}mon does Melanie give you in Cerulean City? \| A level/internal-id pair. \| (10 153), corresponding to a level 10 Bulbasaur. \|
ocsenave@421	1308 \| 1D651-1D652 \| Which Pok\eacute{}mon do you find at the top of Celadon Mansion? \| A level/internal-id pair. \| (25 102), corresponding to a level 25 Eevee. \|
ocsenave@421	1309 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1310 \| 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	1311 \| 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	1312 \| 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	1313 \| 27DFF-27E77 \| ? \| 120 bytes of unknown data. \| \|
ocsenave@411	1314 \| 27E77- \| Trainer title names. \| Variable-length names separated by 0x50. \| YOUNGSTER#BUG CATCHER#LASS#... \|
ocsenave@411	1315 \| 34000- \| \| \| \|
ocsenave@411	1316 \| 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	1317 \| 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	1318 \| 39462- \| The Pok\eacute{}mon cry data. \| Fixed-length (3 byte) descriptions of cries. \| \|
ocsenave@411	1319 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1320 \| 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	1321 \| 39B05-39DD0. \| unknown \| \| \|
ocsenave@419	1322 \| 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	1323 \| 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	1324 \| 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	1325 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1326 \| 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	1327 \| 3BBAA-3C000 \| (empty) \| \| 0 0 0 0 ... \|
ocsenave@411	1328 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1329 \| 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	1330 \| 3D6C7-3D6D6 \| Two miscellaneous strings. \| Variable length, separated by 0x50 \| Disabled!#TYPE \|
ocsenave@421	1331 \| 3E190-3E194 \| Which moves have an increased critical-hit ratio? \| List of move ids, terminated by 0xFF. \| (0x02 0x4B 0x98 0xA3 0xFF) corresponding to karate-chop, razor-leaf, crabhammer, slash, end-of-list. \|
ocsenave@421	1332 \| 3E200-3E204 \| " (???) \| " \| " \|
ocsenave@421	1333 \| 3E231. \| Besides normal-type, which type of move can COUNTER counter? \| A single byte representing a type id. \| This is set to 1, the id of the FIGHTING type. \|
ocsenave@411	1334 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1335 \| 40252-4027B \| Pok\eacute{}dex menu text \| Variable-length strings separated by 0x50. \| SEEN#OWN#CONTENTS#... \|
ocsenave@411	1336 \| 40370-40386 \| Important constants for Pok\eacute{}dex entries \| \| HT _ _ ?′??″ [newline] WT _ _ _ ??? lb [0x50] POK\Eacute{} [0x50] \|
ocsenave@411	1337 \| 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	1338 \| 41072- \| Pok\eacute{} placeholder species, "???" \| \| \|
ocsenave@411	1339 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@411	1340 \| 410B1-4116F \| A conversion table between internal order and Pokedex order. \| 190 bytes, corresponding to the Pok\eacute{}dex numbers of the 190 Pok\eacute{}mon listed in internal order. All =MISSINGNO.= are assigned a Pok\eacute{}dex number of 0. \| The first few entries are (112 115 32 35 21 100 34 80 2 ...), which are the Pok\eacute{}dex numbers of Rhydon, Kangaskhan, Nidoran(m), Clefairy, Spearow, Voltorb, Nidoking, Slobrow, and Ivysaur. \|
ocsenave@420	1341 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@420	1342 \| 509B4-509E0 \| Saffron City's adjacency info. \| Four adjacency lists, each 11 bytes long. (For more info on adjacency lists a.k.a. connection data, see [[http://datacrystal.romhacking.net/wiki/Pokemon_Red/Blue:Notes][here]]) \| The first adjacency list is (0x10 0x70 0x46 0xF0 0xC6 0x0A 0x0A 0x23 0xF6 0x09 0xC8) \|
ocsenave@420	1343 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@421	1344 \| 515AE-515AF \| Which Pok\eacute{}mon does the trainer near Route 25 give you? \| A level/internal-id pair. \| (10 176) corresponding to a level 10 Charmander. \|
ocsenave@421	1345 \| 51DD5-51DD6 \| Which Pok\eacute{}mon does the Silph Co. trainer give you? \| A level/internal-id pair. \| (15 19) corresponding to a level 15 Lapras. \|
ocsenave@421	1346 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1347 \| 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	1348 \| 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	1349 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1350 \| 70295- \| Hall of fame \| The text "HALL OF FAME" \| \|
ocsenave@412	1351 \| 70442- \| Play time/money \| The text "PLAY TIME [0x50] MONEY" \| \|
ocsenave@411	1352 \| 71500-7174B \| Names of places. \| Variable-length place names (strings), separated by 0x50. \| PALLET TOWN#VIRIDIAN CITY#PEWTER CITY#CERULEAN CITY#... \|
ocsenave@411	1353 \| 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	1354 \| 7C249-7C2?? \| Pointers to background music, pt II. \| \| \|
ocsenave@412	1355 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@419	1356 \| 98000-B7190 \| Dialogue and other messsages. \| Variable-length strings. \| \|
ocsenave@419	1357 \| B7190-B8000 \| (empty space) \| \| 0 0 0 0 0 ... \|
ocsenave@411	1358 \| 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	1359 \| 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	1360 \| BC610-BD000 \| (empty space) \| \| 0 0 0 0 0 ... \|
ocsenave@411	1361 \| 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	1362 \|-----------------------+-----------------+-----------------+-----------------\|
ocsenave@412	1363 \| E9BD5- \| The text PLAY TIME (see above, 70442) \| \| \|
ocsenave@421	1364 \| F1A44-F1A45 \| Which Pok\eacute{}mon does Officer Jenny give you? \| A level/internal-id pair. \| (10 177), corresponding to a level 10 Squirtle. \|
ocsenave@421	1365 \| F21BF-F21C0 \| Which Pok\eacute{}mon does the salesman at the Mt. Moon Pok\eacute{}mon center give you? \| A level/internal-id pair \| (5 133), corresponding to a level 5 Magikarp. \|
ocsenave@421	1366 \| \| \| \| \|
ocsenave@410	1367 #+TBLFM:
ocsenave@312	1368
ocsenave@421	1369 ** COMMENT
ocsenave@421	1370 Locations where Give Pokemon is used in a nonstraightforward way
ocsenave@421	1371 0x5287C
ocsenave@421	1372 0x5CE23
ocsenave@421	1373 0x5C36B
ocsenave@421	1374 0x7562E
ocsenave@421	1375
ocsenave@347	1376
ocsenave@419	1377 ** Understanding memory banks and pointers
ocsenave@419	1378 #+begin_src clojure
ocsenave@419	1379
ocsenave@419	1380 (defn endian-flip
ocsenave@419	1381 "Flip the bytes of the two-byte number."
ocsenave@419	1382 [n]
ocsenave@419	1383 (assert (< n 0xFFFF))
ocsenave@419	1384 (+ (* 0x100 (rem n 0x100))
ocsenave@419	1385 (int (/ n 0x100))))
ocsenave@419	1386
ocsenave@419	1387
ocsenave@419	1388 (defn offset->ptr
ocsenave@419	1389 "Convert an offset into a little-endian pointer."
ocsenave@419	1390 [n]
ocsenave@419	1391 (->
ocsenave@419	1392 n
ocsenave@419	1393 (rem 0x10000) ;; take last four bytes
ocsenave@419	1394 (rem 0x4000) ;; get relative offset from the start of the bank
ocsenave@419	1395 (+ 0x4000)
ocsenave@419	1396 endian-flip))
ocsenave@419	1397
ocsenave@419	1398 (defn offset->bank
ocsenave@419	1399 "Get the bank of the offset."
ocsenave@419	1400 [n]
ocsenave@419	1401 (int (/ n 0x4000)))
ocsenave@419	1402
ocsenave@419	1403 (defn ptr->offset
ocsenave@419	1404 "Convert a two-byte little-endian pointer into an offset."
ocsenave@419	1405 [bank ptr]
ocsenave@419	1406 (->
ocsenave@419	1407 ptr
ocsenave@419	1408 endian-flip
ocsenave@419	1409 (- 0x4000)
ocsenave@419	1410 (+ (* 0x4000 bank))
ocsenave@419	1411 ))
ocsenave@419	1412
ocsenave@419	1413 (defn same-bank-offset
ocsenave@419	1414 "Convert a ptr into an absolute offset by using the bank of the reference."
ocsenave@419	1415 [reference ptr]
ocsenave@419	1416 (ptr->offset
ocsenave@419	1417 (offset->bank reference)
ocsenave@419	1418 ptr))
ocsenave@419	1419 #+end_src
ocsenave@419	1420
ocsenave@347	1421
ocsenave@312	1422 ** Internal Pok\eacute{}mon IDs
ocsenave@312	1423 ** Type IDs
ocsenave@347	1424
ocsenave@347	1425 #+name: type-ids
ocsenave@347	1426 #+begin_src clojure
ocsenave@347	1427 (def pkmn-types
ocsenave@347	1428 [:normal ;;0
ocsenave@347	1429 :fighting ;;1
ocsenave@347	1430 :flying ;;2
ocsenave@347	1431 :poison ;;3
ocsenave@347	1432 :ground ;;4
ocsenave@347	1433 :rock ;;5
ocsenave@347	1434 :bird ;;6
ocsenave@347	1435 :bug ;;7
ocsenave@347	1436 :ghost ;;8
ocsenave@347	1437 :A
ocsenave@347	1438 :B
ocsenave@347	1439 :C
ocsenave@347	1440 :D
ocsenave@347	1441 :E
ocsenave@347	1442 :F
ocsenave@347	1443 :G
ocsenave@347	1444 :H
ocsenave@347	1445 :I
ocsenave@347	1446 :J
ocsenave@347	1447 :K
ocsenave@347	1448 :fire ;;20 (0x14)
ocsenave@347	1449 :water ;;21 (0x15)
ocsenave@347	1450 :grass ;;22 (0x16)
ocsenave@347	1451 :electric ;;23 (0x17)
ocsenave@347	1452 :psychic ;;24 (0x18)
ocsenave@347	1453 :ice ;;25 (0x19)
ocsenave@347	1454 :dragon ;;26 (0x1A)
ocsenave@347	1455 ])
ocsenave@347	1456 #+end_src
ocsenave@347	1457
ocsenave@312	1458 ** Basic effects of moves
ocsenave@347	1459
ocsenave@347	1460 *** Table of basic effects
ocsenave@347	1461
ocsenave@347	1462 The possible effects of moves in Pok\eacute{}mon \mdash{} for example, dealing
ocsenave@347	1463 damage, leeching health, or potentially poisoning the opponent
ocsenave@347	1464 \mdash{} are stored in a table. Each move has exactly one effect, and
ocsenave@347	1465 different moves might have the same effect.
ocsenave@347	1466
ocsenave@347	1467 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	1468
ocsenave@347	1469 All the legitimate move effects are listed in the table
ocsenave@347	1470 below. Here are some notes for reading it:
ocsenave@347	1471
ocsenave@347	1472 - Whenever an effect has a chance of doing something (like a chance of
ocsenave@371	1473 poisoning the opponent), I list the chance as a hexadecimal amount
ocsenave@371	1474 out of 256; this is to avoid rounding errors. To convert the hex amount into a percentage, divide by 256.
ocsenave@347	1475 - For some effects, the description is too cumbersome to
ocsenave@347	1476 write. Instead, I just write a move name
ocsenave@347	1477 in parentheses, like: (leech seed). That move gives a characteristic example
ocsenave@347	1478 of the effect.
ocsenave@347	1479 - I use the abbreviations =atk=, =def=, =spd=, =spc=, =acr=, =evd= for
ocsenave@371	1480 attack, defense, speed, special, accuracy, and evasiveness.
ocsenave@347	1481 .
ocsenave@347	1482
ocsenave@347	1483
ocsenave@347	1484
ocsenave@347	1485 \| ID (hex) \| Description \| Notes \|
ocsenave@347	1486 \|----------+-------------------------------------------------------------------------------------------------+------------------------------------------------------------------\|
ocsenave@347	1487 \| 0 \| normal damage \| \|
ocsenave@347	1488 \| 1 \| no damage, just sleep \| TODO: find out how many turns \|
ocsenave@347	1489 \| 2 \| 0x4C chance of poison \| \|
ocsenave@347	1490 \| 3 \| leech half of inflicted damage \| \|
ocsenave@347	1491 \| 4 \| 0x19 chance of burn \| \|
ocsenave@347	1492 \| 5 \| 0x19 chance of freeze \| \|
ocsenave@347	1493 \| 6 \| 0x19 chance of paralysis \| \|
ocsenave@347	1494 \| 7 \| user faints; opponent's defense is halved during attack. \| \|
ocsenave@347	1495 \| 8 \| leech half of inflicted damage ONLY if the opponent is asleep \| \|
ocsenave@347	1496 \| 9 \| imitate last attack \| \|
ocsenave@347	1497 \| A \| user atk +1 \| \|
ocsenave@347	1498 \| B \| user def +1 \| \|
ocsenave@347	1499 \| C \| user spd +1 \| \|
ocsenave@347	1500 \| D \| user spc +1 \| \|
ocsenave@347	1501 \| E \| user acr +1 \| This effect is unused. \|
ocsenave@347	1502 \| F \| user evd +1 \| \|
ocsenave@347	1503 \| 10 \| get post-battle money = 2 * level * uses \| \|
ocsenave@347	1504 \| 11 \| move has 0xFE acr, regardless of battle stat modifications. \| \|
ocsenave@347	1505 \| 12 \| opponent atk -1 \| \|
ocsenave@347	1506 \| 13 \| opponent def -1 \| \|
ocsenave@347	1507 \| 14 \| opponent spd -1 \| \|
ocsenave@347	1508 \| 15 \| opponent spc -1 \| \|
ocsenave@347	1509 \| 16 \| opponent acr -1 \| \|
ocsenave@347	1510 \| 17 \| opponent evd -1 \| \|
ocsenave@347	1511 \| 18 \| converts user's type to opponent's. \| \|
ocsenave@347	1512 \| 19 \| (haze) \| \|
ocsenave@347	1513 \| 1A \| (bide) \| \|
ocsenave@347	1514 \| 1B \| (thrash) \| \|
ocsenave@347	1515 \| 1C \| (teleport) \| \|
ocsenave@347	1516 \| 1D \| (fury swipes) \| \|
ocsenave@347	1517 \| 1E \| attacks 2-5 turns \| Unused. TODO: find out what it does. \|
ocsenave@347	1518 \| 1F \| 0x19 chance of flinching \| \|
ocsenave@347	1519 \| 20 \| opponent sleep for 1-7 turns \| \|
ocsenave@347	1520 \| 21 \| 0x66 chance of poison \| \|
ocsenave@347	1521 \| 22 \| 0x4D chance of burn \| \|
ocsenave@347	1522 \| 23 \| 0x4D chance of freeze \| \|
ocsenave@347	1523 \| 24 \| 0x4D chance of paralysis \| \|
ocsenave@347	1524 \| 25 \| 0x4D chance of flinching \| \|
ocsenave@347	1525 \| 26 \| one-hit KO \| \|
ocsenave@347	1526 \| 27 \| charge one turn, atk next. \| \|
ocsenave@347	1527 \| 28 \| fixed damage, leaves 1HP. \| Is the fixed damage the power of the move? \|
ocsenave@347	1528 \| 29 \| fixed damage. \| Like seismic toss, dragon rage, psywave. \|
ocsenave@347	1529 \| 2A \| atk 2-5 turns; opponent can't attack \| The odds of attacking for /n/ turns are: (0 0x60 0x60 0x20 0x20) \|
ocsenave@347	1530 \| 2B \| charge one turn, atk next. (can't be hit when charging) \| \|
ocsenave@347	1531 \| 2C \| atk hits twice. \| \|
ocsenave@347	1532 \| 2D \| user takes 1 damage if misses. \| \|
ocsenave@347	1533 \| 2E \| evade status-lowering effects \| Caused by you or also your opponent? \|
ocsenave@347	1534 \| 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	1535 \| 30 \| atk causes recoil dmg = 1/4 dmg dealt \| \|
ocsenave@347	1536 \| 31 \| confuses opponent \| \|
ocsenave@347	1537 \| 32 \| user atk +2 \| \|
ocsenave@347	1538 \| 33 \| user def +2 \| \|
ocsenave@347	1539 \| 34 \| user spd +2 \| \|
ocsenave@347	1540 \| 35 \| user spc +2 \| \|
ocsenave@347	1541 \| 36 \| user acr +2 \| This effect is unused. \|
ocsenave@347	1542 \| 37 \| user evd +2 \| This effect is unused. \|
ocsenave@347	1543 \| 38 \| restores up to half of user's max hp. \| \|
ocsenave@347	1544 \| 39 \| (transform) \| \|
ocsenave@347	1545 \| 3A \| opponent atk -2 \| \|
ocsenave@347	1546 \| 3B \| opponent def -2 \| \|
ocsenave@347	1547 \| 3C \| opponent spd -2 \| \|
ocsenave@347	1548 \| 3D \| opponent spc -2 \| \|
ocsenave@347	1549 \| 3E \| opponent acr -2 \| \|
ocsenave@347	1550 \| 3F \| opponent evd -2 \| \|
ocsenave@347	1551 \| 40 \| doubles user spc when attacked \| \|
ocsenave@347	1552 \| 41 \| doubles user def when attacked \| \|
ocsenave@347	1553 \| 42 \| just poisons opponent \| \|
ocsenave@347	1554 \| 43 \| just paralyzes opponent \| \|
ocsenave@347	1555 \| 44 \| 0x19 chance opponent atk -1 \| \|
ocsenave@347	1556 \| 45 \| 0x19 chance opponent def -1 \| \|
ocsenave@347	1557 \| 46 \| 0x19 chance opponent spd -1 \| \|
ocsenave@347	1558 \| 47 \| 0x4C chance opponent spc -1 \| \|
ocsenave@347	1559 \| 48 \| 0x19 chance opponent acr -1 \| \|
ocsenave@347	1560 \| 49 \| 0x19 chance opponent evd -1 \| \|
ocsenave@347	1561 \| 4A \| ??? \| ;; unused? no effect? \|
ocsenave@347	1562 \| 4B \| ??? \| ;; unused? no effect? \|
ocsenave@347	1563 \| 4C \| 0x19 chance of confusing the opponent \| \|
ocsenave@347	1564 \| 4D \| atk hits twice. 0x33 chance opponent poisioned. \| \|
ocsenave@347	1565 \| 4E \| broken. crash the game after attack. \| \|
ocsenave@347	1566 \| 4F \| (substitute) \| \|
ocsenave@347	1567 \| 50 \| unless opponent faints, user must recharge after atk. some exceptions apply \| \|
ocsenave@347	1568 \| 51 \| (rage) \| \|
ocsenave@347	1569 \| 52 \| (mimic) \| \|
ocsenave@347	1570 \| 53 \| (metronome) \| \|
ocsenave@347	1571 \| 54 \| (leech seed) \| \|
ocsenave@347	1572 \| 55 \| does nothing (splash) \| \|
ocsenave@347	1573 \| 56 \| (disable) \| \|
ocsenave@347	1574 #+end_src
ocsenave@347	1575
ocsenave@347	1576 *** Source
ocsenave@347	1577 #+name: move-effects
ocsenave@347	1578 #+begin_src clojure
ocsenave@347	1579 (def move-effects
ocsenave@347	1580 ["normal damage"
ocsenave@347	1581 "no damage, just opponent sleep" ;; how many turns? is atk power ignored?
ocsenave@347	1582 "0x4C chance of poison"
ocsenave@347	1583 "leech half of inflicted damage"
ocsenave@347	1584 "0x19 chance of burn"
ocsenave@347	1585 "0x19 chance of freeze"
ocsenave@347	1586 "0x19 chance of paralyze"
ocsenave@347	1587 "user faints; opponent defense halved during attack."
ocsenave@347	1588 "leech half of inflicted damage ONLY if sleeping opponent."
ocsenave@347	1589 "imitate last attack"
ocsenave@347	1590 "user atk +1"
ocsenave@347	1591 "user def +1"
ocsenave@347	1592 "user spd +1"
ocsenave@347	1593 "user spc +1"
ocsenave@347	1594 "user acr +1" ;; unused?!
ocsenave@347	1595 "user evd +1"
ocsenave@347	1596 "get post-battle $ = 2leveluses"
ocsenave@347	1597 "0xFE acr, no matter what."
ocsenave@347	1598 "opponent atk -1" ;; acr taken from move acr?
ocsenave@347	1599 "opponent def -1" ;;
ocsenave@347	1600 "opponent spd -1" ;;
ocsenave@347	1601 "opponent spc -1" ;;
ocsenave@347	1602 "opponent acr -1";;
ocsenave@347	1603 "opponent evd -1"
ocsenave@347	1604 "converts user's type to opponent's."
ocsenave@347	1605 "(haze)"
ocsenave@347	1606 "(bide)"
ocsenave@347	1607 "(thrash)"
ocsenave@347	1608 "(teleport)"
ocsenave@347	1609 "(fury swipes)"
ocsenave@347	1610 "attacks 2-5 turns" ;; unused? like rollout?
ocsenave@347	1611 "0x19 chance of flinch"
ocsenave@347	1612 "opponent sleep for 1-7 turns"
ocsenave@347	1613 "0x66 chance of poison"
ocsenave@347	1614 "0x4D chance of burn"
ocsenave@347	1615 "0x4D chance of freeze"
ocsenave@347	1616 "0x4D chance of paralyze"
ocsenave@347	1617 "0x4D chance of flinch"
ocsenave@347	1618 "one-hit KO"
ocsenave@347	1619 "charge one turn, atk next."
ocsenave@347	1620 "fixed damage, leaves 1HP." ;; how is dmg determined?
ocsenave@347	1621 "fixed damage." ;; cf seismic toss, dragon rage, psywave.
ocsenave@347	1622 "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20)
ocsenave@347	1623 "charge one turn, atk next. (can't be hit when charging)"
ocsenave@347	1624 "atk hits twice."
ocsenave@347	1625 "user takes 1 damage if misses."
ocsenave@347	1626 "evade status-lowering effects" ;;caused by you or also your opponent?
ocsenave@347	1627 "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect"
ocsenave@347	1628 "atk causes recoil dmg = 1/4 dmg dealt"
ocsenave@347	1629 "confuses opponent" ;; acr taken from move acr
ocsenave@347	1630 "user atk +2"
ocsenave@347	1631 "user def +2"
ocsenave@347	1632 "user spd +2"
ocsenave@347	1633 "user spc +2"
ocsenave@347	1634 "user acr +2" ;; unused!
ocsenave@347	1635 "user evd +2" ;; unused!
ocsenave@347	1636 "restores up to half of user's max hp." ;; broken: fails if the difference
ocsenave@347	1637 ;; b/w max and current hp is one less than a multiple of 256.
ocsenave@347	1638 "(transform)"
ocsenave@347	1639 "opponent atk -2"
ocsenave@347	1640 "opponent def -2"
ocsenave@347	1641 "opponent spd -2"
ocsenave@347	1642 "opponent spc -2"
ocsenave@347	1643 "opponent acr -2"
ocsenave@347	1644 "opponent evd -2"
ocsenave@347	1645 "doubles user spc when attacked"
ocsenave@347	1646 "doubles user def when attacked"
ocsenave@347	1647 "just poisons opponent" ;;acr taken from move acr
ocsenave@347	1648 "just paralyzes opponent" ;;
ocsenave@347	1649 "0x19 chance opponent atk -1"
ocsenave@347	1650 "0x19 chance opponent def -1"
ocsenave@347	1651 "0x19 chance opponent spd -1"
ocsenave@347	1652 "0x4C chance opponent spc -1" ;; context suggest chance is 0x19
ocsenave@347	1653 "0x19 chance opponent acr -1"
ocsenave@347	1654 "0x19 chance opponent evd -1"
ocsenave@347	1655 "???" ;; unused? no effect?
ocsenave@347	1656 "???" ;; unused? no effect?
ocsenave@347	1657 "0x19 chance opponent confused"
ocsenave@347	1658 "atk hits twice. 0x33 chance opponent poisioned."
ocsenave@347	1659 "broken. crash the game after attack."
ocsenave@347	1660 "(substitute)"
ocsenave@347	1661 "unless opponent faints, user must recharge after atk. some
ocsenave@347	1662 exceptions apply."
ocsenave@347	1663 "(rage)"
ocsenave@347	1664 "(mimic)"
ocsenave@347	1665 "(metronome)"
ocsenave@347	1666 "(leech seed)"
ocsenave@347	1667 "does nothing (splash)"
ocsenave@347	1668 "(disable)"
ocsenave@347	1669 ])
ocsenave@347	1670 #+end_src
ocsenave@347	1671
ocsenave@347	1672
ocsenave@312	1673 ** Alphabet code
ocsenave@347	1674
ocsenave@348	1675 * Source
ocsenave@348	1676
ocsenave@347	1677 #+begin_src clojure :tangle ../clojure/com/aurellem/gb/hxc.clj
ocsenave@347	1678
ocsenave@347	1679 (ns com.aurellem.gb.hxc
ocsenave@347	1680 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
ocsenave@347	1681 constants species))
ocsenave@347	1682 (:import [com.aurellem.gb.gb_driver SaveState]))
ocsenave@347	1683
ocsenave@347	1684 ; ************* HANDWRITTEN CONSTANTS
ocsenave@347	1685
ocsenave@347	1686 <<type-ids>>
ocsenave@347	1687
ocsenave@347	1688
ocsenave@347	1689 ;; question: when status effects claim to take
ocsenave@347	1690 ;; their accuracy from the move accuracy, does
ocsenave@347	1691 ;; this mean that the move always "hits" but the
ocsenave@347	1692 ;; status effect may not?
ocsenave@347	1693
ocsenave@347	1694 <<move-effects>>
ocsenave@347	1695
ocsenave@347	1696 ;; ************** HARDCODED DATA
ocsenave@347	1697
ocsenave@347	1698 <<hxc-thunks>>
ocsenave@347	1699 ;; --------------------------------------------------
ocsenave@347	1700
ocsenave@347	1701 <<pokenames>>
ocsenave@348	1702 <<type-names>>
ocsenave@347	1703
ocsenave@347	1704 ;; http://hax.iimarck.us/topic/581/
ocsenave@348	1705 <<pokecry>>
ocsenave@347	1706
ocsenave@347	1707
ocsenave@348	1708 <<item-names>>
ocsenave@347	1709
ocsenave@347	1710
ocsenave@347	1711
ocsenave@347	1712 (def hxc-titles
ocsenave@347	1713 "The hardcoded names of the trainer titles in memory. List begins at
ocsenave@347	1714 ROM@27E77"
ocsenave@347	1715 (hxc-thunk-words 0x27E77 196))
ocsenave@347	1716
ocsenave@347	1717
ocsenave@348	1718 <<dex-text>>
ocsenave@347	1719
ocsenave@347	1720 ;; In red/blue, pokedex stats are in internal order.
ocsenave@347	1721 ;; In yellow, pokedex stats are in pokedex order.
ocsenave@348	1722 <<dex-stats>>
ocsenave@347	1723
ocsenave@347	1724
ocsenave@347	1725
ocsenave@347	1726
ocsenave@348	1727 <<places>>
ocsenave@347	1728
ocsenave@347	1729 (defn hxc-dialog
ocsenave@347	1730 "The hardcoded dialogue in memory, including in-game alerts. Dialog
ocsenave@347	1731 seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000."
ocsenave@347	1732 ([rom]
ocsenave@347	1733 (map character-codes->str
ocsenave@347	1734 (take-nth 2
ocsenave@347	1735 (partition-by #(= % 0x57)
ocsenave@347	1736 (take 0x0F728
ocsenave@347	1737 (drop 0x98000 rom))))))
ocsenave@347	1738 ([]
ocsenave@347	1739 (hxc-dialog com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347	1740
ocsenave@347	1741
ocsenave@348	1742 <<move-names>>
ocsenave@348	1743 <<move-data>>
ocsenave@347	1744
ocsenave@348	1745 <<machines>>
ocsenave@347	1746
ocsenave@347	1747
ocsenave@347	1748
ocsenave@347	1749 (defn internal-id
ocsenave@347	1750 ([rom]
ocsenave@347	1751 (zipmap
ocsenave@347	1752 (hxc-pokenames rom)
ocsenave@347	1753 (range)))
ocsenave@347	1754 ([]
ocsenave@347	1755 (internal-id com.aurellem.gb.gb-driver/original-rom)))
ocsenave@347	1756
ocsenave@347	1757
ocsenave@347	1758
ocsenave@347	1759
ocsenave@347	1760
ocsenave@347	1761 ;; nidoran gender change upon levelup
ocsenave@347	1762 ;; (->
ocsenave@347	1763 ;; @current-state
ocsenave@347	1764 ;; rom
ocsenave@347	1765 ;; vec
ocsenave@347	1766 ;; (rewrite-memory
ocsenave@347	1767 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂))
ocsenave@347	1768 ;; [1 1 15])
ocsenave@347	1769 ;; (rewrite-memory
ocsenave@347	1770 ;; (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀))
ocsenave@347	1771 ;; [1 1 3])
ocsenave@347	1772 ;; (write-rom!)
ocsenave@347	1773
ocsenave@347	1774 ;; )
ocsenave@347	1775
ocsenave@347	1776
ocsenave@347	1777
ocsenave@348	1778 <<type-advantage>>
ocsenave@347	1779
ocsenave@347	1780
ocsenave@347	1781
ocsenave@348	1782 <<evolution-header>>
ocsenave@349	1783 <<evolution>>
ocsenave@348	1784 <<learnsets>>
ocsenave@348	1785 <<pokebase>>
ocsenave@347	1786
ocsenave@347	1787
ocsenave@347	1788 (defn hxc-intro-pkmn
ocsenave@347	1789 "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's
ocsenave@347	1790 internal id is stored at ROM@5EDB."
ocsenave@347	1791 ([] (hxc-intro-pkmn
ocsenave@347	1792 com.aurellem.gb.gb-driver/original-rom))
ocsenave@347	1793 ([rom]
ocsenave@347	1794 (nth (hxc-pokenames rom) (nth rom 0x5EDB))))
ocsenave@347	1795
ocsenave@347	1796 (defn sxc-intro-pkmn!
ocsenave@347	1797 "Set the hardcoded pokemon to display in Prof. Oak's introduction."
ocsenave@347	1798 [pokemon]
ocsenave@347	1799 (write-rom!
ocsenave@347	1800 (rewrite-rom 0x5EDB
ocsenave@347	1801 [
ocsenave@347	1802 (inc
ocsenave@347	1803 ((zipmap
ocsenave@347	1804 (hxc-pokenames)
ocsenave@347	1805 (range))
ocsenave@347	1806 pokemon))])))
ocsenave@347	1807
ocsenave@347	1808
ocsenave@348	1809 <<item-prices>>
ocsenave@347	1810
ocsenave@348	1811 <<item-vendors>>
ocsenave@347	1812
ocsenave@348	1813 <<wilds>>
ocsenave@347	1814
ocsenave@347	1815
ocsenave@347	1816 ;; ********************** MANIPULATION FNS
ocsenave@347	1817
ocsenave@347	1818
ocsenave@347	1819 (defn same-type
ocsenave@347	1820 ([pkmn move]
ocsenave@347	1821 (same-type
ocsenave@347	1822 com.aurellem.gb.gb-driver/original-rom pkmn move))
ocsenave@347	1823 ([rom pkmn move]
ocsenave@347	1824 (((comp :types (hxc-pokemon-base rom)) pkmn)
ocsenave@347	1825 ((comp :type (hxc-move-data rom)) move))))
ocsenave@347	1826
ocsenave@347	1827
ocsenave@347	1828
ocsenave@347	1829
ocsenave@347	1830 (defn submap?
ocsenave@347	1831 "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false."
ocsenave@347	1832 [map-small map-big]
ocsenave@347	1833 (cond (empty? map-small) true
ocsenave@347	1834 (and
ocsenave@347	1835 (contains? map-big (ffirst map-small))
ocsenave@347	1836 (= (get map-big (ffirst map-small))
ocsenave@347	1837 (second (first map-small))))
ocsenave@347	1838 (recur (next map-small) map-big)
ocsenave@347	1839
ocsenave@347	1840 :else false))
ocsenave@347	1841
ocsenave@347	1842
ocsenave@347	1843 (defn search-map [proto-map maps]
ocsenave@347	1844 "Returns all the maps that make the same associations as proto-map."
ocsenave@347	1845 (some (partial submap? proto-map) maps))
ocsenave@347	1846
ocsenave@347	1847 (defn filter-vals
ocsenave@347	1848 "Returns a map consisting of all the pairs [key val] for
ocsenave@347	1849 which (pred key) returns true."
ocsenave@347	1850 [pred map]
ocsenave@347	1851 (reduce (partial apply assoc) {}
ocsenave@347	1852 (filter (fn [[k v]] (pred v)) map)))
ocsenave@347	1853
ocsenave@347	1854
ocsenave@347	1855 (defn search-moves
ocsenave@347	1856 "Returns a subcollection of all hardcoded moves with the
ocsenave@347	1857 given attributes. Attributes consist of :name :power
ocsenave@347	1858 :accuracy :pp :fx-id
ocsenave@347	1859 (and also :fx-txt, but it contains the same information
ocsenave@347	1860 as :fx-id)"
ocsenave@347	1861 ([attribute-map]
ocsenave@347	1862 (search-moves
ocsenave@347	1863 com.aurellem.gb.gb-driver/original-rom attribute-map))
ocsenave@347	1864 ([rom attribute-map]
ocsenave@347	1865 (filter-vals (partial submap? attribute-map)
ocsenave@347	1866 (hxc-move-data rom))))
ocsenave@347	1867
ocsenave@347	1868
ocsenave@347	1869
ocsenave@347	1870
ocsenave@347	1871
ocsenave@347	1872 ;; note: 0x2f31 contains the names "TM" "HM"?
ocsenave@347	1873
ocsenave@347	1874 ;; note for later: credits start at F1290
ocsenave@347	1875
ocsenave@347	1876 ;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ??
ocsenave@347	1877
ocsenave@347	1878 ;; note: DD4D spells out pokemon vital stat names ("speed", etc.)
ocsenave@347	1879
ocsenave@347	1880 ;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE.
ocsenave@347	1881 ;; The first instance is for Machines; the second, for stones.
ocsenave@347	1882
ocsenave@410	1883 ;; note: according to
ocsenave@410	1884 ;; http://www.upokecenter.com/games/rby/guides/rgbtrainers.php
ocsenave@410	1885 ;; the amount of money given by a trainer is equal to the
ocsenave@410	1886 ;; base money times the level of the last Pokemon on that trainer's
ocsenave@410	1887 ;; list. Other sources say it's the the level of the last pokemon
ocsenave@410	1888 ;; /defeated/.
ocsenave@410	1889
ocsenave@410	1890 ;; todo: find base money.
ocsenave@410	1891
ocsenave@410	1892
ocsenave@411	1893 ;; note: 0xDFEA (in indexable mem) is the dex# of the currently-viewed Pokemon in
ocsenave@411	1894 ;; in the pokedex. It's used for other purposes if there is none.
ocsenave@411	1895
ocsenave@412	1896 ;; note: 0x9D35 (index.) switches from 0xFF to 0x00 temporarily when
ocsenave@412	1897 ;; you walk between areas.
ocsenave@412	1898
ocsenave@412	1899 ;; note: 0xD059 (index.) is the special battle type of your next battle:
ocsenave@412	1900 ;; - 00 is a usual battle
ocsenave@412	1901 ;; - 01 is a pre-scripted OLD MAN battle which always fails to catch the
ocsenave@412	1902 ;; target Pokemon.
ocsenave@412	1903 ;; - 02 is a safari zone battle
ocsenave@412	1904 ;; - 03 obligates you to run away. (unused)
ocsenave@412	1905 ;; - 04 is a pre-scripted OAK battle, which (temporarily) causes the
ocsenave@412	1906 ;; enemy Pokemon to cry PIKAAA, and which always catches the target
ocsenave@412	1907 ;; Pokemon. The target Pokemon is erased after the battle.
ocsenave@412	1908 ;; - 05+ are glitch states in which you are sort of the Pokemon.
ocsenave@412	1909
ocsenave@412	1910
ocsenave@412	1911 ;; note: 0x251A (in indexable mem): image decompression routine seems to begin here.
ocsenave@347	1912
ocsenave@420	1913 ;; note: 0x4845 (index): vending inventory is loaded here. possibly
ocsenave@420	1914 ;; other things, too.
ocsenave@420	1915 (comment
ocsenave@420	1916 ;; temporarily intercept/adjust what pops out of the vending
ocsenave@420	1917 ;; machine.
ocsenave@420	1918 ;; (and how much it costs)
ocsenave@420	1919
ocsenave@420	1920 ;; located at 0x4845
ocsenave@420	1921 ;; not to be confused with shop inventory, 0xCF7B
ocsenave@420	1922 (do
ocsenave@420	1923 (step (read-state "vend-menu"))
ocsenave@420	1924 (write-memory! (rewrite-memory (vec(memory)) 0x4845 [2 0 1 0]))
ocsenave@420	1925 (step @current-state [:a])
ocsenave@420	1926 (step @current-state [])
ocsenave@420	1927 (nstep @current-state 200) ))
ocsenave@420	1928
ocsenave@347	1929
ocsenave@373	1930 ;; Note: There are two tile tables, one from 8000-8FFF, the other from
ocsenave@373	1931 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end.
ocsenave@373	1932 (defn print-pixel-letters!
ocsenave@373	1933 "The pixel tiles representing letters. Neat!"
ocsenave@373	1934 ([] (print-pixel-letters! (read-state "oak-speaks")))
ocsenave@373	1935 ([state]
ocsenave@373	1936 (map
ocsenave@373	1937 (comp
ocsenave@373	1938 println
ocsenave@373	1939 (partial map #(if (zero? %) \space 0))
ocsenave@373	1940 #(if (< (count %) 8)
ocsenave@373	1941 (recur (cons 0 %))
ocsenave@373	1942 %)
ocsenave@373	1943 reverse bit-list)
ocsenave@373	1944
ocsenave@373	1945 (take 0xFFF (drop 0x8800 (memory state))))))
ocsenave@373	1946
ocsenave@373	1947
ocsenave@419	1948 ;; (defn test-2 []
ocsenave@419	1949 ;; (loop [n 0
ocsenave@419	1950 ;; pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000)
ocsenave@419	1951 ;; pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a])
ocsenave@419	1952 ;; (step []) (nstep 100)) 100000)]
ocsenave@419	1953 ;; (cond (empty? (drop n pc-1)) [pc-1 n]
ocsenave@419	1954 ;; (not= (take 10 (drop n pc-1)) (take 10 pc-2))
ocsenave@419	1955 ;; (recur pc-1 pc-2 (inc n))
ocsenave@419	1956 ;; :else
ocsenave@419	1957 ;; [(take 1000 pc-2) n])))
ocsenave@406	1958
ocsenave@406	1959
ocsenave@406	1960
ocsenave@406	1961
ocsenave@410	1962 (defn test-3
ocsenave@410	1963 "Explore trainer data"
ocsenave@419	1964 ([] (test-3 0x3A289))
ocsenave@419	1965 ([start]
ocsenave@410	1966 (let [pokenames (vec(hxc-pokenames-raw))]
ocsenave@410	1967 (println
ocsenave@410	1968 (reduce
ocsenave@410	1969 str
ocsenave@410	1970 (map
ocsenave@419	1971 (fn [[adr lvl pkmn]]
ocsenave@419	1972 (str (format "%-11s %4d %02X %02X \t %05X\n"
ocsenave@419	1973
ocsenave@410	1974 (cond
ocsenave@410	1975 (zero? lvl) "+"
ocsenave@410	1976 (nil? (get pokenames (dec pkmn)))
ocsenave@410	1977 "-"
ocsenave@410	1978 :else
ocsenave@410	1979 (get pokenames (dec pkmn)))
ocsenave@410	1980 lvl
ocsenave@410	1981 pkmn
ocsenave@410	1982 lvl
ocsenave@419	1983 adr
ocsenave@419	1984 )))
ocsenave@419	1985 (map cons
ocsenave@419	1986 (take-nth 2 (drop start (range)))
ocsenave@419	1987 (partition 2
ocsenave@419	1988 (take 400;;703
ocsenave@419	1989 (drop
ocsenave@419	1990 start
ocsenave@419	1991 ;; 0x3A75D
ocsenave@419	1992 (rom)))))))))))
ocsenave@410	1993
ocsenave@412	1994 (defn search-memory* [mem codes k]
ocsenave@412	1995 (loop [index 0
ocsenave@412	1996 index-next 1
ocsenave@412	1997 start-match 0
ocsenave@412	1998 to-match codes
ocsenave@412	1999 matches []]
ocsenave@412	2000 (cond
ocsenave@412	2001 (>= index (count mem)) matches
ocsenave@412	2002
ocsenave@412	2003 (empty? to-match)
ocsenave@412	2004 (recur
ocsenave@412	2005 index-next
ocsenave@412	2006 (inc index-next)
ocsenave@412	2007 index-next
ocsenave@412	2008 codes
ocsenave@412	2009 (conj matches
ocsenave@412	2010 [(hex start-match) (take k (drop start-match mem))])
ocsenave@412	2011 )
ocsenave@412	2012
ocsenave@412	2013 (or (= (first to-match) \_) ;; wildcard
ocsenave@412	2014 (= (first to-match) (nth mem index)))
ocsenave@412	2015 (recur
ocsenave@412	2016 (inc index)
ocsenave@412	2017 index-next
ocsenave@412	2018 start-match
ocsenave@412	2019 (rest to-match)
ocsenave@412	2020 matches)
ocsenave@412	2021
ocsenave@412	2022 :else
ocsenave@412	2023 (recur
ocsenave@412	2024 index-next
ocsenave@412	2025 (inc index-next)
ocsenave@412	2026 index-next
ocsenave@412	2027 codes
ocsenave@412	2028 matches))))
ocsenave@420	2029
ocsenave@420	2030
ocsenave@420	2031 (def script-use-ball
ocsenave@420	2032 [0xFA ;; ld A, nn
ocsenave@420	2033 \_
ocsenave@420	2034 \_
ocsenave@420	2035 0xA7 ;; and A
ocsenave@420	2036 0xCA ;; JP Z
ocsenave@420	2037 \_
ocsenave@420	2038 \_
ocsenave@420	2039 0x3D ;; dec A
ocsenave@420	2040 0xC2 ;; JP NZ
ocsenave@420	2041 \_
ocsenave@420	2042 \_
ocsenave@420	2043 0xFA ;; LD A
ocsenave@420	2044 \_
ocsenave@420	2045 \_
ocsenave@420	2046 ])
ocsenave@420	2047
ocsenave@420	2048
ocsenave@420	2049
ocsenave@420	2050 (defn search-pattern [ptn coll]
ocsenave@420	2051 (loop
ocsenave@420	2052 [index 0
ocsenave@420	2053 to-match ptn
ocsenave@420	2054 binds {}
ocsenave@420	2055
ocsenave@420	2056 next-index 1
ocsenave@420	2057 match-start 0
ocsenave@420	2058 matches []]
ocsenave@420	2059
ocsenave@420	2060 (cond
ocsenave@420	2061 (>= index (count coll)) matches
ocsenave@420	2062 (empty? to-match)
ocsenave@420	2063 (recur
ocsenave@420	2064 next-index
ocsenave@420	2065 ptn
ocsenave@420	2066 {}
ocsenave@420	2067 (inc next-index)
ocsenave@420	2068 next-index
ocsenave@420	2069 (conj match-start
ocsenave@420	2070 [(hex match-start) binds]))
ocsenave@420	2071
ocsenave@420	2072 :else
ocsenave@420	2073 (let [k (first to-match)
ocsenave@420	2074 v (nth coll index)]
ocsenave@420	2075 (cond
ocsenave@420	2076 (= k \_) ;; wildcard
ocsenave@420	2077 (recur
ocsenave@420	2078 (inc index)
ocsenave@420	2079 (rest to-match)
ocsenave@420	2080 binds
ocsenave@420	2081
ocsenave@420	2082 next-index
ocsenave@420	2083 match-start
ocsenave@420	2084 matches)
ocsenave@420	2085
ocsenave@420	2086 (keyword? k)
ocsenave@420	2087 (if (binds k)
ocsenave@420	2088 (if (= (binds k) v)
ocsenave@420	2089 (recur
ocsenave@420	2090 (inc index)
ocsenave@420	2091 (rest to-match)
ocsenave@420	2092 binds
ocsenave@420	2093 next-index
ocsenave@420	2094 match-start
ocsenave@420	2095 matches)
ocsenave@420	2096
ocsenave@420	2097 (recur
ocsenave@420	2098 next-index
ocsenave@420	2099 ptn
ocsenave@420	2100 {}
ocsenave@420	2101 (inc next-index)
ocsenave@420	2102 next-index
ocsenave@420	2103 matches))
ocsenave@420	2104
ocsenave@420	2105 ;; ;; consistent bindings
ocsenave@420	2106 ;; (recur
ocsenave@420	2107 ;; (inc index)
ocsenave@420	2108 ;; (rest to-match)
ocsenave@420	2109 ;; binds
ocsenave@420	2110
ocsenave@420	2111 ;; next-index
ocsenave@420	2112 ;; match-start
ocsenave@420	2113 ;; matches)
ocsenave@420	2114
ocsenave@420	2115 ;; ;; inconsistent bindings
ocsenave@420	2116 ;; (recur
ocsenave@420	2117 ;; next-index
ocsenave@420	2118 ;; ptn
ocsenave@420	2119 ;; {}
ocsenave@420	2120 ;; (inc next-index)
ocsenave@420	2121 ;; next-index
ocsenave@420	2122 ;; matches))
ocsenave@420	2123
ocsenave@420	2124 (if ((set (vals binds)) v)
ocsenave@420	2125 ;; bindings are not unique
ocsenave@420	2126 (recur
ocsenave@420	2127 next-index
ocsenave@420	2128 ptn
ocsenave@420	2129 {}
ocsenave@420	2130 (inc next-index)
ocsenave@420	2131 next-index
ocsenave@420	2132 matches)
ocsenave@420	2133
ocsenave@420	2134 ;; bindings are unique
ocsenave@420	2135 (recur
ocsenave@420	2136 (inc index)
ocsenave@420	2137 (rest to-match)
ocsenave@420	2138 (assoc binds k v)
ocsenave@420	2139
ocsenave@420	2140 next-index
ocsenave@420	2141 match-start
ocsenave@420	2142 matches)))
ocsenave@420	2143
ocsenave@420	2144 :else ;; k is just a number
ocsenave@420	2145 (if (= k v)
ocsenave@420	2146 (recur
ocsenave@420	2147 (inc index)
ocsenave@420	2148 (rest to-match)
ocsenave@420	2149 binds
ocsenave@420	2150
ocsenave@420	2151 next-index
ocsenave@420	2152 match-start
ocsenave@420	2153 matches)
ocsenave@420	2154
ocsenave@420	2155 (recur
ocsenave@420	2156 next-index
ocsenave@420	2157 ptn
ocsenave@420	2158 {}
ocsenave@420	2159 (inc next-index)
ocsenave@420	2160 next-index
ocsenave@420	2161 matches)))))))
ocsenave@420	2162
ocsenave@420	2163
ocsenave@420	2164
ocsenave@420	2165
ocsenave@420	2166
ocsenave@420	2167
ocsenave@420	2168
ocsenave@420	2169
ocsenave@420	2170
ocsenave@420	2171 (defn search-pattern* [ptn coll]
ocsenave@420	2172 (loop
ocsenave@420	2173 [
ocsenave@420	2174 binds {}
ocsenave@420	2175 index 0
ocsenave@420	2176 index-next 1
ocsenave@420	2177 start-match 0
ocsenave@420	2178 to-match ptn
ocsenave@420	2179 matches []]
ocsenave@420	2180
ocsenave@420	2181 (cond
ocsenave@420	2182 (>= index (count coll)) matches
ocsenave@420	2183 (empty? to-match)
ocsenave@420	2184 (recur
ocsenave@420	2185 {}
ocsenave@420	2186 index-next
ocsenave@420	2187 (inc index-next)
ocsenave@420	2188 index-next
ocsenave@420	2189 ptn
ocsenave@420	2190 (conj matches
ocsenave@420	2191 [(hex start-match) binds]))
ocsenave@420	2192
ocsenave@420	2193 :else
ocsenave@420	2194 (let [k (first to-match)
ocsenave@420	2195 v (nth coll index)]
ocsenave@420	2196 (cond
ocsenave@420	2197 (= k \_) ;; wildcard
ocsenave@420	2198 (recur
ocsenave@420	2199 binds
ocsenave@420	2200 (inc index)
ocsenave@420	2201 index-next
ocsenave@420	2202 start-match
ocsenave@420	2203 (rest to-match)
ocsenave@420	2204 matches)
ocsenave@420	2205
ocsenave@420	2206 (keyword? k)
ocsenave@420	2207 (if (binds k)
ocsenave@420	2208 (if (= (binds k) v)
ocsenave@420	2209 (recur
ocsenave@420	2210 binds
ocsenave@420	2211 (inc index)
ocsenave@420	2212 index-next
ocsenave@420	2213 start-match
ocsenave@420	2214 (rest to-match)
ocsenave@420	2215 matches)
ocsenave@420	2216 (recur
ocsenave@420	2217 {}
ocsenave@420	2218 index-next
ocsenave@420	2219 (inc index-next)
ocsenave@420	2220 index-next
ocsenave@420	2221 ptn
ocsenave@420	2222 matches))
ocsenave@420	2223 (if
ocsenave@420	2224 ;; every symbol must be bound to a different thing.
ocsenave@420	2225 ((set (vals binds)) v)
ocsenave@420	2226 (recur
ocsenave@420	2227 {}
ocsenave@420	2228 index-next
ocsenave@420	2229 (inc index-next)
ocsenave@420	2230 index-next
ocsenave@420	2231 ptn
ocsenave@420	2232 matches)
ocsenave@420	2233 (recur
ocsenave@420	2234 (assoc binds k v)
ocsenave@420	2235 (inc index)
ocsenave@420	2236 index-next
ocsenave@420	2237 start-match
ocsenave@420	2238 (rest to-match)
ocsenave@421	2239 matches)))
ocsenave@421	2240
ocsenave@421	2241 :else
ocsenave@421	2242 (if (= k v)
ocsenave@421	2243 (recur
ocsenave@421	2244 binds
ocsenave@421	2245 (inc index)
ocsenave@421	2246 index-next
ocsenave@421	2247 start-match
ocsenave@421	2248 (rest to-match)
ocsenave@421	2249 matches)
ocsenave@421	2250 (recur
ocsenave@421	2251 {}
ocsenave@421	2252 index-next
ocsenave@421	2253 (inc index-next)
ocsenave@421	2254 index-next
ocsenave@421	2255 ptn
ocsenave@421	2256 matches))
ocsenave@421	2257
ocsenave@421	2258
ocsenave@421	2259
ocsenave@421	2260 )))))
ocsenave@420	2261
ocsenave@412	2262
ocsenave@406	2263
ocsenave@406	2264
ocsenave@410	2265 ;; look for the rainbow badge in memory
ocsenave@410	2266 (println (reduce str (map #(str (first %) "\t" (vec(second %)) "\n") (search-memory (rom) [221] 10))))
ocsenave@410	2267
ocsenave@406	2268
ocsenave@347	2269 (comment
ocsenave@347	2270
ocsenave@347	2271 (def hxc-later
ocsenave@347	2272 "Running this code produces, e.g. hardcoded names NPCs give
ocsenave@347	2273 their pokemon. Will sort through it later."
ocsenave@347	2274 (print (character-codes->str(take 10000
ocsenave@347	2275 (drop 0x71597
ocsenave@347	2276 (rom (root)))))))
ocsenave@347	2277
ocsenave@347	2278 (let [dex
ocsenave@347	2279 (partition-by #(= 0x50 %)
ocsenave@347	2280 (take 2540
ocsenave@347	2281 (drop 0x40687
ocsenave@347	2282 (rom (root)))))]
ocsenave@347	2283 (def dex dex)
ocsenave@347	2284 (def hxc-species
ocsenave@347	2285 (map character-codes->str
ocsenave@347	2286 (take-nth 4 dex))))
ocsenave@347	2287 )
ocsenave@347	2288
ocsenave@347	2289
ocsenave@347	2290 #+end_src
ocsenave@347	2291
ocsenave@348	2292 #+results:
ocsenave@348	2293 : nil
ocsenave@348	2294

Mercurial > vba-clojure

annotate org/rom.org @ 421:13165fb5852b