Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 593:daa3497bbe12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
increased speed to travel to floor two of celadon dept. store.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 12:38:26 -0500
parents abcc522a3242
children
comparison
equal deleted inserted replaced
592:db61317863a7 593:daa3497bbe12
469 blanks. Due to weirdness with the VBM format. To compensate, ensure 469 blanks. Due to weirdness with the VBM format. To compensate, ensure
470 that the two button presses after restart are both blanks." 470 that the two button presses after restart are both blanks."
471 [script] 471 [script]
472 (play-moves [[:restart] [] []] script)) 472 (play-moves [[:restart] [] []] script))
473 473
474 (defn-memo do-save-corruption 474 (defn do-save-corruption
475 ([] (do-save-corruption 475 ([] (do-save-corruption
476 (walk-to-counter))) 476 (walk-to-counter)))
477 ([script] (do-save-corruption 4 script)) 477 ([script] (do-save-corruption 4 script))
478 ([n script] 478 ([n script]
479 (->> script 479 (->> script
480 activate-start-menu 480 activate-start-menu
481 (set-cursor n) 481 (set-cursor n)
482 select-menu-entry 482 select-menu-entry
483 select-menu-entry 483
484 ;; say yes to save game
485 ;; first-difference is faster than select-menu-entry
486 ;; for this special case
487 ;;select-menu-entry
488 (first-difference [:b] [:a] AF)
489
484 (play-moves 490 (play-moves
485 ;; this section is copied from speedrun-2942 and corrupts 491 ;; this section is copied from speedrun-2942 and corrupts
486 ;; the save so that the total number of pokemon is set to 492 ;; the save so that the total number of pokemon is set to
487 ;; 0xFF, allowing manipulation of non-pokemon data in RAM 493 ;; 0xFF, allowing manipulation of non-pokemon data in RAM
488 ;; via the pokemon interface. 494 ;; via the pokemon interface.