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

comparison clojure/com/aurellem/gb/hxc.clj @ 263:a44a2c459aeb

Corrected hxc-evolution so that pokemon with branched evolutions (i.e. eevee) will be fully included. As a result, altered hxc-evolution to return a list of hashes, one per evolution.

author	Dylan Holmes <ocsenave@gmail.com>
date	Mon, 26 Mar 2012 21:25:10 -0500
parents	b2f9a0cb13e3
children	498af3c3cf15

comparison

equal deleted inserted replaced

-:868783405ac2
+:a44a2c459aeb
 ([]
 (internal-id com.aurellem.gb.gb-driver/original-rom)))
+;; nidoran gender change upon levelup
+;; (->
+;;  @current-state
+;;  rom
+;;  vec
+;;  (rewrite-memory
+;;   (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♂))
+;;   [1 1 15])
+;;  (rewrite-memory
+;;   (nth (hxc-ptrs-evolve) ((internal-id) :nidoran♀))
+;;   [1 1 3])
+;;  (write-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),
 (partition 3
 (take-while (partial not= 0xFF)
 (drop 0x3E62D rom))))))
 (defn format-evo
-[[method x y z & _]]
+[coll]
-(cond (= 0 method)
+(let [method (first coll)]
-{:method :none}
+(cond (empty? coll) []
-(= 1 method)
+(= 0 method) [] ;; just in case
-{:method :level-up
+(= 1 method) ;; level-up evolution
-:min-level x
+(conj (format-evo (drop 3 coll))
-:into y}
+{:method :level-up
-(= 2 method)
+:min-level (nth coll 1)
-{:method :item
+:into (dec (nth coll 2))})
-:item-id x
-:min-level y
+(= 2 method) ;; item evolution
-:into z}
+(conj (format-evo (drop 4 coll))
-(= 3 method)
+{:method :item
-{:method :trade
+:item (dec (nth coll 1))
-:min-level x
+:min-level (nth coll 2)
-:into y}))
+:into (dec (nth coll 3))})
-(defn format-evo*
+(= 3 method) ;; trade evolution
-[[method x y z & _]]
+(conj (format-evo (drop 3 coll))
-(cond (= 0 method)
+{:method :trade
-{:method :none}
+:min-level (nth coll 1) ;; always 1 for trade.
-(= 1 method)
+:into (dec (nth coll 2))}))))
-{:method :level-up
-:min-level x
-:into (format-name (nth (hxc-pokenames) (dec y)))}
+(defn hxc-ptrs-evolve
-(= 2 method)
+"A hardcoded collection of 190 pointers to evolution/learnset data,
-{:method :item
+in internal order."
-:item (format-name (nth (hxc-items)  (dec x)))
+([]
-:min-level y
+(hxc-ptrs-evolve com.aurellem.gb.gb-driver/original-rom))
-: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))
+(map (fn [[a b]] (low-high a b))
 (partition 2
 (take (* 2 pkmn-count)
-(drop 0x3b1e5 rom))))
+(drop 0x3b1e5 rom))))]
-]
+(map (partial + 0x34000) ptrs)
+)))
+(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
 (map format-name (hxc-pokenames))
 (map
 (comp
 format-evo
-(partial take 5)
+(partial take-while (comp not zero?))
-#(drop % rom)
+#(drop % rom))
-(partial + 0x34000))
+(hxc-ptrs-evolve rom)
-ptrs)))
+)))))
-)))
+(defn hxc-evolution-pretty
+"Like hxc-evolution, except it uses the names of items and pokemon
+--- grabbed from ROM --- rather than their numerical identifiers."
-(defn hxc-evolution*
+([] (hxc-evolution-pretty com.aurellem.gb.gb-driver/original-rom))
-([] (hxc-evolution com.aurellem.gb.gb-driver/original-rom))
+([rom]
-([rom]
+(let
-(let [names (hxc-pokenames rom)
+[poke-names (vec (map format-name (hxc-pokenames rom)))
-pkmn-count (count names)
+item-names (vec (map format-name (hxc-items rom)))
-evo-data (drop 0x33fef rom)
+use-names
-ptrs
+(fn [m]
-(map (fn [[a b]](low-high a b))
+(loop [ks (keys m) new-map m]
-(partition 2
+(let [k (first ks)]
-(take (* 2 pkmn-count)
+(cond (nil? ks) new-map
-(drop 0x3b1e5 rom))))
+(= k :into)
-]
+(recur
-(apply assoc {}
+(next ks)
-(interleave
+(assoc new-map
-(map format-name (hxc-pokenames))
+:into
-(map
+(poke-names
-(comp
+(:into
-format-evo*
+new-map))))
-(partial take 5)
+(= k :item)
-#(drop % rom)
+(recur
-(partial + 0x34000))
+(next ks)
-ptrs)))
+(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))))))
 ;; ********************** MANIPULATION FNS
 com.aurellem.gb.gb-driver/original-rom attribute-map))
 ([rom attribute-map]
 (filter-vals (partial submap? attribute-map)
 (hxc-move-data rom))))
 ;; note for later: credits start at F1290

Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/hxc.clj @ 263:a44a2c459aeb