rlm@130: (ns com.aurellem.item-bridge
rlm@131:   (:use (com.aurellem gb-driver vbm title save-corruption items assembly))
rlm@130:   (:import [com.aurellem.gb_driver SaveState]))
rlm@130: 
rlm@130: 
rlm@131: (defn corrupt-item-state []
rlm@131:   (second (destroy-item-end-of-list-marker)))
rlm@131: 
rlm@131: (defn corrupt-item-state []
rlm@131:   (read-state "corrupt-items"))
rlm@131: 
rlm@131: (defn talk-to-rival []
rlm@131:   (read-state "talk-to-rival"))
rlm@131: 
rlm@131: (def rival-name-start 0xD349)
rlm@131: 
rlm@131: 
rlm@131: (defn set-rival-name [^SaveState state codes]
rlm@131:   (set-state! state)
rlm@131:   (let [mem (memory state)]
rlm@131:     (dorun (map (fn [index val]
rlm@131:                   (aset mem index val))
rlm@131:                 (range rival-name-start
rlm@131:                        (+ rival-name-start
rlm@131:                           (count codes))) codes))
rlm@131:     (write-memory! mem)
rlm@131:     (update-state)))
rlm@131: 
rlm@131: (defn view-rival-name [name-codes]
rlm@131:   (->
rlm@131:    (set-rival-name (talk-to-rival) name-codes)
rlm@131:    (step [:a])
rlm@131:    (play 50)))
rlm@131: 
rlm@131: (defn rival-name-sequence []
rlm@131:   (let [i (atom 1)]
rlm@131:     (fn []
rlm@131:       (let [codes (range @i (+ 5 @i))]
rlm@131:         (println codes)
rlm@131:         (view-rival-name codes)
rlm@131:         (reset! i (+ 5 @i))))))
rlm@131:       
rlm@131: 
rlm@131: 
rlm@131: 0    :  end-of-name-sentinel
rlm@131: 1    :  
rlm@131: 2    :  
rlm@131: 3    :  
rlm@131: 4    :  
rlm@131: 5    :  
rlm@131: 6    :  
rlm@131: 7    :  
rlm@131: 8    :  
rlm@131: 9    :  
rlm@131: 10   :  
rlm@131: 11   :  
rlm@131: 12   :  
rlm@131: 13   :  
rlm@131: 14   :  
rlm@131: 15   :  
rlm@131: 16   :  
rlm@131: 17   :  
rlm@131: 18   :  
rlm@131: 19   :  
rlm@131: 20   :  
rlm@131: 21   :  
rlm@131: 22   :  
rlm@131: 23   :  
rlm@131: 24   :  
rlm@131: 25   :  
rlm@131: 26   :  
rlm@131: 27   :  
rlm@131: 28   :  
rlm@131: 29   :  
rlm@131: 30   :  
rlm@131: 31   :  
rlm@131: 32   :  
rlm@131: 33   :  
rlm@131: 34   :  
rlm@131: 35   :  
rlm@131: 36   :  
rlm@131: 37   :  
rlm@131: 38   :  
rlm@131: 39   :  
rlm@131: 40   :  
rlm@131: 41   :  
rlm@131: 42   :  
rlm@131: 43   :  
rlm@131: 44   :  
rlm@131: 45   :  
rlm@131: 46   :  
rlm@131: 47   :  
rlm@131: 48   :  
rlm@131: 49   :  
rlm@131: 50   :  
rlm@131: 51   :  
rlm@131: 52   :  
rlm@131: 53   :  
rlm@131: 54   :  
rlm@131: 55   :  
rlm@131: 56   :  
rlm@131: 57   :  
rlm@131: 58   :  
rlm@131: 59   :  
rlm@131: 60   :  
rlm@131: 61   :  
rlm@131: 62   :  
rlm@131: 63   :  
rlm@131: 64   :  
rlm@131: 65   :  
rlm@131: 66   :  
rlm@131: 67   :  
rlm@131: 68   :  
rlm@131: 69   :  
rlm@131: 70   :  
rlm@131: 71   :  
rlm@131: 72   :  
rlm@131: 73   :  
rlm@131: 74   :  
rlm@131: 75   :  
rlm@131: 76   :  
rlm@131: 77   :  
rlm@131: 78   :  
rlm@131: 79   :  
rlm@131: 80   :  
rlm@131: 81   :  
rlm@131: 82   :  
rlm@131: 83   :  
rlm@131: 84   :  
rlm@131: 85   :  
rlm@131: 86   :  
rlm@131: 87   :  
rlm@131: 88   :  
rlm@131: 89   :  
rlm@131: 90   :  
rlm@131: 91   :  
rlm@131: 92   :  
rlm@131: 93   :  
rlm@131: 94   :  
rlm@131: 95   :  
rlm@131: 96   :  A (small-bold)
rlm@131: 97   :  B (small-bold)
rlm@131: 98   :  C (small-bold)
rlm@131: 99   :  D (small-bold)
rlm@131: 100  :  E (small-bold)
rlm@131: 101  :  F (small-bold)
rlm@131: 102  :  G (small-bold)
rlm@131: 103  :  H (small-bold)
rlm@131: 104  :  I (small-bold)
rlm@131: 105  :  V (small-bold)
rlm@131: 106  :  S (small-bold)
rlm@131: 107  :  L (small-bold)
rlm@131: 108  :  M (small-bold)
rlm@131: 109  :  
rlm@131: 110  :  
rlm@131: 111  :  
rlm@131: 112  :  
rlm@131: 113  :  
rlm@131: 114  :  
rlm@131: 115  :  
rlm@131: 116  :  
rlm@131: 117  :  
rlm@131: 118  :  
rlm@131: 119  :  
rlm@131: 120  :  
rlm@131: 121  :  
rlm@131: 122  :  
rlm@131: 123  :  
rlm@131: 124  :  
rlm@131: 125  :  
rlm@131: 126  :  
rlm@131: 127  :  
rlm@131: 128  :  A
rlm@131: 129  :  B
rlm@131: 130  :  C
rlm@131: 131  :  D
rlm@131: 132  :  E
rlm@131: 133  :  F
rlm@131: 134  :  G
rlm@131: 135  :  H
rlm@131: 136  :  I
rlm@131: 137  :  J
rlm@131: 138  :  K
rlm@131: 139  :  L
rlm@131: 140  :  M
rlm@131: 141  :  N
rlm@131: 142  :  O
rlm@131: 143  :  P
rlm@131: 144  :  Q
rlm@131: 145  :  R
rlm@131: 146  :  S
rlm@131: 147  :  T
rlm@131: 148  :  U
rlm@131: 149  :  V
rlm@131: 150  :  W
rlm@131: 151  :  X
rlm@131: 152  :  Y
rlm@131: 153  :  Z
rlm@131: 154  :  (
rlm@131: 155  :  )
rlm@131: 156  :   :
rlm@131: 157  :  ;
rlm@131: 158  :  
rlm@131: 159  :  
rlm@131: 160  :  a
rlm@131: 161  :  b
rlm@131: 162  :  c
rlm@131: 163  :  d
rlm@131: 164  :  e
rlm@131: 165  :  f
rlm@131: 166  :  g
rlm@131: 167  :  h
rlm@131: 168  :  i
rlm@131: 169  :  j
rlm@131: 170  :  k
rlm@131: 171  :  l
rlm@131: 172  :  m
rlm@131: 173  :  n
rlm@131: 174  :  o
rlm@131: 175  :  p
rlm@131: 176  :  q
rlm@131: 177  :  r
rlm@131: 178  :  s
rlm@131: 179  :  t
rlm@131: 180  :  u
rlm@131: 181  :  v
rlm@131: 182  :  w
rlm@131: 183  :  x
rlm@131: 184  :  y
rlm@131: 185  :  z
rlm@131: 186  :  e-with-grave
rlm@131: 187  :  
rlm@131: 188  :  
rlm@131: 189  :  
rlm@131: 190  :  
rlm@131: 191  :  
rlm@131: 192  :  
rlm@131: 193  :  
rlm@131: 194  :  
rlm@131: 195  :  
rlm@131: 196  :  
rlm@131: 197  :  
rlm@131: 198  :  
rlm@131: 199  :  
rlm@131: 200  :  
rlm@131: 201  :  
rlm@131: 202  :  
rlm@131: 203  :  
rlm@131: 204  :  
rlm@131: 205  :  
rlm@131: 206  :  
rlm@131: 207  :  
rlm@131: 208  :  
rlm@131: 209  :  
rlm@131: 210  :  
rlm@131: 211  :  
rlm@131: 212  :  
rlm@131: 213  :  
rlm@131: 214  :  
rlm@131: 215  :  
rlm@131: 216  :  
rlm@131: 217  :  
rlm@131: 218  :  
rlm@131: 219  :  
rlm@131: 220  :  
rlm@131: 221  :  
rlm@131: 222  :  
rlm@131: 223  :  
rlm@131: 224  :  '
rlm@131: 225  :  PK
rlm@131: 226  :  MN
rlm@131: 227  :  
rlm@131: 228  :  
rlm@131: 229  :  
rlm@131: 230  :  ?
rlm@131: 231  :  !
rlm@131: 232  :  .
rlm@131: 233  :  
rlm@131: 234  :  
rlm@131: 235  :  
rlm@131: 236  :  
rlm@131: 237  :  
rlm@131: 238  :  
rlm@131: 239  :  male-symbol
rlm@131: 240  :  pokemon-money-symbol
rlm@131: 241  :  .
rlm@131: 242  :  /
rlm@131: 243  :  ,
rlm@131: 244  :  female-symbol
rlm@131: 245  :  
rlm@131: 246  :  0 
rlm@131: 247  :  1
rlm@131: 248  :  2
rlm@131: 249  :  3
rlm@131: 250  :  4
rlm@131: 251  :  5
rlm@131: 252  :  6
rlm@131: 253  :  7
rlm@131: 254  :  8
rlm@131: 255  :  9
rlm@131:            
rlm@131: