comparison clojure/com/aurellem/run/bootstrap_1.clj @ 365:dc39dfcad61f

almost halfway there!
author Robert McIntyre <rlm@mit.edu>
date Mon, 09 Apr 2012 11:31:09 -0500
parents 958a333f16e2
children 985e91060567
comparison
equal deleted inserted replaced
364:958a333f16e2 365:dc39dfcad61f
675 (->> script 675 (->> script
676 activate-rlm-pc 676 activate-rlm-pc
677 begin-withdraw 677 begin-withdraw
678 (widthdraw-pc-item 4 0xFE) 678 (widthdraw-pc-item 4 0xFE)
679 (widthdraw-pc-item 5 0xFE) 679 (widthdraw-pc-item 5 0xFE)
680 (widthdraw-pc-item 6 0xFE)))) 680 (widthdraw-pc-item 6 0xFE)
681 681 close-menu)))
682 ;; (defn-memo hacking-7 682
683 ;; ([] (hacking-7 (hacking-6))) 683 (defn-memo hacking-7
684 ;; ([script] 684 ([] (hacking-7 (hacking-6)))
685 ;; (->> script 685 ([script]
686 686 (->> script
687 687 begin-deposit
688 (deposit-held-item 19 240)
689 (deposit-held-item 18 230)
690 (deposit-held-item-named :parlyz-heal 55)
691 (deposit-held-item 17 184)
692 (deposit-held-item 17 40)
693 (deposit-held-item-named :TM37 71)
694 (deposit-held-item-named :ice-heal 55)
695 (deposit-held-item-named :fire-stone 23)
696 (deposit-held-item-named :burn-heal 12))))
697