rlm@218: (ns com.aurellem.gb.hxc rlm@218: (:use (com.aurellem.gb assembly characters gb-driver util rlm@218: constants)) rlm@218: (:use (com.aurellem.world practice)) rlm@218: (:import [com.aurellem.gb.gb_driver SaveState])) rlm@218: rlm@218: ocsenave@243: ocsenave@249: ocsenave@249: ; ************* HANDWRITTEN CONSTANTS ocsenave@249: ocsenave@243: (def pkmn-types ocsenave@244: [:normal ocsenave@244: :fighting ocsenave@244: :flying ocsenave@244: :poison ocsenave@244: :ground ocsenave@244: :rock ocsenave@245: :bird ocsenave@244: :bug ocsenave@244: :ghost ocsenave@244: :A ocsenave@244: :B ocsenave@244: :C ocsenave@244: :D ocsenave@244: :E ocsenave@244: :F ocsenave@244: :G ocsenave@244: :H ocsenave@244: :I ocsenave@244: :J ocsenave@244: :K ocsenave@244: :fire ocsenave@244: :water ocsenave@244: :grass ocsenave@244: :electric ocsenave@244: :psychic ocsenave@244: :ice ocsenave@244: :dragon ocsenave@244: ]) ocsenave@243: ocsenave@243: ocsenave@246: ;; question: when status effects claim to take ocsenave@246: ;; their accuracy from the move accuracy, does ocsenave@246: ;; this mean that the move always "hits" but the ocsenave@246: ;; status effect may not? ocsenave@246: ocsenave@246: (def move-effects ocsenave@246: ["normal damage" ocsenave@246: "no damage, just opponent sleep" ;; how many turns? is atk power ignored? ocsenave@246: "0x4C chance of poison" ocsenave@246: "leech half of inflicted damage" ocsenave@246: "0x19 chance of burn" ocsenave@246: "0x19 chance of freeze" ocsenave@246: "0x19 chance of paralyze" ocsenave@246: "user faints; opponent defense halved." ocsenave@246: "leech half of inflicted damage ONLY if sleeping opponent." ocsenave@246: "imitate last attack" ocsenave@246: "user atk +1" ocsenave@246: "user def +1" ocsenave@246: "user spd +1" ocsenave@246: "user spc +1" ocsenave@246: "user acr +1" ;; unused?! ocsenave@246: "user evd +1" ocsenave@246: "get post-battle $ = 2*level*uses" ocsenave@246: "0xFE acr, no matter what." ocsenave@246: "opponent atk -1" ;; acr taken from move acr? ocsenave@246: "opponent def -1" ;; ocsenave@246: "opponent spd -1" ;; ocsenave@246: "opponent spc -1" ;; ocsenave@246: "opponent acr -1";; ocsenave@246: "opponent evd -1" ocsenave@246: "converts user's type to opponent's." ocsenave@246: "(haze)" ocsenave@246: "(bide)" ocsenave@246: "(thrash)" ocsenave@246: "(teleport)" ocsenave@246: "(fury swipes)" ocsenave@246: "attacks 2-5 turns" ;; unused? like rollout? ocsenave@246: "0x19 chance of flinch" ocsenave@246: "opponent sleep for 1-7 turns" ocsenave@246: "0x66 chance of poison" ocsenave@246: "0x4D chance of burn" ocsenave@246: "0x4D chance of freeze" ocsenave@246: "0x4D chance of paralyze" ocsenave@246: "0x4D chance of flinch" ocsenave@246: "one-hit KO" ocsenave@246: "charge one turn, atk next." ocsenave@246: "fixed damage, leaves 1HP." ;; how is dmg determined? ocsenave@246: "fixed damage." ;; cf seismic toss, dragon rage, psywave. ocsenave@246: "atk 2-5 turns; opponent can't attack" ;; unnormalized? (0 0x60 0x60 0x20 0x20) ocsenave@246: "charge one turn, atk next. (can't be hit when charging)" ocsenave@246: "atk hits twice." ocsenave@246: "user takes 1 damage if misses." ocsenave@246: "evade status-lowering effects" ;;caused by you or also your opponent? ocsenave@246: "(broken) if user is slower than opponent, makes critical hit impossible, otherwise has no effect" ocsenave@246: "atk causes recoil dmg = 1/4 dmg dealt" ocsenave@246: "confuses opponent" ;; acr taken from move acr ocsenave@246: "user atk +2" ocsenave@246: "user def +2" ocsenave@246: "user spd +2" ocsenave@246: "user spc +2" ocsenave@246: "user acr +2" ;; unused! ocsenave@246: "user evd +2" ;; unused! ocsenave@246: "restores up to half of user's max hp." ;; broken: fails if the difference ocsenave@246: ;; b/w max and current hp is one less than a multiple of 256. ocsenave@246: "(transform)" ocsenave@246: "opponent atk -2" ocsenave@246: "opponent def -2" ocsenave@246: "opponent spd -2" ocsenave@246: "opponent spc -2" ocsenave@246: "opponent acr -2" ocsenave@246: "opponent evd -2" ocsenave@246: "doubles user spc when attacked" ocsenave@246: "doubles user def when attacked" ocsenave@249: "just poisons opponent" ;;acr taken from move acr ocsenave@249: "just paralyzes opponent" ;; ocsenave@246: "0x19 chance opponent atk -1" ocsenave@246: "0x19 chance opponent def -1" ocsenave@246: "0x19 chance opponent spd -1" ocsenave@246: "0x4C chance opponent spc -1" ;; context suggest chance is 0x19 ocsenave@246: "0x19 chance opponent acr -1" ocsenave@246: "0x19 chance opponent evd -1" ocsenave@246: "???" ;; unused? no effect? ocsenave@246: "???" ;; unused? no effect? ocsenave@246: "0x19 chance opponent confused" ocsenave@246: "atk hits twice. 0x33 chance opponent poisioned." ocsenave@246: "broken. crash the game after attack." ocsenave@246: "(substitute)" ocsenave@246: "unless opponent faints, user must recharge after atk. some ocsenave@246: exceptions apply." ocsenave@246: "(rage)" ocsenave@246: "(mimic)" ocsenave@246: "(metronome)" ocsenave@246: "(leech seed)" ocsenave@246: "does nothing (splash)" ocsenave@246: "(disable)" ocsenave@246: ]) ocsenave@246: ocsenave@246: ocsenave@249: ;; ************** HARDCODED DATA ocsenave@246: ocsenave@249: (defn hxc-thunk ocsenave@249: "Creates a thunk (unary fn) that grabs data in a certain region of rom and ocsenave@249: splits it into a collection by 0x50. If rom is not supplied, uses the ocsenave@249: original rom data." ocsenave@249: [start length] ocsenave@249: (fn self ocsenave@249: ([rom] ocsenave@249: (take-nth 2 ocsenave@249: (partition-by #(= % 0x50) ocsenave@249: (take length ocsenave@249: (drop start rom))))) ocsenave@249: ([] ocsenave@249: (self com.aurellem.gb.gb-driver/original-rom)))) ocsenave@246: ocsenave@249: (def hxc-thunk-words ocsenave@249: "Same as hxc-thunk, except it interprets the rom data as characters, ocsenave@249: returning a collection of strings." ocsenave@249: (comp ocsenave@249: (partial comp (partial map character-codes->str)) ocsenave@249: hxc-thunk)) ocsenave@249: ocsenave@249: ocsenave@249: ;; -------------------------------------------------- ocsenave@246: ocsenave@246: (def hxc-items ocsenave@249: "The hardcoded names of the items in memory. List begins at ocsenave@249: ROM@045B7" ocsenave@249: (hxc-thunk-words 0x45B7 870)) ocsenave@246: ocsenave@246: (def hxc-types ocsenave@246: "The hardcoded type names in memory. List begins at ROM@27D99, ocsenave@246: shortly before hxc-titles." ocsenave@249: (hxc-thunk-words 0x27D99 102)) ocsenave@246: ocsenave@246: (def hxc-titles ocsenave@246: "The hardcoded names of the trainer titles in memory. List begins at ocsenave@246: ROM@27E77" ocsenave@249: (hxc-thunk-words 0x27E77 196)) ocsenave@246: ocsenave@246: (def hxc-places ocsenave@246: "The hardcoded place names in memory. List begins at ocsenave@249: ROM@71500. [Cinnabar] Mansion seems to be dynamically calculated." ocsenave@249: (hxc-thunk-words 0x71500 560)) ocsenave@246: ocsenave@246: ocsenave@249: (defn hxc-dialog ocsenave@249: "The hardcoded dialogue in memory, including in-game alerts. Dialog ocsenave@249: seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000." ocsenave@249: ([rom] ocsenave@249: (map character-codes->str ocsenave@249: (take-nth 2 ocsenave@249: (partition-by #(= % 0x57) ocsenave@249: (take 0x0F728 ocsenave@249: (drop 0x98000 rom)))))) ocsenave@249: ([] ocsenave@249: (hxc-dialog com.aurellem.gb.gb-driver/original-rom))) ocsenave@249: ocsenave@246: ocsenave@246: (def hxc-pokedex ocsenave@246: "The hardcoded pokedex entries in memory. List begins at ocsenave@246: ROM@B8000, shortly before move names." ocsenave@249: (hxc-thunk-words 0xB8000 14754)) ocsenave@249: ocsenave@246: (def hxc-move-names ocsenave@246: "The hardcoded move names in memory. List begins at ROM@BC000" ocsenave@249: (hxc-thunk-words 0xBC000 1551)) ocsenave@246: ocsenave@249: ocsenave@249: (defn hxc-move-data ocsenave@246: "The hardcoded (basic (move effects)) in memory. List begins at ocsenave@249: 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id ocsenave@249: :fx-txt}. The move descriptions are handwritten, not hardcoded." ocsenave@249: ([] ocsenave@249: (hxc-move-data com.aurellem.gb.gb-driver/original-rom)) ocsenave@249: ([rom] ocsenave@249: (let [names (vec (hxc-move-names rom)) ocsenave@249: move-count (count names) ocsenave@249: move-size 6 ocsenave@249: format-name (fn [s] ocsenave@246: (keyword (.toLowerCase ocsenave@249: (apply str ocsenave@249: (map #(if (= % \space) "-" %) s)))))] ocsenave@249: (zipmap (map format-name names) ocsenave@249: (map ocsenave@249: (fn [[idx effect power type accuracy pp]] ocsenave@249: {:name (names (dec idx)) ocsenave@249: :power power ocsenave@249: :accuracy accuracy ocsenave@249: :pp pp ocsenave@249: :fx-id effect ocsenave@249: :fx-txt (get move-effects effect) ocsenave@249: } ocsenave@249: ) ocsenave@249: ocsenave@249: (partition move-size ocsenave@249: (take (* move-size move-count) ocsenave@249: (drop 0x38000 rom)))))))) ocsenave@246: ocsenave@246: ocsenave@246: ocsenave@249: (defn hxc-move-data* ocsenave@249: "Like hxc-move-data, but reports numbers as hexadecimal symbols instead." ocsenave@249: ([] ocsenave@249: (hxc-move-data* com.aurellem.gb.gb-driver/original-rom)) ocsenave@249: ([rom] ocsenave@249: (let [names (vec (hxc-move-names rom)) ocsenave@249: move-count (count names) ocsenave@249: move-size 6 ocsenave@249: format-name (fn [s] ocsenave@249: (keyword (.toLowerCase ocsenave@249: (apply str ocsenave@249: (map #(if (= % \space) "-" %) s))))) ocsenave@249: ] ocsenave@249: (zipmap (map format-name names) ocsenave@249: (map ocsenave@249: (fn [[idx effect power type accuracy pp]] ocsenave@249: {:name (names (dec idx)) ocsenave@249: :power power ocsenave@249: :accuracy (hex accuracy) ocsenave@249: :pp pp ocsenave@249: :fx-id (hex effect) ocsenave@249: :fx-txt (get move-effects effect) ocsenave@249: } ocsenave@249: ) ocsenave@249: ocsenave@249: (partition move-size ocsenave@249: (take (* move-size move-count) ocsenave@249: (drop 0x38000 rom)))))))) ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@249: (defn hxc-pokenames ocsenave@249: "The hardcoded names of the 190 species in memory. List begins at ocsenave@249: ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters ocsenave@249: long, these names are stripped of padding." ocsenave@249: ([] ocsenave@249: (hxc-pokenames com.aurellem.gb.gb-driver/original-rom)) ocsenave@249: ([rom] ocsenave@249: (let [count-species 190 ocsenave@249: name-length 10] ocsenave@249: (map character-codes->str ocsenave@249: (partition name-length ocsenave@249: (map #(if (= 0x50 %) 0x00 %) ocsenave@249: (take (* count-species name-length) ocsenave@249: (drop 0xE8000 ocsenave@249: rom)))))))) ocsenave@243: ocsenave@249: (defn hxc-advantage ocsenave@249: "The hardcoded type advantages in memory, returned as tuples of atk-type def-type multiplier. By default (i.e. if not listed here), ocsenave@249: the multiplier is 1." ocsenave@249: ([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom)) ocsenave@249: ([rom] ocsenave@249: (map ocsenave@249: (fn [[atk def mult]] [(get pkmn-types atk (hex atk)) ocsenave@249: (get pkmn-types def (hex def)) ocsenave@249: (/ mult 10)]) ocsenave@249: (partition 3 ocsenave@249: (take-while (partial not= 0xFF) ocsenave@249: (drop 0x3E62D rom)))))) ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@249: ;; ********************** MANIPULATION FNS ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: (defn submap? ocsenave@249: "Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false." ocsenave@249: [map-small map-big] ocsenave@249: (cond (empty? map-small) true ocsenave@249: (and ocsenave@249: (contains? map-big (ffirst map-small)) ocsenave@249: (= (get map-big (ffirst map-small)) ocsenave@249: (second (first map-small)))) ocsenave@249: (recur (next map-small) map-big) ocsenave@249: ocsenave@249: :else false)) ocsenave@249: ocsenave@249: ocsenave@249: (defn search-map [proto-map maps] ocsenave@249: "Returns all the maps that make the same associations as proto-map." ocsenave@249: (some (partial submap? proto-map) maps)) ocsenave@249: rlm@252: (defn filter-vals rlm@252: "Returns a map consisting of all the pairs [key val] for rlm@252: which (pred key) returns true." rlm@252: [pred map] rlm@252: (reduce (partial apply assoc) {} rlm@252: (filter (fn [[k v]] (pred v)) map))) ocsenave@249: ocsenave@249: ocsenave@249: (defn search-moves rlm@252: "Returns a subcollection of all hardcoded moves with the rlm@252: given attributes. Attributes consist of :name :power rlm@252: :accuracy :pp :fx-id rlm@252: (and also :fx-txt, but it contains the same information rlm@252: as :fx-id)" ocsenave@249: ([attribute-map] rlm@252: (search-moves rlm@252: com.aurellem.gb.gb-driver/original-rom attribute-map)) ocsenave@249: ([rom attribute-map] rlm@252: (filter-vals (partial submap? attribute-map) rlm@252: (hxc-move-data rom)))) ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@249: ocsenave@243: ocsenave@246: ;; note for later: credits start at F1290 ocsenave@243: ocsenave@243: ocsenave@243: ocsenave@246: (comment ocsenave@243: rlm@218: (def hxc-later rlm@218: "Running this code produces, e.g. hardcoded names NPCs give rlm@218: their pokemon. Will sort through it later." rlm@218: (print (character-codes->str(take 10000 rlm@218: (drop 0x71597 rlm@218: (rom (root))))))) rlm@218: rlm@218: (let [dex rlm@218: (partition-by #(= 0x50 %) rlm@218: (take 2540 rlm@218: (drop 0x40687 rlm@218: (rom (root)))))] rlm@218: (def dex dex) rlm@218: (def hxc-species rlm@218: (map character-codes->str rlm@218: (take-nth 4 dex)))) ocsenave@246: )