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