1.1 --- a/clojure/com/aurellem/item_bridge.clj	Sat Mar 17 19:30:45 2012 -0500
     1.2 +++ b/clojure/com/aurellem/item_bridge.clj	Sat Mar 17 21:29:08 2012 -0500
     1.3 @@ -1,5 +1,302 @@
     1.4  (ns com.aurellem.item-bridge
     1.5 -  (:use (com.aurellem gb-driver vbm title items assembly))
     1.6 +  (:use (com.aurellem gb-driver vbm title save-corruption items assembly))
     1.7    (:import [com.aurellem.gb_driver SaveState]))
     1.8  
     1.9  
    1.10 +(defn corrupt-item-state []
    1.11 +  (second (destroy-item-end-of-list-marker)))
    1.12 +
    1.13 +(defn corrupt-item-state []
    1.14 +  (read-state "corrupt-items"))
    1.15 +
    1.16 +(defn talk-to-rival []
    1.17 +  (read-state "talk-to-rival"))
    1.18 +
    1.19 +(def rival-name-start 0xD349)
    1.20 +
    1.21 +
    1.22 +(defn set-rival-name [^SaveState state codes]
    1.23 +  (set-state! state)
    1.24 +  (let [mem (memory state)]
    1.25 +    (dorun (map (fn [index val]
    1.26 +                  (aset mem index val))
    1.27 +                (range rival-name-start
    1.28 +                       (+ rival-name-start
    1.29 +                          (count codes))) codes))
    1.30 +    (write-memory! mem)
    1.31 +    (update-state)))
    1.32 +
    1.33 +(defn view-rival-name [name-codes]
    1.34 +  (->
    1.35 +   (set-rival-name (talk-to-rival) name-codes)
    1.36 +   (step [:a])
    1.37 +   (play 50)))
    1.38 +
    1.39 +(defn rival-name-sequence []
    1.40 +  (let [i (atom 1)]
    1.41 +    (fn []
    1.42 +      (let [codes (range @i (+ 5 @i))]
    1.43 +        (println codes)
    1.44 +        (view-rival-name codes)
    1.45 +        (reset! i (+ 5 @i))))))
    1.46 +      
    1.47 +
    1.48 +
    1.49 +0    :  end-of-name-sentinel
    1.50 +1    :  
    1.51 +2    :  
    1.52 +3    :  
    1.53 +4    :  
    1.54 +5    :  
    1.55 +6    :  
    1.56 +7    :  
    1.57 +8    :  
    1.58 +9    :  
    1.59 +10   :  
    1.60 +11   :  
    1.61 +12   :  
    1.62 +13   :  
    1.63 +14   :  
    1.64 +15   :  
    1.65 +16   :  
    1.66 +17   :  
    1.67 +18   :  
    1.68 +19   :  
    1.69 +20   :  
    1.70 +21   :  
    1.71 +22   :  
    1.72 +23   :  
    1.73 +24   :  
    1.74 +25   :  
    1.75 +26   :  
    1.76 +27   :  
    1.77 +28   :  
    1.78 +29   :  
    1.79 +30   :  
    1.80 +31   :  
    1.81 +32   :  
    1.82 +33   :  
    1.83 +34   :  
    1.84 +35   :  
    1.85 +36   :  
    1.86 +37   :  
    1.87 +38   :  
    1.88 +39   :  
    1.89 +40   :  
    1.90 +41   :  
    1.91 +42   :  
    1.92 +43   :  
    1.93 +44   :  
    1.94 +45   :  
    1.95 +46   :  
    1.96 +47   :  
    1.97 +48   :  
    1.98 +49   :  
    1.99 +50   :  
   1.100 +51   :  
   1.101 +52   :  
   1.102 +53   :  
   1.103 +54   :  
   1.104 +55   :  
   1.105 +56   :  
   1.106 +57   :  
   1.107 +58   :  
   1.108 +59   :  
   1.109 +60   :  
   1.110 +61   :  
   1.111 +62   :  
   1.112 +63   :  
   1.113 +64   :  
   1.114 +65   :  
   1.115 +66   :  
   1.116 +67   :  
   1.117 +68   :  
   1.118 +69   :  
   1.119 +70   :  
   1.120 +71   :  
   1.121 +72   :  
   1.122 +73   :  
   1.123 +74   :  
   1.124 +75   :  
   1.125 +76   :  
   1.126 +77   :  
   1.127 +78   :  
   1.128 +79   :  
   1.129 +80   :  
   1.130 +81   :  
   1.131 +82   :  
   1.132 +83   :  
   1.133 +84   :  
   1.134 +85   :  
   1.135 +86   :  
   1.136 +87   :  
   1.137 +88   :  
   1.138 +89   :  
   1.139 +90   :  
   1.140 +91   :  
   1.141 +92   :  
   1.142 +93   :  
   1.143 +94   :  
   1.144 +95   :  
   1.145 +96   :  A (small-bold)
   1.146 +97   :  B (small-bold)
   1.147 +98   :  C (small-bold)
   1.148 +99   :  D (small-bold)
   1.149 +100  :  E (small-bold)
   1.150 +101  :  F (small-bold)
   1.151 +102  :  G (small-bold)
   1.152 +103  :  H (small-bold)
   1.153 +104  :  I (small-bold)
   1.154 +105  :  V (small-bold)
   1.155 +106  :  S (small-bold)
   1.156 +107  :  L (small-bold)
   1.157 +108  :  M (small-bold)
   1.158 +109  :  
   1.159 +110  :  
   1.160 +111  :  
   1.161 +112  :  
   1.162 +113  :  
   1.163 +114  :  
   1.164 +115  :  
   1.165 +116  :  
   1.166 +117  :  
   1.167 +118  :  
   1.168 +119  :  
   1.169 +120  :  
   1.170 +121  :  
   1.171 +122  :  
   1.172 +123  :  
   1.173 +124  :  
   1.174 +125  :  
   1.175 +126  :  
   1.176 +127  :  
   1.177 +128  :  A
   1.178 +129  :  B
   1.179 +130  :  C
   1.180 +131  :  D
   1.181 +132  :  E
   1.182 +133  :  F
   1.183 +134  :  G
   1.184 +135  :  H
   1.185 +136  :  I
   1.186 +137  :  J
   1.187 +138  :  K
   1.188 +139  :  L
   1.189 +140  :  M
   1.190 +141  :  N
   1.191 +142  :  O
   1.192 +143  :  P
   1.193 +144  :  Q
   1.194 +145  :  R
   1.195 +146  :  S
   1.196 +147  :  T
   1.197 +148  :  U
   1.198 +149  :  V
   1.199 +150  :  W
   1.200 +151  :  X
   1.201 +152  :  Y
   1.202 +153  :  Z
   1.203 +154  :  (
   1.204 +155  :  )
   1.205 +156  :   :
   1.206 +157  :  ;
   1.207 +158  :  
   1.208 +159  :  
   1.209 +160  :  a
   1.210 +161  :  b
   1.211 +162  :  c
   1.212 +163  :  d
   1.213 +164  :  e
   1.214 +165  :  f
   1.215 +166  :  g
   1.216 +167  :  h
   1.217 +168  :  i
   1.218 +169  :  j
   1.219 +170  :  k
   1.220 +171  :  l
   1.221 +172  :  m
   1.222 +173  :  n
   1.223 +174  :  o
   1.224 +175  :  p
   1.225 +176  :  q
   1.226 +177  :  r
   1.227 +178  :  s
   1.228 +179  :  t
   1.229 +180  :  u
   1.230 +181  :  v
   1.231 +182  :  w
   1.232 +183  :  x
   1.233 +184  :  y
   1.234 +185  :  z
   1.235 +186  :  e-with-grave
   1.236 +187  :  
   1.237 +188  :  
   1.238 +189  :  
   1.239 +190  :  
   1.240 +191  :  
   1.241 +192  :  
   1.242 +193  :  
   1.243 +194  :  
   1.244 +195  :  
   1.245 +196  :  
   1.246 +197  :  
   1.247 +198  :  
   1.248 +199  :  
   1.249 +200  :  
   1.250 +201  :  
   1.251 +202  :  
   1.252 +203  :  
   1.253 +204  :  
   1.254 +205  :  
   1.255 +206  :  
   1.256 +207  :  
   1.257 +208  :  
   1.258 +209  :  
   1.259 +210  :  
   1.260 +211  :  
   1.261 +212  :  
   1.262 +213  :  
   1.263 +214  :  
   1.264 +215  :  
   1.265 +216  :  
   1.266 +217  :  
   1.267 +218  :  
   1.268 +219  :  
   1.269 +220  :  
   1.270 +221  :  
   1.271 +222  :  
   1.272 +223  :  
   1.273 +224  :  '
   1.274 +225  :  PK
   1.275 +226  :  MN
   1.276 +227  :  
   1.277 +228  :  
   1.278 +229  :  
   1.279 +230  :  ?
   1.280 +231  :  !
   1.281 +232  :  .
   1.282 +233  :  
   1.283 +234  :  
   1.284 +235  :  
   1.285 +236  :  
   1.286 +237  :  
   1.287 +238  :  
   1.288 +239  :  male-symbol
   1.289 +240  :  pokemon-money-symbol
   1.290 +241  :  .
   1.291 +242  :  /
   1.292 +243  :  ,
   1.293 +244  :  female-symbol
   1.294 +245  :  
   1.295 +246  :  0 
   1.296 +247  :  1
   1.297 +248  :  2
   1.298 +249  :  3
   1.299 +250  :  4
   1.300 +251  :  5
   1.301 +252  :  6
   1.302 +253  :  7
   1.303 +254  :  8
   1.304 +255  :  9
   1.305 +           
   1.306 +