1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:52:46 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 13:32:19 2012 -0500
     1.3 @@ -517,13 +517,22 @@
     1.4    (->> script
     1.5         select-menu-entry))
     1.6  
     1.7 +(defn close-celadon-computer-menu
     1.8 +  [script]
     1.9 +  ;; this part was determined via manual binary search
    1.10 +  ;; because for some reason the current-depth RAM value
    1.11 +  ;; is the same for both the final menu being either on
    1.12 +  ;; or off. 
    1.13 +  (->> script
    1.14 +       (play-moves
    1.15 +        (concat (repeat 4 []) [[:b]]))))
    1.16 +       
    1.17  (defn to-held-items
    1.18    [script]
    1.19    (->> script
    1.20         close-menu
    1.21         close-menu
    1.22 -       end-text;;; grr
    1.23 -       
    1.24 +       close-celadon-computer-menu
    1.25         activate-start-menu
    1.26         open-held-items))
    1.27  
    1.28 @@ -551,7 +560,7 @@
    1.29            (deposit-held-item-named :TM09          55)
    1.30            (deposit-held-item-named 0x00           55))))
    1.31  
    1.32 -(defn-memo hacking-2
    1.33 +(defn hacking-2
    1.34    ([] (hacking-2 (hacking-1)))
    1.35    ([script]
    1.36       (->> script
    1.37 @@ -725,20 +734,23 @@
    1.38  (defn-memo go-to-mansion-for-the-lulz
    1.39    ([] (go-to-mansion-for-the-lulz (hacking-13)))
    1.40    ([script]
    1.41 -     (->> script
    1.42 -          close-menu
    1.43 -          close-menu
    1.44 -          end-text ;;grr
    1.45 -          (walk [↓ ← ← ← ← ← ← ← ← ← ↓ ↓ ↓])
    1.46 -          (walk (repeat 17 ←))
    1.47 -          (walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
    1.48 -          (walk [↓ ← ↑])
    1.49 -          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.50 -                 ← ← ← ← ↑ ↑ ↑ ← ↑])
    1.51 -          (talk)
    1.52 -          (scroll-text 2)
    1.53 -          (do-nothing 100)
    1.54 -          close-menu)))
    1.55 +     (let [lulz-delay 50]
    1.56 +       (->> script
    1.57 +            close-menu
    1.58 +            close-menu
    1.59 +            close-celadon-computer-menu
    1.60 +            (walk [← ← ← ← ← ← ← ← ← ↓ ↓ ↓ ↓])
    1.61 +            (walk (repeat 17 ←))
    1.62 +            (walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
    1.63 +            (walk [↓ ← ↑])
    1.64 +            (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
    1.65 +                   ← ← ← ← ↑ ↑ ↑ ← ↑])
    1.66 +            (talk)
    1.67 +            (do-nothing lulz-delay)
    1.68 +            (play-moves [[:a]])
    1.69 +            (do-nothing lulz-delay)
    1.70 +            (play-moves [[:a]])
    1.71 +            close-menu))))
    1.72  
    1.73  (defn-memo launch-bootstrap-program
    1.74    ([] (launch-bootstrap-program
    1.75 @@ -790,8 +802,8 @@
    1.76  
    1.77  (defn-memo launch-main-bootstrap-program
    1.78    ([] (launch-main-bootstrap-program
    1.79 -       (control-checkpoint)
    1.80 -       ;;(launch-bootstrap-program)
    1.81 +       ;;(control-checkpoint)
    1.82 +       (launch-bootstrap-program)
    1.83         ))
    1.84    ([script]
    1.85         (->> script