Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge.
author Robert McIntyre <rlm@mit.edu>
date Sat, 24 Mar 2012 20:06:25 -0500
parents 5becef6312b9 00e4efa7c104
children 4efc773f8b50
comparison
equal deleted inserted replaced
235:5becef6312b9 236:30ced394823a
14 :off-turn-pokemon [0x59] 14 :off-turn-pokemon [0x59]
15 :your-pokemon [0x01 0x08 0xD0 0x0] 15 :your-pokemon [0x01 0x08 0xD0 0x0]
16 :opponent-pokemon [0x50 0x01 0xD9 0xCF 0x0] 16 :opponent-pokemon [0x50 0x01 0xD9 0xCF 0x0]
17 :n-times [0x50 0x09 0x05 0xCD 0x11 0x0] 17 :n-times [0x50 0x09 0x05 0xCD 0x11 0x0]
18 }) 18 })
19
20
21
22 (def meta-characters
23 {0x00 "non-meta text follows"
24 0x01 "load text from RAM (nn)"
25 0x02 "BCD number (nn)C" ;; C is 3 flags and 5 length bits."
26 0x03 "store text in RAM (nn)"
27 0x04 "draw box (nn)WH"
28 0x05 "BEGIN text on textbox line 2"
29 0x06 "wait for A or B"
30 0x07 "scrolling text"
31 0x08 "BEGIN routine"
32 0x09 "load RAM (nn) hex-to-dec. (nn)BC. B is bytes to read, C is
33 digits to display"
34 0x0A "wait 30 vblanks iff you pressed A or B"
35
36 0x0B "sound: got item"
37 0x0E "sound: learned skill"
38 0x0F "sound: got rarecandy" ;; incidentally, same as 'got item'
39 0x10 "sound: caught pokemon!"
40 0x11 "sound: gave OAK the parcel"
41 0x12 "sound: same as 0x10???"
42 0x13 "sound: new data added"
43 0x14 "sound: cry-nidorina"
44 0x15 "sound: cry-pidgeot"
45 0x16 "sound: cry-dewgong"
46
47 0x4E "new line"
48 0x51 "new page"
49 0x55 "scroll page"
50 0x50 "END command" ;; the pair 0x50 0x50 ??
51 0x57 "END command"
52 0x58 "END after you press A or B"
53 })
54
55
56
19 57
20 (def end-of-name-sentinel 0x00) 58 (def end-of-name-sentinel 0x00)
21 59
22 (def character-code->character 60 (def character-code->character
23 { 61 {