Mercurial > vba-clojure

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