1.1 --- a/clojure/com/aurellem/gb/characters.clj	Fri Mar 23 18:06:37 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/characters.clj	Fri Mar 23 19:05:08 2012 -0500
     1.3 @@ -2,17 +2,40 @@
     1.4    (:use (com.aurellem.gb gb-driver constants))
     1.5    (:import [com.aurellem.gb.gb_driver SaveState]))
     1.6  
     1.7 +
     1.8 +(def pronouns
     1.9 +  ;; Note: 0x0 seems to be the end-of-name sentinel
    1.10 +  {
    1.11 +   ;; what is 0x57? what is 0x0?
    1.12 +   :RED [0x52]
    1.13 +   :BLUE [0x53]
    1.14 +   :opponent [0x01 0x49 0xD0 0x0]
    1.15 +   :turn-pokemon [0x5A]
    1.16 +   :off-turn-pokemon [0x59]
    1.17 +   :your-pokemon [0x01 0x08 0xD0 0x0]
    1.18 +   :opponent-pokemon [0x50 0x01 0xD9 0xCF 0x0]
    1.19 +
    1.20 +   :n-times [0x50 0x09 0x05 0xCD 0x11 0x0]
    1.21 +   
    1.22 +   
    1.23 +   })
    1.24 +
    1.25 +
    1.26  (def character-code->character
    1.27    {
    1.28 -   0x00   "<";;"end-of-name-sentinel" ;; begin messsage
    1.29 -   0x4E   "[...]" ; ocsenave: scroll pokedex page
    1.30 +   0x0 "" ;; separator character?
    1.31 +   0x58 "\n"
    1.32 +   ;0x00   "<";;"end-of-name-sentinel" ;; begin messsage
    1.33 +   ;;0x49   "\n //" ;; ocsenave: pagebreak pokedex
    1.34 +   ;;0x4E   "\n..." ; ocsenave: clearscroll pokedex page
    1.35     0x4F   "\n" ; newline
    1.36 -   0x50   "#";;"end-of-pokemon-name-sentinel"
    1.37 +   ;;0x50   "#";;"end-of-pokemon-name-sentinel"
    1.38     0x51   "\n\n" ;; ocsenave: clear screen
    1.39 +   0x52 "[RED]" ;;ocsenave: placeholder for your name?
    1.40     0x54   "[POKE]"
    1.41     0x55   "_" ;; ocsenave: breaking space?
    1.42 -   0x57   ">" ;; ocsenave: end message
    1.43 -   0x5F   ">" ;; ocsenave: end pokedex entry??
    1.44 +   ;0x57   ">" ;; ocsenave: end message
    1.45 +   ;0x5F   ">" ;; ocsenave: end pokedex entry??
    1.46     0x60   "A-bold"
    1.47     0x61   "B-bold"
    1.48     0x62   "C-bold"