# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332802899 18000
# Node ID 2a46422902becb61eb4486595ecd81118fbf1dae
# Parent  8d1a354f7471e997ae5177f65bd9319118696ba1
script: got pikachu.

diff -r 8d1a354f7471 -r 2a46422902be clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 07:20:30 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 18:01:39 2012 -0500
@@ -118,7 +118,30 @@
             (repeat 51 [])
             [[:a] []]))
           (walk [↓ ↓ → → ↑])
-          (play-moves [[:a]]))))
+          (play-moves
+           (concat [[] [:a]]
+                   (repeat 100 [])))
+          (scroll-text 9)
+          (end-text)
+          (scroll-text 7)
+
+          (play-moves
+           (concat
+            (repeat 42 [])
+                   [[:b]])))))
+
+(defn-memo begin-battle-with-rival
+  ([] (begin-battle-with-rival
+        (obtain-pikachu)))
+  ([script]
+     (->> script
+          (play-moves
+           (repeat 200 [:b]))
+          (play-moves
+           (repeat 200 []))
+          (walk [↓ ↓ ↓]))))
+  
+