1.1 --- a/clojure/com/aurellem/gb/species.clj	Fri Mar 23 19:39:03 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/species.clj	Fri Mar 23 20:18:03 2012 -0500
     1.3 @@ -1,100 +1,8 @@
     1.4  (ns com.aurellem.gb.species
     1.5    (:use (com.aurellem.gb assembly characters gb-driver util
     1.6                           constants))
     1.7 -  (:use (com.aurellem.world practice))
     1.8    (:import [com.aurellem.gb.gb_driver SaveState]))
     1.9  
    1.10 -
    1.11 -(def hxc-pokenames
    1.12 -  "The hardcoded names of the 190 species in memory. List begins at ROM@E8000."
    1.13 -  (let [count-species 190
    1.14 -        name-length 10]
    1.15 -    (map character-codes->str
    1.16 -         (partition name-length
    1.17 -                    (take (* count-species name-length)
    1.18 -                          (drop 0xE8000
    1.19 -                                (rom(root))))))))
    1.20 -
    1.21 -(def hxc-items
    1.22 -  "The hardcoded names of the items in memory. List begins at ROM@45B7 "
    1.23 -  (map character-codes->str
    1.24 -       (take-nth 2
    1.25 -                 (partition-by #(= % 0x50)
    1.26 -                               (take 1200
    1.27 -                                     (drop 0x45B7 (rom (root))))))))
    1.28 -(def hxc-titles
    1.29 -  "The hardcoded names of the trainer titles in memory. List begins at
    1.30 -ROM@27E77"
    1.31 -  (map character-codes->str
    1.32 -       (take-nth 2
    1.33 -                 (partition-by #(= 0x50 %)
    1.34 -                               (take 196
    1.35 -                                     (drop 0x27E77
    1.36 -                                           (rom (root))))))))
    1.37 -
    1.38 -
    1.39 -(def hxc-pokedex
    1.40 -  "The hardcoded pokedex entries in memory. List begins at
    1.41 -ROM@B8000, shortly before move names."
    1.42 -  (map character-codes->str
    1.43 -       (take-nth 2
    1.44 -                 (partition-by #(= % 0x50)
    1.45 -                               (take 14754
    1.46 -                                     (drop 0xB8000
    1.47 -                                           (rom (root))))))))
    1.48 -(def hxc-moves
    1.49 -  "The hardcoded move names in memory. List begins at ROM@BC000"
    1.50 -  (map character-codes->str
    1.51 -       (take-nth 2
    1.52 -                 (partition-by #(= % 0x50)
    1.53 -                               (take 1551
    1.54 -                                     (drop 0xBC000
    1.55 -                                           (rom (root))))))))   
    1.56 -
    1.57 -
    1.58 -
    1.59 -(def hxc-places
    1.60 -  "The hardcoded place names in memory. List begins at
    1.61 -ROM@71500. Cinnabar Mansion is dynamically calculated."
    1.62 -  (map character-codes->str
    1.63 -       (take-nth 2
    1.64 -                 (partition-by #(= % 0x50)
    1.65 -                               (take 560
    1.66 -                                     (drop 0x71500
    1.67 -                                           (rom (root))))))))
    1.68 -
    1.69 -
    1.70 -(def hxc-dialog
    1.71 -  "The hardcoded dialogue in memory, including in-game alerts. List begins at ROM@98000."
    1.72 -(character-codes->str(take 0x0F728
    1.73 -                          (drop (+ 0x98000)
    1.74 -                                (rom (root)))))
    1.75 -
    1.76 -(def hxc-later
    1.77 -  "Running this code produces, e.g. hardcoded names NPCs give
    1.78 -their pokemon. Will sort through it later."
    1.79 -(print (character-codes->str(take 10000
    1.80 -                          (drop 0x71597
    1.81 -                                (rom (root)))))))
    1.82 -
    1.83 -
    1.84 -
    1.85 -
    1.86 -
    1.87 -
    1.88 -
    1.89 -(let [dex
    1.90 -      (partition-by #(= 0x50 %)
    1.91 -                    (take 2540
    1.92 -                          (drop 0x40687
    1.93 -                                (rom (root)))))]
    1.94 -  (def dex dex)
    1.95 -  (def hxc-species
    1.96 -    (map character-codes->str
    1.97 -         (take-nth 4 dex))))
    1.98 -
    1.99 -
   1.100 -
   1.101  (def species-code->species-name
   1.102    {0x01  :rhydon
   1.103     0x02  :kangaskhan