Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/characters.clj @ 234:00e4efa7c104
saving progress...
| author | Dylan Holmes <ocsenave@gmail.com> |
|---|---|
| date | Sat, 24 Mar 2012 18:21:16 -0500 |
| parents | d5dddf33543c |
| children | 30ced394823a |
comparison
equal
deleted
inserted
replaced
| 233:49a709c555f2 | 234:00e4efa7c104 |
|---|---|
| 17 | 17 |
| 18 :n-times [0x50 0x09 0x05 0xCD 0x11 0x0] | 18 :n-times [0x50 0x09 0x05 0xCD 0x11 0x0] |
| 19 | 19 |
| 20 | 20 |
| 21 }) | 21 }) |
| 22 | |
| 23 | |
| 24 | |
| 25 (def meta-characters | |
| 26 {0x00 "non-meta text follows" | |
| 27 0x01 "load text from RAM (nn)" | |
| 28 0x02 "BCD number (nn)C" ;; C is 3 flags and 5 length bits." | |
| 29 0x03 "store text in RAM (nn)" | |
| 30 0x04 "draw box (nn)WH" | |
| 31 0x05 "BEGIN text on textbox line 2" | |
| 32 0x06 "wait for A or B" | |
| 33 0x07 "scrolling text" | |
| 34 0x08 "BEGIN routine" | |
| 35 0x09 "load RAM (nn) hex-to-dec. (nn)BC. B is bytes to read, C is | |
| 36 digits to display" | |
| 37 0x0A "wait 30 vblanks iff you pressed A or B" | |
| 38 | |
| 39 0x0B "sound: got item" | |
| 40 0x0E "sound: learned skill" | |
| 41 0x0F "sound: got rarecandy" ;; incidentally, same as 'got item' | |
| 42 0x10 "sound: caught pokemon!" | |
| 43 0x11 "sound: gave OAK the parcel" | |
| 44 0x12 "sound: same as 0x10???" | |
| 45 0x13 "sound: new data added" | |
| 46 0x14 "sound: cry-nidorina" | |
| 47 0x15 "sound: cry-pidgeot" | |
| 48 0x16 "sound: cry-dewgong" | |
| 49 | |
| 50 0x4E "new line" | |
| 51 0x51 "new page" | |
| 52 0x55 "scroll page" | |
| 53 0x50 "END command" ;; the pair 0x50 0x50 ?? | |
| 54 0x57 "END command" | |
| 55 0x58 "END after you press A or B" | |
| 56 }) | |
| 57 | |
| 58 | |
| 59 | |
| 22 | 60 |
| 23 (def end-of-name-sentinel 0x00) | 61 (def end-of-name-sentinel 0x00) |
| 24 | 62 |
| 25 (def character-code->character | 63 (def character-code->character |
| 26 { | 64 { |