Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/pokemon.clj @ 152:9367bb5e55e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
learned some more about pokemon layout via inspection.
author Robert McIntyre <rlm@mit.edu>
date Tue, 20 Mar 2012 01:09:03 -0500
parents ced1c4cd1eea
children 9ca350a476f0
comparison
equal deleted inserted replaced
151:ced1c4cd1eea 152:9367bb5e55e6
490 490
491 491
492 492
493 493
494 ;; OT ID Numbers. 494 ;; OT ID Numbers.
495 ;; my own id is 05195. A quick search of memory between 495 ;; My own id is 05195. A quick search of memory between
496 ;; 0xD162 and 0xD31B revealed the pattern 0x144B exactly 496 ;; 0xD162 and 0xD31B revealed the pattern 0x144B exactly
497 ;; six times. 497 ;; six times.
498 498
499 ;; the locations were: 499 ;; the locations were:
500 500
511 [(bit-shift-right (bit-and new-id 0xFF00) 8) 511 [(bit-shift-right (bit-and new-id 0xFF00) 8)
512 (bit-and new-id 0xFF) 512 (bit-and new-id 0xFF)
513 ])) 513 ]))
514 ([n new-id] 514 ([n new-id]
515 (set-pokemon-id @current-state n new-id))) 515 (set-pokemon-id @current-state n new-id)))
516 516
517
518