vba-clojure: clojure/com/aurellem/gb/hxc.clj comparison

comparison clojure/com/aurellem/gb/hxc.clj @ 350:5e816fa56393

merge dylan's changes.

author	Robert McIntyre <rlm@mit.edu>
date	Sun, 08 Apr 2012 20:59:06 -0500
parents	497ca041f5af
children	5aabbe326eb0

comparison

equal deleted inserted replaced

-:3b3cd62b6106
+:5e816fa56393
 (ns com.aurellem.gb.hxc
 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
 constants species))
 (:import [com.aurellem.gb.gb_driver SaveState]))
 ; ************* HANDWRITTEN CONSTANTS
 (def pkmn-types
 [:normal    ;;0
 :fighting  ;;1
 :flying    ;;2
 "(leech seed)"
 "does nothing (splash)"
 "(disable)"
 ])
 ;; ************** HARDCODED DATA
 (defn hxc-thunk
 "Creates a thunk (nullary fn) that grabs data in a certain region of rom and
 splits it into a collection by 0x50. If rom is not supplied, uses the
 returning a collection of strings."
 (comp
 (partial comp (partial map character-codes->str))
 hxc-thunk))
 ;; --------------------------------------------------
 (defn hxc-pokenames-raw
 "The hardcoded names of the 190 species in memory. List begins at
 ROM@E8000. Although names in memory are padded with 0x50 to be 10 characters
 (take (count names)
 (drop 0x410b1 rom))
 names)))))
+(def hxc-types
+"The hardcoded type names in memory. List begins at ROM@27D99,
+shortly before hxc-titles."
+(hxc-thunk-words 0x27D99 102))
 ;; http://hax.iimarck.us/topic/581/
 (defn hxc-cry
 "The pokemon cry data in internal order. List begins at ROM@39462"
 (vec(rom))
 0x3965D
 (map second
 ((hxc-cry) pkmn)))))
 (def hxc-items-raw
 "The hardcoded names of the items in memory. List begins at
 ROM@045B7"
 (hxc-thunk-words 0x45B7 870))
-(def hxc-types
+(def hxc-items
-"The hardcoded type names in memory. List begins at ROM@27D99,
+"The hardcoded names of the items in memory, presented as
-shortly before hxc-titles."
+keywords. List begins at ROM@045B7. See also, hxc-items-raw."
-(hxc-thunk-words 0x27D99 102))
+(comp (partial map format-name) hxc-items-raw))
 (def hxc-titles
 "The hardcoded names of the trainer titles in memory. List begins at
 ROM@27E77"
 (hxc-thunk-words 0x27E77 196))
 ROM@B8000, shortly before move names."
 (hxc-thunk-words 0xB8000 14754))
-(def hxc-items
-"The hardcoded names of the items in memory, presented as
-keywords. List begins at ROM@045B7. See also, hxc-items-raw."
-(comp (partial map format-name) hxc-items-raw))
 (defn hxc-pokedex-text
 "The hardcoded pokedex entries in memory, presented as an
 associative hash map. List begins at ROM@B8000."
 ([] (hxc-pokedex-text com.aurellem.gb.gb-driver/original-rom))
 (cons nil ;; for missingno.
 (hxc-pokedex-text-raw rom)))))
 ;; In red/blue, pokedex stats are in internal order.
 ;; In yellow, pokedex stats are in pokedex order.
 (defn hxc-pokedex-stats
 "The hardcoded pokedex stats (species height weight) in memory. List
 begins at ROM@40687"
 ([] (hxc-pokedex-stats com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 (drop 0x40687 rom)))       ))
 (def hxc-places
 "The hardcoded place names in memory. List begins at
 ROM@71500. [Cinnabar] Mansion seems to be dynamically calculated."
 (hxc-thunk-words 0x71500 560))
 (def hxc-move-names
 "The hardcoded move names in memory. List begins at ROM@BC000"
 (hxc-thunk-words 0xBC000 1551))
 (defn hxc-move-data
 "The hardcoded (basic (move effects)) in memory. List begins at
 0x38000. Returns a map of {:name :power :accuracy :pp :fx-id
 :fx-txt}. The move descriptions are handwritten, not hardcoded."
 ([]
 (take 100
 (drop 0x1232D rom))))))))
 (defn internal-id
 ([rom]
 (zipmap
 (hxc-pokenames rom)
 (range)))
 ;;  )
-(defn hxc-advantage
-;; in-game multipliers are stored as 10x their effective value
-;; to allow for fractional multipliers like 1/2
-"The hardcoded type advantages in memory, returned as tuples of
-atk-type def-type multiplier. By default (i.e. if not listed here),
-the multiplier is 1. List begins at 0x3E62D."
-([] (hxc-advantage com.aurellem.gb.gb-driver/original-rom))
-([rom]
-(map
-(fn [[atk def mult]] [(get pkmn-types atk (hex atk))
-(get pkmn-types def (hex def))
-(/ mult 10)])
-(partition 3
-(take-while (partial not= 0xFF)
-(drop 0x3E62D rom))))))
 (defn format-evo
+"Parse a sequence of evolution data, returning a map. First is the
+method: 0 = end-evolution-data. 1 = level-up, 2 = item, 3 = trade. Next is an item id, if the
+method of evolution is by item (only stones will actually make pokemon
+evolve, for some auxillary reason.) Finally, the minimum level for
+evolution to occur (level 1 means no limit, which is used for trade
+and item evolutions), followed by the internal id of the pokemon
+into which to evolve. Hence, level up and trade evolutions are
+described with 3
+bytes; item evolutions with four."
 [coll]
 (let [method (first coll)]
 (cond (empty? coll) []
 (= 0 method) [] ;; just in case
 (= 1 method) ;; level-up evolution
 (defn hxc-learnsets
 "Hardcoded map associating pokemon names to lists of pairs [lvl
 move] of abilities they learn as they level up. The data
-exists at ROM@3400, sorted by internal order. Pointers to the data
+exists at ROM@34000, sorted by internal order. Pointers to the data
 exist at ROM@3B1E5; see also, hxc-ptrs-evolve"
 ([] (hxc-learnsets com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 (apply assoc
 {}
 [pkmn (map (fn [[lvl mv]] [lvl (moves mv)])
 learnset)])
 (hxc-learnsets rom))))))
-(defn hxc-evolution
-"Hardcoded evolution data in memory. The data exists at ROM@34000,
-sorted by internal order. Pointers to the data exist at ROM@3B1E5; see also, hxc-ptrs-evolve."
-([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom))
-([rom]
-(apply assoc {}
-(interleave
-(hxc-pokenames rom)
-(map
-(comp
-format-evo
-(partial take-while (comp not zero?))
-#(drop % rom))
-(hxc-ptrs-evolve rom)
-)))))
-(defn hxc-evolution-pretty
-"Like hxc-evolution, except it uses the names of items and pokemon
---- grabbed from ROM --- rather than their numerical identifiers."
-([] (hxc-evolution-pretty com.aurellem.gb.gb-driver/original-rom))
-([rom]
-(let
-[poke-names (vec (hxc-pokenames rom))
-item-names (vec (hxc-items rom))
-use-names
-(fn [m]
-(loop [ks (keys m) new-map m]
-(let [k (first ks)]
-(cond (nil? ks) new-map
-(= k :into)
-(recur
-(next ks)
-(assoc new-map
-:into
-(poke-names
-(:into
-new-map))))
-(= k :item)
-(recur
-(next ks)
-(assoc new-map
-:item
-(item-names
-(:item new-map))))
-:else
-(recur
-(next ks)
-new-map)
-))))]
-(into {}
-(map (fn [[pkmn evo-coll]]
-[pkmn (map use-names evo-coll)])
-(hxc-evolution rom))))))
 (defn hxc-pokemon-base
 ([] (hxc-pokemon-base com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 (let [entry-size 28
 (partition entry-size
 (take (* entry-size pkmn-count)
 (drop 0x383DE
 rom))))))))
 (defn hxc-intro-pkmn
 "The hardcoded pokemon to display in Prof. Oak's introduction; the pokemon's
 internal id is stored at ROM@5EDB."
 )))
 (defn hxc-ptrs-wild
 "A list of the hardcoded wild encounter data in memory. Pointers
 begin at ROM@0CB95; data begins at ROM@0x04D89"
 ([] (hxc-ptrs-wild com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 ))))))
 ;; ********************** MANIPULATION FNS
 (defn same-type
 ([pkmn move]
 ;; note: 0x2f31 contains the names "TM" "HM"?
 ;; note for later: credits start at F1290
+;; note: DADB hyper-potion-hp _ _ _ super-potion-hp _ _ _ potion-hp ??
+;; note: DD4D spells out pokemon vital stat names ("speed", etc.)
+;; note: 1195C-6A says ABLE#NOT ABLE#, but so does 119C0-119CE.
+;; The first instance is for Machines; the second, for stones.
+;; 0x251A (in indexable mem): image decompression routine seems to begin here.
 (comment
 (def hxc-later
 (def dex dex)
 (def hxc-species
 (map character-codes->str
 (take-nth 4 dex))))
 )

Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/hxc.clj @ 350:5e816fa56393