Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 366:985e91060567

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress...
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 12:34:29 -0500
parents dc39dfcad61f
children 845b2d88bef9
comparison
equal deleted inserted replaced
365:dc39dfcad61f 366:985e91060567
691 (deposit-held-item 17 184) 691 (deposit-held-item 17 184)
692 (deposit-held-item 17 40) 692 (deposit-held-item 17 40)
693 (deposit-held-item-named :TM37 71) 693 (deposit-held-item-named :TM37 71)
694 (deposit-held-item-named :ice-heal 55) 694 (deposit-held-item-named :ice-heal 55)
695 (deposit-held-item-named :fire-stone 23) 695 (deposit-held-item-named :fire-stone 23)
696 (deposit-held-item-named :burn-heal 12)))) 696 (deposit-held-item-named :burn-heal 12)
697 697 close-menu)))
698
699 (defn combine-items [idx-1 script]
700 (->> script
701 (wait-until select-menu-entry)
702 (set-cursor idx-1)
703 (wait-until select-menu-entry)
704 (play-moves [[][:select][]])
705 (set-cursor-relative 1)
706 (delayed-difference [] [:select] 100
707 #(nth-pc-item % (list-offset %)))))
708
709 (defn-memo hacking-8
710 "Clear cruft away from held item list."
711 ([] (hacking-8 (hacking-7)))
712 ([script]
713 (->> script
714 to-held-items
715 (toss-held-item 15 1)
716 (toss-held-item 14 1)
717 (toss-held-item 13 1)
718 close-menu
719 close-menu)))
720
721 (defn-memo hacking-9
722 ([] (hacking-9 (hacking-8)))
723 ([script]
724 (->> script
725 activate-rlm-pc
726 begin-withdraw
727 (widthdraw-pc-item 7 0xFE)
728 (widthdraw-pc-item 8 0xFC)
729 (widthdraw-pc-item 8 1)
730 (widthdraw-pc-item 8 1)
731 (widthdraw-pc-item 9 0xFE)
732 (multiple-times
733 7
734 (partial combine-items 2))
735 close-menu)))
736
737 (defn-memo hacking-10
738 ([] (hacking-10 (hacking-9)))
739 ([script]
740 (->> script
741 begin-deposit
742 (deposit-held-item 17 230)
743 (deposit-held-item-named :parlyz-heal 55)
744 (deposit-held-item 14 178)
745 (deposit-held-item-named :water-stone 29)
746 (deposit-held-item 14 32)
747 (deposit-held-item-named :TM18 1)
748 (deposit-held-item 13 1)
749 (deposit-held-item 13 191)
750 (deposit-held-item-named :TM02 98)
751 (deposit-held-item-named :TM09 1)
752 close-menu)))
753
754 (defn-memo hacking-11
755 ([] (hacking-11 (hacking-10)))
756 ([script]
757 (->> script
758 to-held-items
759 (toss-held-item 17 1)
760 (toss-held-item 17 1)
761 (toss-held-item 17 1)
762 (toss-held-item 17 1)
763 (toss-held-item 17 1)
764 close-menu
765 close-menu)))
766
767
768
769
770