Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/hxc.clj @ 371:b477970d0b7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added more sandbox stuff in rom.org to show how the memory is laid out.
author Dylan Holmes <ocsenave@gmail.com>
date Mon, 09 Apr 2012 01:40:26 -0500
parents 5aabbe326eb0
children 7c89fe478de4
comparison
equal deleted inserted replaced
370:5aabbe326eb0 371:b477970d0b7a
649 649
650 (defn hxc-pokemon-base 650 (defn hxc-pokemon-base
651 ([] (hxc-pokemon-base com.aurellem.gb.gb-driver/original-rom)) 651 ([] (hxc-pokemon-base com.aurellem.gb.gb-driver/original-rom))
652 ([rom] 652 ([rom]
653 (let [entry-size 28 653 (let [entry-size 28
654 pkmn-count (count (hxc-pokedex-text rom)) 654
655 pokemon (rest (hxc-pokedex-names)) 655 pokemon (rest (hxc-pokedex-names))
656 pkmn-count (inc(count pokemon))
656 types (apply assoc {} 657 types (apply assoc {}
657 (interleave 658 (interleave
658 (range) 659 (range)
659 pkmn-types)) ;;!! softcoded 660 pkmn-types)) ;;!! softcoded
660 moves (apply assoc {} 661 moves (apply assoc {}