rlm@145: (ns com.aurellem.gb.characters
rlm@145:   (:use (com.aurellem.gb gb-driver))
rlm@145:   (:import [com.aurellem.gb.gb_driver SaveState]))
rlm@145: 
rlm@145: (def character-code->character
rlm@145:   {
rlm@145:    0x00   "end-of-name-sentinel"
rlm@147:    0x50   "end-of-pokemon-name-sentinel"
rlm@145:    0x60   "A-bold"
rlm@145:    0x61   "B-bold"
rlm@145:    0x62   "C-bold"
rlm@145:    0x63   "D-bold"
rlm@145:    0x64   "E-bold"
rlm@145:    0x65   "F-bold"
rlm@145:    0x66   "G-bold"
rlm@145:    0x67   "H-bold"
rlm@145:    0x68   "I-bold"
rlm@145:    0x69   "V-bold"
rlm@145:    0x6A   "S-bold"
rlm@145:    0x6B   "L-bold"
rlm@145:    0x6C   "M-bold"
rlm@145:    0x80   "A"
rlm@145:    0x81   "B"
rlm@145:    0x82   "C"
rlm@145:    0x83   "D"
rlm@145:    0x84   "E"
rlm@145:    0x85   "F"
rlm@145:    0x86   "G"
rlm@145:    0x87   "H"
rlm@145:    0x88   "I"
rlm@145:    0x89   "J"
rlm@145:    0x8A   "K"
rlm@145:    0x8B   "L"
rlm@145:    0x8C   "M"
rlm@145:    0x8D   "N"
rlm@145:    0x8E   "O"
rlm@145:    0x8F   "P"
rlm@145:    0x90   "Q"
rlm@145:    0x91   "R"
rlm@145:    0x92   "S"
rlm@145:    0x93   "T"
rlm@145:    0x94   "U"
rlm@145:    0x95   "V"
rlm@145:    0x96   "W"
rlm@145:    0x97   "X"
rlm@145:    0x98   "Y"
rlm@145:    0x99   "Z"
rlm@145:    0x9A   "("
rlm@145:    0x9B   ")"
rlm@145:    0x9C   ":"
rlm@145:    0x9D   ";"
rlm@145:    0xA0   "a"
rlm@145:    0xA1   "b"
rlm@145:    0xA2   "c"
rlm@145:    0xA3   "d"
rlm@145:    0xA4   "e"
rlm@145:    0xA5   "f"
rlm@145:    0xA6   "g"
rlm@145:    0xA7   "h"
rlm@145:    0xA8   "i"
rlm@145:    0xA9   "j"
rlm@145:    0xAA   "k"
rlm@145:    0xAB   "l"
rlm@145:    0xAC   "m"
rlm@145:    0xAD   "n"
rlm@145:    0xAE   "o"
rlm@145:    0xAF   "p"
rlm@145:    0xB0   "q"
rlm@145:    0xB1   "r"
rlm@145:    0xB2   "s"
rlm@145:    0xB3   "t"
rlm@145:    0xB4   "u"
rlm@145:    0xB5   "v"
rlm@145:    0xB6   "w"
rlm@145:    0xB7   "x"
rlm@145:    0xB8   "y"
rlm@145:    0xB9   "z"
rlm@145:    0xBA   "e-with-grave"
rlm@145:    0xE0   "'"
rlm@145:    0xE1   "PK"
rlm@145:    0xE2   "MN"
rlm@145:    0xE6   "?"
rlm@145:    0xE7   "!"
rlm@145:    0xE8   "."
rlm@145:    0xEF   "male-symbol"
rlm@145:    0xF0   "pokemon-money-symbol"
rlm@145:    0xF1   "."
rlm@145:    0xF2   "/"
rlm@145:    0xF3   ","
rlm@145:    0xF4   "female-symbol"
rlm@145:    0xF6   "0 "
rlm@145:    0xF7   "1"
rlm@145:    0xF8   "2"
rlm@145:    0xF9   "3"
rlm@145:    0xFA   "4"
rlm@145:    0xFB   "5"
rlm@145:    0xFC   "6"
rlm@145:    0xFD   "7"
rlm@145:    0xFE   "8"
rlm@145:    0xFF   "9"
rlm@145:    })
rlm@145: 
rlm@145: (def character->character-code
rlm@145:   (zipmap (vals character-code->character)
rlm@145:           (keys character-code->character)))
rlm@145: 
rlm@145: (defn str->character-codes [s]
rlm@145:   (map character->character-code (map str s)))
rlm@145: 
rlm@145: (defn character-codes->str [codes]
rlm@145:   (apply str
rlm@145:          (map #(character-code->character
rlm@145:                 %
rlm@145:                 (format "[0x%02X]" %))
rlm@145:               codes)))
rlm@145:        
rlm@145: