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

comparison clojure/com/aurellem/gb/hxc.clj @ 348:497ca041f5af

finished working for now. i've completed more carving up of code blocks.

author	Dylan Holmes <ocsenave@gmail.com>
date	Sun, 08 Apr 2012 07:55:06 -0500
parents	ff65ee0944fe
children	5aabbe326eb0

comparison

equal deleted inserted replaced

-:ff65ee0944fe
+:497ca041f5af
 (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
 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
 long, these names are stripped of padding. See also, hxc-pokedex-names"
 ([]
 (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
 [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]

Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/hxc.clj @ 348:497ca041f5af