Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 280:d5e5c73af7e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
reorginazed save corruption code
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Mar 2012 21:08:44 -0500
parents aa9b8d9d5b76
children 57e0314e488d
comparison
equal deleted inserted replaced
279:aa9b8d9d5b76 280:d5e5c73af7e6
553 (play-moves [[:b]]) 553 (play-moves [[:b]])
554 (do-nothing 100) 554 (do-nothing 100)
555 (play-moves [[:b] []])))) 555 (play-moves [[:b] []]))))
556 556
557 557
558 (defn do-save-corruption 558 (defn-memo do-save-corruption
559 ([] (do-save-corruption 559 ([] (do-save-corruption
560 (buy-initial-items))) 560 (buy-initial-items)))
561 ([script] 561 ([script]
562 (->> script 562 (->> script
563 (do-nothing 100) 563 (advance [:b] [:b :start])
564 564 (advance [] [:d])
565 (play-moves 565 (play-moves [[] [] [] [:d]
566 [[:start]]) 566 [] [] [] [:d]
567 (do-nothing 500) 567 [] [] [] [:d]
568 (play-moves [[:d]]) 568 [] [] [:a]])
569 (do-nothing 100) 569 scroll-text
570 570 (play-moves
571 (play-moves 571 ;; this section is copied from speedrun-2942 and corrupts
572 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 572 ;; the save so that the end-of-list marker for the pokemon
573 [][] [] [] [] [] [] [] [] [] [] [] [] [] [] 573 ;; roster is destroyed, but the save is still playable.
574 [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] [] [] [] [:d] 574 [[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
575 [] [] [:a] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 575 [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart]])
576 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 576 (title)
577 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 577 (advance [] [:start])
578 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 578 (advance [] [:a])
579 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 579 (advance [:a] [:a :start]))))
580 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 580
581 [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] [:b] 581
582 [:a :b] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 582 (defn viridian-store->viridian-poke-center
583 [] [] [] [] [] [] [] [] [] [] [] [] [] [:select] [:restart] 583 []
584 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 584 ;; leave store
585 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 585 ;;(walk [↓ ↓
586 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 586 ;; → ↓ ↓])
587 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 587 )
588 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] 588
589 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
590 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
591 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
592 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
593 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
594 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
595 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
596 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
597 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
598 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
599 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
600 [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
601 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
602 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
603 [] [] [] [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] []
604 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
605 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
606 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
607 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
608 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
609 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
610 [] [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] []
611 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
612 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
613 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
614 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
615 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
616 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
617 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
618 [:start] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
619 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
620 [] [] [] [] [] [] [] [] [] [] [] [] [] [:start] [:a] [:a]
621 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
622 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
623 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
624 [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a] [:a]
625 [:a] [:a :start] []]))))