Mercurial > vba-clojure

annotate clojure/com/aurellem/exp/pokemon.clj @ 176:95b2758dd517

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wrote functions to read and write pokemon DV values and status
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 22:13:43 -0500
parents 63ec3db6f6d1
children 4f5ea93cbaca
rev   line source
rlm@145 1 (ns com.aurellem.exp.pokemon
rlm@145 2 "Here I find out how pokemon are stored in memory."
rlm@145 3 (:use (com.aurellem.gb gb-driver items assembly util
rlm@166 4 constants
rlm@166 5 characters species moves))
rlm@161 6 (:import java.io.File)
rlm@145 7 (:import [com.aurellem.gb.gb_driver SaveState]))
rlm@145 8
rlm@145 9
rlm@145 10 (def pidgeot-lvl-36 (mid-game))
rlm@145 11
rlm@145 12
rlm@145 13 (def pidgeot-lvl-37 (read-state "pidgeot-lvl-37"))
rlm@145 14
rlm@145 15
rlm@145 16 (def pidgeot-lvl-38 (read-state "pidgeot-lvl-38"))
rlm@145 17
rlm@145 18
rlm@145 19 (def pidgeot-lvl-39 (read-state "pidgeot-lvl-39"))
rlm@145 20
rlm@145 21
rlm@145 22 (def pidgeot-lvl-40 (read-state "pidgeot-lvl-40"))
rlm@145 23
rlm@145 24
rlm@145 25 (defn level-analysis []
rlm@145 26 (apply common-differences
rlm@145 27 (map (comp vec memory)
rlm@145 28 [pidgeot-lvl-36
rlm@145 29 pidgeot-lvl-37
rlm@145 30 pidgeot-lvl-38
rlm@145 31 pidgeot-lvl-39
rlm@145 32 pidgeot-lvl-40])))
rlm@145 33
rlm@145 34 ;; inconclusive -- implies that level is calculated from
rlm@145 35 ;; some other values.
rlm@145 36
rlm@145 37
rlm@145 38 (def name-pidgeotto (read-state "name-pidgeotto"))
rlm@145 39 (def named-A (read-state "named-A"))
rlm@145 40 (def named-B (read-state "named-B"))
rlm@145 41 (def named-C (read-state "named-C"))
rlm@145 42 (def named-D (read-state "named-D"))
rlm@145 43 (def named-E (read-state "named-E"))
rlm@145 44 (def named-F (read-state "named-F"))
rlm@145 45
rlm@145 46 (defn name-analysis []
rlm@145 47 (apply common-differences
rlm@145 48 (map (comp vec memory)
rlm@145 49 [named-A
rlm@145 50 named-B
rlm@145 51 named-C
rlm@145 52 named-D
rlm@145 53 named-E
rlm@145 54 named-F])))
rlm@145 55
rlm@145 56 ;; resluted in 3 separate locations that could
rlm@145 57 ;; possibly hold the first letter of the pokemon's name
rlm@145 58
rlm@145 59 0xCF4A
rlm@145 60 0xD2EB
rlm@145 61 0xCEED
rlm@145 62
rlm@145 63 ;; try changing each of them
rlm@145 64
rlm@145 65
rlm@145 66 (defn test-cf4a []
rlm@145 67 (continue!
rlm@145 68 (set-memory named-A 0xCF4A (character->character-code "Z"))))
rlm@145 69 ;; result -- pidgeotto named "A"
rlm@145 70
rlm@145 71 (defn test-d2eb []
rlm@145 72 (continue!
rlm@145 73 (set-memory named-A 0xD2EB (character->character-code "Z"))))
rlm@145 74 ;; result -- pidgeotto named "Z"
rlm@145 75
rlm@145 76 (defn test-ceed []
rlm@145 77 (continue!
rlm@145 78 (set-memory named-A 0xCEED (character->character-code "Z"))))
rlm@145 79 ;; result -- pidgeotto named "A"
rlm@145 80
rlm@145 81 (def sixth-pokemon-name-start 0xD2EB)
rlm@145 82
rlm@145 83
rlm@145 84 (defn set-sixth-pokemon-name-first-character
rlm@145 85 ([state character]
rlm@145 86 (set-memory state sixth-pokemon-name-start
rlm@145 87 (character->character-code character)))
rlm@145 88 ([character]
rlm@145 89 (set-sixth-pokemon-name-first-character @current-state
rlm@145 90 character)))
rlm@145 91
rlm@145 92
rlm@146 93 (def end-of-name-marker 0x50)
rlm@147 94 (def max-name-length 10)
rlm@147 95 (def name-width 11)
rlm@147 96
rlm@148 97 (defn read-name [codes]
rlm@147 98 (character-codes->str
rlm@147 99 (take-while
rlm@147 100 (partial not= end-of-name-marker) codes)))
rlm@147 101
rlm@145 102
rlm@146 103 (defn sixth-pokemon-name [^SaveState state]
rlm@148 104 (read-name
rlm@146 105 (subvec (vec (memory state))
rlm@146 106 sixth-pokemon-name-start
rlm@146 107 (+ (inc max-name-length)
rlm@147 108 sixth-pokemon-name-start))))
rlm@145 109
rlm@147 110 (defn rename-sixth-pokemon
rlm@147 111 ([^SaveState state new-name]
rlm@147 112 (assert (< (count new-name) max-name-length))
rlm@147 113 (set-memory-range state sixth-pokemon-name-start
rlm@147 114 (concat (str->character-codes new-name)
rlm@147 115 [end-of-name-marker])))
rlm@147 116 ([new-name]
rlm@147 117 (rename-sixth-pokemon @current-state new-name)))
rlm@147 118
rlm@147 119
rlm@147 120 (defn examine-name-memory []
rlm@147 121 (print-text
rlm@147 122 named-A
rlm@147 123 (- sixth-pokemon-name-start 100)
rlm@147 124 (+ sixth-pokemon-name-start 100)))
rlm@147 125
rlm@147 126 ;; results:
rlm@147 127 ;; 0xD287: end-of-name-sentinel
rlm@147 128 ;; 0xD288: R
rlm@147 129 ;; 0xD289: L
rlm@147 130 ;; 0xD28A: M
rlm@147 131 ;; 0xD28B: end-of-pokemon-name-sentinel
rlm@147 132 ;; 0xD28C: end-of-name-sentinel
rlm@147 133 ;; 0xD28D: end-of-name-sentinel
rlm@147 134 ;; 0xD28E: end-of-name-sentinel
rlm@147 135 ;; 0xD28F: end-of-name-sentinel
rlm@147 136 ;; 0xD290: end-of-name-sentinel
rlm@147 137 ;; 0xD291: end-of-name-sentinel
rlm@147 138 ;; 0xD292: end-of-name-sentinel
rlm@147 139 ;; 0xD293: R
rlm@147 140 ;; 0xD294: L
rlm@147 141 ;; 0xD295: M
rlm@147 142 ;; 0xD296: end-of-pokemon-name-sentinel
rlm@147 143 ;; 0xD297: end-of-name-sentinel
rlm@147 144 ;; 0xD298: end-of-name-sentinel
rlm@147 145 ;; 0xD299: end-of-name-sentinel
rlm@147 146 ;; 0xD29A: end-of-name-sentinel
rlm@147 147 ;; 0xD29B: end-of-name-sentinel
rlm@147 148 ;; 0xD29C: end-of-name-sentinel
rlm@147 149 ;; 0xD29D: end-of-name-sentinel
rlm@147 150 ;; 0xD29E: R
rlm@147 151 ;; 0xD29F: L
rlm@147 152 ;; 0xD2A0: M
rlm@147 153 ;; 0xD2A1: end-of-pokemon-name-sentinel
rlm@147 154 ;; 0xD2A2: end-of-name-sentinel
rlm@147 155 ;; 0xD2A3: end-of-name-sentinel
rlm@147 156 ;; 0xD2A4: end-of-name-sentinel
rlm@147 157 ;; 0xD2A5: end-of-name-sentinel
rlm@147 158 ;; 0xD2A6: end-of-name-sentinel
rlm@147 159 ;; 0xD2A7: end-of-name-sentinel
rlm@147 160 ;; 0xD2A8: end-of-name-sentinel
rlm@147 161 ;; 0xD2A9: R
rlm@147 162 ;; 0xD2AA: L
rlm@147 163 ;; 0xD2AB: M
rlm@147 164 ;; 0xD2AC: end-of-pokemon-name-sentinel
rlm@147 165 ;; 0xD2AD: end-of-name-sentinel
rlm@147 166 ;; 0xD2AE: end-of-name-sentinel
rlm@147 167 ;; 0xD2AF: end-of-name-sentinel
rlm@147 168 ;; 0xD2B0: end-of-name-sentinel
rlm@147 169 ;; 0xD2B1: end-of-name-sentinel
rlm@147 170 ;; 0xD2B2: end-of-name-sentinel
rlm@147 171 ;; 0xD2B3: end-of-name-sentinel
rlm@147 172 ;; 0xD2B4: P
rlm@147 173 ;; 0xD2B5: I
rlm@147 174 ;; 0xD2B6: D
rlm@147 175 ;; 0xD2B7: G
rlm@147 176 ;; 0xD2B8: E
rlm@147 177 ;; 0xD2B9: O
rlm@147 178 ;; 0xD2BA: T
rlm@147 179 ;; 0xD2BB: end-of-pokemon-name-sentinel
rlm@147 180 ;; 0xD2BC: end-of-pokemon-name-sentinel
rlm@147 181 ;; 0xD2BD: end-of-pokemon-name-sentinel
rlm@147 182 ;; 0xD2BE: end-of-pokemon-name-sentinel
rlm@147 183 ;; 0xD2BF: P
rlm@147 184 ;; 0xD2C0: I
rlm@147 185 ;; 0xD2C1: K
rlm@147 186 ;; 0xD2C2: A
rlm@147 187 ;; 0xD2C3: C
rlm@147 188 ;; 0xD2C4: H
rlm@147 189 ;; 0xD2C5: U
rlm@147 190 ;; 0xD2C6: end-of-pokemon-name-sentinel
rlm@147 191 ;; 0xD2C7: end-of-pokemon-name-sentinel
rlm@147 192 ;; 0xD2C8: end-of-pokemon-name-sentinel
rlm@147 193 ;; 0xD2C9: end-of-pokemon-name-sentinel
rlm@147 194 ;; 0xD2CA: C
rlm@147 195 ;; 0xD2CB: H
rlm@147 196 ;; 0xD2CC: A
rlm@147 197 ;; 0xD2CD: R
rlm@147 198 ;; 0xD2CE: I
rlm@147 199 ;; 0xD2CF: Z
rlm@147 200 ;; 0xD2D0: A
rlm@147 201 ;; 0xD2D1: R
rlm@147 202 ;; 0xD2D2: D
rlm@147 203 ;; 0xD2D3: end-of-pokemon-name-sentinel
rlm@147 204 ;; 0xD2D4: end-of-pokemon-name-sentinel
rlm@147 205 ;; 0xD2D5: V
rlm@147 206 ;; 0xD2D6: E
rlm@147 207 ;; 0xD2D7: N
rlm@147 208 ;; 0xD2D8: U
rlm@147 209 ;; 0xD2D9: S
rlm@147 210 ;; 0xD2DA: A
rlm@147 211 ;; 0xD2DB: U
rlm@147 212 ;; 0xD2DC: R
rlm@147 213 ;; 0xD2DD: end-of-pokemon-name-sentinel
rlm@147 214 ;; 0xD2DE: end-of-pokemon-name-sentinel
rlm@147 215 ;; 0xD2DF: end-of-pokemon-name-sentinel
rlm@147 216 ;; 0xD2E0: P
rlm@147 217 ;; 0xD2E1: R
rlm@147 218 ;; 0xD2E2: I
rlm@147 219 ;; 0xD2E3: M
rlm@147 220 ;; 0xD2E4: E
rlm@147 221 ;; 0xD2E5: A
rlm@147 222 ;; 0xD2E6: P
rlm@147 223 ;; 0xD2E7: E
rlm@147 224 ;; 0xD2E8: end-of-pokemon-name-sentinel
rlm@147 225 ;; 0xD2E9: end-of-pokemon-name-sentinel
rlm@147 226 ;; 0xD2EA: end-of-pokemon-name-sentinel
rlm@147 227 ;; 0xD2EB: A
rlm@147 228 ;; 0xD2EC: end-of-pokemon-name-sentinel
rlm@147 229 ;; 0xD2ED: S
rlm@147 230 ;; 0xD2EE: T
rlm@147 231 ;; 0xD2EF: E
rlm@147 232 ;; 0xD2F0: R
rlm@147 233 ;; 0xD2F1:
rlm@147 234 ;; 0xD2F2: B
rlm@147 235 ;; 0xD2F3: A
rlm@147 236 ;; 0xD2F4: L
rlm@147 237 ;; 0xD2F5: L
rlm@147 238 ;; 0xD2F6:
rlm@147 239 ;; 0xD2F7: A
rlm@147 240 ;; 0xD2F8:
rlm@147 241 ;; 0xD2F9:
rlm@147 242 ;; 0xD2FA: end-of-name-sentinel
rlm@147 243 ;; 0xD2FB: end-of-name-sentinel
rlm@147 244 ;; 0xD2FC: A
rlm@147 245 ;; 0xD2FD:
rlm@147 246 ;; 0xD2FE: end-of-name-sentinel
rlm@147 247 ;; 0xD2FF: end-of-name-sentinel
rlm@147 248 ;; 0xD300: end-of-name-sentinel
rlm@147 249 ;; 0xD301: end-of-name-sentinel
rlm@147 250 ;; 0xD302: end-of-name-sentinel
rlm@147 251 ;; 0xD303: end-of-name-sentinel
rlm@147 252 ;; 0xD304: end-of-name-sentinel
rlm@147 253 ;; 0xD305: end-of-name-sentinel
rlm@147 254 ;; 0xD306: end-of-name-sentinel
rlm@147 255 ;; 0xD307: end-of-name-sentinel
rlm@147 256 ;; 0xD308: end-of-name-sentinel
rlm@147 257 ;; 0xD309:
rlm@147 258 ;; 0xD30A: w
rlm@147 259 ;; 0xD30B:
rlm@147 260 ;; 0xD30C: V
rlm@147 261 ;; 0xD30D:
rlm@147 262 ;; 0xD30E:
rlm@147 263 ;; 0xD30F: K
rlm@147 264 ;; 0xD310:
rlm@147 265 ;; 0xD311:
rlm@147 266 ;; 0xD312:
rlm@147 267 ;; 0xD313: A
rlm@147 268 ;; 0xD314:
rlm@147 269 ;; 0xD315:
rlm@147 270 ;; 0xD316:
rlm@147 271 ;; 0xD317: i
rlm@147 272 ;; 0xD318:
rlm@147 273 ;; 0xD319:
rlm@147 274 ;; 0xD31A: end-of-name-sentinel
rlm@147 275 ;; 0xD31B: end-of-name-sentinel
rlm@147 276 ;; 0xD31C:
rlm@147 277 ;; 0xD31D:
rlm@147 278 ;; 0xD31E:
rlm@147 279 ;; 0xD31F:
rlm@147 280 ;; 0xD320:
rlm@147 281 ;; 0xD321:
rlm@147 282 ;; 0xD322:
rlm@147 283 ;; 0xD323:
rlm@147 284 ;; 0xD324:
rlm@147 285 ;; 0xD325:
rlm@147 286 ;; 0xD326:
rlm@147 287 ;; 0xD327:
rlm@147 288 ;; 0xD328:
rlm@147 289 ;; 0xD329:
rlm@147 290 ;; 0xD32A:
rlm@147 291 ;; 0xD32B:
rlm@147 292 ;; 0xD32C:
rlm@147 293 ;; 0xD32D:
rlm@147 294 ;; 0xD32E:
rlm@147 295 ;; 0xD32F:
rlm@147 296 ;; 0xD330:
rlm@147 297 ;; 0xD331: 9
rlm@147 298 ;; 0xD332: end-of-name-sentinel
rlm@147 299 ;; 0xD333: 9
rlm@147 300 ;; 0xD334:
rlm@147 301 ;; 0xD335: 9
rlm@147 302 ;; 0xD336:
rlm@147 303 ;; 0xD337: 9
rlm@147 304 ;; 0xD338: end-of-name-sentinel
rlm@147 305 ;; 0xD339: end-of-name-sentinel
rlm@147 306 ;; 0xD33A: end-of-name-sentinel
rlm@147 307 ;; 0xD33B: end-of-name-sentinel
rlm@147 308 ;; 0xD33C: end-of-name-sentinel
rlm@147 309 ;; 0xD33D: end-of-name-sentinel
rlm@147 310 ;; 0xD33E: end-of-name-sentinel
rlm@147 311 ;; 0xD33F: end-of-name-sentinel
rlm@147 312 ;; 0xD340: end-of-name-sentinel
rlm@147 313 ;; 0xD341: end-of-name-sentinel
rlm@147 314 ;; 0xD342: end-of-name-sentinel
rlm@147 315 ;; 0xD343: end-of-name-sentinel
rlm@147 316 ;; 0xD344: end-of-name-sentinel
rlm@147 317 ;; 0xD345: end-of-name-sentinel
rlm@147 318 ;; 0xD346:
rlm@147 319 ;; 0xD347:
rlm@147 320 ;; 0xD348:
rlm@147 321 ;; 0xD349: G
rlm@147 322 ;; 0xD34A: A
rlm@147 323 ;; 0xD34B: R
rlm@147 324 ;; 0xD34C: Y
rlm@147 325 ;; 0xD34D: end-of-pokemon-name-sentinel
rlm@147 326 ;; 0xD34E: J
rlm@147 327
rlm@147 328
rlm@147 329 ;; from this, it looks like the pokemon names are stored all
rlm@147 330 ;; together in one location that begins at 0xD2B4 and
rlm@147 331 ;; extends until 0xD2F5, with each name taking up 11 bytes.
rlm@147 332 ;;
rlm@147 333 ;; rival's name again clearly starts at 0xD349.
rlm@147 334
rlm@147 335
rlm@147 336 (def pokemon-names-start 0xD2B4)
rlm@147 337
rlm@147 338
rlm@147 339 ;; determine whether "number of pokemon in party"
rlm@147 340 ;; might be kept in RAM and if so, where?
rlm@147 341
rlm@147 342 (def six-pokemon (read-state "6-pokemon"))
rlm@147 343 (def five-pokemon (read-state "5-pokemon"))
rlm@147 344 (def four-pokemon (read-state "4-pokemon"))
rlm@147 345 (def three-pokemon (read-state "3-pokemon"))
rlm@147 346 (def two-pokemon (read-state "2-pokemon"))
rlm@147 347 (def one-pokemon (read-state "1-pokemon"))
rlm@147 348
rlm@147 349
rlm@147 350 (defn analyze-num-pokemon []
rlm@147 351 (apply common-differences
rlm@147 352 (map (comp vec memory)
rlm@147 353 [one-pokemon
rlm@147 354 two-pokemon
rlm@147 355 three-pokemon
rlm@147 356 four-pokemon
rlm@147 357 five-pokemon
rlm@147 358 six-pokemon])))
rlm@147 359
rlm@147 360 ;; ;; results
rlm@147 361 ;; ([53602 (1 2 3 4 5 6)]
rlm@147 362 ;; [65314 (105 61 93 60 92 34)]
rlm@147 363 ;; [55875 (34 36 43 52 7 0)]
rlm@147 364 ;; [55876 (18 0 33 52 54 30)]
rlm@147 365 ;; [49158 (197 194 77 117 174 134)]
rlm@147 366 ;; [49160 (29 26 57 239 15 243)]
rlm@147 367 ;; [49736 (74 93 34 89 91 59)]
rlm@147 368 ;; [49162 (165 162 182 179 197 109)]
rlm@147 369 ;; [49227 (187 105 204 5 90 238)]
rlm@147 370 ;; [53067 (128 136 132 145 135 11)]
rlm@147 371 ;; [53068 (147 131 141 136 128 7)]
rlm@147 372 ;; [53069 (136 134 148 140 145 2)]
rlm@147 373 ;; [49904 (2 11 10 3 27 12)]
rlm@147 374 ;; [49172 (100 109 213 195 68 104)]
rlm@147 375 ;; [65492 (11 103 128 160 19 56)]
rlm@147 376 ;; [49173 (80 77 72 75 76 67)]
rlm@147 377 ;; [49334 (8 10 11 5 3 1)]
rlm@147 378 ;; [49335 (49 10 11 19 17 15)]
rlm@147 379 ;; [49336 (8 10 11 5 3 1)]
rlm@147 380 ;; [49720 (106 14 118 0 38 11)]
rlm@147 381 ;; [65304 (32 88 19 114 106 33)]
rlm@147 382 ;; [53561 (59 229 48 17 155 103)]
rlm@147 383 ;; [55935 (6 5 4 3 2 1)])
rlm@147 384
rlm@147 385
rlm@147 386 ;; two canidates : 0xD162 or 0xDA7F
rlm@147 387 ;; they seem to always sum to 6...
rlm@147 388
rlm@147 389 ;; try to set both of them when having only one pokemon.
rlm@147 390
rlm@147 391 (defn change-party-number [^SaveState state new-num]
rlm@147 392 (set-memory state 0xD162 new-num))
rlm@147 393
rlm@147 394 ;; (continue! (change-party-number one-pokemon 3))
rlm@147 395 ;; result -- can scroll down beyone first pokemon, finding
rlm@147 396 ;; glitched pokemon in places where there were previously no
rlm@147 397 ;; pokemon.
rlm@147 398
rlm@147 399
rlm@147 400 (defn change-party-number* [^SaveState state new-num]
rlm@147 401 (set-memory state 0xDA7F new-num))
rlm@147 402
rlm@147 403
rlm@147 404 ;; (continue! (change-party-number* one-pokemon 3))
rlm@147 405 ;; cannot widthdraw any pokemon from box 1 past the third
rlm@147 406 ;; pokemon.
rlm@147 407
rlm@147 408 (def party-number-address 0xD162)
rlm@147 409
rlm@147 410 (defn party-number
rlm@147 411 ([^SaveState state]
rlm@147 412 (aget (memory state) party-number-address))
rlm@147 413 ([] (party-number @current-state)))
rlm@147 414
rlm@147 415 (def pokemon-in-box-1-address 0xDA7F)
rlm@147 416
rlm@147 417 (defn party-names
rlm@147 418 ([^SaveState state]
rlm@147 419 (let [raw-names
rlm@147 420 (subvec (vec (memory state))
rlm@147 421 pokemon-names-start
rlm@147 422 (+ pokemon-names-start
rlm@148 423 (* name-width 6)))]
rlm@147 424 (map
rlm@148 425 read-name
rlm@147 426 (take
rlm@147 427 (party-number state)
rlm@147 428 (partition name-width
rlm@147 429 raw-names)))))
rlm@147 430 ([] (party-names @current-state)))
rlm@147 431
rlm@148 432
rlm@148 433 (defn rename-pokemon
rlm@148 434 ([^SaveState state n new-name]
rlm@148 435 (assert (<= 0 n (dec (party-number state))))
rlm@148 436 (assert (<= (count new-name) max-name-length))
rlm@148 437 (set-memory-range
rlm@148 438 state
rlm@148 439 (+ (* n name-width) pokemon-names-start)
rlm@148 440 (concat (str->character-codes new-name) [end-of-name-marker])))
rlm@148 441 ([n new-name]
rlm@148 442 (rename-pokemon @current-state n new-name)))
rlm@148 443
rlm@148 444 ;; on further analysis, it appears that the original
rlm@148 445 ;; trainer info for each pokemon is also stored together,
rlm@148 446 ;; starting at 0xD272 and continuing to 0xD2B3, with
rlm@148 447 ;; 11 bytes reserved for each OT name.
rlm@148 448
rlm@148 449 (def OT-start 0xD272)
rlm@148 450
rlm@148 451 (defn original-trainers
rlm@148 452 ([^SaveState state]
rlm@148 453 (let [raw-names
rlm@148 454 (subvec (vec (memory state))
rlm@148 455 OT-start
rlm@148 456 (+ OT-start
rlm@148 457 (* name-width 6)))]
rlm@148 458 (map read-name
rlm@148 459 (take (party-number state)
rlm@148 460 (partition name-width raw-names)))))
rlm@148 461 ([] (original-trainers @current-state)))
rlm@148 462
rlm@148 463 (defn set-original-trainer
rlm@148 464 "Set the OT name for a pokemon.
rlm@148 465 Note that a pokemon is still considered 'yours' if
rlm@148 466 the OT ID is the same as your own."
rlm@148 467 ([^SaveState state n new-name]
rlm@148 468 (assert (<= 0 n (dec (party-number state))))
rlm@148 469 (assert (<= (count new-name) max-name-length))
rlm@148 470 (set-memory-range
rlm@148 471 state
rlm@148 472 (+ (* n name-width) OT-start)
rlm@148 473 (concat (str->character-codes new-name) [end-of-name-marker])))
rlm@148 474 ([n new-name]
rlm@148 475 (set-original-trainer @current-state n new-name)))
rlm@148 476
rlm@148 477 ;; PIKACHU stops following if you set it's OT to another name
rlm@148 478 ;; and then back to you own.
rlm@148 479 ;; But not if you set it to your own name, obviously.
rlm@149 480
rlm@149 481
rlm@150 482
rlm@150 483
rlm@150 484 ;; OT ID Numbers.
rlm@152 485 ;; My own id is 05195. A quick search of memory between
rlm@150 486 ;; 0xD162 and 0xD31B revealed the pattern 0x144B exactly
rlm@150 487 ;; six times.
rlm@150 488
rlm@150 489 ;; the locations were:
rlm@150 490
rlm@150 491 (def OT-ID-addresses [0xD176 0xD1A2 0xD1CE 0xD1FA 0xD228 0xD252])
rlm@150 492
rlm@150 493
rlm@150 494 (defn set-pokemon-id
rlm@150 495 ([^SaveState state n new-id]
rlm@150 496 (assert (<= 0 n (dec (party-number state))))
rlm@150 497 (assert (<= 0 new-id 0xFFFF))
rlm@150 498 (set-memory-range
rlm@150 499 state
rlm@150 500 (OT-ID-addresses n)
rlm@151 501 [(bit-shift-right (bit-and new-id 0xFF00) 8)
rlm@151 502 (bit-and new-id 0xFF)
rlm@151 503 ]))
rlm@150 504 ([n new-id]
rlm@151 505 (set-pokemon-id @current-state n new-id)))
rlm@152 506
rlm@152 507
rlm@160 508 (defn get-pokemon-1-info
rlm@160 509 ([state]
rlm@160 510 (subvec (vec (memory state))
rlm@160 511 0xD162 0xD197))
rlm@160 512 ([] (get-pokemon-1-info @current-state)))
rlm@160 513
rlm@160 514 (def baseline (File. "/home/r/baseline-poke"))
rlm@160 515
rlm@160 516
rlm@160 517
rlm@160 518
rlm@160 519 (import java.io.File)
rlm@160 520
rlm@160 521 (defn set-baseline [state]
rlm@160 522 (clojure.java.io/copy
rlm@160 523 (with-out-str (print-listing state 0xD162 0xD197))
rlm@160 524 baseline))
rlm@160 525
rlm@160 526 (defn compare-pokemon
rlm@160 527 ([state]
rlm@160 528 (let [target (File. "/home/r/temp-poke")]
rlm@160 529 (clojure.java.io/copy
rlm@160 530 (with-out-str (print-listing state 0xD162 0xD197))
rlm@160 531 target)
rlm@160 532 (println (:out
rlm@160 533 (clojure.java.shell/sh "diff"
rlm@160 534 (.getCanonicalPath baseline)
rlm@160 535 (.getCanonicalPath target))))))
rlm@161 536 ([] (compare-pokemon @current-state)))
rlm@160 537
rlm@160 538
rlm@160 539 (defn crazy-pid []
rlm@160 540 (read-state "crazy-pidgeot"))
rlm@166 541
rlm@168 542 (def unknown "[[[UNKNOWN]]]")
rlm@168 543
rlm@166 544 (def unknown "")
rlm@166 545
rlm@166 546 (def pokemon-1-info
rlm@166 547 {0xD16A "Color Map" ;; 0
rlm@166 548 0xD16B "Current-HP (h)" ;; 1
rlm@166 549 0xD16C "Current-HP (l)" ;; 2
rlm@166 550 0XD16D unknown ;; 3
rlm@166 551 0xD16E unknown ;; 4
rlm@166 552 0xD16F unknown ;; 5
rlm@166 553 0xD170 unknown ;; 6
rlm@166 554 0xD171 unknown ;; 7
rlm@166 555 0xD172 "Move 1 ID" ;; 8
rlm@166 556 0xD173 "Move 2 ID" ;; 9
rlm@166 557 0xD174 "Move 3 ID" ;; 10
rlm@166 558 0xD175 "Move 4 ID" ;; 11
rlm@166 559 0xD176 "OT-ID (h)" ;; 12
rlm@166 560 0xD177 "OT-ID (l)" ;; 13
rlm@166 561 0xD178 "Exp. Points (h)" ;; 14
rlm@166 562 0xD179 "Exp. Points (m)" ;; 15
rlm@166 563 0xD17A "Exp. Points (l)" ;; 16
rlm@168 564 0xD17B "HP Exp. (h)" ;; 17
rlm@168 565 0xD17C "HP Exp. (l)" ;; 18
rlm@168 566 0xD17D "Attack Exp. (h)" ;; 19
rlm@168 567 0xD17E "Attack Exp. (l)" ;; 20
rlm@168 568 0xD17F "Defense Exp. (h)" ;; 21
rlm@168 569 0xD180 "Defense Exp. (l)" ;; 22
rlm@168 570 0xD181 "Speed Exp. (h)" ;; 23
rlm@168 571 0xD182 "Speed Exp. (l)" ;; 24
rlm@168 572 0xD183 "Special Exp. (h)" ;; 25
rlm@168 573 0xD184 "Special Exp. (l)" ;; 26
rlm@172 574 0xD185 "DV Atk/Def" ;; 27
rlm@172 575 0xD186 "DV Speed/Spc" ;; 28
rlm@166 576 0xD187 "PP Move 1" ;; 29
rlm@166 577 0xD188 "PP Move 2" ;; 30
rlm@166 578 0xD189 "PP Move 3" ;; 31
rlm@166 579 0xD18A "PP Move 4" ;; 32
rlm@166 580 0xD18B "Current Level" ;; 33
rlm@166 581 0xD18C "HP Total (h)" ;; 34
rlm@166 582 0xD18D "HP Total (l)" ;; 35
rlm@166 583 0xD18E "Attack (h)" ;; 36
rlm@166 584 0xD18F "Attack (l)" ;; 37
rlm@166 585 0xD190 "Defense (h)" ;; 38
rlm@166 586 0xD191 "Defense (l)" ;; 39
rlm@166 587 0xD192 "Speed (h)" ;; 40
rlm@166 588 0xD193 "Speed (l)" ;; 41
rlm@166 589 0xD194 "Special (h)" ;; 42
rlm@168 590 0xD195 "Special (l)" ;; 43
rlm@166 591 })
rlm@166 592
rlm@166 593 (defn pokemon-data
rlm@166 594 ([^SaveState state pokemon-num]
rlm@166 595 (assert (<= 0 pokemon-num 5))
rlm@166 596 (let [base (+ (* pokemon-num pokemon-record-width) 0xD16A)]
rlm@166 597 (subvec (vec (memory state)) base
rlm@166 598 (+ base pokemon-record-width))))
rlm@166 599 ([pokemon-num] (pokemon-data @current-state pokemon-num)))
rlm@166 600
rlm@166 601 (defn set-pokemon-data
rlm@166 602 ([^SaveState state pokemon-num new-data]
rlm@166 603 (assert (<= 0 pokemon-num 5))
rlm@166 604 (let [base (+ (* pokemon-num pokemon-record-width) 0xD16A)]
rlm@166 605 (set-memory-range state base new-data)))
rlm@166 606 ([pokemon-num new-data]
rlm@166 607 (set-pokemon-data @current-state pokemon-num new-data)))
rlm@166 608
rlm@167 609 (defn print-pokemon-data
rlm@167 610 ([^SaveState state pokemon-num]
rlm@167 611 (assert (<= 0 pokemon-num 5))
rlm@167 612 (let [poke-data (pokemon-data state pokemon-num)
rlm@167 613 backbone (sort (keys pokemon-1-info))]
rlm@168 614 (println "Pokemon " pokemon-num " -- "
rlm@168 615 (nth (party-names state)
rlm@168 616 pokemon-num) \newline)
rlm@168 617
rlm@168 618 (println " Desc. | Hex | Dec | Binary |")
rlm@168 619 (println "-------------------+------+-----+----------+")
rlm@167 620 (dorun
rlm@167 621 (map
rlm@167 622 (comp println
rlm@167 623 (fn [desc data]
rlm@168 624 (format "%-16s | 0x%02X | %3d | %s |"
rlm@168 625 desc data data
rlm@168 626 (let [s (Integer/toBinaryString data)]
rlm@168 627 (apply
rlm@168 628 str
rlm@168 629 (concat (repeat (- 8 (count s)) "0" )
rlm@168 630 s)))
rlm@168 631
rlm@168 632
rlm@168 633 )))
rlm@167 634
rlm@167 635 (map pokemon-1-info backbone)
rlm@167 636 poke-data))))
rlm@167 637 ([pokemon-num]
rlm@167 638 (print-pokemon-data @current-state pokemon-num)))
rlm@167 639
rlm@166 640
rlm@166 641
rlm@167 642 (defn pre-battle [] (read-state "prepare-for-battle"))
rlm@167 643
rlm@168 644
rlm@169 645 (defn pika-lvl-100-DV-0 []
rlm@169 646 (read-state "at-pc-lv-100-pikachu"))
rlm@168 647
rlm@169 648 ;; Performed following experiment:
rlm@169 649 ;; Raised Pikachu to Lvl 100 with rare-candies,
rlm@169 650 ;; then put it at the head of the party and
rlm@169 651 ;; set 0xD185 and 0xD186 to zero.
rlm@168 652
rlm@169 653 ;; then, for each pattern, deposited pikachu into
rlm@169 654 ;; Box 1 and immediately widthdrew it and observed the
rlm@169 655 ;; stats.
rlm@168 656
rlm@169 657
rlm@169 658 ;; Pikachu L:100 Base Stats with DVs = 0
rlm@169 659 ;; HP : 187
rlm@169 660 ;; Attack : 123
rlm@169 661 ;; Defense : 73
rlm@169 662 ;; Speed : 194
rlm@169 663 ;; Special : 112
rlm@169 664
rlm@169 665 ;; 0xD185:
rlm@169 666
rlm@169 667 ;; 00000001
rlm@169 668 ;; Defense => 75 (+2)
rlm@169 669 ;; HP => 195 (+8)
rlm@169 670
rlm@169 671 ;; 00000010
rlm@169 672 ;; Defense => 77 (+4)
rlm@169 673
rlm@169 674 ;; 00000100
rlm@169 675 ;; Defense => 81 (+8)
rlm@169 676
rlm@169 677 ;; 00001000
rlm@169 678 ;; Defense => 89 (+16)
rlm@169 679
rlm@169 680 ;; 00010000
rlm@169 681 ;; HP => 203 (+16)
rlm@169 682 ;; Attack => 125 (+2)
rlm@169 683
rlm@169 684 ;; 00100000
rlm@169 685 ;; Attack => 127 (+4)
rlm@169 686
rlm@169 687 ;; 01000000
rlm@169 688 ;; Attack -> 131 (+8)
rlm@169 689
rlm@169 690 ;; 10000000
rlm@169 691 ;; Attack -> 139 (+16)
rlm@169 692
rlm@169 693 ;; 0xD186
rlm@169 694
rlm@169 695 ;; 00000001
rlm@169 696 ;; HP => 189 (+2)
rlm@169 697 ;; Special => (+2)
rlm@169 698
rlm@169 699 ;; 00000010
rlm@169 700 ;; Special => 116 (+4)
rlm@169 701
rlm@169 702 ;; 00000100
rlm@169 703 ;; Special => 120 (+8)
rlm@169 704
rlm@169 705 ;; 00001000
rlm@169 706 ;; Special => 128 (+16)
rlm@169 707
rlm@169 708 ;; 00010000
rlm@169 709 ;; HP => 191 (+4)
rlm@169 710 ;; Speed => 196 (+2)
rlm@169 711
rlm@169 712 ;; 00100000
rlm@169 713 ;; Speed => 198 (+4)
rlm@169 714
rlm@169 715 ;; 01000000
rlm@169 716 ;; Speed => 202 (+8)
rlm@169 717
rlm@169 718 ;; 10000000
rlm@169 719 ;; Speed => 210 (+16)
rlm@169 720
rlm@169 721
rlm@176 722 ;; investigating status effects
rlm@169 723
rlm@176 724 ;; status of pokemon 1 appears to be
rlm@176 725 ;; 0xD16E
rlm@169 726
rlm@176 727 ;; with pidgeot
rlm@176 728 ;; 00000000 -- normal
rlm@176 729 ;; 00000001 -- sleep (wake-immediately)
rlm@176 730 ;; 00000010 -- sleep
rlm@176 731 ;; 00000100 -- sleep
rlm@176 732 ;; 00001000 -- poisoned
rlm@176 733 ;; 00010000 -- burned
rlm@176 734 ;; 00100000 -- frozen
rlm@176 735 ;; 01000000 -- paralyzed
rlm@176 736 ;; 10000000 -- ball is dark, but no status
rlm@169 737
rlm@176 738 ;; with pikachu
rlm@176 739 ;; 00000000 -- normal
rlm@176 740 ;; 00000001 -- sleep (1 turn wasted) \
rlm@176 741 ;; 00000010 -- sleep (2 turns wasted) |-- additive
rlm@176 742 ;; 00000100 -- sleep (3 turns wasted) /
rlm@176 743 ;; 00001000 -- poisoned
rlm@176 744 ;; 00010000 -- burned
rlm@176 745 ;; 00100000 -- frozen
rlm@176 746 ;; 01000000 -- paralyzed
rlm@176 747 ;; 10000000 -- ball is dark, but no status
rlm@169 748
rlm@169 749
rlm@176 750