Mercurial > vba-clojure

comparison org/rom.org @ 406:8eb674700f15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Found in-game pointers to type names; ready to remove manually-coded list.
author Dylan Holmes <ocsenave@gmail.com>
date Thu, 12 Apr 2012 22:18:46 -0500
parents a6f212ae29a3
children 03ade2a04458
comparison
equal deleted inserted replaced
400:1b9137ef7380 406:8eb674700f15
714 714
715 715
716 716
717 * Types 717 * Types
718 ** Names of types 718 ** Names of types
719
720 *** COMMENT Pointers to type names
721 #+begin_src clojure :exports both :results output
722 (map (comp character-codes->str #(take-while (partial not= 80) (drop % (rom))) (partial + 0x20000) (partial apply low-high)) (partition 2 (take 54 (drop 0x27D63 (rom)))))
723 #+end_src
724
725
719 *** 726 ***
720 #+begin_src clojure :exports both :results output 727 #+begin_src clojure :exports both :results output
721 (ns com.aurellem.gb.hxc 728 (ns com.aurellem.gb.hxc
722 (:use (com.aurellem.gb assembly characters gb-driver util mem-util 729 (:use (com.aurellem.gb assembly characters gb-driver util mem-util
723 constants)) 730 constants))
1079 |-------------------+-----------------+-----------------+-----------------| 1086 |-------------------+-----------------+-----------------+-----------------|
1080 | 0DD4D-DD72 | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# | 1087 | 0DD4D-DD72 | Names of permanent stats. | Variable-length strings separated by 0x50. | #HEALTH#ATTACK#DEFENSE#SPEED#SPECIAL# |
1081 | 1195C-1196A | The two terms for being able/unable to learn a TM/HM. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# | 1088 | 1195C-1196A | The two terms for being able/unable to learn a TM/HM. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# |
1082 | 119C0-119CE | The two terms for being able/unable to evolve using the current stone. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# | 1089 | 119C0-119CE | The two terms for being able/unable to evolve using the current stone. | Variable-length strings separated by 0x50. | ABLE#NOT ABLE# |
1083 | 1232D-12364 | Which moves are taught by the TMs and HMs | A list of 55 move ids (50 TMs, plus 5 HMs). First, the move that will be taught by TM01; second, the move that will be taught by TM02; and so on. The last five entries are the moves taught by HMs 1-5. (See also, BC000 below) | The first few entries are (5 13 14 18 ...) corresponding to Mega Punch (TM01), Razor Wind (TM02), Swords Dance (TM03), Whirlwind (TM04), ... | 1090 | 1232D-12364 | Which moves are taught by the TMs and HMs | A list of 55 move ids (50 TMs, plus 5 HMs). First, the move that will be taught by TM01; second, the move that will be taught by TM02; and so on. The last five entries are the moves taught by HMs 1-5. (See also, BC000 below) | The first few entries are (5 13 14 18 ...) corresponding to Mega Punch (TM01), Razor Wind (TM02), Swords Dance (TM03), Whirlwind (TM04), ... |
1091 |-------------------+-----------------+-----------------+-----------------|
1092 | 27D56 & 27D57. | Pointer to the list of type pointers. | | |
1093 | 27D63-27D99 | Pointers to type names. | Each point is a low-byte, high-byte pair. The names of types follows immediately after this section; see below. | The first pointer is [0x99 0x7D], corresponding to the location 0x2.7D.99, the NORMAL type. |
1084 | 27D99-27DFF | Names of the Pok\eacute{}mon types. | Variable-length type names (strings of character codes). Names are separated by a single 0x80 character. | NORMAL#FIGHTING#... | 1094 | 27D99-27DFF | Names of the Pok\eacute{}mon types. | Variable-length type names (strings of character codes). Names are separated by a single 0x80 character. | NORMAL#FIGHTING#... |
1085 | 27E77- | Trainer title names. | Variable-length names separated by 0x80. | YOUNGSTER#BUG CATCHER#LASS#... | 1095 | 27E77- | Trainer title names. | Variable-length names separated by 0x80. | YOUNGSTER#BUG CATCHER#LASS#... |
1086 | 34000- | | | | 1096 | 34000- | | | |
1087 | 38000-383DE | The basic properties and effects of moves. (165 moves total) | Fixed-length (6 byte) continguous descriptions (no separating character): move-index, move-effect, power, move-type, accuracy, pp. | The entry for Pound, the first attack in the list, is (1 0 40 0 255 35). See below for more explanation. | 1097 | 38000-383DE | The basic properties and effects of moves. (165 moves total) | Fixed-length (6 byte) continguous descriptions (no separating character): move-index, move-effect, power, move-type, accuracy, pp. | The entry for Pound, the first attack in the list, is (1 0 40 0 255 35). See below for more explanation. |
1088 | 383DE- | Species data for the Pokemon, listed in Pokedex order: Pokedex number; base moves; types; learnable TMs and HMs; base HP, attack, defense, speed, special; sprite data. | | | 1098 | 383DE- | Species data for the Pokemon, listed in Pokedex order: Pokedex number; base moves; types; learnable TMs and HMs; base HP, attack, defense, speed, special; sprite data. | | |
1583 reverse bit-list) 1593 reverse bit-list)
1584 1594
1585 (take 0xFFF (drop 0x8800 (memory state)))))) 1595 (take 0xFFF (drop 0x8800 (memory state))))))
1586 1596
1587 1597
1598 (defn test-2 []
1599 (loop [n 0
1600 pc-1 (pc-trail (-> state-defend (tick) (step [:a]) (step [:a]) (step []) (nstep 100)) 100000)
1601 pc-2 (pc-trail (-> state-speed (tick) (step [:a]) (step [:a])
1602 (step []) (nstep 100)) 100000)]
1603 (cond (empty? (drop n pc-1)) [pc-1 n]
1604 (not= (take 10 (drop n pc-1)) (take 10 pc-2))
1605 (recur pc-1 pc-2 (inc n))
1606 :else
1607 [(take 1000 pc-2) n])))
1608
1609
1610
1611
1612
1613
1614
1588 (comment 1615 (comment
1589 1616
1590 (def hxc-later 1617 (def hxc-later
1591 "Running this code produces, e.g. hardcoded names NPCs give 1618 "Running this code produces, e.g. hardcoded names NPCs give
1592 their pokemon. Will sort through it later." 1619 their pokemon. Will sort through it later."