1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Sep 01 12:52:46 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Sep 01 13:32:19 2012 -0500
     1.3 @@ -6,7 +6,7 @@
     1.4  
     1.5  (defn pc-item-writer-program
     1.6    []
     1.7 -  (let [limit 201
     1.8 +  (let [limit 201 ;; should be more like 92
     1.9          [target-high target-low] (disect-bytes-2 pokemon-list-start)]
    1.10      (flatten
    1.11       [[0x00  ;; (item-hack) set increment stack pointer no-op

     2.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 12:52:46 2012 -0500
     2.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 13:32:19 2012 -0500
     2.3 @@ -336,6 +336,24 @@
     2.4            (transfer-control main-program-base-address)
     2.5            (do-nothing 1800))))
     2.6  
     2.7 +(def advanced-render-dir
     2.8 +  (File. user-home "proj/vba-clojure/render/advanced"))
     2.9 +
    2.10 +(defn advanced-steps [] (first (activate-program)))
    2.11 +
    2.12 +(defn advanced-step-1! []
    2.13 +  (render-files!
    2.14 +   advanced-render-dir
    2.15 +   (root) (advanced-steps)))
    2.16 +
    2.17 +(defn advanced-step-2! []
    2.18 +  (generate-composite-frames!
    2.19 +   advanced-render-dir))
    2.20 +
    2.21 +(defn advanced-step-3! [] (final-cut! advanced-render-dir))
    2.22 +
    2.23 +
    2.24 +
    2.25  
    2.26  ;; possible screen writing programs
    2.27  

     3.1 --- a/clojure/com/aurellem/run/basic_choreo.clj	Sat Sep 01 12:52:46 2012 -0500
     3.2 +++ b/clojure/com/aurellem/run/basic_choreo.clj	Sat Sep 01 13:32:19 2012 -0500
     3.3 @@ -70,7 +70,7 @@
     3.4            (do-nothing 1800))))
     3.5  
     3.6  (def basic-render-dir
     3.7 -  (File. user-home "proj/vba-clojure/render/basic3"))
     3.8 +  (File. user-home "proj/vba-clojure/render/basic"))
     3.9  
    3.10  (defn basic-steps [] (first (activate-media)))
    3.11  

     4.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:52:46 2012 -0500
     4.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 13:32:19 2012 -0500
     4.3 @@ -517,13 +517,22 @@
     4.4    (->> script
     4.5         select-menu-entry))
     4.6  
     4.7 +(defn close-celadon-computer-menu
     4.8 +  [script]
     4.9 +  ;; this part was determined via manual binary search
    4.10 +  ;; because for some reason the current-depth RAM value
    4.11 +  ;; is the same for both the final menu being either on
    4.12 +  ;; or off. 
    4.13 +  (->> script
    4.14 +       (play-moves
    4.15 +        (concat (repeat 4 []) [[:b]]))))
    4.16 +       
    4.17  (defn to-held-items
    4.18    [script]
    4.19    (->> script
    4.20         close-menu
    4.21         close-menu
    4.22 -       end-text;;; grr
    4.23 -       
    4.24 +       close-celadon-computer-menu
    4.25         activate-start-menu
    4.26         open-held-items))
    4.27  
    4.28 @@ -551,7 +560,7 @@
    4.29            (deposit-held-item-named :TM09          55)
    4.30            (deposit-held-item-named 0x00           55))))
    4.31  
    4.32 -(defn-memo hacking-2
    4.33 +(defn hacking-2
    4.34    ([] (hacking-2 (hacking-1)))
    4.35    ([script]
    4.36       (->> script
    4.37 @@ -725,20 +734,23 @@
    4.38  (defn-memo go-to-mansion-for-the-lulz
    4.39    ([] (go-to-mansion-for-the-lulz (hacking-13)))
    4.40    ([script]
    4.41 -     (->> script
    4.42 -          close-menu
    4.43 -          close-menu
    4.44 -          end-text ;;grr
    4.45 -          (walk [↓ ← ← ← ← ← ← ← ← ← ↓ ↓ ↓])
    4.46 -          (walk (repeat 17 ←))
    4.47 -          (walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
    4.48 -          (walk [↓ ← ↑])
    4.49 -          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
    4.50 -                 ← ← ← ← ↑ ↑ ↑ ← ↑])
    4.51 -          (talk)
    4.52 -          (scroll-text 2)
    4.53 -          (do-nothing 100)
    4.54 -          close-menu)))
    4.55 +     (let [lulz-delay 50]
    4.56 +       (->> script
    4.57 +            close-menu
    4.58 +            close-menu
    4.59 +            close-celadon-computer-menu
    4.60 +            (walk [← ← ← ← ← ← ← ← ← ↓ ↓ ↓ ↓])
    4.61 +            (walk (repeat 17 ←))
    4.62 +            (walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
    4.63 +            (walk [↓ ← ↑])
    4.64 +            (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
    4.65 +                   ← ← ← ← ↑ ↑ ↑ ← ↑])
    4.66 +            (talk)
    4.67 +            (do-nothing lulz-delay)
    4.68 +            (play-moves [[:a]])
    4.69 +            (do-nothing lulz-delay)
    4.70 +            (play-moves [[:a]])
    4.71 +            close-menu))))
    4.72  
    4.73  (defn-memo launch-bootstrap-program
    4.74    ([] (launch-bootstrap-program
    4.75 @@ -790,8 +802,8 @@
    4.76  
    4.77  (defn-memo launch-main-bootstrap-program
    4.78    ([] (launch-main-bootstrap-program
    4.79 -       (control-checkpoint)
    4.80 -       ;;(launch-bootstrap-program)
    4.81 +       ;;(control-checkpoint)
    4.82 +       (launch-bootstrap-program)
    4.83         ))
    4.84    ([script]
    4.85         (->> script