rlm@154
|
1 (ns com.aurellem.exp.moves
|
rlm@154
|
2 (:use (com.aurellem.gb gb-driver items util ))
|
rlm@154
|
3 (:import [com.aurellem.gb.gb_driver SaveState]))
|
rlm@154
|
4
|
rlm@154
|
5 (defn move-state []
|
rlm@154
|
6 (read-state "view-pika-attacks"))
|
rlm@154
|
7
|
rlm@154
|
8 (defn view-move [n]
|
rlm@154
|
9 (run-moves
|
rlm@154
|
10 (set-memory (move-state) 0xD19E n)
|
rlm@154
|
11 (concat [[:a]]
|
rlm@154
|
12 (repeat 200 [])
|
rlm@154
|
13 [[:a]]
|
rlm@154
|
14 (repeat 200 []))))
|
rlm@154
|
15
|
rlm@154
|
16 (defn give-move [pos n]
|
rlm@154
|
17 (continue!
|
rlm@154
|
18 (set-memory @current-state
|
rlm@154
|
19 (+ pos (- 0xD19E 44)) n)))
|
rlm@154
|
20
|
rlm@154
|
21 (defn iterate-moves []
|
rlm@154
|
22 (dorun
|
rlm@154
|
23 (map (fn [n] (println n)
|
rlm@154
|
24 (view-move n)
|
rlm@154
|
25 (Thread/sleep 5000))
|
rlm@154
|
26 (range (inc 0xFF)))))
|
rlm@154
|
27
|
rlm@154
|
28
|
rlm@154
|
29 ;; 000 00 : null
|
rlm@154
|
30 ;; 001 01 : pound
|
rlm@154
|
31 ;; 002 02 : karate-chop
|
rlm@154
|
32 ;; 003 03 : doubleslap
|
rlm@154
|
33 ;; 004 04 : comet-punch
|
rlm@154
|
34 ;; 005 05 : mega-punch
|
rlm@154
|
35 ;; 006 06 : pay-day
|
rlm@154
|
36 ;; 007 07 : fire-punch
|
rlm@154
|
37 ;; 008 08 : ice-punch
|
rlm@154
|
38 ;; 009 09 : thunderpunch
|
rlm@154
|
39 ;; 010 0A : scratch
|
rlm@154
|
40 ;; 011 0B : vicegrip
|
rlm@154
|
41 ;; 012 0C : guillotine
|
rlm@154
|
42 ;; 013 0D : razor-wind
|
rlm@154
|
43 ;; 014 0E : swords-dance
|
rlm@154
|
44 ;; 015 0F : cut
|
rlm@154
|
45 ;; 016 10 : gust
|
rlm@154
|
46 ;; 017 11 : wing-attack
|
rlm@154
|
47 ;; 018 12 : whirlwind
|
rlm@154
|
48 ;; 019 13 : fly
|
rlm@154
|
49 ;; 020 14 : bind
|
rlm@154
|
50 ;; 021 15 : slam
|
rlm@154
|
51 ;; 022 16 : vine-whip
|
rlm@154
|
52 ;; 023 17 : stomp
|
rlm@154
|
53 ;; 024 18 : double-kick
|
rlm@154
|
54 ;; 025 19 : mega-kick
|
rlm@154
|
55 ;; 026 1A : jump-kick
|
rlm@154
|
56 ;; 027 1B : rolling-kick
|
rlm@154
|
57 ;; 028 1C : sand-attack
|
rlm@154
|
58 ;; 029 1D : headbutt
|
rlm@154
|
59 ;; 030 1E : horn-attack
|
rlm@154
|
60 ;; 031 1F : fury-attack
|
rlm@154
|
61 ;; 032 20 : horn-drill
|
rlm@154
|
62 ;; 033 21 : tackle
|
rlm@154
|
63 ;; 034 22 : body-slam
|
rlm@154
|
64 ;; 035 23 : wrap
|
rlm@154
|
65 ;; 036 24 : take-down
|
rlm@154
|
66 ;; 037 25 : thrash
|
rlm@154
|
67 ;; 038 26 : double-edge
|
rlm@154
|
68 ;; 039 27 : tail-whip
|
rlm@154
|
69 ;; 040 28 : poison-sting
|
rlm@154
|
70 ;; 041 29 : twinneedle
|
rlm@154
|
71 ;; 042 2A : pin-missle
|
rlm@154
|
72 ;; 043 2B : leer
|
rlm@154
|
73 ;; 044 2C : bite
|
rlm@154
|
74 ;; 045 2D : growl
|
rlm@154
|
75 ;; 046 2E : roar
|
rlm@154
|
76 ;; 047 2F : sing
|
rlm@154
|
77 ;; 048 30 : supersonic
|
rlm@154
|
78 ;; 049 31 : sonicboom
|
rlm@154
|
79 ;; 050 32 : disable
|
rlm@154
|
80 ;; 051 33 : acid
|
rlm@154
|
81 ;; 052 34 : ember
|
rlm@154
|
82 ;; 053 35 : flamethrower
|
rlm@154
|
83 ;; 054 36 : mist
|
rlm@154
|
84 ;; 055 37 : water-gun
|
rlm@154
|
85 ;; 056 38 : hydro-pump
|
rlm@154
|
86 ;; 057 39 : surf
|
rlm@154
|
87 ;; 058 3A : ice-beam
|
rlm@154
|
88 ;; 059 3B : blizzard
|
rlm@154
|
89 ;; 060 3C : psybeam
|
rlm@154
|
90 ;; 061 3D : bubblebeam
|
rlm@154
|
91 ;; 062 3E : aurora-beam
|
rlm@154
|
92 ;; 063 3F : hyper-beam
|
rlm@154
|
93 ;; 064 40 : peck
|
rlm@154
|
94 ;; 065 41 : drill-peck
|
rlm@154
|
95 ;; 066 42 : submission
|
rlm@154
|
96 ;; 067 43 : low-kick
|
rlm@154
|
97 ;; 068 44 : counter
|
rlm@154
|
98 ;; 069 45 : seismic-toss
|
rlm@154
|
99 ;; 070 46 : strength
|
rlm@154
|
100 ;; 071 47 : absorb
|
rlm@154
|
101 ;; 072 48 : mega-drain
|
rlm@154
|
102 ;; 073 49 : leech-seed
|
rlm@154
|
103 ;; 074 4A : growth
|
rlm@154
|
104 ;; 075 4B : razor-leaf
|
rlm@154
|
105 ;; 076 4C : solarbeam
|
rlm@154
|
106 ;; 077 4D : poisonpowder
|
rlm@154
|
107 ;; 078 4E : stun-spore
|
rlm@154
|
108 ;; 079 4F : sleep-powder
|
rlm@154
|
109 ;; 080 50 : petal-dance
|
rlm@154
|
110 ;; 081 51 : string-shot
|
rlm@154
|
111 ;; 082 52 : dragon-rage
|
rlm@154
|
112 ;; 083 53 : fire-spin
|
rlm@154
|
113 ;; 084 54 : thundershock
|
rlm@154
|
114 ;; 085 55 : thunderbolt
|
rlm@154
|
115 ;; 086 56 : thunder-wave
|
rlm@154
|
116 ;; 087 57 : thunder
|
rlm@154
|
117 ;; 088 58 : rock-throw
|
rlm@154
|
118 ;; 089 59 : earthquake
|
rlm@154
|
119 ;; 090 5A : fissure
|
rlm@154
|
120 ;; 091 5B : dig
|
rlm@154
|
121 ;; 092 5C : toxic
|
rlm@154
|
122 ;; 093 5D : confusion
|
rlm@154
|
123 ;; 094 5E : psychic
|
rlm@154
|
124 ;; 095 5F : hypnosis
|
rlm@154
|
125 ;; 096 60 : meditate
|
rlm@154
|
126 ;; 097 61 : agility
|
rlm@154
|
127 ;; 098 62 : quick-attack
|
rlm@154
|
128 ;; 099 63 : rage
|
rlm@154
|
129 ;; 100 64 : teleport
|
rlm@154
|
130 ;; 101 65 : night-shade
|
rlm@154
|
131 ;; 102 66 : mimic
|
rlm@154
|
132 ;; 103 67 : screech
|
rlm@154
|
133 ;; 104 68 : double-team
|
rlm@154
|
134 ;; 105 69 : recover
|
rlm@154
|
135 ;; 106 6A : harden
|
rlm@154
|
136 ;; 107 6B : minimize
|
rlm@154
|
137 ;; 108 6C : smokescreen
|
rlm@154
|
138 ;; 109 6D : confuse-ray
|
rlm@154
|
139 ;; 110 6E : withdraw
|
rlm@154
|
140 ;; 111 6F : defense-curl
|
rlm@154
|
141 ;; 112 70 : barrier
|
rlm@154
|
142 ;; 113 71 : light-screen
|
rlm@154
|
143 ;; 114 72 : haze
|
rlm@154
|
144 ;; 115 73 : reflect
|
rlm@154
|
145 ;; 116 74 : focus-energy
|
rlm@154
|
146 ;; 117 75 : bide
|
rlm@154
|
147 ;; 118 76 : metronome
|
rlm@154
|
148 ;; 119 77 : mirror-move
|
rlm@154
|
149 ;; 120 78 : selfdestruct
|
rlm@154
|
150 ;; 121 79 : egg-bomb
|
rlm@154
|
151 ;; 122 7A : lick
|
rlm@154
|
152 ;; 123 7B : smog
|
rlm@154
|
153 ;; 124 7C : sludge
|
rlm@154
|
154 ;; 125 7D : bone-club
|
rlm@154
|
155 ;; 126 7E : fire-blast
|
rlm@154
|
156 ;; 127 7F : waterfall
|
rlm@154
|
157 ;; 128 80 : clamp
|
rlm@154
|
158 ;; 129 81 : swift
|
rlm@154
|
159 ;; 130 82 : skull-bash
|
rlm@154
|
160 ;; 131 83 : spike-cannon
|
rlm@154
|
161 ;; 132 84 : constrict
|
rlm@154
|
162 ;; 133 85 : amnesia
|
rlm@154
|
163 ;; 134 86 : kinesis
|
rlm@154
|
164 ;; 135 87 : softboiled
|
rlm@154
|
165 ;; 136 88 : hi-jump-kick
|
rlm@154
|
166 ;; 137 89 : glare
|
rlm@154
|
167 ;; 138 8A : dream-eater
|
rlm@154
|
168 ;; 139 8B : poison-gas
|
rlm@154
|
169 ;; 140 8C : barrage
|
rlm@154
|
170 ;; 141 8D : leech-life
|
rlm@154
|
171 ;; 142 8E : lovely-kiss
|
rlm@154
|
172 ;; 143 8F : sky-attack
|
rlm@154
|
173 ;; 144 90 : transform
|
rlm@154
|
174 ;; 145 91 : bubble
|
rlm@154
|
175 ;; 146 92 : dizzy-punch
|
rlm@154
|
176 ;; 147 93 : spore
|
rlm@154
|
177 ;; 148 94 : flash
|
rlm@154
|
178 ;; 149 95 : psywave
|
rlm@154
|
179 ;; 150 96 : splash
|
rlm@154
|
180 ;; 151 97 : acid-armor
|
rlm@154
|
181 ;; 152 98 : crabhammer
|
rlm@154
|
182 ;; 153 99 : explosion
|
rlm@154
|
183 ;; 154 9A : fury-swipes
|
rlm@154
|
184 ;; 155 9B : bonemerang
|
rlm@154
|
185 ;; 156 9C : rest
|
rlm@154
|
186 ;; 157 9D : rock-slide
|
rlm@154
|
187 ;; 158 9E : hyper-fang
|
rlm@154
|
188 ;; 159 9F : sharpen
|
rlm@154
|
189 ;; 160 A0 : conversion
|
rlm@154
|
190 ;; 161 A1 : tri-attack
|
rlm@154
|
191 ;; 162 A2 : super-fang
|
rlm@154
|
192 ;; 163 A3 : slash
|
rlm@154
|
193 ;; 164 A4 : substitute
|
rlm@154
|
194 ;; 165 A5 : struggle
|
rlm@154
|
195 ;; 166 A6 : null
|
rlm@154
|
196 ;; 167 A7 : null
|
rlm@154
|
197 ;; 168 A8 : null
|
rlm@154
|
198 ;; 169 A9 : trash
|
rlm@154
|
199 ;; 170 AA : trash
|
rlm@154
|
200 ;; 171 AB : trash
|
rlm@154
|
201 ;; 172 AC : trash
|
rlm@154
|
202 ;; 173 AD : trash
|
rlm@154
|
203 ;; 174 AE : trash
|
rlm@154
|
204 ;; 175 AF : null
|
rlm@154
|
205 ;; 176 B0 : trash
|
rlm@154
|
206 ;; 177 B1 : trash
|
rlm@154
|
207 ;; 178 B2 : trash
|
rlm@154
|
208 ;; 179 B3 : trash
|
rlm@154
|
209 ;; 180 B4 : AA
|
rlm@154
|
210 ;; 181 B5 : trash
|
rlm@154
|
211 ;; 182 B6 : QQ
|
rlm@154
|
212 ;; 183 B7 : null
|
rlm@154
|
213 ;; 184 B8 : null
|
rlm@154
|
214 ;; 185 B9 : null
|
rlm@154
|
215 ;; 186 BA : null
|
rlm@154
|
216 ;; 187 BB : null
|
rlm@154
|
217 ;; 188 BC : null
|
rlm@154
|
218 ;; 189 BD : null
|
rlm@154
|
219 ;; 190 BE : trash
|
rlm@154
|
220 ;; 191 BF : null
|
rlm@154
|
221 ;; 192 C0 : null
|
rlm@154
|
222 ;; 193 C1 : null
|
rlm@154
|
223 ;; 194 C2 : null
|
rlm@154
|
224 ;; 195 C3 : null
|
rlm@154
|
225 ;; 196 C4 : HM01
|
rlm@154
|
226 ;; 197 C5 : HM02
|
rlm@154
|
227 ;; 198 C6 : HM03
|
rlm@154
|
228 ;; 199 C7 : HM04
|
rlm@154
|
229 ;; 200 C8 : HM05
|
rlm@154
|
230 ;; 201 C9 : TM01
|
rlm@154
|
231 ;; 202 CA : TM02
|
rlm@154
|
232 ;; 203 CB : TM03
|
rlm@154
|
233 ;; 204 CC : TM04
|
rlm@154
|
234 ;; 205 CD : TM05
|
rlm@154
|
235 ;; 206 CE : TM06
|
rlm@154
|
236 ;; 207 CF : TM07
|
rlm@154
|
237 ;; 208 D0 : TM08
|
rlm@154
|
238 ;; 209 D1 : TM09
|
rlm@154
|
239 ;; 210 D2 : TM10
|
rlm@154
|
240 ;; 211 D3 : TM11
|
rlm@154
|
241 ;; 212 D4 : TM12
|
rlm@154
|
242 ;; 213 D5 : TM13
|
rlm@154
|
243 ;; 214 D6 : TM14
|
rlm@154
|
244 ;; 215 D7 : TM15
|
rlm@154
|
245 ;; 216 D8 : TM16
|
rlm@154
|
246 ;; 217 D9 : TM17
|
rlm@154
|
247 ;; 218 DA : TM18
|
rlm@154
|
248 ;; 219 DB : TM19
|
rlm@154
|
249 ;; 220 DC : TM20
|
rlm@154
|
250 ;; 221 DD : TM21
|
rlm@154
|
251 ;; 222 DE : TM22
|
rlm@154
|
252 ;; 223 DF : TM23
|
rlm@154
|
253 ;; 224 E0 : TM24
|
rlm@154
|
254 ;; 225 E1 : TM25
|
rlm@154
|
255 ;; 226 E2 : TM26
|
rlm@154
|
256 ;; 227 E3 : TM27
|
rlm@154
|
257 ;; 228 E4 : TM28
|
rlm@154
|
258 ;; 229 E5 : TM29
|
rlm@154
|
259 ;; 230 E6 : TM30
|
rlm@154
|
260 ;; 231 E7 : TM31
|
rlm@154
|
261 ;; 232 E8 : TM32
|
rlm@154
|
262 ;; 233 E9 : TM33
|
rlm@154
|
263 ;; 234 EA : TM34
|
rlm@154
|
264 ;; 235 EB : TM35
|
rlm@154
|
265 ;; 236 EC : TM36
|
rlm@154
|
266 ;; 237 ED : TM37
|
rlm@154
|
267 ;; 238 EE : TM38
|
rlm@154
|
268 ;; 239 EF : TM39
|
rlm@154
|
269 ;; 240 F0 : TM40
|
rlm@154
|
270 ;; 241 F1 : TM41
|
rlm@154
|
271 ;; 242 F2 : TM42
|
rlm@154
|
272 ;; 243 F3 : TM43
|
rlm@154
|
273 ;; 244 F4 : TM44
|
rlm@154
|
274 ;; 245 F5 : TM45
|
rlm@154
|
275 ;; 246 F6 : TM46
|
rlm@154
|
276 ;; 247 F7 : TM47
|
rlm@154
|
277 ;; 248 F8 : TM48
|
rlm@154
|
278 ;; 249 F9 : TM49
|
rlm@154
|
279 ;; 250 FA : TM50
|
rlm@154
|
280 ;; 251 FB : TM51
|
rlm@154
|
281 ;; 252 FC : TM52
|
rlm@154
|
282 ;; 253 FD : TM53
|
rlm@154
|
283 ;; 254 FE : TM54
|
rlm@154
|
284 ;; 255 FF : TM55 |