Mercurial > vba-clojure
changeset 234:00e4efa7c104
saving progress...
author | Dylan Holmes <ocsenave@gmail.com> |
---|---|
date | Sat, 24 Mar 2012 18:21:16 -0500 |
parents | 49a709c555f2 |
children | 30ced394823a |
files | clojure/com/aurellem/gb/characters.clj |
diffstat | 1 files changed, 38 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/gb/characters.clj Sat Mar 24 16:19:43 2012 -0500 1.2 +++ b/clojure/com/aurellem/gb/characters.clj Sat Mar 24 18:21:16 2012 -0500 1.3 @@ -20,6 +20,44 @@ 1.4 1.5 }) 1.6 1.7 + 1.8 + 1.9 +(def meta-characters 1.10 + {0x00 "non-meta text follows" 1.11 + 0x01 "load text from RAM (nn)" 1.12 + 0x02 "BCD number (nn)C" ;; C is 3 flags and 5 length bits." 1.13 + 0x03 "store text in RAM (nn)" 1.14 + 0x04 "draw box (nn)WH" 1.15 + 0x05 "BEGIN text on textbox line 2" 1.16 + 0x06 "wait for A or B" 1.17 + 0x07 "scrolling text" 1.18 + 0x08 "BEGIN routine" 1.19 + 0x09 "load RAM (nn) hex-to-dec. (nn)BC. B is bytes to read, C is 1.20 + digits to display" 1.21 + 0x0A "wait 30 vblanks iff you pressed A or B" 1.22 + 1.23 + 0x0B "sound: got item" 1.24 + 0x0E "sound: learned skill" 1.25 + 0x0F "sound: got rarecandy" ;; incidentally, same as 'got item' 1.26 + 0x10 "sound: caught pokemon!" 1.27 + 0x11 "sound: gave OAK the parcel" 1.28 + 0x12 "sound: same as 0x10???" 1.29 + 0x13 "sound: new data added" 1.30 + 0x14 "sound: cry-nidorina" 1.31 + 0x15 "sound: cry-pidgeot" 1.32 + 0x16 "sound: cry-dewgong" 1.33 + 1.34 + 0x4E "new line" 1.35 + 0x51 "new page" 1.36 + 0x55 "scroll page" 1.37 + 0x50 "END command" ;; the pair 0x50 0x50 ?? 1.38 + 0x57 "END command" 1.39 + 0x58 "END after you press A or B" 1.40 + }) 1.41 + 1.42 + 1.43 + 1.44 + 1.45 (def end-of-name-sentinel 0x00) 1.46 1.47 (def character-code->character