# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346524339 18000
# Node ID 96ee9d72aeb9f31c8286d07e88f73bc1fbf1b82b
# Parent  ea448eecb6159780005acc466779711d938ea451
saving progress.... sleepy time :)

diff -r ea448eecb615 -r 96ee9d72aeb9 clojure/com/aurellem/gb/rlm_assembly.clj
--- a/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Sep 01 12:52:46 2012 -0500
+++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Sep 01 13:32:19 2012 -0500
@@ -6,7 +6,7 @@
 
 (defn pc-item-writer-program
   []
-  (let [limit 201
+  (let [limit 201 ;; should be more like 92
         [target-high target-low] (disect-bytes-2 pokemon-list-start)]
     (flatten
      [[0x00  ;; (item-hack) set increment stack pointer no-op
diff -r ea448eecb615 -r 96ee9d72aeb9 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 12:52:46 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 13:32:19 2012 -0500
@@ -336,6 +336,24 @@
           (transfer-control main-program-base-address)
           (do-nothing 1800))))
 
+(def advanced-render-dir
+  (File. user-home "proj/vba-clojure/render/advanced"))
+
+(defn advanced-steps [] (first (activate-program)))
+
+(defn advanced-step-1! []
+  (render-files!
+   advanced-render-dir
+   (root) (advanced-steps)))
+
+(defn advanced-step-2! []
+  (generate-composite-frames!
+   advanced-render-dir))
+
+(defn advanced-step-3! [] (final-cut! advanced-render-dir))
+
+
+
 
 ;; possible screen writing programs
 
diff -r ea448eecb615 -r 96ee9d72aeb9 clojure/com/aurellem/run/basic_choreo.clj
--- a/clojure/com/aurellem/run/basic_choreo.clj	Sat Sep 01 12:52:46 2012 -0500
+++ b/clojure/com/aurellem/run/basic_choreo.clj	Sat Sep 01 13:32:19 2012 -0500
@@ -70,7 +70,7 @@
           (do-nothing 1800))))
 
 (def basic-render-dir
-  (File. user-home "proj/vba-clojure/render/basic3"))
+  (File. user-home "proj/vba-clojure/render/basic"))
 
 (defn basic-steps [] (first (activate-media)))
 
diff -r ea448eecb615 -r 96ee9d72aeb9 clojure/com/aurellem/run/bootstrap_1.clj
--- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 12:52:46 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 13:32:19 2012 -0500
@@ -517,13 +517,22 @@
   (->> script
        select-menu-entry))
 
+(defn close-celadon-computer-menu
+  [script]
+  ;; this part was determined via manual binary search
+  ;; because for some reason the current-depth RAM value
+  ;; is the same for both the final menu being either on
+  ;; or off. 
+  (->> script
+       (play-moves
+        (concat (repeat 4 []) [[:b]]))))
+       
 (defn to-held-items
   [script]
   (->> script
        close-menu
        close-menu
-       end-text;;; grr
-       
+       close-celadon-computer-menu
        activate-start-menu
        open-held-items))
 
@@ -551,7 +560,7 @@
           (deposit-held-item-named :TM09          55)
           (deposit-held-item-named 0x00           55))))
 
-(defn-memo hacking-2
+(defn hacking-2
   ([] (hacking-2 (hacking-1)))
   ([script]
      (->> script
@@ -725,20 +734,23 @@
 (defn-memo go-to-mansion-for-the-lulz
   ([] (go-to-mansion-for-the-lulz (hacking-13)))
   ([script]
-     (->> script
-          close-menu
-          close-menu
-          end-text ;;grr
-          (walk [↓ ← ← ← ← ← ← ← ← ← ↓ ↓ ↓])
-          (walk (repeat 17 ←))
-          (walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
-          (walk [↓ ← ↑])
-          (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
-                 ← ← ← ← ↑ ↑ ↑ ← ↑])
-          (talk)
-          (scroll-text 2)
-          (do-nothing 100)
-          close-menu)))
+     (let [lulz-delay 50]
+       (->> script
+            close-menu
+            close-menu
+            close-celadon-computer-menu
+            (walk [← ← ← ← ← ← ← ← ← ↓ ↓ ↓ ↓])
+            (walk (repeat 17 ←))
+            (walk [↑ → → → → ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑])
+            (walk [↓ ← ↑])
+            (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓
+                   ← ← ← ← ↑ ↑ ↑ ← ↑])
+            (talk)
+            (do-nothing lulz-delay)
+            (play-moves [[:a]])
+            (do-nothing lulz-delay)
+            (play-moves [[:a]])
+            close-menu))))
 
 (defn-memo launch-bootstrap-program
   ([] (launch-bootstrap-program
@@ -790,8 +802,8 @@
 
 (defn-memo launch-main-bootstrap-program
   ([] (launch-main-bootstrap-program
-       (control-checkpoint)
-       ;;(launch-bootstrap-program)
+       ;;(control-checkpoint)
+       (launch-bootstrap-program)
        ))
   ([script]
        (->> script