diff clojure/com/aurellem/run/bootstrap_0.clj @ 258:2a46422902be

script: got pikachu.
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 18:01:39 -0500
parents 8d1a354f7471
children 11cfe6dcb803
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 07:20:30 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 18:01:39 2012 -0500
     1.3 @@ -118,7 +118,30 @@
     1.4              (repeat 51 [])
     1.5              [[:a] []]))
     1.6            (walk [↓ ↓ → → ↑])
     1.7 -          (play-moves [[:a]]))))
     1.8 +          (play-moves
     1.9 +           (concat [[] [:a]]
    1.10 +                   (repeat 100 [])))
    1.11 +          (scroll-text 9)
    1.12 +          (end-text)
    1.13 +          (scroll-text 7)
    1.14 +
    1.15 +          (play-moves
    1.16 +           (concat
    1.17 +            (repeat 42 [])
    1.18 +                   [[:b]])))))
    1.19 +
    1.20 +(defn-memo begin-battle-with-rival
    1.21 +  ([] (begin-battle-with-rival
    1.22 +        (obtain-pikachu)))
    1.23 +  ([script]
    1.24 +     (->> script
    1.25 +          (play-moves
    1.26 +           (repeat 200 [:b]))
    1.27 +          (play-moves
    1.28 +           (repeat 200 []))
    1.29 +          (walk [↓ ↓ ↓]))))
    1.30 +  
    1.31 +          
    1.32        
    1.33  
    1.34