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

comparison clojure/com/aurellem/gb/hxc.clj @ 249:99227bec1123

Reworked the hxc definitions; they are now fns that optionally take a single rom arg and dynamically grab the data. Their commonalities are also consolidated into a single template function, hxc-thunk. Minor fixes include stripping pokenames of their padding and splitting the huge hxc-dialog string into a list.

author	Dylan Holmes <ocsenave@gmail.com>
date	Mon, 26 Mar 2012 03:45:24 -0500
parents	921d2277bb57
children	2b6bd03feb4f

comparison

equal deleted inserted replaced

-:e94d20ad853e
+:99227bec1123
 constants))
 (:use (com.aurellem.world practice))
 (:import [com.aurellem.gb.gb_driver SaveState]))
+; ************* HANDWRITTEN CONSTANTS
 (def pkmn-types
 [:normal
 :fighting
 :flying
 "opponent spc -2"
 "opponent acr -2"
 "opponent evd -2"
 "doubles user spc when attacked"
 "doubles user def when attacked"
-"poisons opponent"   ;;acr taken from move acr
+"just poisons opponent"   ;;acr taken from move acr
-"paralyzes opponent" ;;
+"just paralyzes opponent" ;;
 "0x19 chance opponent atk -1"
 "0x19 chance opponent def -1"
 "0x19 chance opponent spd -1"
 "0x4C chance opponent spc -1" ;; context suggest chance is 0x19
 "0x19 chance opponent acr -1"
 "does nothing (splash)"
 "(disable)"
 ])
+;; ************** HARDCODED DATA
+(defn hxc-thunk
-(def hxc-items
+"Creates a thunk (unary fn) that grabs data in a certain region of rom and
-"The hardcoded names of the items in memory. List begins at ROM@045B7 "
+splits it into a collection by 0x50. If rom is not supplied, uses the
-(map character-codes->str
+original rom data."
+[start length]
+(fn self
+([rom]
 (take-nth 2
 (partition-by #(= % 0x50)
-(take 1200
+(take length
-(drop 0x45B7 (rom (root))))))))
+(drop start rom)))))
+([]
+(self com.aurellem.gb.gb-driver/original-rom))))
+(def hxc-thunk-words
+"Same as hxc-thunk, except it interprets the rom data as characters,
+returning a collection of strings."
+(comp
+(partial comp (partial map character-codes->str))
+hxc-thunk))
+;; --------------------------------------------------
+(def hxc-items
+"The hardcoded names of the items in memory. List begins at
+ROM@045B7"
+(hxc-thunk-words 0x45B7 870))
 (def hxc-types
 "The hardcoded type names in memory. List begins at ROM@27D99,
 shortly before hxc-titles."
-(map character-codes->str
+(hxc-thunk-words 0x27D99 102))
-(take-nth 2
-(partition-by #(= 0x50 %)
-(take 102
-(drop 0x27D99
-(rom (root))))))))
 (def hxc-titles
 "The hardcoded names of the trainer titles in memory. List begins at
 ROM@27E77"
-(map character-codes->str
+(hxc-thunk-words 0x27E77 196))
-(take-nth 2
-(partition-by #(= 0x50 %)
-(take 196
-(drop 0x27E77
-(rom (root))))))))
 (def hxc-places
 "The hardcoded place names in memory. List begins at
-ROM@71500. Cinnabar Mansion is dynamically calculated."
+ROM@71500. [Cinnabar] Mansion seems to be dynamically calculated."
-(map character-codes->str
+(hxc-thunk-words 0x71500 560))
-(take-nth 2
-(partition-by #(= % 0x50)
-(take 560
+(defn hxc-dialog
-(drop 0x71500
+"The hardcoded dialogue in memory, including in-game alerts. Dialog
-(rom (root))))))))
+seems to be separated by 0x57 instead of 0x50 (END). Begins at ROM@98000."
+([rom]
+(map character-codes->str
-(def hxc-dialog
+(take-nth 2
-"The hardcoded dialogue in memory, including in-game alerts. List begins at ROM@98000."
+(partition-by #(= % 0x57)
-(character-codes->str(take 0x0F728
+(take 0x0F728
-(drop (+ 0x98000)
+(drop 0x98000 rom))))))
-(rom (root))))))
+([]
+(hxc-dialog com.aurellem.gb.gb-driver/original-rom)))
 (def hxc-pokedex
 "The hardcoded pokedex entries in memory. List begins at
 ROM@B8000, shortly before move names."
-(map character-codes->str
+(hxc-thunk-words 0xB8000 14754))
-(take-nth 2
-(partition-by #(= % 0x50)
-(take 14754
-(drop 0xB8000
-(rom (root))))))))
 (def hxc-move-names
 "The hardcoded move names in memory. List begins at ROM@BC000"
-(map character-codes->str
+(hxc-thunk-words 0xBC000 1551))
-(take-nth 2
-(partition-by #(= % 0x50)
-(take 1551
+(defn hxc-move-data
-(drop 0xBC000
-(rom (root))))))))
-(def hxc-move-data
 "The hardcoded (basic (move effects)) in memory. List begins at
-0x38000. Effect descriptions were handwritten and aren't hardcoded."
+0x38000. Returns a map of {:name :power :accuracy :pp :fx-id
-(let [names (vec hxc-move-names)
+:fx-txt}. The move descriptions are handwritten, not hardcoded."
-move-count (count names)
+([]
-move-size 6
+(hxc-move-data com.aurellem.gb.gb-driver/original-rom))
-format-name (fn [s]
+([rom]
+(let [names (vec (hxc-move-names rom))
+move-count (count names)
+move-size 6
+format-name (fn [s]
 (keyword (.toLowerCase
 (apply str
-(map #(if (= % \space) "-" %) s)))))
+(map #(if (= % \space) "-" %) s)))))]
-]
+(zipmap (map format-name names)
-(zipmap (map format-name names)
+(map
-(map
+(fn [[idx effect power type accuracy pp]]
-(fn [[idx effect power type accuracy pp]]
+{:name (names (dec idx))
-{:name (names (dec idx))
+:power power
-:power power
+:accuracy  accuracy
-:accuracy (hex accuracy)
+:pp pp
-:pp pp
+:fx-id effect
-:fx-id (hex effect)
+:fx-txt (get move-effects effect)
-:fx-txt (get move-effects effect)
+}
-}
+)
-)
+(partition move-size
-(partition move-size
+(take (* move-size move-count)
-(take (* move-size move-count)
+(drop 0x38000 rom))))))))
-(drop 0x38000 (rom(root)))))))))
-(def hxc-pokenames
+(defn hxc-move-data*
-"The hardcoded names of the 190 species in memory. List begins at ROM@E8000."
+"Like hxc-move-data, but reports numbers as hexadecimal symbols instead."
-(let [count-species 190
+([]
-name-length 10]
+(hxc-move-data* com.aurellem.gb.gb-driver/original-rom))
-(map character-codes->str
+([rom]
-(partition name-length
+(let [names (vec (hxc-move-names rom))
-(take (* count-species name-length)
+move-count (count names)
-(drop 0xE8000
+move-size 6
-(rom(root))))))))
+format-name (fn [s]
+(keyword (.toLowerCase
+(apply str
+(map #(if (= % \space) "-" %) s)))))
+]
+(zipmap (map format-name names)
+(map
+(fn [[idx effect power type accuracy pp]]
+{:name (names (dec idx))
+:power power
-(def hxc-advantage
+:accuracy (hex accuracy)
-"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."
+:pp pp
-(map
+:fx-id (hex effect)
-(fn [[atk def mult]] [(get pkmn-types atk (hex atk))
+:fx-txt (get move-effects effect)
-(get pkmn-types def (hex def))
+}
-(/ mult 10)])
+)
-(partition 3
-(take-while (partial not= 0xFF)
+(partition move-size
-(drop 0x3E62D (rom(root)))))))
+(take (* move-size move-count)
+(drop 0x38000 rom))))))))
+(defn hxc-pokenames
+"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."
+([]
+(hxc-pokenames com.aurellem.gb.gb-driver/original-rom))
+([rom]
+(let [count-species 190
+name-length 10]
+(map character-codes->str
+(partition name-length
+(map #(if (= 0x50 %) 0x00 %)
+(take (* count-species name-length)
+(drop 0xE8000
+rom))))))))
+(defn hxc-advantage
+"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."
+([] (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))))))
+;; ********************** MANIPULATION FNS
+(defn submap?
+"Compares the two maps. Returns true if map-big has the same associations as map-small, otherwise false."
+[map-small map-big]
+(cond (empty? map-small) true
+(and
+(contains? map-big (ffirst map-small))
+(= (get map-big (ffirst map-small))
+(second (first map-small))))
+(recur (next map-small) map-big)
+:else false))
+(defn search-map [proto-map maps]
+"Returns all the maps that make the same associations as proto-map."
+(some (partial submap? proto-map) maps))
+;; (I don't use this for anything so far.)
+;;
+;; (defn filter-vals
+;;   "Returns a map consisting of all the pairs [key val] for which (pred
+;;   key) returns true."
+;;   [pred map]
+;;   (reduce (partial apply assoc) {} (filter (fn [[k v]] (pred v)) map)))
+(defn search-moves
+"Returns a subcollection of all hardcoded moves with the given
+attributes. Attributes consist of :name :power :accuracy :pp :fx-id
+(and also :fx-txt, but it contains the same information as :fx-id)"
+([attribute-map]
+(search-moves com.aurellem.gb.gb-driver/original-rom attribute-map))
+([rom attribute-map]
+(filter-vals (partial submap? attribute-map) (hxc-move-data
+rom))))

Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/hxc.clj @ 249:99227bec1123