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

comparison clojure/com/aurellem/gb/hxc.clj @ 261:1b5c33614b0d

merge

author	Robert McIntyre <rlm@mit.edu>
date	Mon, 26 Mar 2012 19:57:25 -0500
parents	b2f9a0cb13e3
children	a44a2c459aeb

comparison

equal deleted inserted replaced

-:11cfe6dcb803
+:1b5c33614b0d
 ; ************* HANDWRITTEN CONSTANTS
+(defn low-high
+[low high]
+(+ low (* 256 high)))
+(defn format-name
+"Convert the string of alphabetic/space characters into a keyword by
+replacing spaces with hyphens and converting to lowercase."
+[s]
+(keyword (.toLowerCase
+(apply str
+(map #(if (= % \space) "-" %) s)))))
 (def pkmn-types
 [:normal
 :fighting
 :flying
 "0x4C chance of poison"
 "leech half of inflicted damage"
 "0x19 chance of burn"
 "0x19 chance of freeze"
 "0x19 chance of paralyze"
-"user faints; opponent defense halved."
+"user faints; opponent defense halved during attack."
 "leech half of inflicted damage ONLY if sleeping opponent."
 "imitate last attack"
 "user atk +1"
 "user def +1"
 "user spd +1"
 ;; ************** HARDCODED DATA
 (defn hxc-thunk
-"Creates a thunk (unary fn) that grabs data in a certain region of rom and
+"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
 original rom data."
 [start length]
 (fn self
 ([rom]
 (def hxc-titles
 "The hardcoded names of the trainer titles in memory. List begins at
 ROM@27E77"
 (hxc-thunk-words 0x27E77 196))
+(def hxc-pokedex-text
+"The hardcoded pokedex entries in memory. List begins at
+ROM@B8000, shortly before move names."
+(hxc-thunk-words 0xB8000 14754))
+;; In red/blue, pokemon are in internal order.
+;; In yellow, pokemon are in pokedex order.
+(defn hxc-pokedex-stats
+;; uses hxc-pokedex-text to count pokemon
+;; since hxc-pokenames includes several missingno"
+([] (hxc-pokedex-stats com.aurellem.gb.gb-driver/original-rom))
+([rom]
+(let [poketext (hxc-pokedex-text)
+pkmn-count (count poketext)
+]
+((fn capture-stats
+[n stats data]
+(if (zero? n) stats
+(let [[species
+[_
+height-ft
+height-in
+weight-1
+weight-2
+_
+dex-ptr-1
+dex-ptr-2
+dex-bank
+_
+& data]]
+(split-with (partial not= 0x50) data)]
+(recur (dec n)
+(assoc stats
+(- pkmn-count n)
+{:species
+(character-codes->str species)
+:height-ft
+height-ft
+:height-in
+height-in
+:weight
+(/ (low-high weight-1 weight-2) 10.)
+;;    :text
+;;    (character-codes->str
+;;     (take-while
+;;      (partial not= 0x50)
+;;      (drop
+;;       (+ 0xB8000
+;;          -0x4000
+;;          (low-high dex-ptr-1 dex-ptr-2))
+;;       rom)))
+})
+data)
+)))
+pkmn-count
+{}
+(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))
 (drop 0x98000 rom))))))
 ([]
 (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."
-(hxc-thunk-words 0xB8000 14754))
 (def hxc-move-names
 "The hardcoded move names in memory. List begins at ROM@BC000"
 (hxc-thunk-words 0xBC000 1551))
 ([]
 (hxc-move-data com.aurellem.gb.gb-driver/original-rom))
 ([rom]
 (let [names (vec (hxc-move-names rom))
 move-count (count names)
-move-size 6
+move-size 6]
-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
 (map #(if (= 0x50 %) 0x00 %)
 (take (* count-species name-length)
 (drop 0xE8000
 rom))))))))
+(defn internal-id
+([rom]
+(zipmap
+(map format-name (hxc-pokenames rom))
+(range)))
+([]
+(internal-id com.aurellem.gb.gb-driver/original-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]
 (drop 0x3E62D rom))))))
+(defn format-evo
+[[method x y z & _]]
+(cond (= 0 method)
+{:method :none}
+(= 1 method)
+{:method :level-up
+:min-level x
+:into y}
+(= 2 method)
+{:method :item
+:item-id x
+:min-level y
+:into z}
+(= 3 method)
+{:method :trade
+:min-level x
+:into y}))
+(defn format-evo*
+[[method x y z & _]]
+(cond (= 0 method)
+{:method :none}
+(= 1 method)
+{:method :level-up
+:min-level x
+:into (format-name (nth (hxc-pokenames) (dec y)))}
+(= 2 method)
+{:method :item
+:item (format-name (nth (hxc-items)  (dec x)))
+:min-level y
+:into (format-name (nth (hxc-pokenames) (dec z)))}
+(= 3 method)
+{:method :trade
+:min-level x
+:into (format-name (nth (hxc-pokenames) (dec y)))}))
+(defn hxc-evolution
+([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom))
+([rom]
+(let [names (hxc-pokenames rom)
+pkmn-count (count names)
+evo-data (drop 0x33fef rom)
+ptrs
+(map (fn [[a b]](low-high a b))
+(partition 2
+(take (* 2 pkmn-count)
+(drop 0x3b1e5 rom))))
+]
+(apply assoc {}
+(interleave
+(map format-name (hxc-pokenames))
+(map
+(comp
+format-evo
+(partial take 5)
+#(drop % rom)
+(partial + 0x34000))
+ptrs)))
+)))
+(defn hxc-evolution*
+([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom))
+([rom]
+(let [names (hxc-pokenames rom)
+pkmn-count (count names)
+evo-data (drop 0x33fef rom)
+ptrs
+(map (fn [[a b]](low-high a b))
+(partition 2
+(take (* 2 pkmn-count)
+(drop 0x3b1e5 rom))))
+]
+(apply assoc {}
+(interleave
+(map format-name (hxc-pokenames))
+(map
+(comp
+format-evo*
+(partial take 5)
+#(drop % rom)
+(partial + 0x34000))
+ptrs)))
+)))
 (def dex dex)
 (def hxc-species
 (map character-codes->str
 (take-nth 4 dex))))
 )

Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/hxc.clj @ 261:1b5c33614b0d