Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 290:dc9a0060e7cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: walked to poke-center computer.
author Robert McIntyre <rlm@mit.edu>
date Thu, 29 Mar 2012 17:38:36 -0500
parents 57e0314e488d
children c8b0db518de3
comparison
equal deleted inserted replaced
289:df9cad9909d2 290:dc9a0060e7cb
571 [] [] [] [:d] 571 [] [] [] [:d]
572 [] [] [:a]]) 572 [] [] [:a]])
573 scroll-text 573 scroll-text
574 (play-moves 574 (play-moves
575 ;; this section is copied from speedrun-2942 and corrupts 575 ;; this section is copied from speedrun-2942 and corrupts
576 ;; the save so that the end-of-list marker for the pokemon 576 ;; the save so that the total number of pokemon is set to
577 ;; roster is destroyed, but the save is still playable. 577 ;; 0xFF, allowing manipulation of non-pokemon data in RAM
578 ;; via the pokemon interface.
578 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 579 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
579 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]]) 580 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
580 (title) 581 (title)
581 (advance [] [:start]) 582 (advance [] [:start])
582 (advance [] [:a]) 583 (advance [] [:a])
657 script 658 script
658 (range number-down)) 659 (range number-down))
659 (play-moves [[] [] [:a]]) 660 (play-moves [[] [] [:a]])
660 (scroll-text) 661 (scroll-text)
661 (do-nothing 300))) 662 (do-nothing 300)))
662
663
664 663
665 (defn-memo corrupt-item-list-again 664 (defn-memo corrupt-item-list-again
666 ([] (corrupt-item-list-again (get-burn-heals))) 665 ([] (corrupt-item-list-again (get-burn-heals)))
667 ([script] 666 ([script]
668 (->> script 667 (->> script
679 ; switching it to 678 ; switching it to
680 ))) ; tenth place. 679 ))) ; tenth place.
681 680
682 681
683 682
684 (defn viridian-store->viridian-poke-center 683 (defn-memo viridian-store->viridian-poke-center
685 [] 684 ([] (viridian-store->viridian-poke-center
686 ;; leave store 685 (corrupt-item-list-again)))
687 ;;(walk [↓ ↓ 686 ([script]
688 ;; → ↓ ↓]) 687 (->> script
689 ) 688 (do-nothing 100)
690 689 (play-moves [[:b]])
690 (do-nothing 100)
691 (play-moves [[:b]])
692 (do-nothing 40)
693 ;; leave store
694 (walk [↓ ↓
695 → ↓ ↓])
696 (walk [← ← ← ←
697 ↓ ↓ ↓ ↓ ↓ ↓
698 ← ← ← ↑]))))
699
700 (defn to-poke-center-computer
701 ([] (to-poke-center-computer
702 (viridian-store->viridian-poke-center)))
703 ([script]
704 (->> script
705 (walk [→ →
706 ↑ ↑ ↑
707 → → → → → → → → → ↑])
708 (do-nothing 1))))
709