1.1 --- a/clojure/com/aurellem/gb/characters.clj	Thu Mar 22 22:37:35 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/characters.clj	Fri Mar 23 00:24:54 2012 -0500
     1.3 @@ -4,8 +4,13 @@
     1.4  
     1.5  (def character-code->character
     1.6    {
     1.7 -   0x00   "end-of-name-sentinel"
     1.8 -   0x50   "end-of-pokemon-name-sentinel"
     1.9 +   0x00   "<";;"end-of-name-sentinel" ;; begin messsage
    1.10 +   0x4F   "\n" ; newline
    1.11 +   0x50   "#";;"end-of-pokemon-name-sentinel"
    1.12 +   0x51   "\n\n" ;; ocsenave: clear screen
    1.13 +   0x54   "[POKE]"
    1.14 +   0x55   "_" ;; ocsenave: breaking space?
    1.15 +   0x57   ">" ;; ocsenave: end message
    1.16     0x60   "A-bold"
    1.17     0x61   "B-bold"
    1.18     0x62   "C-bold"
    1.19 @@ -19,6 +24,7 @@
    1.20     0x6A   "S-bold"
    1.21     0x6B   "L-bold"
    1.22     0x6C   "M-bold"
    1.23 +   0x7F   " " ;space
    1.24     0x80   "A"
    1.25     0x81   "B"
    1.26     0x82   "C"
    1.27 @@ -75,20 +81,29 @@
    1.28     0xB7   "x"
    1.29     0xB8   "y"
    1.30     0xB9   "z"
    1.31 -   0xBA   "e-with-grave"
    1.32 +   0xBA   "[e]" ;é
    1.33 +   0xBB   "'d" ;ocsenave
    1.34 +   0xBC   "'l" ;ocsenave
    1.35 +   0xBD   "'s" ;ocsenave
    1.36 +   0xBE   "'t" ;ocsenave
    1.37 +   0xBF   "'v" ; ocsenave
    1.38 +   
    1.39     0xE0   "'"
    1.40     0xE1   "PK"
    1.41     0xE2   "MN"
    1.42     0xE3   "-"
    1.43 +   0xE4   "'r" ;ocsenave
    1.44 +   0xE5   "'m" ;ocsenave
    1.45     0xE6   "?"
    1.46     0xE7   "!"
    1.47     0xE8   "."
    1.48     0xEF   "male-symbol"
    1.49 -   0xF0   "pokemon-money-symbol"
    1.50 +   0xF0   "$" ;;"pokemon-money-symbol"
    1.51     0xF1   "."
    1.52     0xF2   "/"
    1.53     0xF3   ","
    1.54 -   0xF4   "female-symbol"
    1.55 +   0xF4   ", "
    1.56 +   0xF5   "female-symbol" ;; ocsenave
    1.57     0xF6   "0 "
    1.58     0xF7   "1"
    1.59     0xF8   "2"
    1.60 @@ -115,6 +130,8 @@
    1.61                  (format "[0x%02X]" %))
    1.62                codes)))
    1.63  
    1.64 +
    1.65 +
    1.66  (defn print-text
    1.67    ([^SaveState state begin end]
    1.68       (dorun