Mercurial > vba-clojure

annotate clojure/com/aurellem/item_bridge.clj @ 132:d16cf9d829dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
converted rival-name letter-map to hexadecimal
author Robert McIntyre <rlm@mit.edu>
date Sat, 17 Mar 2012 21:32:29 -0500
parents 7f7cc8858d2e
children 424510993296
rev   line source
rlm@130 1 (ns com.aurellem.item-bridge
rlm@131 2 (:use (com.aurellem gb-driver vbm title save-corruption items assembly))
rlm@130 3 (:import [com.aurellem.gb_driver SaveState]))
rlm@130 4
rlm@130 5
rlm@131 6 (defn corrupt-item-state []
rlm@131 7 (second (destroy-item-end-of-list-marker)))
rlm@131 8
rlm@131 9 (defn corrupt-item-state []
rlm@131 10 (read-state "corrupt-items"))
rlm@131 11
rlm@131 12 (defn talk-to-rival []
rlm@131 13 (read-state "talk-to-rival"))
rlm@131 14
rlm@131 15 (def rival-name-start 0xD349)
rlm@131 16
rlm@131 17
rlm@131 18 (defn set-rival-name [^SaveState state codes]
rlm@131 19 (set-state! state)
rlm@131 20 (let [mem (memory state)]
rlm@131 21 (dorun (map (fn [index val]
rlm@131 22 (aset mem index val))
rlm@131 23 (range rival-name-start
rlm@131 24 (+ rival-name-start
rlm@131 25 (count codes))) codes))
rlm@131 26 (write-memory! mem)
rlm@131 27 (update-state)))
rlm@131 28
rlm@131 29 (defn view-rival-name [name-codes]
rlm@131 30 (->
rlm@131 31 (set-rival-name (talk-to-rival) name-codes)
rlm@131 32 (step [:a])
rlm@131 33 (play 50)))
rlm@131 34
rlm@131 35 (defn rival-name-sequence []
rlm@131 36 (let [i (atom 1)]
rlm@131 37 (fn []
rlm@131 38 (let [codes (range @i (+ 5 @i))]
rlm@131 39 (println codes)
rlm@131 40 (view-rival-name codes)
rlm@131 41 (reset! i (+ 5 @i))))))
rlm@131 42
rlm@131 43
rlm@131 44
rlm@132 45 ;; 0x00 : end-of-name-sentinel
rlm@132 46 ;; 0x01 :
rlm@132 47 ;; 0x02 :
rlm@132 48 ;; 0x03 :
rlm@132 49 ;; 0x04 :
rlm@132 50 ;; 0x05 :
rlm@132 51 ;; 0x06 :
rlm@132 52 ;; 0x07 :
rlm@132 53 ;; 0x08 :
rlm@132 54 ;; 0x09 :
rlm@132 55 ;; 0x0A :
rlm@132 56 ;; 0x0B :
rlm@132 57 ;; 0x0C :
rlm@132 58 ;; 0x0D :
rlm@132 59 ;; 0x0E :
rlm@132 60 ;; 0x0F :
rlm@132 61 ;; 0x10 :
rlm@132 62 ;; 0x11 :
rlm@132 63 ;; 0x12 :
rlm@132 64 ;; 0x13 :
rlm@132 65 ;; 0x14 :
rlm@132 66 ;; 0x15 :
rlm@132 67 ;; 0x16 :
rlm@132 68 ;; 0x17 :
rlm@132 69 ;; 0x18 :
rlm@132 70 ;; 0x19 :
rlm@132 71 ;; 0x1A :
rlm@132 72 ;; 0x1B :
rlm@132 73 ;; 0x1C :
rlm@132 74 ;; 0x1D :
rlm@132 75 ;; 0x1E :
rlm@132 76 ;; 0x1F :
rlm@132 77 ;; 0x20 :
rlm@132 78 ;; 0x21 :
rlm@132 79 ;; 0x22 :
rlm@132 80 ;; 0x23 :
rlm@132 81 ;; 0x24 :
rlm@132 82 ;; 0x25 :
rlm@132 83 ;; 0x26 :
rlm@132 84 ;; 0x27 :
rlm@132 85 ;; 0x28 :
rlm@132 86 ;; 0x29 :
rlm@132 87 ;; 0x2A :
rlm@132 88 ;; 0x2B :
rlm@132 89 ;; 0x2C :
rlm@132 90 ;; 0x2D :
rlm@132 91 ;; 0x2E :
rlm@132 92 ;; 0x2F :
rlm@132 93 ;; 0x30 :
rlm@132 94 ;; 0x31 :
rlm@132 95 ;; 0x32 :
rlm@132 96 ;; 0x33 :
rlm@132 97 ;; 0x34 :
rlm@132 98 ;; 0x35 :
rlm@132 99 ;; 0x36 :
rlm@132 100 ;; 0x37 :
rlm@132 101 ;; 0x38 :
rlm@132 102 ;; 0x39 :
rlm@132 103 ;; 0x3A :
rlm@132 104 ;; 0x3B :
rlm@132 105 ;; 0x3C :
rlm@132 106 ;; 0x3D :
rlm@132 107 ;; 0x3E :
rlm@132 108 ;; 0x3F :
rlm@132 109 ;; 0x40 :
rlm@132 110 ;; 0x41 :
rlm@132 111 ;; 0x42 :
rlm@132 112 ;; 0x43 :
rlm@132 113 ;; 0x44 :
rlm@132 114 ;; 0x45 :
rlm@132 115 ;; 0x46 :
rlm@132 116 ;; 0x47 :
rlm@132 117 ;; 0x48 :
rlm@132 118 ;; 0x49 :
rlm@132 119 ;; 0x4A :
rlm@132 120 ;; 0x4B :
rlm@132 121 ;; 0x4C :
rlm@132 122 ;; 0x4D :
rlm@132 123 ;; 0x4E :
rlm@132 124 ;; 0x4F :
rlm@132 125 ;; 0x50 :
rlm@132 126 ;; 0x51 :
rlm@132 127 ;; 0x52 :
rlm@132 128 ;; 0x53 :
rlm@132 129 ;; 0x54 :
rlm@132 130 ;; 0x55 :
rlm@132 131 ;; 0x56 :
rlm@132 132 ;; 0x57 :
rlm@132 133 ;; 0x58 :
rlm@132 134 ;; 0x59 :
rlm@132 135 ;; 0x5A :
rlm@132 136 ;; 0x5B :
rlm@132 137 ;; 0x5C :
rlm@132 138 ;; 0x5D :
rlm@132 139 ;; 0x5E :
rlm@132 140 ;; 0x5F :
rlm@132 141 ;; 0x60 : A (small-bold)
rlm@132 142 ;; 0x61 : B (small-bold)
rlm@132 143 ;; 0x62 : C (small-bold)
rlm@132 144 ;; 0x63 : D (small-bold)
rlm@132 145 ;; 0x64 : E (small-bold)
rlm@132 146 ;; 0x65 : F (small-bold)
rlm@132 147 ;; 0x66 : G (small-bold)
rlm@132 148 ;; 0x67 : H (small-bold)
rlm@132 149 ;; 0x68 : I (small-bold)
rlm@132 150 ;; 0x69 : V (small-bold)
rlm@132 151 ;; 0x6A : S (small-bold)
rlm@132 152 ;; 0x6B : L (small-bold)
rlm@132 153 ;; 0x6C : M (small-bold)
rlm@132 154 ;; 0x6D :
rlm@132 155 ;; 0x6E :
rlm@132 156 ;; 0x6F :
rlm@132 157 ;; 0x70 :
rlm@132 158 ;; 0x71 :
rlm@132 159 ;; 0x72 :
rlm@132 160 ;; 0x73 :
rlm@132 161 ;; 0x74 :
rlm@132 162 ;; 0x75 :
rlm@132 163 ;; 0x76 :
rlm@132 164 ;; 0x77 :
rlm@132 165 ;; 0x78 :
rlm@132 166 ;; 0x79 :
rlm@132 167 ;; 0x7A :
rlm@132 168 ;; 0x7B :
rlm@132 169 ;; 0x7C :
rlm@132 170 ;; 0x7D :
rlm@132 171 ;; 0x7E :
rlm@132 172 ;; 0x7F :
rlm@132 173 ;; 0x80 : A
rlm@132 174 ;; 0x81 : B
rlm@132 175 ;; 0x82 : C
rlm@132 176 ;; 0x83 : D
rlm@132 177 ;; 0x84 : E
rlm@132 178 ;; 0x85 : F
rlm@132 179 ;; 0x86 : G
rlm@132 180 ;; 0x87 : H
rlm@132 181 ;; 0x88 : I
rlm@132 182 ;; 0x89 : J
rlm@132 183 ;; 0x8A : K
rlm@132 184 ;; 0x8B : L
rlm@132 185 ;; 0x8C : M
rlm@132 186 ;; 0x8D : N
rlm@132 187 ;; 0x8E : O
rlm@132 188 ;; 0x8F : P
rlm@132 189 ;; 0x90 : Q
rlm@132 190 ;; 0x91 : R
rlm@132 191 ;; 0x92 : S
rlm@132 192 ;; 0x93 : T
rlm@132 193 ;; 0x94 : U
rlm@132 194 ;; 0x95 : V
rlm@132 195 ;; 0x96 : W
rlm@132 196 ;; 0x97 : X
rlm@132 197 ;; 0x98 : Y
rlm@132 198 ;; 0x99 : Z
rlm@132 199 ;; 0x9A : (
rlm@132 200 ;; 0x9B : )
rlm@132 201 ;; 0x9C : :
rlm@132 202 ;; 0x9D : ;
rlm@132 203 ;; 0x9E :
rlm@132 204 ;; 0x9F :
rlm@132 205 ;; 0xA0 : a
rlm@132 206 ;; 0xA1 : b
rlm@132 207 ;; 0xA2 : c
rlm@132 208 ;; 0xA3 : d
rlm@132 209 ;; 0xA4 : e
rlm@132 210 ;; 0xA5 : f
rlm@132 211 ;; 0xA6 : g
rlm@132 212 ;; 0xA7 : h
rlm@132 213 ;; 0xA8 : i
rlm@132 214 ;; 0xA9 : j
rlm@132 215 ;; 0xAA : k
rlm@132 216 ;; 0xAB : l
rlm@132 217 ;; 0xAC : m
rlm@132 218 ;; 0xAD : n
rlm@132 219 ;; 0xAE : o
rlm@132 220 ;; 0xAF : p
rlm@132 221 ;; 0xB0 : q
rlm@132 222 ;; 0xB1 : r
rlm@132 223 ;; 0xB2 : s
rlm@132 224 ;; 0xB3 : t
rlm@132 225 ;; 0xB4 : u
rlm@132 226 ;; 0xB5 : v
rlm@132 227 ;; 0xB6 : w
rlm@132 228 ;; 0xB7 : x
rlm@132 229 ;; 0xB8 : y
rlm@132 230 ;; 0xB9 : z
rlm@132 231 ;; 0xBA : e-with-grave
rlm@132 232 ;; 0xBB :
rlm@132 233 ;; 0xBC :
rlm@132 234 ;; 0xBD :
rlm@132 235 ;; 0xBE :
rlm@132 236 ;; 0xBF :
rlm@132 237 ;; 0xC0 :
rlm@132 238 ;; 0xC1 :
rlm@132 239 ;; 0xC2 :
rlm@132 240 ;; 0xC3 :
rlm@132 241 ;; 0xC4 :
rlm@132 242 ;; 0xC5 :
rlm@132 243 ;; 0xC6 :
rlm@132 244 ;; 0xC7 :
rlm@132 245 ;; 0xC8 :
rlm@132 246 ;; 0xC9 :
rlm@132 247 ;; 0xCA :
rlm@132 248 ;; 0xCB :
rlm@132 249 ;; 0xCC :
rlm@132 250 ;; 0xCD :
rlm@132 251 ;; 0xCE :
rlm@132 252 ;; 0xCF :
rlm@132 253 ;; 0xD0 :
rlm@132 254 ;; 0xD1 :
rlm@132 255 ;; 0xD2 :
rlm@132 256 ;; 0xD3 :
rlm@132 257 ;; 0xD4 :
rlm@132 258 ;; 0xD5 :
rlm@132 259 ;; 0xD6 :
rlm@132 260 ;; 0xD7 :
rlm@132 261 ;; 0xD8 :
rlm@132 262 ;; 0xD9 :
rlm@132 263 ;; 0xDA :
rlm@132 264 ;; 0xDB :
rlm@132 265 ;; 0xDC :
rlm@132 266 ;; 0xDD :
rlm@132 267 ;; 0xDE :
rlm@132 268 ;; 0xDF :
rlm@132 269 ;; 0xE0 : '
rlm@132 270 ;; 0xE1 : PK
rlm@132 271 ;; 0xE2 : MN
rlm@132 272 ;; 0xE3 :
rlm@132 273 ;; 0xE4 :
rlm@132 274 ;; 0xE5 :
rlm@132 275 ;; 0xE6 : ?
rlm@132 276 ;; 0xE7 : !
rlm@132 277 ;; 0xE8 : .
rlm@132 278 ;; 0xE9 :
rlm@132 279 ;; 0xEA :
rlm@132 280 ;; 0xEB :
rlm@132 281 ;; 0xEC :
rlm@132 282 ;; 0xED :
rlm@132 283 ;; 0xEE :
rlm@132 284 ;; 0xEF : male-symbol
rlm@132 285 ;; 0xF0 : pokemon-money-symbol
rlm@132 286 ;; 0xF1 : .
rlm@132 287 ;; 0xF2 : /
rlm@132 288 ;; 0xF3 : ,
rlm@132 289 ;; 0xF4 : female-symbol
rlm@132 290 ;; 0xF5 :
rlm@132 291 ;; 0xF6 : 0
rlm@132 292 ;; 0xF7 : 1
rlm@132 293 ;; 0xF8 : 2
rlm@132 294 ;; 0xF9 : 3
rlm@132 295 ;; 0xFA : 4
rlm@132 296 ;; 0xFB : 5
rlm@132 297 ;; 0xFC : 6
rlm@132 298 ;; 0xFD : 7
rlm@132 299 ;; 0xFE : 8
rlm@132 300 ;; 0xFF : 9
rlm@131 301
rlm@131 302