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

completed cry functions.

author	Dylan Holmes <ocsenave@gmail.com>
date	Sat, 31 Mar 2012 03:54:21 -0500
parents	2873f50b7291
children	de172acc5a03

comparison

equal deleted inserted replaced

-:2873f50b7291
+:872e032949ff
 (ns com.aurellem.gb.hxc
 (:use (com.aurellem.gb assembly characters gb-driver util
 constants species))
-;; (:use (com.aurellem.world practice))
+(:use (com.aurellem.world practice))
 (:import [com.aurellem.gb.gb_driver SaveState]))
 names)))))
 ;; http://hax.iimarck.us/topic/581/
-(defn hxc-pokedex-cry
+(defn hxc-cry
-"The pokemon cry data in internal order. List begins at ROM@410B1
+"The pokemon cry data in internal order. List begins at ROM@39462"
-[]
+([](hxc-cry com.aurellem.gb.gb-driver/original-rom)
+([rom]
+(zipmap
+(hxc-pokenames rom)
+(map
+(fn [[cry-id pitch length]]
+{:cry-id cry-id
+:pitch pitch
+:length length}
+)
+(partition 3
+(drop 0x39462 rom)))))))
+(defn hxc-cry-groups
+([] (hxc-cry-ids com.aurellem.gb.gb-driver/original-rom))
+([rom]
+(map #(mapv first
+(filter
+(fn [[k v]]
+(= % (:cry-id v)))
+(hxc-cry rom)))
+((comp
+range
+count
+set
+(partial map :cry-id)
+vals
+hxc-cry)
+rom))))
+(defn cry-conversion!
+"Convert Porygon's cry in ROM to be the cry of the given pokemon."
+[pkmn]
+(write-rom!
+(rewrite-memory
+(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))

Mercurial > vba-clojure