Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/characters.clj @ 213:57258c269bcb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added spelling bee.
author Dylan Holmes <ocsenave@gmail.com>
date Fri, 23 Mar 2012 19:05:08 -0500
parents a67f1df5d096
children 0587f266a735
comparison
equal deleted inserted replaced
212:8523faa122b0 213:57258c269bcb
1 (ns com.aurellem.gb.characters 1 (ns com.aurellem.gb.characters
2 (:use (com.aurellem.gb gb-driver constants)) 2 (:use (com.aurellem.gb gb-driver constants))
3 (:import [com.aurellem.gb.gb_driver SaveState])) 3 (:import [com.aurellem.gb.gb_driver SaveState]))
4 4
5
6 (def pronouns
7 ;; Note: 0x0 seems to be the end-of-name sentinel
8 {
9 ;; what is 0x57? what is 0x0?
10 :RED [0x52]
11 :BLUE [0x53]
12 :opponent [0x01 0x49 0xD0 0x0]
13 :turn-pokemon [0x5A]
14 :off-turn-pokemon [0x59]
15 :your-pokemon [0x01 0x08 0xD0 0x0]
16 :opponent-pokemon [0x50 0x01 0xD9 0xCF 0x0]
17
18 :n-times [0x50 0x09 0x05 0xCD 0x11 0x0]
19
20
21 })
22
23
5 (def character-code->character 24 (def character-code->character
6 { 25 {
7 0x00 "<";;"end-of-name-sentinel" ;; begin messsage 26 0x0 "" ;; separator character?
8 0x4E "[...]" ; ocsenave: scroll pokedex page 27 0x58 "\n"
28 ;0x00 "<";;"end-of-name-sentinel" ;; begin messsage
29 ;;0x49 "\n //" ;; ocsenave: pagebreak pokedex
30 ;;0x4E "\n..." ; ocsenave: clearscroll pokedex page
9 0x4F "\n" ; newline 31 0x4F "\n" ; newline
10 0x50 "#";;"end-of-pokemon-name-sentinel" 32 ;;0x50 "#";;"end-of-pokemon-name-sentinel"
11 0x51 "\n\n" ;; ocsenave: clear screen 33 0x51 "\n\n" ;; ocsenave: clear screen
34 0x52 "[RED]" ;;ocsenave: placeholder for your name?
12 0x54 "[POKE]" 35 0x54 "[POKE]"
13 0x55 "_" ;; ocsenave: breaking space? 36 0x55 "_" ;; ocsenave: breaking space?
14 0x57 ">" ;; ocsenave: end message 37 ;0x57 ">" ;; ocsenave: end message
15 0x5F ">" ;; ocsenave: end pokedex entry?? 38 ;0x5F ">" ;; ocsenave: end pokedex entry??
16 0x60 "A-bold" 39 0x60 "A-bold"
17 0x61 "B-bold" 40 0x61 "B-bold"
18 0x62 "C-bold" 41 0x62 "C-bold"
19 0x63 "D-bold" 42 0x63 "D-bold"
20 0x64 "E-bold" 43 0x64 "E-bold"