comparison clojure/com/aurellem/gb/hxc.clj @ 312:2060219691fa

Added more to the rom map.
author Dylan Holmes <ocsenave@gmail.com>
date Sun, 01 Apr 2012 21:47:04 -0500
parents 3d4f60b4a4af
children 5639312a393f
comparison
equal deleted inserted replaced
311:8fa0f36140b4 312:2060219691fa
438 (take (* move-size move-count) 438 (take (* move-size move-count)
439 (drop 0x38000 rom)))))))) 439 (drop 0x38000 rom))))))))
440 440
441 441
442 (defn hxc-machines 442 (defn hxc-machines
443 "The hardcoded moves taught by TMs and HMs. List begins at ROM@0x1232D." 443 "The hardcoded moves taught by TMs and HMs. List begins at ROM@1232D."
444 ([] (hxc-machines 444 ([] (hxc-machines
445 com.aurellem.gb.gb-driver/original-rom)) 445 com.aurellem.gb.gb-driver/original-rom))
446 ([rom] 446 ([rom]
447 (let [moves (hxc-move-names rom)] 447 (let [moves (hxc-move-names rom)]
448 (zipmap 448 (zipmap