diff clojure/com/aurellem/gb/characters.clj @ 236:30ced394823a

merge.
author Robert McIntyre <rlm@mit.edu>
date Sat, 24 Mar 2012 20:06:25 -0500
parents 5becef6312b9 00e4efa7c104
children 4efc773f8b50
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/characters.clj	Sat Mar 24 20:05:47 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/characters.clj	Sat Mar 24 20:06:25 2012 -0500
     1.3 @@ -17,6 +17,44 @@
     1.4     :n-times [0x50 0x09 0x05 0xCD 0x11 0x0]
     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