Mercurial > vba-clojure

annotate clojure/com/aurellem/item_bridge.clj @ 131:7f7cc8858d2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added rival-name letter-map
author Robert McIntyre <rlm@mit.edu>
date Sat, 17 Mar 2012 21:29:08 -0500
parents 69f241de436d
children d16cf9d829dd
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@131 45 0 : end-of-name-sentinel
rlm@131 46 1 :
rlm@131 47 2 :
rlm@131 48 3 :
rlm@131 49 4 :
rlm@131 50 5 :
rlm@131 51 6 :
rlm@131 52 7 :
rlm@131 53 8 :
rlm@131 54 9 :
rlm@131 55 10 :
rlm@131 56 11 :
rlm@131 57 12 :
rlm@131 58 13 :
rlm@131 59 14 :
rlm@131 60 15 :
rlm@131 61 16 :
rlm@131 62 17 :
rlm@131 63 18 :
rlm@131 64 19 :
rlm@131 65 20 :
rlm@131 66 21 :
rlm@131 67 22 :
rlm@131 68 23 :
rlm@131 69 24 :
rlm@131 70 25 :
rlm@131 71 26 :
rlm@131 72 27 :
rlm@131 73 28 :
rlm@131 74 29 :
rlm@131 75 30 :
rlm@131 76 31 :
rlm@131 77 32 :
rlm@131 78 33 :
rlm@131 79 34 :
rlm@131 80 35 :
rlm@131 81 36 :
rlm@131 82 37 :
rlm@131 83 38 :
rlm@131 84 39 :
rlm@131 85 40 :
rlm@131 86 41 :
rlm@131 87 42 :
rlm@131 88 43 :
rlm@131 89 44 :
rlm@131 90 45 :
rlm@131 91 46 :
rlm@131 92 47 :
rlm@131 93 48 :
rlm@131 94 49 :
rlm@131 95 50 :
rlm@131 96 51 :
rlm@131 97 52 :
rlm@131 98 53 :
rlm@131 99 54 :
rlm@131 100 55 :
rlm@131 101 56 :
rlm@131 102 57 :
rlm@131 103 58 :
rlm@131 104 59 :
rlm@131 105 60 :
rlm@131 106 61 :
rlm@131 107 62 :
rlm@131 108 63 :
rlm@131 109 64 :
rlm@131 110 65 :
rlm@131 111 66 :
rlm@131 112 67 :
rlm@131 113 68 :
rlm@131 114 69 :
rlm@131 115 70 :
rlm@131 116 71 :
rlm@131 117 72 :
rlm@131 118 73 :
rlm@131 119 74 :
rlm@131 120 75 :
rlm@131 121 76 :
rlm@131 122 77 :
rlm@131 123 78 :
rlm@131 124 79 :
rlm@131 125 80 :
rlm@131 126 81 :
rlm@131 127 82 :
rlm@131 128 83 :
rlm@131 129 84 :
rlm@131 130 85 :
rlm@131 131 86 :
rlm@131 132 87 :
rlm@131 133 88 :
rlm@131 134 89 :
rlm@131 135 90 :
rlm@131 136 91 :
rlm@131 137 92 :
rlm@131 138 93 :
rlm@131 139 94 :
rlm@131 140 95 :
rlm@131 141 96 : A (small-bold)
rlm@131 142 97 : B (small-bold)
rlm@131 143 98 : C (small-bold)
rlm@131 144 99 : D (small-bold)
rlm@131 145 100 : E (small-bold)
rlm@131 146 101 : F (small-bold)
rlm@131 147 102 : G (small-bold)
rlm@131 148 103 : H (small-bold)
rlm@131 149 104 : I (small-bold)
rlm@131 150 105 : V (small-bold)
rlm@131 151 106 : S (small-bold)
rlm@131 152 107 : L (small-bold)
rlm@131 153 108 : M (small-bold)
rlm@131 154 109 :
rlm@131 155 110 :
rlm@131 156 111 :
rlm@131 157 112 :
rlm@131 158 113 :
rlm@131 159 114 :
rlm@131 160 115 :
rlm@131 161 116 :
rlm@131 162 117 :
rlm@131 163 118 :
rlm@131 164 119 :
rlm@131 165 120 :
rlm@131 166 121 :
rlm@131 167 122 :
rlm@131 168 123 :
rlm@131 169 124 :
rlm@131 170 125 :
rlm@131 171 126 :
rlm@131 172 127 :
rlm@131 173 128 : A
rlm@131 174 129 : B
rlm@131 175 130 : C
rlm@131 176 131 : D
rlm@131 177 132 : E
rlm@131 178 133 : F
rlm@131 179 134 : G
rlm@131 180 135 : H
rlm@131 181 136 : I
rlm@131 182 137 : J
rlm@131 183 138 : K
rlm@131 184 139 : L
rlm@131 185 140 : M
rlm@131 186 141 : N
rlm@131 187 142 : O
rlm@131 188 143 : P
rlm@131 189 144 : Q
rlm@131 190 145 : R
rlm@131 191 146 : S
rlm@131 192 147 : T
rlm@131 193 148 : U
rlm@131 194 149 : V
rlm@131 195 150 : W
rlm@131 196 151 : X
rlm@131 197 152 : Y
rlm@131 198 153 : Z
rlm@131 199 154 : (
rlm@131 200 155 : )
rlm@131 201 156 : :
rlm@131 202 157 : ;
rlm@131 203 158 :
rlm@131 204 159 :
rlm@131 205 160 : a
rlm@131 206 161 : b
rlm@131 207 162 : c
rlm@131 208 163 : d
rlm@131 209 164 : e
rlm@131 210 165 : f
rlm@131 211 166 : g
rlm@131 212 167 : h
rlm@131 213 168 : i
rlm@131 214 169 : j
rlm@131 215 170 : k
rlm@131 216 171 : l
rlm@131 217 172 : m
rlm@131 218 173 : n
rlm@131 219 174 : o
rlm@131 220 175 : p
rlm@131 221 176 : q
rlm@131 222 177 : r
rlm@131 223 178 : s
rlm@131 224 179 : t
rlm@131 225 180 : u
rlm@131 226 181 : v
rlm@131 227 182 : w
rlm@131 228 183 : x
rlm@131 229 184 : y
rlm@131 230 185 : z
rlm@131 231 186 : e-with-grave
rlm@131 232 187 :
rlm@131 233 188 :
rlm@131 234 189 :
rlm@131 235 190 :
rlm@131 236 191 :
rlm@131 237 192 :
rlm@131 238 193 :
rlm@131 239 194 :
rlm@131 240 195 :
rlm@131 241 196 :
rlm@131 242 197 :
rlm@131 243 198 :
rlm@131 244 199 :
rlm@131 245 200 :
rlm@131 246 201 :
rlm@131 247 202 :
rlm@131 248 203 :
rlm@131 249 204 :
rlm@131 250 205 :
rlm@131 251 206 :
rlm@131 252 207 :
rlm@131 253 208 :
rlm@131 254 209 :
rlm@131 255 210 :
rlm@131 256 211 :
rlm@131 257 212 :
rlm@131 258 213 :
rlm@131 259 214 :
rlm@131 260 215 :
rlm@131 261 216 :
rlm@131 262 217 :
rlm@131 263 218 :
rlm@131 264 219 :
rlm@131 265 220 :
rlm@131 266 221 :
rlm@131 267 222 :
rlm@131 268 223 :
rlm@131 269 224 : '
rlm@131 270 225 : PK
rlm@131 271 226 : MN
rlm@131 272 227 :
rlm@131 273 228 :
rlm@131 274 229 :
rlm@131 275 230 : ?
rlm@131 276 231 : !
rlm@131 277 232 : .
rlm@131 278 233 :
rlm@131 279 234 :
rlm@131 280 235 :
rlm@131 281 236 :
rlm@131 282 237 :
rlm@131 283 238 :
rlm@131 284 239 : male-symbol
rlm@131 285 240 : pokemon-money-symbol
rlm@131 286 241 : .
rlm@131 287 242 : /
rlm@131 288 243 : ,
rlm@131 289 244 : female-symbol
rlm@131 290 245 :
rlm@131 291 246 : 0
rlm@131 292 247 : 1
rlm@131 293 248 : 2
rlm@131 294 249 : 3
rlm@131 295 250 : 4
rlm@131 296 251 : 5
rlm@131 297 252 : 6
rlm@131 298 253 : 7
rlm@131 299 254 : 8
rlm@131 300 255 : 9
rlm@131 301
rlm@131 302