1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clojure/com/aurellem/rival_name.clj	Sun Mar 18 00:33:00 2012 -0500
     1.3 @@ -0,0 +1,295 @@
     1.4 +(ns com.aurellem.rival-name
     1.5 +  (:use (com.aurellem gb-driver vbm title save-corruption items assembly))
     1.6 +  (:import [com.aurellem.gb_driver SaveState]))
     1.7 +
     1.8 +
     1.9 +(defn talk-to-rival []
    1.10 +  (read-state "talk-to-rival"))
    1.11 +
    1.12 +(def rival-name-start 0xD349)
    1.13 +
    1.14 +(defn set-rival-name [^SaveState state codes]
    1.15 +  (set-state! state)
    1.16 +  (let [mem (memory state)]
    1.17 +    (dorun (map (fn [index val]
    1.18 +                  (aset mem index val))
    1.19 +                (range rival-name-start
    1.20 +                       (+ rival-name-start
    1.21 +                          (count codes))) codes))
    1.22 +    (write-memory! mem)
    1.23 +    (update-state)))
    1.24 +
    1.25 +(defn view-rival-name [name-codes]
    1.26 +  (->
    1.27 +   (set-rival-name (talk-to-rival) name-codes)
    1.28 +   (step [:a])
    1.29 +   (play 50)))
    1.30 +
    1.31 +(defn rival-name-sequence []
    1.32 +  (let [i (atom 1)]
    1.33 +    (fn []
    1.34 +      (let [codes (range @i (+ 5 @i))]
    1.35 +        (println codes)
    1.36 +        (view-rival-name codes)
    1.37 +        (reset! i (+ 5 @i))))))
    1.38 +      
    1.39 +
    1.40 +
    1.41 +;; 0x00 :  end-of-name-sentinel
    1.42 +;; 0x01 :  
    1.43 +;; 0x02 :  
    1.44 +;; 0x03 :  
    1.45 +;; 0x04 :  
    1.46 +;; 0x05 :  
    1.47 +;; 0x06 :  
    1.48 +;; 0x07 :  
    1.49 +;; 0x08 :  
    1.50 +;; 0x09 :  
    1.51 +;; 0x0A :  
    1.52 +;; 0x0B :  
    1.53 +;; 0x0C :  
    1.54 +;; 0x0D :  
    1.55 +;; 0x0E :  
    1.56 +;; 0x0F :  
    1.57 +;; 0x10 :  
    1.58 +;; 0x11 :  
    1.59 +;; 0x12 :  
    1.60 +;; 0x13 :  
    1.61 +;; 0x14 :  
    1.62 +;; 0x15 :  
    1.63 +;; 0x16 :  
    1.64 +;; 0x17 :  
    1.65 +;; 0x18 :  
    1.66 +;; 0x19 :  
    1.67 +;; 0x1A :  
    1.68 +;; 0x1B :  
    1.69 +;; 0x1C :  
    1.70 +;; 0x1D :  
    1.71 +;; 0x1E :  
    1.72 +;; 0x1F :  
    1.73 +;; 0x20 :  
    1.74 +;; 0x21 :  
    1.75 +;; 0x22 :  
    1.76 +;; 0x23 :  
    1.77 +;; 0x24 :  
    1.78 +;; 0x25 :  
    1.79 +;; 0x26 :  
    1.80 +;; 0x27 :  
    1.81 +;; 0x28 :  
    1.82 +;; 0x29 :  
    1.83 +;; 0x2A :  
    1.84 +;; 0x2B :  
    1.85 +;; 0x2C :  
    1.86 +;; 0x2D :  
    1.87 +;; 0x2E :  
    1.88 +;; 0x2F :  
    1.89 +;; 0x30 :  
    1.90 +;; 0x31 :  
    1.91 +;; 0x32 :  
    1.92 +;; 0x33 :  
    1.93 +;; 0x34 :  
    1.94 +;; 0x35 :  
    1.95 +;; 0x36 :  
    1.96 +;; 0x37 :  
    1.97 +;; 0x38 :  
    1.98 +;; 0x39 :  
    1.99 +;; 0x3A :  
   1.100 +;; 0x3B :  
   1.101 +;; 0x3C :  
   1.102 +;; 0x3D :  
   1.103 +;; 0x3E :  
   1.104 +;; 0x3F :  
   1.105 +;; 0x40 :  
   1.106 +;; 0x41 :  
   1.107 +;; 0x42 :  
   1.108 +;; 0x43 :  
   1.109 +;; 0x44 :  
   1.110 +;; 0x45 :  
   1.111 +;; 0x46 :  
   1.112 +;; 0x47 :  
   1.113 +;; 0x48 :  
   1.114 +;; 0x49 :  
   1.115 +;; 0x4A :  
   1.116 +;; 0x4B :  
   1.117 +;; 0x4C :  
   1.118 +;; 0x4D :  
   1.119 +;; 0x4E :  
   1.120 +;; 0x4F :  
   1.121 +;; 0x50 :  
   1.122 +;; 0x51 :  
   1.123 +;; 0x52 :  
   1.124 +;; 0x53 :  
   1.125 +;; 0x54 :  
   1.126 +;; 0x55 :  
   1.127 +;; 0x56 :  
   1.128 +;; 0x57 :  
   1.129 +;; 0x58 :  
   1.130 +;; 0x59 :  
   1.131 +;; 0x5A :  
   1.132 +;; 0x5B :  
   1.133 +;; 0x5C :  
   1.134 +;; 0x5D :  
   1.135 +;; 0x5E :  
   1.136 +;; 0x5F :  
   1.137 +;; 0x60 :  A (small-bold)
   1.138 +;; 0x61 :  B (small-bold)
   1.139 +;; 0x62 :  C (small-bold)
   1.140 +;; 0x63 :  D (small-bold)
   1.141 +;; 0x64 :  E (small-bold)
   1.142 +;; 0x65 :  F (small-bold)
   1.143 +;; 0x66 :  G (small-bold)
   1.144 +;; 0x67 :  H (small-bold)
   1.145 +;; 0x68 :  I (small-bold)
   1.146 +;; 0x69 :  V (small-bold)
   1.147 +;; 0x6A :  S (small-bold)
   1.148 +;; 0x6B :  L (small-bold)
   1.149 +;; 0x6C :  M (small-bold)
   1.150 +;; 0x6D :  
   1.151 +;; 0x6E :  
   1.152 +;; 0x6F :  
   1.153 +;; 0x70 :  
   1.154 +;; 0x71 :  
   1.155 +;; 0x72 :  
   1.156 +;; 0x73 :  
   1.157 +;; 0x74 :  
   1.158 +;; 0x75 :  
   1.159 +;; 0x76 :  
   1.160 +;; 0x77 :  
   1.161 +;; 0x78 :  
   1.162 +;; 0x79 :  
   1.163 +;; 0x7A :  
   1.164 +;; 0x7B :  
   1.165 +;; 0x7C :  
   1.166 +;; 0x7D :  
   1.167 +;; 0x7E :  
   1.168 +;; 0x7F :  
   1.169 +;; 0x80 :  A
   1.170 +;; 0x81 :  B
   1.171 +;; 0x82 :  C
   1.172 +;; 0x83 :  D
   1.173 +;; 0x84 :  E
   1.174 +;; 0x85 :  F
   1.175 +;; 0x86 :  G
   1.176 +;; 0x87 :  H
   1.177 +;; 0x88 :  I
   1.178 +;; 0x89 :  J
   1.179 +;; 0x8A :  K
   1.180 +;; 0x8B :  L
   1.181 +;; 0x8C :  M
   1.182 +;; 0x8D :  N
   1.183 +;; 0x8E :  O
   1.184 +;; 0x8F :  P
   1.185 +;; 0x90 :  Q
   1.186 +;; 0x91 :  R
   1.187 +;; 0x92 :  S
   1.188 +;; 0x93 :  T
   1.189 +;; 0x94 :  U
   1.190 +;; 0x95 :  V
   1.191 +;; 0x96 :  W
   1.192 +;; 0x97 :  X
   1.193 +;; 0x98 :  Y
   1.194 +;; 0x99 :  Z
   1.195 +;; 0x9A :  (
   1.196 +;; 0x9B :  )
   1.197 +;; 0x9C :  :
   1.198 +;; 0x9D :  ;
   1.199 +;; 0x9E :  
   1.200 +;; 0x9F :  
   1.201 +;; 0xA0 :  a
   1.202 +;; 0xA1 :  b
   1.203 +;; 0xA2 :  c
   1.204 +;; 0xA3 :  d
   1.205 +;; 0xA4 :  e
   1.206 +;; 0xA5 :  f
   1.207 +;; 0xA6 :  g
   1.208 +;; 0xA7 :  h
   1.209 +;; 0xA8 :  i
   1.210 +;; 0xA9 :  j
   1.211 +;; 0xAA :  k
   1.212 +;; 0xAB :  l
   1.213 +;; 0xAC :  m
   1.214 +;; 0xAD :  n
   1.215 +;; 0xAE :  o
   1.216 +;; 0xAF :  p
   1.217 +;; 0xB0 :  q
   1.218 +;; 0xB1 :  r
   1.219 +;; 0xB2 :  s
   1.220 +;; 0xB3 :  t
   1.221 +;; 0xB4 :  u
   1.222 +;; 0xB5 :  v
   1.223 +;; 0xB6 :  w
   1.224 +;; 0xB7 :  x
   1.225 +;; 0xB8 :  y
   1.226 +;; 0xB9 :  z
   1.227 +;; 0xBA :  e-with-grave
   1.228 +;; 0xBB :  
   1.229 +;; 0xBC :  
   1.230 +;; 0xBD :  
   1.231 +;; 0xBE :  
   1.232 +;; 0xBF :  
   1.233 +;; 0xC0 :  
   1.234 +;; 0xC1 :  
   1.235 +;; 0xC2 :  
   1.236 +;; 0xC3 :  
   1.237 +;; 0xC4 :  
   1.238 +;; 0xC5 :  
   1.239 +;; 0xC6 :  
   1.240 +;; 0xC7 :  
   1.241 +;; 0xC8 :  
   1.242 +;; 0xC9 :  
   1.243 +;; 0xCA :  
   1.244 +;; 0xCB :  
   1.245 +;; 0xCC :  
   1.246 +;; 0xCD :  
   1.247 +;; 0xCE :  
   1.248 +;; 0xCF :  
   1.249 +;; 0xD0 :  
   1.250 +;; 0xD1 :  
   1.251 +;; 0xD2 :  
   1.252 +;; 0xD3 :  
   1.253 +;; 0xD4 :  
   1.254 +;; 0xD5 :  
   1.255 +;; 0xD6 :  
   1.256 +;; 0xD7 :  
   1.257 +;; 0xD8 :  
   1.258 +;; 0xD9 :  
   1.259 +;; 0xDA :  
   1.260 +;; 0xDB :  
   1.261 +;; 0xDC :  
   1.262 +;; 0xDD :  
   1.263 +;; 0xDE :  
   1.264 +;; 0xDF :  
   1.265 +;; 0xE0 :  '
   1.266 +;; 0xE1 :  PK
   1.267 +;; 0xE2 :  MN
   1.268 +;; 0xE3 :  
   1.269 +;; 0xE4 :  
   1.270 +;; 0xE5 :  
   1.271 +;; 0xE6 :  ?
   1.272 +;; 0xE7 :  !
   1.273 +;; 0xE8 :  .
   1.274 +;; 0xE9 :  
   1.275 +;; 0xEA :  
   1.276 +;; 0xEB :  
   1.277 +;; 0xEC :  
   1.278 +;; 0xED :  
   1.279 +;; 0xEE :  
   1.280 +;; 0xEF :  male-symbol
   1.281 +;; 0xF0 :  pokemon-money-symbol
   1.282 +;; 0xF1 :  .
   1.283 +;; 0xF2 :  /
   1.284 +;; 0xF3 :  ,
   1.285 +;; 0xF4 :  female-symbol
   1.286 +;; 0xF5 :  
   1.287 +;; 0xF6 :  0 
   1.288 +;; 0xF7 :  1
   1.289 +;; 0xF8 :  2
   1.290 +;; 0xF9 :  3
   1.291 +;; 0xFA :  4
   1.292 +;; 0xFB :  5
   1.293 +;; 0xFC :  6
   1.294 +;; 0xFD :  7
   1.295 +;; 0xFE :  8
   1.296 +;; 0xFF :  9
   1.297 +           
   1.298 +